[Home] [Help]
1: PACKAGE BODY igs_ge_ref_cd_pkg AS
2: /* $Header: IGSMI16B.pls 120.1 2005/07/11 03:07:27 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ge_ref_cd%RowType;
5: new_references igs_ge_ref_cd%RowType;
1: PACKAGE BODY igs_ge_ref_cd_pkg AS
2: /* $Header: IGSMI16B.pls 120.1 2005/07/11 03:07:27 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ge_ref_cd%RowType;
5: new_references igs_ge_ref_cd%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ge_ref_cd_pkg AS
2: /* $Header: IGSMI16B.pls 120.1 2005/07/11 03:07:27 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ge_ref_cd%RowType;
5: new_references igs_ge_ref_cd%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
31: ***************************************************************/
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_GE_REF_CD
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
135:
136: IF (((old_references.reference_cd_type = new_references.reference_cd_type)) OR
137: ((new_references.reference_cd_type IS NULL))) THEN
138: NULL;
139: ELSIF NOT Igs_Ge_Ref_Cd_Type_Pkg.Get_PK_For_Validation (
140: new_references.reference_cd_type
141: ) THEN
142: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
143: IGS_GE_MSG_STACK.ADD;
161: (reverse chronological order - newest change first)
162: ***************************************************************/
163:
164: BEGIN
165: igs_ps_ref_cd_pkg.Get_UFK_Igs_Ge_Ref_Cd (
166: old_references.reference_cd_type,
167: old_references.reference_cd);
168:
169: igs_ps_ent_pt_ref_cd_pkg.Get_UFK_Igs_Ge_Ref_Cd (
165: igs_ps_ref_cd_pkg.Get_UFK_Igs_Ge_Ref_Cd (
166: old_references.reference_cd_type,
167: old_references.reference_cd);
168:
169: igs_ps_ent_pt_ref_cd_pkg.Get_UFK_Igs_Ge_Ref_Cd (
170: old_references.reference_cd_type,
171: old_references.reference_cd);
172:
173: Igs_Ps_Usec_Ref_Cd_Pkg.Get_UFK_Igs_Ge_Ref_Cd (
169: igs_ps_ent_pt_ref_cd_pkg.Get_UFK_Igs_Ge_Ref_Cd (
170: old_references.reference_cd_type,
171: old_references.reference_cd);
172:
173: Igs_Ps_Usec_Ref_Cd_Pkg.Get_UFK_Igs_Ge_Ref_Cd (
174: old_references.reference_cd_type,
175: old_references.reference_cd);
176:
177: igs_ps_unitreqref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
173: Igs_Ps_Usec_Ref_Cd_Pkg.Get_UFK_Igs_Ge_Ref_Cd (
174: old_references.reference_cd_type,
175: old_references.reference_cd);
176:
177: igs_ps_unitreqref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
178: old_references.reference_cd_type,
179: old_references.reference_cd
180: );
181: igs_ps_us_req_ref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
177: igs_ps_unitreqref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
178: old_references.reference_cd_type,
179: old_references.reference_cd
180: );
181: igs_ps_us_req_ref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
182: old_references.reference_cd_type,
183: old_references.reference_cd);
184:
185: igs_ps_usec_ocur_ref_pkg.get_UFK_Igs_Ge_Ref_Cd (
181: igs_ps_us_req_ref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
182: old_references.reference_cd_type,
183: old_references.reference_cd);
184:
185: igs_ps_usec_ocur_ref_pkg.get_UFK_Igs_Ge_Ref_Cd (
186: old_references.reference_cd_type,
187: old_references.reference_cd);
188:
189: igs_ps_unit_ref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
185: igs_ps_usec_ocur_ref_pkg.get_UFK_Igs_Ge_Ref_Cd (
186: old_references.reference_cd_type,
187: old_references.reference_cd);
188:
189: igs_ps_unit_ref_cd_pkg.get_UFK_Igs_Ge_Ref_Cd (
190: old_references.reference_cd_type,
191: old_references.reference_cd);
192:
193: -- swaghmar 11-JULY-2005 Bug#4327987
216: ***************************************************************/
217:
218: CURSOR cur_rowid IS
219: SELECT rowid
220: FROM igs_ge_ref_cd
221: WHERE reference_code_id = x_reference_code_id
222: FOR UPDATE NOWAIT;
223:
224: lv_rowid cur_rowid%RowType;
253: ***************************************************************/
254:
255: CURSOR cur_rowid IS
256: SELECT rowid
257: FROM igs_ge_ref_cd
258: WHERE reference_cd_type = x_reference_cd_type
259: AND reference_cd = x_reference_cd and ((l_rowid is null) or (rowid <> l_rowid))
260:
261: ;
272: close cur_rowid;
273: return(false);
274: END IF;
275: END Get_UK_For_Validation ;
276: PROCEDURE Get_FK_Igs_Ge_Ref_Cd_Type (
277: x_reference_cd_type IN VARCHAR2
278: ) AS
279:
280: /*************************************************************
289: ***************************************************************/
290:
291: CURSOR cur_rowid IS
292: SELECT rowid
293: FROM igs_ge_ref_cd
294: WHERE reference_cd_type = x_reference_cd_type ;
295:
296: lv_rowid cur_rowid%RowType;
297:
307: Return;
308: END IF;
309: Close cur_rowid;
310:
311: END Get_FK_Igs_Ge_Ref_Cd_Type;
312:
313: PROCEDURE Before_DML (
314: p_action IN VARCHAR2,
315: x_rowid IN VARCHAR2 DEFAULT NULL,
448:
449: (reverse chronological order - newest change first)
450: ***************************************************************/
451:
452: cursor C is select ROWID from IGS_GE_REF_CD
453: where REFERENCE_CODE_ID= X_REFERENCE_CODE_ID
454: ;
455: X_LAST_UPDATE_DATE DATE ;
456: X_LAST_UPDATED_BY NUMBER ;
473: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
474: IGS_GE_MSG_STACK.ADD;
475: app_exception.raise_exception;
476: end if;
477: SELECT IGS_GE_REF_CD_S.NEXTVAL
478: INTO X_REFERENCE_CODE_ID FROM Dual;
479: Before_DML(
480: p_action=>'INSERT',
481: x_rowid=>X_ROWID,
488: x_created_by=>X_LAST_UPDATED_BY,
489: x_last_update_date=>X_LAST_UPDATE_DATE,
490: x_last_updated_by=>X_LAST_UPDATED_BY,
491: x_last_update_login=>X_LAST_UPDATE_LOGIN);
492: insert into IGS_GE_REF_CD (
493: REFERENCE_CODE_ID
494: ,REFERENCE_CD_TYPE
495: ,REFERENCE_CD
496: ,DESCRIPTION
545: REFERENCE_CD_TYPE
546: , REFERENCE_CD
547: , DESCRIPTION
548: , DEFAULT_FLAG
549: from IGS_GE_REF_CD
550: where ROWID = X_ROWID
551: for update nowait;
552: tlinfo c1%rowtype;
553: begin
628: x_created_by=>X_LAST_UPDATED_BY,
629: x_last_update_date=>X_LAST_UPDATE_DATE,
630: x_last_updated_by=>X_LAST_UPDATED_BY,
631: x_last_update_login=>X_LAST_UPDATE_LOGIN);
632: update IGS_GE_REF_CD set
633: REFERENCE_CD_TYPE = NEW_REFERENCES.REFERENCE_CD_TYPE,
634: REFERENCE_CD = NEW_REFERENCES.REFERENCE_CD,
635: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
636: DEFAULT_FLAG = NEW_REFERENCES.DEFAULT_FLAG,
666:
667: (reverse chronological order - newest change first)
668: ***************************************************************/
669:
670: cursor c1 is select ROWID from IGS_GE_REF_CD
671: where REFERENCE_CODE_ID= X_REFERENCE_CODE_ID
672: ;
673: begin
674: open c1;
713: Before_DML (
714: p_action => 'DELETE',
715: x_rowid => X_ROWID
716: );
717: delete from IGS_GE_REF_CD
718: where ROWID = X_ROWID;
719: if (sql%notfound) then
720: raise no_data_found;
721: end if;
723: p_action => 'DELETE',
724: x_rowid => X_ROWID
725: );
726: end DELETE_ROW;
727: END igs_ge_ref_cd_pkg;