[Home] [Help]
1: package body IGS_AV_STND_ALT_UNIT_PKG AS
2: /* $Header: IGSBI07B.pls 120.0 2005/07/05 12:24:53 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AV_STND_ALT_UNIT%RowType;
5: new_references IGS_AV_STND_ALT_UNIT%RowType;
1: package body IGS_AV_STND_ALT_UNIT_PKG AS
2: /* $Header: IGSBI07B.pls 120.0 2005/07/05 12:24:53 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AV_STND_ALT_UNIT%RowType;
5: new_references IGS_AV_STND_ALT_UNIT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_AV_STND_ALT_UNIT_PKG AS
2: /* $Header: IGSBI07B.pls 120.0 2005/07/05 12:24:53 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AV_STND_ALT_UNIT%RowType;
5: new_references IGS_AV_STND_ALT_UNIT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_AV_STND_ALT_UNIT
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
60:
61: -- Trigger description :-
62: -- "OSS_TST".trg_asau_br_iu
63: -- BEFORE INSERT OR UPDATE
64: -- ON IGS_AV_STND_ALT_UNIT
65: -- FOR EACH ROW
66:
67: PROCEDURE BeforeRowInsertUpdate1(
68: p_inserting IN BOOLEAN DEFAULT FALSE,
189: AS
190:
191: CURSOR cur_rowid IS
192: SELECT rowid
193: FROM IGS_AV_STND_ALT_UNIT
194: WHERE av_stnd_unit_id = x_av_stnd_unit_id
195: AND alt_unit_cd = x_alt_unit_cd
196: AND alt_version_number = x_alt_version_number
197: FOR UPDATE NOWAIT;
216: ) AS
217:
218: CURSOR cur_rowid IS
219: SELECT rowid
220: FROM IGS_AV_STND_ALT_UNIT
221: WHERE av_stnd_unit_id = x_av_stnd_unit_id;
222:
223: lv_rowid cur_rowid%RowType;
224:
243: ) AS
244:
245: CURSOR cur_rowid IS
246: SELECT rowid
247: FROM IGS_AV_STND_ALT_UNIT
248: WHERE alt_unit_cd = x_unit_cd
249: AND alt_version_number = x_version_number ;
250:
251: lv_rowid cur_rowid%RowType;
341: X_ALT_VERSION_NUMBER in NUMBER,
342: X_OPTIONAL_IND in VARCHAR2,
343: X_MODE in VARCHAR2 default 'R'
344: ) AS
345: cursor C IS select ROWID from IGS_AV_STND_ALT_UNIT
346: where AV_STND_UNIT_ID = X_AV_STND_UNIT_ID
347: and ALT_UNIT_CD = X_ALT_UNIT_CD
348: and ALT_VERSION_NUMBER = X_ALT_VERSION_NUMBER;
349: X_LAST_UPDATE_DATE DATE;
384:
385: IF (x_mode = 'S') THEN
386: igs_sc_gen_001.set_ctx('R');
387: END IF;
388: insert into IGS_AV_STND_ALT_UNIT (
389: AV_STND_UNIT_ID,
390: ALT_UNIT_CD,
391: ALT_VERSION_NUMBER,
392: OPTIONAL_IND,
442: X_OPTIONAL_IND in VARCHAR2
443: ) AS
444: cursor c1 IS select
445: OPTIONAL_IND
446: from IGS_AV_STND_ALT_UNIT
447: where ROWID = X_ROWID
448: for update nowait;
449: tlinfo c1%rowtype;
450: begin
515: );
516: IF (x_mode = 'S') THEN
517: igs_sc_gen_001.set_ctx('R');
518: END IF;
519: update IGS_AV_STND_ALT_UNIT set
520: OPTIONAL_IND = NEW_REFERENCES.OPTIONAL_IND,
521: LAST_UPDATE_DATE = LAST_UPDATE_DATE,
522: LAST_UPDATED_BY = LAST_UPDATED_BY,
523: LAST_UPDATE_LOGIN = LAST_UPDATE_LOGIN
555: X_ALT_VERSION_NUMBER in NUMBER,
556: X_OPTIONAL_IND in VARCHAR2,
557: X_MODE in VARCHAR2 default 'R'
558: ) AS
559: cursor c1 IS select rowid from IGS_AV_STND_ALT_UNIT
560: where AV_STND_UNIT_ID =X_AV_STND_UNIT_ID
561: and ALT_UNIT_CD = X_ALT_UNIT_CD
562: and ALT_VERSION_NUMBER = X_ALT_VERSION_NUMBER
563: ;
596: );
597: IF (x_mode = 'S') THEN
598: igs_sc_gen_001.set_ctx('R');
599: END IF;
600: delete from IGS_AV_STND_ALT_UNIT
601: where ROWID = X_ROWID ;
602: if (sql%notfound) then
603: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
604: igs_ge_msg_stack.add;
610: END IF;
611:
612: end DELETE_ROW;
613:
614: end IGS_AV_STND_ALT_UNIT_PKG;