[Home] [Help]
1: package body IGS_AS_UNIT_MODE_PKG as
2: /* $Header: IGSDI35B.pls 120.0 2005/07/05 12:50:18 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_UNIT_MODE%RowType;
1: package body IGS_AS_UNIT_MODE_PKG as
2: /* $Header: IGSDI35B.pls 120.0 2005/07/05 12:50:18 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_UNIT_MODE%RowType;
6: new_references IGS_AS_UNIT_MODE%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
2: /* $Header: IGSDI35B.pls 120.0 2005/07/05 12:50:18 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_UNIT_MODE%RowType;
6: new_references IGS_AS_UNIT_MODE%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
10: x_unit_mode IN VARCHAR2 DEFAULT NULL,
18: x_last_update_login IN NUMBER DEFAULT NULL
19: ) as
20: CURSOR cur_old_ref_values IS
21: SELECT *
22: FROM IGS_AS_UNIT_MODE
23: WHERE rowid = x_rowid;
24: BEGIN
25: l_rowid := x_rowid;
26: -- Code for setting the Old and New Reference Values.
53: END Set_Column_Values;
54: -- Trigger description :-
55: -- "OSS_TST".trg_um_br_iu
56: -- BEFORE INSERT OR UPDATE
57: -- ON IGS_AS_UNIT_MODE
58: -- FOR EACH ROW
59: PROCEDURE BeforeRowInsertUpdate1(
60: p_inserting IN BOOLEAN DEFAULT FALSE,
61: p_updating IN BOOLEAN DEFAULT FALSE,
80: END BeforeRowInsertUpdate1;
81:
82: PROCEDURE Check_Child_Existance as
83: BEGIN
84: IGS_AD_PS_APLINSTUNT_PKG.GET_FK_IGS_AS_UNIT_MODE (
85: OLD_references.unit_mode
86: );
87: IGS_AS_ITEM_ASSESSOR_PKG.GET_FK_IGS_AS_UNIT_MODE (
88: OLD_references.unit_mode
83: BEGIN
84: IGS_AD_PS_APLINSTUNT_PKG.GET_FK_IGS_AS_UNIT_MODE (
85: OLD_references.unit_mode
86: );
87: IGS_AS_ITEM_ASSESSOR_PKG.GET_FK_IGS_AS_UNIT_MODE (
88: OLD_references.unit_mode
89: );
90: IGS_AS_UNIT_CLASS_PKG.GET_FK_IGS_AS_UNIT_MODE (
91: OLD_references.unit_mode
86: );
87: IGS_AS_ITEM_ASSESSOR_PKG.GET_FK_IGS_AS_UNIT_MODE (
88: OLD_references.unit_mode
89: );
90: IGS_AS_UNIT_CLASS_PKG.GET_FK_IGS_AS_UNIT_MODE (
91: OLD_references.unit_mode
92: );
93: --Enh# 3442712, Added to check dependenccy in IGS_FI_FTCI_ACCTS table
94: IGS_FI_FTCI_ACCTS_PKG.GET_FK_IGS_AS_UNIT_MODE (
90: IGS_AS_UNIT_CLASS_PKG.GET_FK_IGS_AS_UNIT_MODE (
91: OLD_references.unit_mode
92: );
93: --Enh# 3442712, Added to check dependenccy in IGS_FI_FTCI_ACCTS table
94: IGS_FI_FTCI_ACCTS_PKG.GET_FK_IGS_AS_UNIT_MODE (
95: OLD_references.unit_mode
96: );
97: --Enh# 3442712, Added to check dependenccy in igs_fi_fee_as_rate table
98: igs_fi_fee_as_rate_pkg.get_fk_igs_as_unit_mode(OLD_references.unit_mode);
94: IGS_FI_FTCI_ACCTS_PKG.GET_FK_IGS_AS_UNIT_MODE (
95: OLD_references.unit_mode
96: );
97: --Enh# 3442712, Added to check dependenccy in igs_fi_fee_as_rate table
98: igs_fi_fee_as_rate_pkg.get_fk_igs_as_unit_mode(OLD_references.unit_mode);
99:
100: END Check_Child_Existance;
101: FUNCTION Get_PK_For_Validation (
102: x_unit_mode IN VARCHAR2
102: x_unit_mode IN VARCHAR2
103: ) RETURN BOOLEAN AS
104: CURSOR cur_rowid IS
105: SELECT rowid
106: FROM IGS_AS_UNIT_MODE
107: WHERE unit_mode= x_unit_mode
108: FOR UPDATE NOWAIT;
109: lv_rowid cur_rowid%RowType;
110: BEGIN
236: X_S_UNIT_MODE in VARCHAR2,
237: X_CLOSED_IND in VARCHAR2,
238: X_MODE in VARCHAR2 default 'R'
239: ) as
240: cursor C is select ROWID from IGS_AS_UNIT_MODE
241: where UNIT_MODE = X_UNIT_MODE;
242: X_LAST_UPDATE_DATE DATE;
243: X_LAST_UPDATED_BY NUMBER;
244: X_LAST_UPDATE_LOGIN NUMBER;
275: x_last_updated_by=>X_LAST_UPDATED_BY,
276: x_last_update_login=>X_LAST_UPDATE_LOGIN
277: );
278: --
279: insert into IGS_AS_UNIT_MODE (
280: UNIT_MODE,
281: DESCRIPTION,
282: S_UNIT_MODE,
283: CLOSED_IND,
317: cursor c1 is select
318: DESCRIPTION,
319: S_UNIT_MODE,
320: CLOSED_IND
321: from IGS_AS_UNIT_MODE
322: where ROWID = X_ROWID for update nowait;
323: tlinfo c1%rowtype;
324: begin
325: open c1;
388: x_last_updated_by=>X_LAST_UPDATED_BY,
389: x_last_update_login=>X_LAST_UPDATE_LOGIN
390: );
391: --
392: update IGS_AS_UNIT_MODE set
393: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
394: S_UNIT_MODE = NEW_REFERENCES.S_UNIT_MODE,
395: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
396: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
410: X_S_UNIT_MODE in VARCHAR2,
411: X_CLOSED_IND in VARCHAR2,
412: X_MODE in VARCHAR2 default 'R'
413: ) as
414: cursor c1 is select rowid from IGS_AS_UNIT_MODE
415: where UNIT_MODE = X_UNIT_MODE
416: ;
417: begin
418: open c1;
445: p_action => 'DELETE',
446: x_rowid => X_ROWID
447: );
448: --
449: delete from IGS_AS_UNIT_MODE
450: where ROWID = X_ROWID;
451: if (sql%notfound) then
452: raise no_data_found;
453: end if;
453: end if;
454: --
455: --
456: end DELETE_ROW;
457: end IGS_AS_UNIT_MODE_PKG;