[Home] [Help]
1: PACKAGE BODY igs_ad_spl_adm_cat_pkg AS
2: /* $Header: IGSAIA3B.pls 120.2 2005/10/03 08:22:24 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_spl_adm_cat%RowType;
5: new_references igs_ad_spl_adm_cat%RowType;
1: PACKAGE BODY igs_ad_spl_adm_cat_pkg AS
2: /* $Header: IGSAIA3B.pls 120.2 2005/10/03 08:22:24 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_spl_adm_cat%RowType;
5: new_references igs_ad_spl_adm_cat%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ad_spl_adm_cat_pkg AS
2: /* $Header: IGSAIA3B.pls 120.2 2005/10/03 08:22:24 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_spl_adm_cat%RowType;
5: new_references igs_ad_spl_adm_cat%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
32: ***************************************************************/
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGS_AD_SPL_ADM_CAT
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
189: ***************************************************************/
190:
191: CURSOR cur_rowid IS
192: SELECT rowid
193: FROM igs_ad_spl_adm_cat
194: WHERE spl_adm_cat_id = x_spl_adm_cat_id
195: FOR UPDATE NOWAIT;
196:
197: lv_rowid cur_rowid%RowType;
229: ***************************************************************/
230:
231: CURSOR cur_rowid IS
232: SELECT rowid
233: FROM igs_ad_spl_adm_cat
234: WHERE admission_appl_number = x_admission_appl_number
235: AND nominated_course_cd = x_nominated_course_cd
236: AND person_id = x_person_id
237: AND sequence_number = x_sequence_number
271: ***************************************************************/
272:
273: CURSOR cur_rowid IS
274: SELECT rowid
275: FROM igs_ad_spl_adm_cat
276: WHERE person_id = x_person_id
277: AND admission_appl_number = x_admission_appl_number
278: AND nominated_course_cd = x_nominated_course_cd
279: AND sequence_number = x_sequence_number ;
311: ***************************************************************/
312:
313: CURSOR cur_rowid IS
314: SELECT rowid
315: FROM igs_ad_spl_adm_cat
316: WHERE spl_adm_cat = x_code_id ;
317:
318: lv_rowid cur_rowid%RowType;
319:
477:
478: (reverse chronological order - newest change first)
479: ***************************************************************/
480:
481: cursor C is select ROWID from IGS_AD_SPL_ADM_CAT
482: where SPL_ADM_CAT_ID= X_SPL_ADM_CAT_ID;
483: X_LAST_UPDATE_DATE DATE ;
484: X_LAST_UPDATED_BY NUMBER ;
485: X_LAST_UPDATE_LOGIN NUMBER ;
520: x_last_update_login=>X_LAST_UPDATE_LOGIN);
521: IF (x_mode = 'S') THEN
522: igs_sc_gen_001.set_ctx('R');
523: END IF;
524: insert into IGS_AD_SPL_ADM_CAT (
525: SPL_ADM_CAT_ID
526: ,PERSON_ID
527: ,ADMISSION_APPL_NUMBER
528: ,NOMINATED_COURSE_CD
533: ,LAST_UPDATE_DATE
534: ,LAST_UPDATED_BY
535: ,LAST_UPDATE_LOGIN
536: ) values (
537: IGS_AD_SPL_ADM_CAT_S.NEXTVAL
538: ,NEW_REFERENCES.PERSON_ID
539: ,NEW_REFERENCES.ADMISSION_APPL_NUMBER
540: ,NEW_REFERENCES.NOMINATED_COURSE_CD
541: ,NEW_REFERENCES.SEQUENCE_NUMBER
603: , ADMISSION_APPL_NUMBER
604: , NOMINATED_COURSE_CD
605: , SEQUENCE_NUMBER
606: , SPL_ADM_CAT
607: from IGS_AD_SPL_ADM_CAT
608: where ROWID = X_ROWID
609: for update nowait;
610: tlinfo c1%rowtype;
611: begin
693: x_last_update_login=>X_LAST_UPDATE_LOGIN);
694: IF (x_mode = 'S') THEN
695: igs_sc_gen_001.set_ctx('R');
696: END IF;
697: update IGS_AD_SPL_ADM_CAT set
698: PERSON_ID = NEW_REFERENCES.PERSON_ID,
699: ADMISSION_APPL_NUMBER = NEW_REFERENCES.ADMISSION_APPL_NUMBER,
700: NOMINATED_COURSE_CD = NEW_REFERENCES.NOMINATED_COURSE_CD,
701: SEQUENCE_NUMBER = NEW_REFERENCES.SEQUENCE_NUMBER,
760:
761: (reverse chronological order - newest change first)
762: ***************************************************************/
763:
764: cursor c1 is select ROWID from IGS_AD_SPL_ADM_CAT
765: where SPL_ADM_CAT_ID= X_SPL_ADM_CAT_ID;
766: begin
767: open c1;
768: fetch c1 into X_ROWID;
813: );
814: IF (x_mode = 'S') THEN
815: igs_sc_gen_001.set_ctx('R');
816: END IF;
817: delete from IGS_AD_SPL_ADM_CAT
818: where ROWID = X_ROWID;
819: if (sql%notfound) then
820: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
821: igs_ge_msg_stack.add;
850: ELSE
851: RAISE;
852: END IF;
853: end DELETE_ROW;
854: END igs_ad_spl_adm_cat_pkg;