1: package body IGS_PR_SDT_PR_UNT_ST_PKG AS
2: /* $Header: IGSQI19B.pls 120.0 2005/07/05 12:07:59 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_SDT_PR_UNT_ST%RowType;
1: package body IGS_PR_SDT_PR_UNT_ST_PKG AS
2: /* $Header: IGSQI19B.pls 120.0 2005/07/05 12:07:59 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_SDT_PR_UNT_ST%RowType;
6: new_references IGS_PR_SDT_PR_UNT_ST%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI19B.pls 120.0 2005/07/05 12:07:59 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_SDT_PR_UNT_ST%RowType;
6: new_references IGS_PR_SDT_PR_UNT_ST%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
21: ) AS
22:
23: CURSOR cur_old_ref_values IS
24: SELECT *
25: FROM IGS_PR_SDT_PR_UNT_ST
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
114: ) RETURN BOOLEAN AS
115:
116: CURSOR cur_rowid IS
117: SELECT rowid
118: FROM IGS_PR_SDT_PR_UNT_ST
119: WHERE person_id = x_person_id
120: AND course_cd = x_course_cd
121: AND spo_sequence_number = x_spo_sequence_number
122: AND unit_set_cd = x_unit_set_cd
146: ) AS
147:
148: CURSOR cur_rowid IS
149: SELECT rowid
150: FROM IGS_PR_SDT_PR_UNT_ST
151: WHERE person_id = x_person_id
152: AND course_cd = x_course_cd
153: AND spo_sequence_number = x_sequence_number ;
154:
176: ) AS
177:
178: CURSOR cur_rowid IS
179: SELECT rowid
180: FROM IGS_PR_SDT_PR_UNT_ST
181: WHERE unit_set_cd = x_unit_set_cd
182: AND version_number = x_version_number ;
183:
184: lv_rowid cur_rowid%RowType;
279: X_UNIT_SET_CD in VARCHAR2,
280: X_VERSION_NUMBER in NUMBER,
281: X_MODE in VARCHAR2 default 'R'
282: ) is
283: cursor C is select ROWID from IGS_PR_SDT_PR_UNT_ST
284: where PERSON_ID = X_PERSON_ID
285: and COURSE_CD = X_COURSE_CD
286: and SPO_SEQUENCE_NUMBER = X_SPO_SEQUENCE_NUMBER
287: and UNIT_SET_CD = X_UNIT_SET_CD
326:
327: IF (x_mode = 'S') THEN
328: igs_sc_gen_001.set_ctx('R');
329: END IF;
330: insert into IGS_PR_SDT_PR_UNT_ST (
331: PERSON_ID,
332: COURSE_CD,
333: SPO_SEQUENCE_NUMBER,
334: UNIT_SET_CD,
391: COURSE_CD ,
392: SPO_SEQUENCE_NUMBER ,
393: UNIT_SET_CD,
394: VERSION_NUMBER
395: from IGS_PR_SDT_PR_UNT_ST
396: where ROWID = X_ROWID for update nowait;
397: tlinfo c1%rowtype;
398:
399: begin
439:
440: IF (x_mode = 'S') THEN
441: igs_sc_gen_001.set_ctx('R');
442: END IF;
443: delete from IGS_PR_SDT_PR_UNT_ST
444: where ROWID = X_ROWID;
445: if (sql%notfound) then
446: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
447: igs_ge_msg_stack.add;
489: END IF ;
490:
491: END Check_Constraints;
492:
493: end IGS_PR_SDT_PR_UNT_ST_PKG;