APPS.IGS_AD_CD_PKG dependencies on IGS_AD_CD

Line 1: package body IGS_AD_CD_PKG AS

1: package body IGS_AD_CD_PKG AS
2: /* $Header: IGSAI08B.pls 115.7 2003/10/30 13:10:14 akadam ship $ */
3:
4: /***** Bug No : 1956374
5: Task : Duplicated Procedures and functions

Line 9: old_references IGS_AD_CD%RowType;

5: Task : Duplicated Procedures and functions
6: PROCEDURE ADMP_VAL_BFA_CLOSED is removed *****/
7:
8: l_rowid VARCHAR2(25);
9: old_references IGS_AD_CD%RowType;
10: new_references IGS_AD_CD%RowType;
11:
12: PROCEDURE Set_Column_Values (
13: p_action IN VARCHAR2,

Line 10: new_references IGS_AD_CD%RowType;

6: PROCEDURE ADMP_VAL_BFA_CLOSED is removed *****/
7:
8: l_rowid VARCHAR2(25);
9: old_references IGS_AD_CD%RowType;
10: new_references IGS_AD_CD%RowType;
11:
12: PROCEDURE Set_Column_Values (
13: p_action IN VARCHAR2,
14: x_rowid IN VARCHAR2 DEFAULT NULL,

Line 29: FROM IGS_AD_CD

25: ) AS
26:
27: CURSOR cur_old_ref_values IS
28: SELECT *
29: FROM IGS_AD_CD
30: WHERE rowid = x_rowid;
31:
32: BEGIN
33:

Line 181: IGS_AD_PS_APPL_PKG.GET_FK_IGS_AD_CD (

177:
178: PROCEDURE Check_Child_Existance AS
179: BEGIN
180:
181: IGS_AD_PS_APPL_PKG.GET_FK_IGS_AD_CD (
182: old_references.admission_cd
183: );
184:
185: END Check_Child_Existance;

Line 193: FROM IGS_AD_CD

189: x_closed_ind IN VARCHAR2 )
190: RETURN BOOLEAN AS
191: CURSOR cur_rowid IS
192: SELECT rowid
193: FROM IGS_AD_CD
194: WHERE admission_cd = x_admission_cd AND
195: closed_ind = NVL(x_closed_ind,closed_ind);
196:
197: lv_rowid cur_rowid%RowType;

Line 216: FROM IGS_AD_CD

212: ) AS
213:
214: CURSOR cur_rowid IS
215: SELECT rowid
216: FROM IGS_AD_CD
217: WHERE basis_for_admission_type = x_basis_for_admission_type ;
218:
219: lv_rowid cur_rowid%RowType;
220:

Line 242: FROM IGS_AD_CD

238: ) AS
239:
240: CURSOR cur_rowid IS
241: SELECT rowid
242: FROM IGS_AD_CD
243: WHERE tac_admission_cd = x_tac_admission_cd ;
244:
245: lv_rowid cur_rowid%RowType;
246:

Line 346: cursor C is select ROWID from IGS_AD_CD

342: X_BASIS_FOR_ADMISSION_TYPE in VARCHAR2,
343: X_CLOSED_IND in VARCHAR2,
344: X_MODE in VARCHAR2 default 'R'
345: ) AS
346: cursor C is select ROWID from IGS_AD_CD
347: where ADMISSION_CD = X_ADMISSION_CD;
348: X_LAST_UPDATE_DATE DATE;
349: X_LAST_UPDATED_BY NUMBER;
350: X_LAST_UPDATE_LOGIN NUMBER;

Line 386: insert into IGS_AD_CD (

382: x_last_updated_by=>X_LAST_UPDATED_BY,
383: x_last_update_login=>X_LAST_UPDATE_LOGIN
384: );
385:
386: insert into IGS_AD_CD (
387: ADMISSION_CD,
388: DESCRIPTION,
389: TAC_ADMISSION_CD,
390: BASIS_FOR_ADMISSION_TYPE,

Line 437: from IGS_AD_CD

433: DESCRIPTION,
434: TAC_ADMISSION_CD,
435: BASIS_FOR_ADMISSION_TYPE,
436: CLOSED_IND
437: from IGS_AD_CD
438: where ROWID = X_ROWID for update nowait;
439: tlinfo c1%rowtype;
440:
441: begin

Line 516: update IGS_AD_CD set

512: x_last_updated_by=>X_LAST_UPDATED_BY,
513: x_last_update_login=>X_LAST_UPDATE_LOGIN
514: );
515:
516: update IGS_AD_CD set
517: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
518: TAC_ADMISSION_CD = NEW_REFERENCES.TAC_ADMISSION_CD,
519: BASIS_FOR_ADMISSION_TYPE = NEW_REFERENCES.BASIS_FOR_ADMISSION_TYPE,
520: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,

Line 545: cursor c1 is select rowid from IGS_AD_CD

541: X_BASIS_FOR_ADMISSION_TYPE in VARCHAR2,
542: X_CLOSED_IND in VARCHAR2,
543: X_MODE in VARCHAR2 default 'R'
544: ) AS
545: cursor c1 is select rowid from IGS_AD_CD
546: where ADMISSION_CD = X_ADMISSION_CD
547: ;
548: begin
549: open c1;

Line 583: delete from IGS_AD_CD

579: Before_DML (
580: p_action => 'DELETE',
581: x_rowid => X_ROWID);
582:
583: delete from IGS_AD_CD
584: where ROWID = X_ROWID;
585: if (sql%notfound) then
586: raise no_data_found;
587: end if;

Line 595: end IGS_AD_CD_PKG;

591: x_rowid => X_ROWID);
592:
593: end DELETE_ROW;
594:
595: end IGS_AD_CD_PKG;