set scan off set echo on -- Created for Loyola Marymount University -- By Robert M. Nitsos -- 07-AUG-2002 -- -- This package creates a page in the Faculty Module that allows the user to view -- information about a student's transfer articulation data. -- create or replace package lmuhwsktaeq is procedure LMUTransArtic (STUPIDM in spriden.spriden_pidm%type default null, term IN STVTERM.STVTERM_CODE%TYPE DEFAULT NULL, error_mess in varchar2 default null); procedure LMUTransArticStu (error_mess in varchar2 default null); END lmuhwsktaeq; / show errors CREATE OR REPLACE PACKAGE BODY lmuhwsktaeq AS /* make sure registered then continue to process */ /* Global type and variable declarations for package */ pidm spriden.spriden_pidm%TYPE; NEWLINE constant varchar2(1) := ' '; /****************************** LMU Show Transfer Articulation Info ***********************/ procedure LMUTransArtic (STUPIDM in spriden.spriden_pidm%type default null, term IN STVTERM.STVTERM_CODE%TYPE DEFAULT NULL, error_mess in varchar2 default null) is curr_release varchar2(10) := '5.5'; hold_term stvterm.stvterm_code%TYPE; hold_stupidm spriden.spriden_pidm%TYPE; hold_stupidm_char varchar2(30) DEFAULT NULL; confid_msg varchar2(30) default null; student_name varchar2(124); student_id spriden.spriden_id%TYPE; student_coll stvcoll.stvcoll_desc%type; student_coll2 stvcoll.stvcoll_desc%type; student_major stvmajr.stvmajr_desc%type; student_conc1 stvmajr.stvmajr_desc%type; student_conc12 stvmajr.stvmajr_desc%type; student_major2 stvmajr.stvmajr_desc%type; student_conc2 stvmajr.stvmajr_desc%type; student_conc22 stvmajr.stvmajr_desc%type; msg varchar2(255); term_rec stvterm%rowtype; rcount number; ipcount number; hcount number; curtritseq shrtrit.shrtrit_seq_no%TYPE; curtramseq shrtram.shrtram_seq_no%TYPE; curterm shrtram.shrtram_term_code_entered%type; curlevl shrtram.shrtram_levl_code%type; printedsummary number; closetable number; showlmu number default 0; equiv_cnt number default 0; attr_cnt number default 0; attr_prnt number default 0; ip_cr_hrs number default 0; cursor inprogressinfo is select shrtrit_seq_no trit_seq, shrtrtk_sbgi_code sbgi, stvsbgi_desc school, sobsbgi_city city, sobsbgi_stat_code state, shrtram_seq_no tram_seq, shrtram_attn_period attn_per, shrtram_acceptance_date accept_date, shrtram_term_code_entered term_entered, shrtram_levl_code coll_levl, stvlevl_desc college_level, decode(shrtram_degc_code, null, 'NONE', shrtram_degc_code) degr_award, shrtrtk_levl_code t_levl, shrtrtk_term_code t_term, shrtrtk_tsubj_code t_subj, shrtrtk_tcrse_numb t_crs, shrtrtk_tcrse_title t_title, shrtrtk_cred_hours t_cr_hrs, shrtrtk_group t_group, shrtrtk_tgrd_code t_grade, shrtrtk_art_ind art_ind, shrtrtk_levl_code_inst i_levl, shrtrtk_subj_code_inst i_subj, shrtrtk_crse_numb_inst i_crs, shrtrtk_crse_title i_title, shrtrtk_inst_credits_used i_cr_hrs, baninst1.lmu_r_f_get_aok(shrtrtk_sbgi_code, shrtrtk_levl_code, shrtrtk_tsubj_code, shrtrtk_tcrse_numb, shrtrtk_term_code) aok from shrtrtk, shrtrit, shrtram, stvsbgi, sobsbgi, stvlevl where shrtrtk_pidm = hold_stupidm and shrtrtk_sbgi_code = stvsbgi_code(+) and shrtrtk_sbgi_code = sobsbgi_sbgi_code(+) and shrtrtk_pidm = shrtrit_pidm and shrtrtk_sbgi_code = shrtrit_sbgi_code and shrtrtk_pidm = shrtram_pidm and shrtrtk_tram_seq_no = shrtram_seq_no and shrtram_trit_seq_no = shrtrit_seq_no and shrtram_levl_code = stvlevl_code(+) order by trit_seq, tram_seq, t_term, t_subj, t_crs; cursor transinfo is select shrtrit_seq_no trit_seq, shrtrit_sbgi_code sbgi, stvsbgi_desc school, decode(ltrim(rtrim(sobsbgi_city||', '||sobsbgi_stat_code)), ',', 'Unknown Location', sobsbgi_city||', '||sobsbgi_stat_code) citystate, shrtram_seq_no tram_seq, shrtram_attn_period attn_per, shrtram_acceptance_date accept_date, shrtram_term_code_entered term_entered, shrtram_levl_code coll_levl, stvlevl_desc college_level, decode(shrtram_degc_code, null, 'NONE', shrtram_degc_code) degr_award, shrtrcr_levl_code t_levl, shrtrcr_term_code t_term, shrtrcr_trans_course_name t_subj, shrtrcr_trans_course_numbers t_crs, shrtrcr_tcrse_title t_title, shrtrcr_trans_credit_hours t_cr_hrs, shrtrcr_group t_group, shrtrcr_trans_grade t_grade, shrtrcr_art_ind art_ind, shrtrce_levl_code i_levl, shrtrce_subj_code i_subj, shrtrce_crse_numb i_crs, shrtrce_crse_title i_title, shrtrce_credit_hours i_cr_hrs, baninst1.lmu_r_f_get_aok(shrtrit_sbgi_code, shrtrcr_levl_code, shrtrcr_trans_course_name, shrtrcr_trans_course_numbers, shrtrcr_term_code) aok from shrtrit, shrtram, shrtrcr, shrtrce, stvlevl, stvsbgi, sobsbgi where shrtrit_pidm = hold_stupidm and shrtrit_sbgi_code=stvsbgi_code(+) and shrtrit_sbgi_code=sobsbgi_sbgi_code(+) and shrtrit_pidm=shrtram_pidm and shrtrit_seq_no=shrtram_trit_seq_no and shrtram_levl_code=stvlevl_code(+) and shrtram_pidm=shrtrcr_pidm and shrtram_trit_seq_no=shrtrcr_trit_seq_no and shrtram_seq_no=shrtrcr_tram_seq_no and shrtrcr_pidm=shrtrce_pidm(+) and shrtrcr_trit_seq_no=shrtrce_trit_seq_no(+) and shrtrcr_tram_seq_no=shrtrce_tram_seq_no(+) and shrtrcr_seq_no=shrtrce_trcr_seq_no(+) order by trit_seq, tram_seq, t_term, t_subj, t_crs; begin IF NOT twbkwbis.F_ValidUser(pidm) THEN return; END IF; /* If you came from the menu, try to select the term from the */ /* general table, gorwprm, by using F_GetParam. */ IF TERM IS NULL THEN hold_term := twbkwbis.F_GetParam(pidm,'TERM'); /* otherwise, you came from P_FacSelTerm, and need to write */ /* the param to the gorwprm table and set your local, hold_term */ ELSE twbkwbis.P_SetParam(pidm,'TERM',term); hold_term := term; END IF; /* Make sure a term has been selected */ IF hold_term is null THEN bwlkostm.P_FacSelTerm(calling_proc_name=> 'lmuhwsktaeq.LMUTransArtic'); RETURN; END IF; /* set paramater to indicate we are a faculty user */ twbkwbis.P_SetParam(pidm,'STUFAC_IND','FAC'); /* If stupidm has not been passed as a param, then try to get */ /* it from the general table, gorwprm */ IF STUPIDM IS NULL THEN hold_stupidm_char := twbkwbis.F_GetParam(pidm,'STUPIDM'); /* Otherwise, store the value of the param in GORWPRM */ ELSE twbkwbis.P_SetParam(pidm,'STUPIDM',to_char(STUPIDM,'999999999')); bwlkoids.P_FacResetPin(pidm); hold_stupidm := STUPIDM; END IF; /* If stupidm came from the table, then change it to a number */ if hold_stupidm_char is not null then hold_stupidm := to_number(hold_stupidm_char,'999999999'); end if; /* Make sure a student PIDM has been selected */ IF hold_stupidm IS NULL THEN bwlkoids.P_FacIDSel(hold_term, 'lmuhwsktaeq.LMUTransArtic'); RETURN; END IF; /* If the user is not a valid faculty member for the selected */ /* term, print a message, close the page, and exit. */ IF NOT BWLKILIB.F_ValidFac(hold_term, pidm) THEN twbkwbis.P_OpenDoc('lmuhwsktaeq.LMUTransArtic',header_text=> '*** Invalid Faculty ID ***'); msg := 'You must be a valid faculty member for the selected term'|| ' to access this page.'; HTP.hr; twbkfrmt.P_PrintImage(twbklibs.twgbwrul_rec.twgbwrul_error_gif); HTP.bold(msg); HTP.para; twbkwbis.P_CloseDoc(curr_release); RETURN; END IF; /* Check to see if there are any current articulation records to display */ BEGIN select count(*) into ipcount from shrtrtk where shrtrtk_pidm = hold_stupidm; EXCEPTION WHEN OTHERS THEN ipcount := 0; END; /* Check to see if there are any historical articulation records to display */ BEGIN select count(*) into hcount from shrtrcr where shrtrcr_pidm = hold_stupidm; EXCEPTION WHEN OTHERS THEN hcount := 0; END; /* Display message if no records found */ IF ipcount = 0 THEN if hcount = 0 then twbkwbis.P_OpenDoc('lmuhwsktaeq.LMUTransArtic',header_text=> '*** No Transfer Articulation Information Exists ***'); /* Be sure to enter appropriate info text in Web Tailor for NO_DATA */ twbkwbis.P_DispInfo('lmuhwsktaeq.LMUTransArtic','NO_DATA'); twbkwbis.P_CloseDoc(curr_release); return; end if; END IF; /* Get Student ID, College and Major */ BEGIN select spriden_id, col1.stvcoll_desc, m1.stvmajr_desc, c1.stvmajr_desc, c12.stvmajr_desc, col2.stvcoll_desc, m2.stvmajr_desc, c2.stvmajr_desc, c22.stvmajr_desc into student_id, student_coll, student_major, student_conc1, student_conc12, student_coll2, student_major2, student_conc2, student_conc22 from spriden, sgbstdn a, stvcoll col1, stvcoll col2, stvmajr m1, stvmajr c1, stvmajr c12, stvmajr m2, stvmajr c2, stvmajr c22 where spriden_pidm = hold_stupidm and spriden_change_ind is null and spriden_pidm = a.sgbstdn_pidm and a.sgbstdn_term_code_eff = (select max(b.sgbstdn_term_code_eff) from sgbstdn b where b.sgbstdn_term_code_eff <= hold_term and a.sgbstdn_pidm=b.sgbstdn_pidm) and a.sgbstdn_coll_code_1 = col1.stvcoll_code(+) and a.sgbstdn_majr_code_1 = m1.stvmajr_code(+) and a.sgbstdn_majr_code_conc_1 = c1.stvmajr_code(+) and a.sgbstdn_majr_code_conc_1_2 = c12.stvmajr_code(+) and a.sgbstdn_coll_code_2 = col2.stvcoll_code(+) and a.sgbstdn_majr_code_2 = m2.stvmajr_code(+) and a.sgbstdn_majr_code_conc_2 = c2.stvmajr_code(+) and a.sgbstdn_majr_code_conc_2_2 = c22.stvmajr_code(+); EXCEPTION WHEN OTHERS THEN student_id := null; student_coll := null; student_coll2 := null; student_major := null; student_conc1 := null; student_conc12 := null; student_major2 := null; student_conc2 := null; student_conc22 := null; END; /* Open Document */ twbkwbis.P_OpenDoc('lmuhwsktaeq.LMUTransArtic',header_text=> 'For: '|| f_format_name(hold_stupidm, 'FMIL')||' ('||student_id||')'); /* College: '||student_coll||' Major: '||student_major); */ /* You can enter info text for GENERAL if you want to display any additional information */ twbkwbis.P_DispInfo('lmuhwsktaeq.LMUTransArtic','GENERAL'); /* Display Student College & Major */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Student College 1:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_coll),calign=>'Left'); twbkfrmt.P_TableDataLabel('College 2:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_coll2),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Major 1:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_major),calign=>'Left'); twbkfrmt.P_TableDataLabel('Major 2:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_major2),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Conc 1:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_conc1),calign=>'Center'); twbkfrmt.P_TableDataLabel('Conc 2:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_conc2),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Conc 1_2:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_conc12),calign=>'Center'); twbkfrmt.P_TableDataLabel('Conc 2_2:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(student_conc22),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; HTP.para; HTP.HR; HTP.para; /* Show Articulations In Progress For Student */ curtritseq := 99; curtramseq := 99; closetable := 0; curterm:='999999'; curlevl:='UG'; printedsummary := 0; ip_cr_hrs := 0; for mystuff in inprogressinfo loop if curtritseq <> mystuff.trit_seq then /* New School */ if closetable = 1 then /* close the current table and display the summary hours for the period */ twbkfrmt.P_TableClose; htp.para; /* Display Summary Info */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(curlevl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(to_char(ip_cr_hrs, '999.99')),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; closetable := 0; printedsummary := 1; ip_cr_hrs := 0; HTP.para; HTP.HR; HTP.para; end if; /* Display Transfer College Info */ htp.para; twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Transfer Institution:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.school||' ('||mystuff.city||', '||mystuff.state||')'),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Level:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.college_level),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; curtritseq := mystuff.trit_seq; curtramseq := 99; end if; if curtramseq <> mystuff.tram_seq then /* New Attendance Period */ if closetable = 1 then /* close the current table and display the summary hours for the period */ twbkfrmt.P_TableClose; htp.para; /* Display Summary Info */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(curlevl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(to_char(ip_cr_hrs, '999.99')),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; closetable := 0; printedsummary := 1; ip_cr_hrs := 0; HTP.para; HTP.HR; HTP.para; end if; /* Display Attendance Period Data For School */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Attendance Period:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('('||mystuff.tram_seq||') '||mystuff.attn_per),calign=>'Left'); twbkfrmt.P_TableDataLabel('Acceptance Date:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.accept_date),calign=>'Left'); twbkfrmt.P_TableDataLabel('Degree Awarded:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.degr_award),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; /* Display Headers for Table */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('EVALUATION IN PROGRESS - NOT IN HISTORY',calign=>'Center',ccolspan=>'15'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('TRANSFER INSTITUTION COURSES',calign=>'Center',ccolspan=>'8'); twbkfrmt.P_TableDataLabel(null,calign=>'Center'); twbkfrmt.P_TableDataLabel('LMU EQUIVALENT',calign=>'Center',ccolspan=>'6'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('AOK',calign=>'Center'); twbkfrmt.P_TableDataLabel('LV',calign=>'Center'); twbkfrmt.P_TableDataLabel('TERM',calign=>'Center'); twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GRD',calign=>'Center'); twbkfrmt.P_TableDataLabel('*',calign=>'Center'); twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATTRIBUTE(S)',calign=>'Center'); twbkfrmt.P_TableDataLabel('DEGREE AUDIT EXCEPTIONS',calign=>'Center'); twbkfrmt.P_TableRowClose; curtramseq := mystuff.tram_seq; curterm:=mystuff.term_entered; curlevl:=mystuff.coll_levl; end if; /* Display Articulation Data */ twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.aok),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_term),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_cr_hrs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_grade),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.art_ind),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_cr_hrs),calign=>'Center'); ip_cr_hrs := ip_cr_hrs + mystuff.i_cr_hrs; /* Get Attributes, If Any, For Current Course */ attr_cnt := 0; begin select count(*) into attr_cnt from shrtrat where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs; exception when others then attr_cnt := 0; end; if attr_cnt <> 0 then declare cursor attr_cursor is select shrtrat_attr_code attr, stvattr_desc c_attrib from shrtrat, stvattr where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs and shrtrat_attr_code=stvattr_code(+); begin attr_prnt := 0; for attrstuff in attr_cursor loop if attr_prnt = 1 then /* New Row */ twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'13'); end if; twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(attrstuff.c_attrib),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); attr_prnt := 1; end loop; end; else twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); end if; twbkfrmt.P_TableRowClose; /* Check for any additional equivalencies */ equiv_cnt := 0; begin select count(*) into equiv_cnt from shrtatc where shrtatc_sbgi_code=mystuff.sbgi and shrtatc_tlvl_code=mystuff.t_levl and shrtatc_subj_code_trns=mystuff.t_subj and shrtatc_crse_numb_trns=mystuff.t_crs and shrtatc_subj_code_inst<>mystuff.i_subj and shrtatc_crse_numb_inst<>mystuff.i_crs; exception when others then equiv_cnt := 0; end; if equiv_cnt <> 0 then declare cursor equivinfo is select shrtatc_subj_code_inst i_subj, shrtatc_crse_numb_inst i_crs, shrtatc_inst_title i_title, shrtatc_inst_credits_used i_cr_hrs, shrtatc_tlvl_code t_levl, shrtatc_subj_code_trns t_subj, shrtatc_crse_numb_trns t_crs from shrtatc where shrtatc_sbgi_code=mystuff.sbgi and shrtatc_tlvl_code=mystuff.t_levl and shrtatc_subj_code_trns=mystuff.t_subj and shrtatc_crse_numb_trns=mystuff.t_crs and shrtatc_subj_code_inst<>mystuff.i_subj and shrtatc_crse_numb_inst<>mystuff.i_crs; begin for equivstuff in equivinfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'8'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('OR'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_cr_hrs),calign=>'Center'); /* Check for attributes for Equivalencies */ attr_cnt := 0; begin select count(*) into attr_cnt from shrtrat where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=equivstuff.t_levl and shrtrat_subj_code_trns=equivstuff.t_subj and shrtrat_crse_numb_trns=equivstuff.t_crs and shrtrat_subj_code_inst=equivstuff.i_subj and shrtrat_crse_numb_inst=equivstuff.i_crs; exception when others then attr_cnt := 0; end; if attr_cnt <> 0 then declare cursor attr_cursor is select shrtrat_attr_code attr, stvattr_desc c_attrib from shrtrat, stvattr where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=equivstuff.t_levl and shrtrat_subj_code_trns=equivstuff.t_subj and shrtrat_crse_numb_trns=equivstuff.t_crs and shrtrat_subj_code_inst=equivstuff.i_subj and shrtrat_crse_numb_inst=equivstuff.i_crs and shrtrat_attr_code=stvattr_code(+); begin attr_prnt := 0; for attrstuff in attr_cursor loop if attr_prnt = 1 then /* New Row */ twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'13'); end if; twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(attrstuff.c_attrib),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); attr_prnt := 1; end loop; end; else twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); end if; twbkfrmt.P_TableRowClose; end loop; end; end if; closetable := 1; printedsummary := 0; end loop; twbkfrmt.P_TableClose; if printedsummary = 0 and ipcount > 0 then HTP.para; /* Display Summary Info */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(curlevl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(to_char(ip_cr_hrs, '999.99')),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; printedsummary := 1; ip_cr_hrs := 0; HTP.para; HTP.HR; HTP.HR; HTP.para; end if; /* Show Articulations In History For Student */ curtritseq := 99; curtramseq := 99; closetable := 0; curterm:='999999'; curlevl:='UG'; printedsummary := 0; /* Display Report */ FOR mystuff IN transinfo LOOP if curtritseq <> mystuff.trit_seq then if closetable = 1 then twbkfrmt.P_TableClose; HTP.para; /* Display Summary Info */ declare cursor sumtgpainfo is select shrtgpa_tram_seq_no tram_gpa, shrtgpa_levl_code levl, to_char(nvl(shrtgpa_hours_attempted, 0), '999.99') hours_attempted_t, to_char(nvl(shrtgpa_hours_earned, 0), '999.99') hours_earned_t, to_char(nvl(shrtgpa_gpa_hours, 0), '999.99') gpa_hours_t, to_char(nvl(shrtgpa_quality_points, 0), '999.99') quality_points_t, to_char(nvl(shrtgpa_gpa, 0), '9.99') gpa_t, to_char(nvl(shrtgpa_hours_passed, 0), '999.99') hours_passed_t from shrtgpa where shrtgpa_pidm = hold_stupidm and shrtgpa_levl_code = curlevl and shrtgpa_trit_seq_no = curtritseq and shrtgpa_tram_seq_no = curtramseq and shrtgpa_term_code = curterm and shrtgpa_gpa_type_ind = 'T'; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_t),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; printedsummary := 1; HTP.para; HTP.HR; HTP.para; end; closetable := 0; end if; /* Display Transfer College Info */ htp.para; twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Transfer Institution:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.school||' ('||mystuff.citystate||')'),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Level:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.college_level),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; curtritseq := mystuff.trit_seq; curtramseq := 99; end if; if curtramseq <> mystuff.tram_seq then if closetable = 1 then if printedsummary = 0 then twbkfrmt.P_TableClose; HTP.para; /* Display Summary Info */ declare cursor sumtgpainfo is select shrtgpa_tram_seq_no tram_gpa, shrtgpa_levl_code levl, to_char(nvl(shrtgpa_hours_attempted, 0), '999.99') hours_attempted_t, to_char(nvl(shrtgpa_hours_earned, 0), '999.99') hours_earned_t, to_char(nvl(shrtgpa_gpa_hours, 0), '999.99') gpa_hours_t, to_char(nvl(shrtgpa_quality_points, 0), '999.99') quality_points_t, to_char(nvl(shrtgpa_gpa, 0), '9.99') gpa_t, to_char(nvl(shrtgpa_hours_passed, 0), '999.99') hours_passed_t from shrtgpa where shrtgpa_pidm = hold_stupidm and shrtgpa_levl_code = curlevl and shrtgpa_trit_seq_no = curtritseq and shrtgpa_tram_seq_no = curtramseq and shrtgpa_term_code = curterm and shrtgpa_gpa_type_ind = 'T'; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_t),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; printedsummary := 1; HTP.para; HTP.HR; HTP.para; end; end if; closetable := 0; end if; twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Attendance Period:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('('||mystuff.tram_seq||') '||mystuff.attn_per),calign=>'Left'); twbkfrmt.P_TableDataLabel('Acceptance Date:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.accept_date),calign=>'Left'); twbkfrmt.P_TableDataLabel('Degree Awarded:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.degr_award),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; /* Display Headers for Table */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('TRANSFER WORK IN HISTORY',calign=>'Center',ccolspan=>'15'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('TRANSFER INSTITUTION COURSES',calign=>'Center',ccolspan=>'8'); twbkfrmt.P_TableDataLabel(null,calign=>'Center'); twbkfrmt.P_TableDataLabel('LMU EQUIVALENT',calign=>'Center',ccolspan=>'6'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('AOK',calign=>'Center'); twbkfrmt.P_TableDataLabel('LV',calign=>'Center'); twbkfrmt.P_TableDataLabel('TERM',calign=>'Center'); twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GRD',calign=>'Center'); twbkfrmt.P_TableDataLabel('*',calign=>'Center'); twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATTRIBUTE(S)',calign=>'Center'); twbkfrmt.P_TableDataLabel('DEGREE AUDIT EXCEPTIONS',calign=>'Center'); twbkfrmt.P_TableRowClose; curtramseq := mystuff.tram_seq; curterm:=mystuff.term_entered; curlevl:=mystuff.coll_levl; end if; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.aok),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_term),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_cr_hrs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_grade),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.art_ind),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_cr_hrs),calign=>'Center'); /* Get Attributes, If Any */ attr_cnt := 0; begin select count(*) into attr_cnt from shrtrat where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs; exception when others then attr_cnt := 0; end; if attr_cnt <> 0 then declare cursor attr_cursor is select shrtrat_attr_code attr, stvattr_desc c_attrib from shrtrat, stvattr where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs and shrtrat_attr_code=stvattr_code(+); begin attr_prnt := 0; for attrstuff in attr_cursor loop if attr_prnt = 1 then /* New Row */ twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'13'); end if; twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(attrstuff.c_attrib),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); attr_prnt := 1; end loop; end; else twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); end if; twbkfrmt.P_TableRowClose; /* Check for any additional equivalencies */ equiv_cnt := 0; begin select count(*) into equiv_cnt from shrtatc where shrtatc_sbgi_code=mystuff.sbgi and shrtatc_tlvl_code=mystuff.t_levl and shrtatc_subj_code_trns=mystuff.t_subj and shrtatc_crse_numb_trns=mystuff.t_crs and shrtatc_subj_code_inst<>mystuff.i_subj and shrtatc_crse_numb_inst<>mystuff.i_crs; exception when others then equiv_cnt := 0; end; if equiv_cnt <> 0 then declare cursor equivinfo is select shrtatc_subj_code_inst i_subj, shrtatc_crse_numb_inst i_crs, shrtatc_inst_title i_title, shrtatc_inst_credits_used i_cr_hrs, shrtatc_tlvl_code t_levl, shrtatc_subj_code_trns t_subj, shrtatc_crse_numb_trns t_crs from shrtatc where shrtatc_sbgi_code=mystuff.sbgi and shrtatc_tlvl_code=mystuff.t_levl and shrtatc_subj_code_trns=mystuff.t_subj and shrtatc_crse_numb_trns=mystuff.t_crs and shrtatc_subj_code_inst<>mystuff.i_subj and shrtatc_crse_numb_inst<>mystuff.i_crs; begin for equivstuff in equivinfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'8'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('OR'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(equivstuff.i_cr_hrs),calign=>'Center'); /* Check for attributes for Equivalencies */ attr_cnt := 0; begin select count(*) into attr_cnt from shrtrat where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=equivstuff.t_levl and shrtrat_subj_code_trns=equivstuff.t_subj and shrtrat_crse_numb_trns=equivstuff.t_crs and shrtrat_subj_code_inst=equivstuff.i_subj and shrtrat_crse_numb_inst=equivstuff.i_crs; exception when others then attr_cnt := 0; end; if attr_cnt <> 0 then declare cursor attr_cursor is select shrtrat_attr_code attr, stvattr_desc c_attrib from shrtrat, stvattr where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=equivstuff.t_levl and shrtrat_subj_code_trns=equivstuff.t_subj and shrtrat_crse_numb_trns=equivstuff.t_crs and shrtrat_subj_code_inst=equivstuff.i_subj and shrtrat_crse_numb_inst=equivstuff.i_crs and shrtrat_attr_code=stvattr_code(+); begin attr_prnt := 0; for attrstuff in attr_cursor loop if attr_prnt = 1 then /* New Row */ twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'13'); end if; twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(attrstuff.c_attrib),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); attr_prnt := 1; end loop; end; else twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); /* Create DAE Column */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); end if; twbkfrmt.P_TableRowClose; end loop; end; end if; closetable := 1; printedsummary := 0; END LOOP; twbkfrmt.P_TableClose; if printedsummary = 0 and hcount > 0 then HTP.para; /* Display Summary Info */ declare cursor sumtgpainfo is select shrtgpa_levl_code levl, to_char(nvl(shrtgpa_hours_attempted, 0), '999.99') hours_attempted_t, to_char(nvl(shrtgpa_hours_earned, 0), '999.99') hours_earned_t, to_char(nvl(shrtgpa_gpa_hours, 0), '999.99') gpa_hours_t, to_char(nvl(shrtgpa_quality_points, 0), '999.99') quality_points_t, to_char(nvl(shrtgpa_gpa, 0), '9.99') gpa_t, to_char(nvl(shrtgpa_hours_passed, 0), '999.99') hours_passed_t from shrtgpa where shrtgpa_pidm = hold_stupidm and shrtgpa_levl_code = curlevl and shrtgpa_trit_seq_no = curtritseq and shrtgpa_tram_seq_no = curtramseq and shrtgpa_term_code = curterm and shrtgpa_gpa_type_ind = 'T'; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_t),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; printedsummary := 1; HTP.para; HTP.HR; HTP.para; end; end if; /* if showlmu = 1 then */ if hcount > 0 then htp.para; htp.para; declare cursor sumigpainfo is select shrlgpa_levl_code levl, to_char(nvl(shrlgpa_hours_attempted, 0), '999.99') hours_attempted, to_char(nvl(shrlgpa_hours_passed, 0), '999.99') hours_passed, to_char(nvl(shrlgpa_hours_earned, 0), '999.99') hours_earned, to_char(nvl(shrlgpa_gpa_hours, 0), '999.99') gpa_hours, to_char(nvl(shrlgpa_quality_points, 0), '999.99') quality_points, to_char(nvl(shrlgpa_gpa, 0), '9.99') gpa from shrlgpa where shrlgpa_pidm = hold_stupidm and shrlgpa_gpa_type_ind = 'I' order by levl DESC; cursor sumtrxfgpainfo is select shrlgpa_levl_code levl, to_char(nvl(shrlgpa_hours_attempted, 0), '999.99') hours_attempted, to_char(nvl(shrlgpa_hours_passed, 0), '999.99') hours_passed, to_char(nvl(shrlgpa_hours_earned, 0), '999.99') hours_earned, to_char(nvl(shrlgpa_gpa_hours, 0), '999.99') gpa_hours, to_char(nvl(shrlgpa_quality_points, 0), '999.99') quality_points, to_char(nvl(shrlgpa_gpa, 0), '9.99') gpa from shrlgpa where shrlgpa_pidm = hold_stupidm and shrlgpa_gpa_type_ind = 'T' order by levl DESC; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Total Transfer Hours',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtrxfgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Total Loyola Marymount University Hours',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumigpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; end; end if; htp.para; htp.para; /* Enter Info Text for Footer */ twbkwbis.P_DispInfo('lmuhwsktaeq.LMUTransArtic','PG_FOOTER'); twbkwbis.P_CloseDoc; end LMUTransArtic; /****************************** LMU Show Student Transfer Articulation Info ***********************/ procedure LMUTransArticStu (error_mess in varchar2 default null) is curr_release varchar2(10) := '5.5'; hold_stupidm spriden.spriden_pidm%TYPE; hold_stupidm_char varchar2(30) DEFAULT NULL; confid_msg varchar2(30) default null; student_name varchar2(124); student_id spriden.spriden_id%TYPE; student_coll stvcoll.stvcoll_desc%type; student_major stvmajr.stvmajr_desc%type; msg varchar2(255); rcount number; ipcount number; hcount number; curtritseq shrtrit.shrtrit_seq_no%TYPE; curtramseq shrtram.shrtram_seq_no%TYPE; curterm shrtram.shrtram_term_code_entered%type; curlevl shrtram.shrtram_levl_code%type; printedsummary number; closetable number; showlmu number default 0; equiv_cnt number default 0; attr_cnt number default 0; attr_prnt number default 0; ip_cr_hrs number default 0; cursor inprogressinfo is select shrtrit_seq_no trit_seq, shrtrtk_sbgi_code sbgi, stvsbgi_desc school, sobsbgi_city city, sobsbgi_stat_code state, shrtram_seq_no tram_seq, shrtram_attn_period attn_per, shrtram_acceptance_date accept_date, shrtram_term_code_entered term_entered, shrtram_levl_code coll_levl, stvlevl_desc college_level, decode(shrtram_degc_code, null, 'NONE', shrtram_degc_code) degr_award, shrtrtk_levl_code t_levl, shrtrtk_term_code t_term, shrtrtk_tsubj_code t_subj, shrtrtk_tcrse_numb t_crs, shrtrtk_tcrse_title t_title, shrtrtk_cred_hours t_cr_hrs, shrtrtk_group t_group, shrtrtk_tgrd_code t_grade, shrtrtk_art_ind art_ind, shrtrtk_levl_code_inst i_levl, shrtrtk_subj_code_inst i_subj, shrtrtk_crse_numb_inst i_crs, shrtrtk_crse_title i_title, shrtrtk_inst_credits_used i_cr_hrs, baninst1.lmu_r_f_get_aok(shrtrtk_sbgi_code, shrtrtk_levl_code, shrtrtk_tsubj_code, shrtrtk_tcrse_numb, shrtrtk_term_code) aok from shrtrtk, shrtrit, shrtram, stvsbgi, sobsbgi, stvlevl where shrtrtk_pidm = hold_stupidm and shrtrtk_sbgi_code = stvsbgi_code(+) and shrtrtk_sbgi_code = sobsbgi_sbgi_code(+) and shrtrtk_pidm = shrtrit_pidm and shrtrtk_sbgi_code = shrtrit_sbgi_code and shrtrtk_pidm = shrtram_pidm and shrtrtk_tram_seq_no = shrtram_seq_no and shrtram_trit_seq_no = shrtrit_seq_no and shrtram_levl_code = stvlevl_code(+) order by trit_seq, tram_seq, t_term, t_subj, t_crs; cursor transinfo is select shrtrit_seq_no trit_seq, shrtrit_sbgi_code sbgi, stvsbgi_desc school, decode(ltrim(rtrim(sobsbgi_city||', '||sobsbgi_stat_code)), ',', 'Unknown Location', sobsbgi_city||', '||sobsbgi_stat_code) citystate, shrtram_seq_no tram_seq, shrtram_attn_period attn_per, shrtram_acceptance_date accept_date, shrtram_term_code_entered term_entered, shrtram_levl_code coll_levl, stvlevl_desc college_level, decode(shrtram_degc_code, null, 'NONE', shrtram_degc_code) degr_award, shrtrcr_levl_code t_levl, shrtrcr_term_code t_term, shrtrcr_trans_course_name t_subj, shrtrcr_trans_course_numbers t_crs, shrtrcr_tcrse_title t_title, shrtrcr_trans_credit_hours t_cr_hrs, shrtrcr_group t_group, shrtrcr_trans_grade t_grade, shrtrcr_art_ind art_ind, shrtrce_levl_code i_levl, shrtrce_subj_code i_subj, shrtrce_crse_numb i_crs, shrtrce_crse_title i_title, shrtrce_credit_hours i_cr_hrs, baninst1.lmu_r_f_get_aok(shrtrit_sbgi_code, shrtrcr_levl_code, shrtrcr_trans_course_name, shrtrcr_trans_course_numbers, shrtrcr_term_code) aok from shrtrit, shrtram, shrtrcr, shrtrce, stvlevl, stvsbgi, sobsbgi where shrtrit_pidm = hold_stupidm and shrtrit_sbgi_code=stvsbgi_code(+) and shrtrit_sbgi_code=sobsbgi_sbgi_code(+) and shrtrit_pidm=shrtram_pidm and shrtrit_seq_no=shrtram_trit_seq_no and shrtram_levl_code=stvlevl_code(+) and shrtram_pidm=shrtrcr_pidm and shrtram_trit_seq_no=shrtrcr_trit_seq_no and shrtram_seq_no=shrtrcr_tram_seq_no and shrtrcr_pidm=shrtrce_pidm(+) and shrtrcr_trit_seq_no=shrtrce_trit_seq_no(+) and shrtrcr_tram_seq_no=shrtrce_tram_seq_no(+) and shrtrcr_seq_no=shrtrce_trcr_seq_no(+) order by trit_seq, tram_seq, t_term, t_subj, t_crs; begin /* Check for Valid User */ IF NOT twbkwbis.F_ValidUser(pidm) THEN return; END IF; hold_stupidm := pidm; /* Check to see if there are any current articulation records to display */ BEGIN select count(*) into ipcount from shrtrtk where shrtrtk_pidm = hold_stupidm; EXCEPTION WHEN OTHERS THEN ipcount := 0; END; /* Check to see if there are any historical articulation records to display */ BEGIN select count(*) into hcount from shrtrcr where shrtrcr_pidm = hold_stupidm; EXCEPTION WHEN OTHERS THEN hcount := 0; END; /* Display message if no test records found */ IF ipcount = 0 THEN if hcount = 0 then twbkwbis.P_OpenDoc('lmuhwsktaeq.LMUTransArticStu',header_text=> '*** No Transfer Articulation Information Exists ***'); /* Be sure to enter appropriate info text in Web Tailor for NO_DATA */ twbkwbis.P_DispInfo('lmuhwsktaeq.LMUTransArticStu','NO_DATA'); twbkwbis.P_CloseDoc(curr_release); return; end if; END IF; /* Open Document */ twbkwbis.P_OpenDoc('lmuhwsktaeq.LMUTransArticStu'); /* You can enter info text for GENERAL if you want to display any additional information */ twbkwbis.P_DispInfo('lmuhwsktaeq.LMUTransArticStu','GENERAL'); /* Show Articulations In Progress For Student */ curtritseq := 99; curtramseq := 99; closetable := 0; curterm:='999999'; curlevl:='UG'; printedsummary := 0; ip_cr_hrs := 0; for mystuff in inprogressinfo loop if curtritseq <> mystuff.trit_seq then /* New School */ if closetable = 1 then /* close the current table and display the summary hours for the period */ twbkfrmt.P_TableClose; htp.para; /* Display Summary Info */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(curlevl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(to_char(ip_cr_hrs, '999.99')),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; closetable := 0; printedsummary := 1; ip_cr_hrs := 0; HTP.para; HTP.HR; HTP.para; end if; /* Display Transfer College Info */ htp.para; twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Transfer Institution:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.school||' ('||mystuff.city||', '||mystuff.state||')'),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Level:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.college_level),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; curtritseq := mystuff.trit_seq; curtramseq := 99; end if; if curtramseq <> mystuff.tram_seq then /* New Attendance Period */ if closetable = 1 then /* close the current table and display the summary hours for the period */ twbkfrmt.P_TableClose; htp.para; /* Display Summary Info */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(curlevl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(to_char(ip_cr_hrs, '999.99')),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; closetable := 0; printedsummary := 1; ip_cr_hrs := 0; HTP.para; HTP.HR; HTP.para; end if; /* Display Attendance Period Data For School */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Attendance Period:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('('||mystuff.tram_seq||') '||mystuff.attn_per),calign=>'Left'); twbkfrmt.P_TableDataLabel('Acceptance Date:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.accept_date),calign=>'Left'); twbkfrmt.P_TableDataLabel('Degree Awarded:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.degr_award),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; /* Display Headers for Table */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('EVALUATION IN PROGRESS - NOT IN HISTORY',calign=>'Center',ccolspan=>'12'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('TRANSFER INSTITUTION COURSES',calign=>'Center',ccolspan=>'6'); twbkfrmt.P_TableDataLabel(null,calign=>'Center'); twbkfrmt.P_TableDataLabel('LMU EQUIVALENT',calign=>'Center',ccolspan=>'5'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); /* twbkfrmt.P_TableDataLabel('AOK',calign=>'Center'); */ twbkfrmt.P_TableDataLabel('LV',calign=>'Center'); /* twbkfrmt.P_TableDataLabel('TERM',calign=>'Center'); */ twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GRD',calign=>'Center'); twbkfrmt.P_TableDataLabel('*',calign=>'Center'); twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATTRIBUTE(S)',calign=>'Center'); /* twbkfrmt.P_TableDataLabel('DEGREE AUDIT EXCEPTIONS',calign=>'Center'); */ twbkfrmt.P_TableRowClose; curtramseq := mystuff.tram_seq; curterm:=mystuff.term_entered; curlevl:=mystuff.coll_levl; end if; /* Display Articulation Data */ twbkfrmt.P_TableRowOpen('left'); /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.aok),calign=>'Center'); */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_levl),calign=>'Center'); /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_term),calign=>'Center'); */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_cr_hrs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_grade),calign=>'Center'); /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.art_ind),calign=>'Center'); */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_cr_hrs),calign=>'Center'); ip_cr_hrs := ip_cr_hrs + mystuff.i_cr_hrs; /* Get Attributes, If Any, For Current Course */ attr_cnt := 0; begin select count(*) into attr_cnt from shrtrat where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs; exception when others then attr_cnt := 0; end; if attr_cnt <> 0 then declare cursor attr_cursor is select shrtrat_attr_code attr, stvattr_desc c_attrib from shrtrat, stvattr where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs and shrtrat_attr_code=stvattr_code(+); begin attr_prnt := 0; for attrstuff in attr_cursor loop if attr_prnt = 1 then /* New Row */ twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'11'); end if; twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(attrstuff.c_attrib),calign=>'Center'); /* Create DAE Column */ /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); */ attr_prnt := 1; end loop; end; else twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); /* Create DAE Column */ /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); */ end if; twbkfrmt.P_TableRowClose; closetable := 1; printedsummary := 0; end loop; twbkfrmt.P_TableClose; if printedsummary = 0 and ipcount > 0 then HTP.para; /* Display Summary Info */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(curlevl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(to_char(ip_cr_hrs, '999.99')),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('0.00'),calign=>'Center'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; printedsummary := 1; ip_cr_hrs := 0; HTP.para; HTP.HR; HTP.HR; HTP.para; end if; /* Show Articulations In History For Student */ curtritseq := 99; curtramseq := 99; closetable := 0; curterm:='999999'; curlevl:='UG'; printedsummary := 0; /* Display Report */ FOR mystuff IN transinfo LOOP if curtritseq <> mystuff.trit_seq then if closetable = 1 then twbkfrmt.P_TableClose; HTP.para; /* Display Summary Info */ declare cursor sumtgpainfo is select shrtgpa_tram_seq_no tram_gpa, shrtgpa_levl_code levl, to_char(nvl(shrtgpa_hours_attempted, 0), '999.99') hours_attempted_t, to_char(nvl(shrtgpa_hours_earned, 0), '999.99') hours_earned_t, to_char(nvl(shrtgpa_gpa_hours, 0), '999.99') gpa_hours_t, to_char(nvl(shrtgpa_quality_points, 0), '999.99') quality_points_t, to_char(nvl(shrtgpa_gpa, 0), '9.99') gpa_t, to_char(nvl(shrtgpa_hours_passed, 0), '999.99') hours_passed_t from shrtgpa where shrtgpa_pidm = hold_stupidm and shrtgpa_levl_code = curlevl and shrtgpa_trit_seq_no = curtritseq and shrtgpa_tram_seq_no = curtramseq and shrtgpa_term_code = curterm and shrtgpa_gpa_type_ind = 'T'; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_t),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; printedsummary := 1; HTP.para; HTP.HR; HTP.para; end; closetable := 0; end if; /* Display Transfer College Info */ htp.para; twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Transfer Institution:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.school||' ('||mystuff.citystate||')'),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Level:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.college_level),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; curtritseq := mystuff.trit_seq; curtramseq := 99; end if; if curtramseq <> mystuff.tram_seq then if closetable = 1 then if printedsummary = 0 then twbkfrmt.P_TableClose; HTP.para; /* Display Summary Info */ declare cursor sumtgpainfo is select shrtgpa_tram_seq_no tram_gpa, shrtgpa_levl_code levl, to_char(nvl(shrtgpa_hours_attempted, 0), '999.99') hours_attempted_t, to_char(nvl(shrtgpa_hours_earned, 0), '999.99') hours_earned_t, to_char(nvl(shrtgpa_gpa_hours, 0), '999.99') gpa_hours_t, to_char(nvl(shrtgpa_quality_points, 0), '999.99') quality_points_t, to_char(nvl(shrtgpa_gpa, 0), '9.99') gpa_t, to_char(nvl(shrtgpa_hours_passed, 0), '999.99') hours_passed_t from shrtgpa where shrtgpa_pidm = hold_stupidm and shrtgpa_levl_code = curlevl and shrtgpa_trit_seq_no = curtritseq and shrtgpa_tram_seq_no = curtramseq and shrtgpa_term_code = curterm and shrtgpa_gpa_type_ind = 'T'; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_t),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; printedsummary := 1; HTP.para; HTP.HR; HTP.para; end; end if; closetable := 0; end if; twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Attendance Period:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold('('||mystuff.tram_seq||') '||mystuff.attn_per),calign=>'Left'); twbkfrmt.P_TableDataLabel('Acceptance Date:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.accept_date),calign=>'Left'); twbkfrmt.P_TableDataLabel('Degree Awarded:',calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.degr_award),calign=>'Left'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableClose; htp.para; /* Display Headers for Table */ twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('TRANSFER WORK IN HISTORY',calign=>'Center',ccolspan=>'12'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('TRANSFER INSTITUTION COURSES',calign=>'Center',ccolspan=>'6'); twbkfrmt.P_TableDataLabel(null,calign=>'Center'); twbkfrmt.P_TableDataLabel('LMU EQUIVALENT',calign=>'Center',ccolspan=>'5'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); /* twbkfrmt.P_TableDataLabel('AOK',calign=>'Center'); */ twbkfrmt.P_TableDataLabel('LV',calign=>'Center'); /* twbkfrmt.P_TableDataLabel('TERM',calign=>'Center'); */ twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GRD',calign=>'Center'); twbkfrmt.P_TableDataLabel('*',calign=>'Center'); twbkfrmt.P_TableDataLabel('SUBJ',calign=>'Center'); twbkfrmt.P_TableDataLabel('CRSE',calign=>'Center'); twbkfrmt.P_TableDataLabel('TITLE',calign=>'Left'); twbkfrmt.P_TableDataLabel('CR HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATTRIBUTE(S)',calign=>'Center'); /* twbkfrmt.P_TableDataLabel('DEGREE AUDIT EXCEPTIONS',calign=>'Center'); */ twbkfrmt.P_TableRowClose; curtramseq := mystuff.tram_seq; curterm:=mystuff.term_entered; curlevl:=mystuff.coll_levl; end if; twbkfrmt.P_TableRowOpen('left'); /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.aok),calign=>'Center'); */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_levl),calign=>'Center'); /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_term),calign=>'Center'); */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_cr_hrs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.t_grade),calign=>'Center'); /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.art_ind),calign=>'Center'); */ twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_subj),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_crs),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_title),calign=>'Left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(mystuff.i_cr_hrs),calign=>'Center'); /* Get Attributes, If Any */ attr_cnt := 0; begin select count(*) into attr_cnt from shrtrat where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs; exception when others then attr_cnt := 0; end; if attr_cnt <> 0 then declare cursor attr_cursor is select shrtrat_attr_code attr, stvattr_desc c_attrib from shrtrat, stvattr where shrtrat_sbgi_code=mystuff.sbgi and shrtrat_tlvl_code=mystuff.t_levl and shrtrat_subj_code_trns=mystuff.t_subj and shrtrat_crse_numb_trns=mystuff.t_crs and shrtrat_subj_code_inst=mystuff.i_subj and shrtrat_crse_numb_inst=mystuff.i_crs and shrtrat_attr_code=stvattr_code(+); begin attr_prnt := 0; for attrstuff in attr_cursor loop if attr_prnt = 1 then /* New Row */ twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center',ccolspan=>'11'); end if; twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(attrstuff.c_attrib),calign=>'Center'); /* Create DAE Column */ /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); */ attr_prnt := 1; end loop; end; else twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); /* Create DAE Column */ /* twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(null),calign=>'Center'); */ end if; twbkfrmt.P_TableRowClose; closetable := 1; printedsummary := 0; END LOOP; twbkfrmt.P_TableClose; if printedsummary = 0 and hcount > 0 then HTP.para; /* Display Summary Info */ declare cursor sumtgpainfo is select shrtgpa_levl_code levl, to_char(nvl(shrtgpa_hours_attempted, 0), '999.99') hours_attempted_t, to_char(nvl(shrtgpa_hours_earned, 0), '999.99') hours_earned_t, to_char(nvl(shrtgpa_gpa_hours, 0), '999.99') gpa_hours_t, to_char(nvl(shrtgpa_quality_points, 0), '999.99') quality_points_t, to_char(nvl(shrtgpa_gpa, 0), '9.99') gpa_t, to_char(nvl(shrtgpa_hours_passed, 0), '999.99') hours_passed_t from shrtgpa where shrtgpa_pidm = hold_stupidm and shrtgpa_levl_code = curlevl and shrtgpa_trit_seq_no = curtritseq and shrtgpa_tram_seq_no = curtramseq and shrtgpa_term_code = curterm and shrtgpa_gpa_type_ind = 'T'; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Summary for Transfer Institution',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points_t),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_t),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; printedsummary := 1; HTP.para; HTP.HR; HTP.para; end; end if; /* if showlmu = 1 then */ if hcount > 0 then htp.para; htp.para; declare cursor sumigpainfo is select shrlgpa_levl_code levl, to_char(nvl(shrlgpa_hours_attempted, 0), '999.99') hours_attempted, to_char(nvl(shrlgpa_hours_passed, 0), '999.99') hours_passed, to_char(nvl(shrlgpa_hours_earned, 0), '999.99') hours_earned, to_char(nvl(shrlgpa_gpa_hours, 0), '999.99') gpa_hours, to_char(nvl(shrlgpa_quality_points, 0), '999.99') quality_points, to_char(nvl(shrlgpa_gpa, 0), '9.99') gpa from shrlgpa where shrlgpa_pidm = hold_stupidm and shrlgpa_gpa_type_ind = 'I' order by levl DESC; cursor sumtrxfgpainfo is select shrlgpa_levl_code levl, to_char(nvl(shrlgpa_hours_attempted, 0), '999.99') hours_attempted, to_char(nvl(shrlgpa_hours_passed, 0), '999.99') hours_passed, to_char(nvl(shrlgpa_hours_earned, 0), '999.99') hours_earned, to_char(nvl(shrlgpa_gpa_hours, 0), '999.99') gpa_hours, to_char(nvl(shrlgpa_quality_points, 0), '999.99') quality_points, to_char(nvl(shrlgpa_gpa, 0), '9.99') gpa from shrlgpa where shrlgpa_pidm = hold_stupidm and shrlgpa_gpa_type_ind = 'T' order by levl DESC; begin twbkfrmt.P_TableOpen('DATADISPLAY'); twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Total Transfer Hours',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumtrxfgpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('Total Loyola Marymount University Hours',calign=>'Center',ccolspan=>'7'); twbkfrmt.P_TableRowClose; twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableDataLabel('LVL',calign=>'Center'); twbkfrmt.P_TableDataLabel('ATT HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('PASS HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('EARN HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA HRS',calign=>'Center'); twbkfrmt.P_TableDataLabel('QUAL PTS',calign=>'Center'); twbkfrmt.P_TableDataLabel('GPA',calign=>'Center'); twbkfrmt.P_TableRowClose; for sumstuff in sumigpainfo loop twbkfrmt.P_TableRowOpen('left'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.levl),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_attempted),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_passed),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.hours_earned),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa_hours),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.quality_points),calign=>'Center'); twbkfrmt.P_TableData(twbkfrmt.F_PrintBold(sumstuff.gpa),calign=>'Center'); twbkfrmt.P_TableRowClose; end loop; twbkfrmt.P_TableClose; end; end if; htp.para; htp.para; /* Enter Info Text for Footer */ twbkwbis.P_DispInfo('lmuhwsktaeq.LMUTransArticStu','PG_FOOTER'); twbkwbis.P_CloseDoc(curr_release); end LMUTransArticStu; end lmuhwsktaeq; / show errors whenever sqlerror continue; drop public synonym lmuhwsktaeq; whenever sqlerror exit rollback; create public synonym lmuhwsktaeq for lmuhwsktaeq; grant execute on lmuhwsktaeq to public; set scan on