[Home] [Help]
12: Who When What
13: rrengara 17-DEC-2002 When we are creating appl , appl program and instance in when other displayed
14: the SQLERRM in the log file
15: cdcruz 18-feb-2002 Bug 2217104 Admit to future term Enhancement,updated tbh call for
16: new columns being added to IGS_AD_PS_APPL_INST
17: rbezawad 30-Oct-2004 Added logic to properly handle the security Policy errors IGS_SC_POLICY_EXCEPTION
18: and IGS_SC_POLICY_UPD_DEL_EXCEP w.r.t. bug fix 3919112.
19:
20: ******************************************************************/
791: /*************************************************************************************************************************
792: Created By: [email protected]
793: Date Created : 12-27-2001
794: Purpose: 1.This Functions inserts an admission application Program Instance
795: 2.Inserts record into igs_ad_ps_appl_inst table after validations
796: 3.Returns boolean true if the record is inserted, boolean false if the proc fails.
797: 4.Flow/Calls used in the procedure :
798: |-->IGS_AD_GEN_004.admp_get_apcs_val(Get the admission process category steps.) -IGSAD04B.pls
799: |-->IGS_AD_VAL_ACAI.admp_val_acai_fc(Set fee category) -IGSAD22B.pls
802: |-->Set admission COURSE application instance statuses for PENDING outcome
803: |-->validate_unit_sets(Validate the admission COURSE offering IGS_PS_UNIT set)
804: |-->admp_get_adm_step_values(get if location code, attendance mode and attendance type indicators are set)
805: |-->IGS_AD_VAL_ACAI.admp_val_acai_cop(Validate program offering patterns) -IGSAD22B.pls
806: |-->IGS_AD_PS_APPL_INST_PKG.insert_row(Insert an admission program application instance with PENDING outcome) -IGSAI18B.pls
807: Known limitations,enhancements,remarks:
808: Change History
809: Who When What
810: vdixit 19-Feb-2002 Added the logic to raise the business event in work flow
819: l_sc_app_short_name VARCHAR2(50);
820: l_sc_message_name VARCHAR2(50);
821:
822: BEGIN
823: -- This procedure inserts a new IGS_AD_PS_APPL_INST record.
824: logHeader('insert_adm_appl_prog_inst',null);
825: DECLARE
826: e_resource_busy EXCEPTION;
827: PRAGMA EXCEPTION_INIT (e_resource_busy, -54);
895:
896:
897: CURSOR c_nxt_acai_seq_num IS
898: SELECT NVL(MAX(sequence_number), 0) + 1
899: FROM IGS_AD_PS_APPL_INST
900: WHERE
901: person_id = p_person_id AND
902: admission_appl_number = p_admission_appl_number AND
903: nominated_course_cd = p_course_cd;
902: admission_appl_number = p_admission_appl_number AND
903: nominated_course_cd = p_course_cd;
904: CURSOR c_upd_acai IS
905: SELECT ROWID, APAI.*
906: FROM IGS_AD_PS_APPL_INST APAI
907: WHERE
908: person_id = p_person_id AND
909: admission_appl_number = p_admission_appl_number AND
910: nominated_course_cd = p_course_cd AND
929: step_group_type <> 'TRACK'; -- 2402377
930:
931:
932:
933: Rec_IGS_AD_PS_APPL_Inst c_upd_acai%ROWTYPE;
934: LV_ROWID VARCHAR2(25);
935: l_org_id NUMBER(15);
936: v_app_source igs_ad_code_classes.system_status%TYPE;
937: v_check_course_encumb VARCHAR2(1) DEFAULT 'N';
1241: p_s_admission_process_type => p_s_admission_process_type,
1242: l_adm_doc_status => v_adm_doc_status,
1243: l_adm_entr_qual_status => v_adm_entry_qual_status);
1244:
1245: logDetail('Before Call to Igs_Ad_Ps_Appl_Inst_Pkg.Insert_Row',null);
1246:
1247: IF NVL(IGS_AD_SS_GEN_001.g_admin_security_on,'N') = 'Y'
1248: THEN
1249: lv_mode := 'S';
1248: THEN
1249: lv_mode := 'S';
1250: END IF;
1251:
1252: IGS_AD_PS_APPL_INST_PKG.Insert_Row (
1253: X_ROWID => lv_rowid,
1254: X_PERSON_ID => p_Person_Id,
1255: X_ADMISSION_APPL_NUMBER => p_Admission_Appl_Number,
1256: X_NOMINATED_COURSE_CD =>p_course_cd,
1381: X_SCH_APL_TO_ID => p_sch_apl_to_id);
1382:
1383: p_message_name := NULL;
1384: p_sequence_number := v_acai_sequence_number;
1385: logDetail('Before Call to Igs_Ad_Ps_Appl_Inst_Pkg.Insert_Row, returning TRUE',null);
1386:
1387:
1388: -- begin apadegal adtd001 igs.m
1389: