1: package body IGS_PR_STDNT_PR_CK_PKG AS
2: /* $Header: IGSQI14B.pls 120.0 2005/07/05 12:13:57 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_STDNT_PR_CK%RowType;
1: package body IGS_PR_STDNT_PR_CK_PKG AS
2: /* $Header: IGSQI14B.pls 120.0 2005/07/05 12:13:57 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_STDNT_PR_CK%RowType;
6: new_references IGS_PR_STDNT_PR_CK%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI14B.pls 120.0 2005/07/05 12:13:57 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_STDNT_PR_CK%RowType;
6: new_references IGS_PR_STDNT_PR_CK%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
22: ) AS
23:
24: CURSOR cur_old_ref_values IS
25: SELECT *
26: FROM IGS_PR_STDNT_PR_CK
27: WHERE rowid = x_rowid;
28:
29: BEGIN
30:
125:
126: PROCEDURE Check_Child_Existance AS
127: BEGIN
128:
129: IGS_PR_SDT_PR_RU_CK_PKG.GET_FK_IGS_PR_STDNT_PR_CK (
130: old_references.person_id,
131: old_references.course_cd,
132: old_references.prg_cal_type,
133: old_references.prg_ci_sequence_number,
145: ) RETURN BOOLEAN AS
146:
147: CURSOR cur_rowid IS
148: SELECT rowid
149: FROM IGS_PR_STDNT_PR_CK
150: WHERE person_id = x_person_id
151: AND course_cd = x_course_cd
152: AND prg_cal_type = x_prg_cal_type
153: AND prg_ci_sequence_number = x_prg_ci_sequence_number
176: ) AS
177:
178: CURSOR cur_rowid IS
179: SELECT rowid
180: FROM IGS_PR_STDNT_PR_CK
181: WHERE prg_cal_type = x_cal_type
182: AND prg_ci_sequence_number = x_sequence_number ;
183:
184: lv_rowid cur_rowid%RowType;
205: ) AS
206:
207: CURSOR cur_rowid IS
208: SELECT rowid
209: FROM IGS_PR_STDNT_PR_CK
210: WHERE person_id = x_person_id
211: AND course_cd = x_course_cd ;
212:
213: lv_rowid cur_rowid%RowType;
233: ) AS
234:
235: CURSOR cur_rowid IS
236: SELECT rowid
237: FROM IGS_PR_STDNT_PR_CK
238: WHERE s_prg_check_type = x_s_prg_check_type ;
239:
240: lv_rowid cur_rowid%RowType;
241:
340: X_RULE_CHECK_DT in DATE,
341: X_S_PRG_CHECK_TYPE in VARCHAR2,
342: X_MODE in VARCHAR2 default 'R'
343: ) AS
344: cursor C is select ROWID from IGS_PR_STDNT_PR_CK
345: where PERSON_ID = X_PERSON_ID
346: and COURSE_CD = X_COURSE_CD
347: and PRG_CAL_TYPE = X_PRG_CAL_TYPE
348: and PRG_CI_SEQUENCE_NUMBER = X_PRG_CI_SEQUENCE_NUMBER
388:
389: IF (x_mode = 'S') THEN
390: igs_sc_gen_001.set_ctx('R');
391: END IF;
392: insert into IGS_PR_STDNT_PR_CK (
393: PERSON_ID,
394: COURSE_CD,
395: PRG_CAL_TYPE,
396: PRG_CI_SEQUENCE_NUMBER,
451: X_S_PRG_CHECK_TYPE in VARCHAR2
452: ) AS
453: cursor c1 is select
454: S_PRG_CHECK_TYPE
455: from IGS_PR_STDNT_PR_CK
456: where ROWID = X_ROWID for update nowait;
457: tlinfo c1%rowtype;
458:
459: begin
532:
533: IF (x_mode = 'S') THEN
534: igs_sc_gen_001.set_ctx('R');
535: END IF;
536: update IGS_PR_STDNT_PR_CK set
537: S_PRG_CHECK_TYPE = NEW_REFERENCES.S_PRG_CHECK_TYPE,
538: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
539: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
540: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
573: X_RULE_CHECK_DT in DATE,
574: X_S_PRG_CHECK_TYPE in VARCHAR2,
575: X_MODE in VARCHAR2 default 'R'
576: ) AS
577: cursor c1 is select rowid from IGS_PR_STDNT_PR_CK
578: where PERSON_ID = X_PERSON_ID
579: and COURSE_CD = X_COURSE_CD
580: and PRG_CAL_TYPE = X_PRG_CAL_TYPE
581: and PRG_CI_SEQUENCE_NUMBER = X_PRG_CI_SEQUENCE_NUMBER
620: ) ;
621: IF (x_mode = 'S') THEN
622: igs_sc_gen_001.set_ctx('R');
623: END IF;
624: delete from IGS_PR_STDNT_PR_CK
625: where ROWID = X_ROWID;
626: if (sql%notfound) then
627: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
628: igs_ge_msg_stack.add;
683: END IF;
684: END IF;
685: END Check_Constraints;
686:
687: end IGS_PR_STDNT_PR_CK_PKG;