1: package body IGS_PR_STDNT_PR_UNIT_PKG AS
2: /* $Header: IGSQI18B.pls 120.0 2005/07/05 11:32:13 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_STDNT_PR_UNIT%RowType;
1: package body IGS_PR_STDNT_PR_UNIT_PKG AS
2: /* $Header: IGSQI18B.pls 120.0 2005/07/05 11:32:13 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_STDNT_PR_UNIT%RowType;
6: new_references IGS_PR_STDNT_PR_UNIT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI18B.pls 120.0 2005/07/05 11:32:13 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PR_STDNT_PR_UNIT%RowType;
6: new_references IGS_PR_STDNT_PR_UNIT%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_STDNT_PR_UNIT
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
110: ) RETURN BOOLEAN AS
111:
112: CURSOR cur_rowid IS
113: SELECT rowid
114: FROM IGS_PR_STDNT_PR_UNIT
115: WHERE person_id = x_person_id
116: AND course_cd = x_course_cd
117: AND spo_sequence_number = x_spo_sequence_number
118: AND unit_cd = x_unit_cd
141: ) AS
142:
143: CURSOR cur_rowid IS
144: SELECT rowid
145: FROM IGS_PR_STDNT_PR_UNIT
146: WHERE person_id = x_person_id
147: AND course_cd = x_course_cd
148: AND spo_sequence_number = x_sequence_number ;
149:
170: ) AS
171:
172: CURSOR cur_rowid IS
173: SELECT rowid
174: FROM IGS_PR_STDNT_PR_UNIT
175: WHERE unit_cd = x_unit_cd ;
176:
177: lv_rowid cur_rowid%RowType;
178:
270: X_UNIT_CD in VARCHAR2,
271: X_S_UNIT_TYPE in VARCHAR2,
272: X_MODE in VARCHAR2 default 'R'
273: ) AS
274: cursor C is select ROWID from IGS_PR_STDNT_PR_UNIT
275: where PERSON_ID = X_PERSON_ID
276: and COURSE_CD = X_COURSE_CD
277: and SPO_SEQUENCE_NUMBER = X_SPO_SEQUENCE_NUMBER
278: and UNIT_CD = X_UNIT_CD;
315:
316: IF (x_mode = 'S') THEN
317: igs_sc_gen_001.set_ctx('R');
318: END IF;
319: insert into IGS_PR_STDNT_PR_UNIT (
320: PERSON_ID,
321: COURSE_CD,
322: SPO_SEQUENCE_NUMBER,
323: UNIT_CD,
380: COURSE_CD ,
381: SPO_SEQUENCE_NUMBER ,
382: UNIT_CD ,
383: S_UNIT_TYPE
384: from IGS_PR_STDNT_PR_UNIT
385: where ROWID = X_ROWID for update nowait;
386: tlinfo c1%rowtype;
387:
388: begin
461: ) ;
462: IF (x_mode = 'S') THEN
463: igs_sc_gen_001.set_ctx('R');
464: END IF;
465: update IGS_PR_STDNT_PR_UNIT set
466: S_UNIT_TYPE = NEW_REFERENCES.S_UNIT_TYPE,
467: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
468: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
469: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
501: X_UNIT_CD in VARCHAR2,
502: X_S_UNIT_TYPE in VARCHAR2,
503: X_MODE in VARCHAR2 default 'R'
504: ) AS
505: cursor c1 is select rowid from IGS_PR_STDNT_PR_UNIT
506: where PERSON_ID = X_PERSON_ID
507: and COURSE_CD = X_COURSE_CD
508: and SPO_SEQUENCE_NUMBER = X_SPO_SEQUENCE_NUMBER
509: and UNIT_CD = X_UNIT_CD
546:
547: IF (x_mode = 'S') THEN
548: igs_sc_gen_001.set_ctx('R');
549: END IF;
550: delete from IGS_PR_STDNT_PR_UNIT
551: where ROWID = X_ROWID;
552: if (sql%notfound) then
553: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
554: igs_ge_msg_stack.add;
616:
617: END Check_Constraints;
618:
619:
620: end IGS_PR_STDNT_PR_UNIT_PKG;