[Home] [Help]
1: PACKAGE BODY igs_ps_ref_cd_pkg AS
2: /* $Header: IGSPI29B.pls 115.9 2003/05/20 12:48:52 sarakshi ship $ */
3: /* CAHNGE HISTORY
4: WHO WHEN WAHT
5: ayedubat 11-JUN-2001 modified the BeforeRowInsertUpdateDelete1 to add a
5: ayedubat 11-JUN-2001 modified the BeforeRowInsertUpdateDelete1 to add a
6: new validation according to the DLD,PSP001-US */
7:
8: l_rowid VARCHAR2(25);
9: old_references igs_ps_ref_cd%ROWTYPE;
10: new_references igs_ps_ref_cd%ROWTYPE;
11:
12: PROCEDURE set_column_values (
13: p_action IN VARCHAR2,
6: new validation according to the DLD,PSP001-US */
7:
8: l_rowid VARCHAR2(25);
9: old_references igs_ps_ref_cd%ROWTYPE;
10: new_references igs_ps_ref_cd%ROWTYPE;
11:
12: PROCEDURE set_column_values (
13: p_action IN VARCHAR2,
14: x_rowid IN VARCHAR2 DEFAULT NULL,
25: ) AS
26:
27: CURSOR cur_old_ref_values IS
28: SELECT *
29: FROM igs_ps_ref_cd
30: WHERE ROWID = x_rowid;
31:
32: BEGIN
33:
67:
68: -- Trigger description :-
69: -- "OSS_TST".trg_crfc_br_iud
70: -- BEFORE INSERT OR DELETE OR UPDATE
71: -- ON IGS_PS_REF_CD
72: -- FOR EACH ROW
73:
74: PROCEDURE beforerowinsertupdatedelete1(
75: p_inserting IN BOOLEAN DEFAULT FALSE,
75: p_inserting IN BOOLEAN DEFAULT FALSE,
76: p_updating IN BOOLEAN DEFAULT FALSE,
77: p_deleting IN BOOLEAN DEFAULT FALSE
78: ) AS
79: v_description igs_ps_ref_cd.description%TYPE;
80: v_message_name VARCHAR2(30);
81: v_course_cd igs_ps_ref_cd.course_cd%TYPE;
82: v_version_number igs_ps_ref_cd.version_number%TYPE;
83: BEGIN
77: p_deleting IN BOOLEAN DEFAULT FALSE
78: ) AS
79: v_description igs_ps_ref_cd.description%TYPE;
80: v_message_name VARCHAR2(30);
81: v_course_cd igs_ps_ref_cd.course_cd%TYPE;
82: v_version_number igs_ps_ref_cd.version_number%TYPE;
83: BEGIN
84: -- Set variables.
85: IF p_deleting THEN
78: ) AS
79: v_description igs_ps_ref_cd.description%TYPE;
80: v_message_name VARCHAR2(30);
81: v_course_cd igs_ps_ref_cd.course_cd%TYPE;
82: v_version_number igs_ps_ref_cd.version_number%TYPE;
83: BEGIN
84: -- Set variables.
85: IF p_deleting THEN
86: v_course_cd := old_references.course_cd;
131: END IF;
132: END IF;
133: IF p_deleting THEN
134: IF igs_ps_val_atl.chk_mandatory_ref_cd(old_references.reference_cd_type) THEN
135: fnd_message.set_name ('IGS', 'IGS_PS_REF_CD_MANDATORY');
136: igs_ge_msg_stack.add;
137: app_exception.raise_exception;
138: END IF;
139: -- Create history record for deletion
152:
153: -- Trigger description :-
154: -- "OSS_TST".trg_crfc_ar_iu
155: -- AFTER INSERT OR UPDATE
156: -- ON IGS_PS_REF_CD
157: -- FOR EACH ROW
158:
159: PROCEDURE afterrowinsertupdate2(
160: p_inserting IN BOOLEAN DEFAULT FALSE,
171:
172: -- Trigger description :-
173: -- "OSS_TST".trg_crfc_as_iu
174: -- AFTER INSERT OR UPDATE
175: -- ON IGS_PS_REF_CD
176:
177:
178: PROCEDURE check_uniqueness AS
179: BEGIN
273: AS
274:
275: CURSOR cur_rowid IS
276: SELECT ROWID
277: FROM igs_ps_ref_cd
278: WHERE course_cd = x_course_cd
279: AND version_number = x_version_number
280: AND reference_cd_type = x_reference_cd_type
281: AND reference_cd = x_reference_cd
304: AS
305:
306: CURSOR cur_rowid IS
307: SELECT ROWID
308: FROM igs_ps_ref_cd
309: WHERE course_cd = x_course_cd
310: AND version_number = x_version_number
311: AND reference_cd_type = x_reference_cd_type
312: AND (l_rowid IS NULL OR ROWID <> l_rowid)
333: ) AS
334:
335: CURSOR cur_rowid IS
336: SELECT ROWID
337: FROM igs_ps_ref_cd
338: WHERE course_cd = x_course_cd
339: AND version_number = x_version_number ;
340:
341: lv_rowid cur_rowid%ROWTYPE;
360: ) AS
361:
362: CURSOR cur_rowid IS
363: SELECT ROWID
364: FROM igs_ps_ref_cd
365: WHERE reference_cd_type = x_reference_cd_type ;
366:
367: lv_rowid cur_rowid%ROWTYPE;
368:
398: ***************************************************************/
399:
400: CURSOR cur_rowid IS
401: SELECT ROWID
402: FROM igs_ps_ref_cd
403: WHERE reference_cd_type = x_reference_cd_type
404: AND reference_cd = x_reference_cd ;
405:
406: lv_rowid cur_rowid%ROWTYPE;
526: x_reference_cd_type IN VARCHAR2,
527: x_description IN VARCHAR2,
528: x_mode IN VARCHAR2 DEFAULT 'R'
529: ) AS
530: CURSOR c IS SELECT ROWID FROM igs_ps_ref_cd
531: WHERE course_cd = x_course_cd
532: AND version_number = x_version_number
533: AND reference_cd = x_reference_cd
534: AND reference_cd_type = x_reference_cd_type;
568: x_last_updated_by => x_last_updated_by ,
569: x_last_update_login => x_last_update_login
570: );
571:
572: INSERT INTO igs_ps_ref_cd (
573: course_cd,
574: version_number,
575: reference_cd_type,
576: reference_cd,
614: x_description IN VARCHAR2
615: ) AS
616: CURSOR c1 IS SELECT
617: description
618: FROM igs_ps_ref_cd
619: WHERE ROWID = x_rowid
620: FOR UPDATE NOWAIT;
621: tlinfo c1%ROWTYPE;
622:
690: x_last_updated_by => x_last_updated_by ,
691: x_last_update_login => x_last_update_login
692: );
693:
694: UPDATE igs_ps_ref_cd SET
695: course_cd = new_references.course_cd,
696: version_number = new_references.version_number,
697: reference_cd_type = new_references.reference_cd_type,
698: reference_cd = new_references.reference_cd,
718: x_reference_cd_type IN VARCHAR2,
719: x_description IN VARCHAR2,
720: x_mode IN VARCHAR2 DEFAULT 'R'
721: ) AS
722: CURSOR c1 IS SELECT ROWID FROM igs_ps_ref_cd
723: WHERE course_cd = x_course_cd
724: AND version_number = x_version_number
725: AND reference_cd = x_reference_cd
726: AND reference_cd_type = x_reference_cd_type ;
757: before_dml (
758: p_action => 'DELETE',
759: x_rowid => x_rowid
760: );
761: DELETE FROM igs_ps_ref_cd
762: WHERE ROWID = x_rowid;
763: IF (SQL%NOTFOUND) THEN
764: RAISE NO_DATA_FOUND;
765: END IF;
767: p_action => 'DELETE',
768: x_rowid => x_rowid);
769: END delete_row;
770:
771: END igs_ps_ref_cd_pkg;