1: package body IGS_CA_DA_PKG AS
2: /* $Header: IGSCI02B.pls 120.2 2006/06/19 09:58:29 sapanigr noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_CA_DA%RowType;
5: new_references IGS_CA_DA%RowType;
1: package body IGS_CA_DA_PKG AS
2: /* $Header: IGSCI02B.pls 120.2 2006/06/19 09:58:29 sapanigr noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_CA_DA%RowType;
5: new_references IGS_CA_DA%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_CA_DA_PKG AS
2: /* $Header: IGSCI02B.pls 120.2 2006/06/19 09:58:29 sapanigr noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_CA_DA%RowType;
5: new_references IGS_CA_DA%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2,
22: ) AS
23:
24: CURSOR cur_old_ref_values IS
25: SELECT *
26: FROM IGS_CA_DA
27: WHERE rowid = x_rowid;
28:
29: BEGIN
30:
125: IF (((old_references.dt_cat = new_references.dt_cat)) OR
126: ((new_references.dt_cat IS NULL))) THEN
127: NULL;
128: ELSE
129: IF NOT IGS_CA_DA_CAT_PKG.Get_PK_For_Validation (
130: new_references.dt_cat
131: ) THEN
132: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
133: IGS_GE_MSG_STACK.ADD;
155:
156: PROCEDURE Check_Child_Existance AS
157: BEGIN
158:
159: IGS_CA_DA_INST_PKG.GET_FK_IGS_CA_DA (
160: old_references.dt_alias
161: );
162:
163: IGS_CA_DA_OFST_PKG.GET_FK_IGS_CA_DA (
159: IGS_CA_DA_INST_PKG.GET_FK_IGS_CA_DA (
160: old_references.dt_alias
161: );
162:
163: IGS_CA_DA_OFST_PKG.GET_FK_IGS_CA_DA (
164: old_references.dt_alias
165: );
166:
167: IGS_CA_DA_PAIR_PKG.GET_FK_IGS_CA_DA (
163: IGS_CA_DA_OFST_PKG.GET_FK_IGS_CA_DA (
164: old_references.dt_alias
165: );
166:
167: IGS_CA_DA_PAIR_PKG.GET_FK_IGS_CA_DA (
168: old_references.dt_alias
169: );
170:
171: IGS_AD_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
167: IGS_CA_DA_PAIR_PKG.GET_FK_IGS_CA_DA (
168: old_references.dt_alias
169: );
170:
171: IGS_AD_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
172: old_references.dt_alias
173: );
174:
175: IGS_AS_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
171: IGS_AD_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
172: old_references.dt_alias
173: );
174:
175: IGS_AS_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
176: old_references.dt_alias
177: );
178:
179: IGS_PR_S_CRV_PRG_CON_Pkg.GET_FK_IGS_CA_DA (
175: IGS_AS_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
176: old_references.dt_alias
177: );
178:
179: IGS_PR_S_CRV_PRG_CON_Pkg.GET_FK_IGS_CA_DA (
180: old_references.dt_alias
181: );
182:
183: IGS_EN_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
179: IGS_PR_S_CRV_PRG_CON_Pkg.GET_FK_IGS_CA_DA (
180: old_references.dt_alias
181: );
182:
183: IGS_EN_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
184: old_references.dt_alias
185: );
186:
187: IGS_GE_S_GEN_CAL_CON_PKG.GET_FK_IGS_CA_DA (
183: IGS_EN_CAL_CONF_PKG.GET_FK_IGS_CA_DA (
184: old_references.dt_alias
185: );
186:
187: IGS_GE_S_GEN_CAL_CON_PKG.GET_FK_IGS_CA_DA (
188: old_references.dt_alias
189: );
190:
191: IGS_PR_S_OU_PRG_CONF_Pkg.GET_FK_IGS_CA_DA (
187: IGS_GE_S_GEN_CAL_CON_PKG.GET_FK_IGS_CA_DA (
188: old_references.dt_alias
189: );
190:
191: IGS_PR_S_OU_PRG_CONF_Pkg.GET_FK_IGS_CA_DA (
192: old_references.dt_alias
193: );
194:
195: IGS_PR_S_PRG_CONF_Pkg.GET_FK_IGS_CA_DA (
191: IGS_PR_S_OU_PRG_CONF_Pkg.GET_FK_IGS_CA_DA (
192: old_references.dt_alias
193: );
194:
195: IGS_PR_S_PRG_CONF_Pkg.GET_FK_IGS_CA_DA (
196: old_references.dt_alias
197: );
198:
199: IGS_RE_S_RES_CAL_CON_Pkg.GET_FK_IGS_CA_DA (
195: IGS_PR_S_PRG_CONF_Pkg.GET_FK_IGS_CA_DA (
196: old_references.dt_alias
197: );
198:
199: IGS_RE_S_RES_CAL_CON_Pkg.GET_FK_IGS_CA_DA (
200: old_references.dt_alias
201: );
202:
203: IGS_PS_UNIT_DISC_CRT_PKG.GET_FK_IGS_CA_DA (
199: IGS_RE_S_RES_CAL_CON_Pkg.GET_FK_IGS_CA_DA (
200: old_references.dt_alias
201: );
202:
203: IGS_PS_UNIT_DISC_CRT_PKG.GET_FK_IGS_CA_DA (
204: old_references.dt_alias
205: );
206:
207: IGS_EN_CAT_PRC_DTL_PKG.GET_FK_IGS_CA_DA (
203: IGS_PS_UNIT_DISC_CRT_PKG.GET_FK_IGS_CA_DA (
204: old_references.dt_alias
205: );
206:
207: IGS_EN_CAT_PRC_DTL_PKG.GET_FK_IGS_CA_DA (
208: old_references.dt_alias
209: );
210:
211: IGS_FI_CONTROL_PKG.GET_FK_IGS_CA_DA (
207: IGS_EN_CAT_PRC_DTL_PKG.GET_FK_IGS_CA_DA (
208: old_references.dt_alias
209: );
210:
211: IGS_FI_CONTROL_PKG.GET_FK_IGS_CA_DA (
212: old_references.dt_alias
213: );
214:
215: END Check_Child_Existance;
219: )RETURN BOOLEAN AS
220:
221: CURSOR cur_rowid IS
222: SELECT rowid
223: FROM IGS_CA_DA
224: WHERE dt_alias = x_dt_alias
225: FOR UPDATE NOWAIT;
226:
227: lv_rowid cur_rowid%RowType;
240: Close cur_rowid;
241:
242: END Get_PK_For_Validation;
243:
244: PROCEDURE GET_FK_IGS_CA_DA_CAT (
245: x_dt_cat IN VARCHAR2
246: ) AS
247:
248: CURSOR cur_rowid IS
246: ) AS
247:
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM IGS_CA_DA
251: WHERE dt_cat = x_dt_cat ;
252:
253: lv_rowid cur_rowid%RowType;
254:
257: Open cur_rowid;
258: Fetch cur_rowid INTO lv_rowid;
259: IF (cur_rowid%FOUND) THEN
260: Close cur_rowid;
261: Fnd_Message.Set_Name ('IGS', 'IGS_CA_DA_DAC_FK');
262: IGS_GE_MSG_STACK.ADD;
263: App_Exception.Raise_Exception;
264: Return;
265: END IF;
264: Return;
265: END IF;
266: Close cur_rowid;
267:
268: END GET_FK_IGS_CA_DA_CAT;
269:
270: --skpandey; Bug#3686538: Stubbed as a part of query optimization
271: PROCEDURE GET_FK_IGS_LOOKUPS_VIEW (
272: x_s_cal_cat IN VARCHAR2
354: X_CLOSED_IND in VARCHAR2,
355: X_NOTES in VARCHAR2,
356: X_MODE in VARCHAR2
357: ) AS
358: cursor C is select ROWID from IGS_CA_DA
359: where DT_ALIAS = X_DT_ALIAS;
360: X_LAST_UPDATE_DATE DATE;
361: X_LAST_UPDATED_BY NUMBER;
362: X_LAST_UPDATE_LOGIN NUMBER;
395: x_last_updated_by =>X_LAST_UPDATED_BY,
396: x_last_update_login =>X_LAST_UPDATE_LOGIN
397: );
398:
399: insert into IGS_CA_DA (
400: DT_ALIAS,
401: DESCRIPTION,
402: DT_CAT,
403: ABBREVIATION,
450: ABBREVIATION,
451: S_CAL_CAT,
452: CLOSED_IND,
453: NOTES
454: from IGS_CA_DA
455: where ROWID = X_ROWID
456: for update nowait;
457: tlinfo c1%rowtype;
458:
540: x_last_updated_by =>X_LAST_UPDATED_BY,
541: x_last_update_login =>X_LAST_UPDATE_LOGIN
542: );
543:
544: update IGS_CA_DA set
545: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
546: DT_CAT = NEW_REFERENCES.DT_CAT,
547: ABBREVIATION = NEW_REFERENCES.ABBREVIATION,
548: S_CAL_CAT = NEW_REFERENCES.S_CAL_CAT,
569: X_CLOSED_IND in VARCHAR2,
570: X_NOTES in VARCHAR2,
571: X_MODE in VARCHAR2
572: ) AS
573: cursor c1 is select rowid from IGS_CA_DA
574: where ROWID = X_ROWID
575: ;
576: begin
577: open c1;
610: Before_DML (
611: p_action =>'DELETE',
612: x_rowid =>X_ROWID
613: );
614: delete from IGS_CA_DA
615: where ROWID = X_ROWID;
616: if (sql%notfound) then
617: raise no_data_found;
618: end if;
618: end if;
619:
620: end DELETE_ROW;
621:
622: end IGS_CA_DA_PKG;