1: package body IGS_GE_NOTE_PKG as
2: /* $Header: IGSMI03B.pls 120.1 2006/01/25 09:19:00 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_GE_NOTE%RowType;
1: package body IGS_GE_NOTE_PKG as
2: /* $Header: IGSMI03B.pls 120.1 2006/01/25 09:19:00 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_GE_NOTE%RowType;
6: new_references IGS_GE_NOTE%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSMI03B.pls 120.1 2006/01/25 09:19:00 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_GE_NOTE%RowType;
6: new_references IGS_GE_NOTE%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) as
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_GE_NOTE
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
100:
101: PROCEDURE Check_Child_Existance as
102: BEGIN
103:
104: IGS_PS_OFR_NOTE_PKG.GET_FK_IGS_GE_NOTE (
105: old_references.reference_number
106: );
107:
108: IGS_PS_OFR_OPT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
104: IGS_PS_OFR_NOTE_PKG.GET_FK_IGS_GE_NOTE (
105: old_references.reference_number
106: );
107:
108: IGS_PS_OFR_OPT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
109: old_references.reference_number
110: );
111:
112: IGS_PS_OFR_PAT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
108: IGS_PS_OFR_OPT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
109: old_references.reference_number
110: );
111:
112: IGS_PS_OFR_PAT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
113: old_references.reference_number
114: );
115:
116: IGS_PS_VER_NOTE_PKG.GET_FK_IGS_GE_NOTE (
112: IGS_PS_OFR_PAT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
113: old_references.reference_number
114: );
115:
116: IGS_PS_VER_NOTE_PKG.GET_FK_IGS_GE_NOTE (
117: old_references.reference_number
118: );
119:
120: IGS_GR_CRMN_NOTE_PKG.GET_FK_IGS_GE_NOTE (
116: IGS_PS_VER_NOTE_PKG.GET_FK_IGS_GE_NOTE (
117: old_references.reference_number
118: );
119:
120: IGS_GR_CRMN_NOTE_PKG.GET_FK_IGS_GE_NOTE (
121: old_references.reference_number
122: );
123:
124: IGS_PE_PERS_NOTE_PKG.GET_FK_IGS_GE_NOTE (
120: IGS_GR_CRMN_NOTE_PKG.GET_FK_IGS_GE_NOTE (
121: old_references.reference_number
122: );
123:
124: IGS_PE_PERS_NOTE_PKG.GET_FK_IGS_GE_NOTE (
125: old_references.reference_number
126: );
127:
128: IGS_AS_SC_ATMPT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
124: IGS_PE_PERS_NOTE_PKG.GET_FK_IGS_GE_NOTE (
125: old_references.reference_number
126: );
127:
128: IGS_AS_SC_ATMPT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
129: old_references.reference_number
130: );
131:
132: IGS_TR_GROUP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
128: IGS_AS_SC_ATMPT_NOTE_PKG.GET_FK_IGS_GE_NOTE (
129: old_references.reference_number
130: );
131:
132: IGS_TR_GROUP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
133: old_references.reference_number
134: );
135:
136: IGS_TR_ITEM_NOTE_PKG.GET_FK_IGS_GE_NOTE (
132: IGS_TR_GROUP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
133: old_references.reference_number
134: );
135:
136: IGS_TR_ITEM_NOTE_PKG.GET_FK_IGS_GE_NOTE (
137: old_references.reference_number
138: );
139:
140: IGS_TR_STEP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
136: IGS_TR_ITEM_NOTE_PKG.GET_FK_IGS_GE_NOTE (
137: old_references.reference_number
138: );
139:
140: IGS_TR_STEP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
141: old_references.reference_number
142: );
143:
144: IGS_TR_TYP_STEP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
140: IGS_TR_STEP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
141: old_references.reference_number
142: );
143:
144: IGS_TR_TYP_STEP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
145: old_references.reference_number
146: );
147:
148: IGS_PS_UNIT_OFR_NOTE_PKG.GET_FK_IGS_GE_NOTE (
144: IGS_TR_TYP_STEP_NOTE_PKG.GET_FK_IGS_GE_NOTE (
145: old_references.reference_number
146: );
147:
148: IGS_PS_UNIT_OFR_NOTE_PKG.GET_FK_IGS_GE_NOTE (
149: old_references.reference_number
150: );
151:
152: IGS_PS_UNT_OFR_OPT_N_PKG.GET_FK_IGS_GE_NOTE (
148: IGS_PS_UNIT_OFR_NOTE_PKG.GET_FK_IGS_GE_NOTE (
149: old_references.reference_number
150: );
151:
152: IGS_PS_UNT_OFR_OPT_N_PKG.GET_FK_IGS_GE_NOTE (
153: old_references.reference_number
154: );
155:
156: IGS_PS_UNT_OFR_PAT_N_PKG.GET_FK_IGS_GE_NOTE (
152: IGS_PS_UNT_OFR_OPT_N_PKG.GET_FK_IGS_GE_NOTE (
153: old_references.reference_number
154: );
155:
156: IGS_PS_UNT_OFR_PAT_N_PKG.GET_FK_IGS_GE_NOTE (
157: old_references.reference_number
158: );
159:
160: IGS_EN_UNIT_SET_NOTE_PKG.GET_FK_IGS_GE_NOTE (
156: IGS_PS_UNT_OFR_PAT_N_PKG.GET_FK_IGS_GE_NOTE (
157: old_references.reference_number
158: );
159:
160: IGS_EN_UNIT_SET_NOTE_PKG.GET_FK_IGS_GE_NOTE (
161: old_references.reference_number
162: );
163:
164: IGS_PS_UNIT_VER_NOTE_PKG.GET_FK_IGS_GE_NOTE (
160: IGS_EN_UNIT_SET_NOTE_PKG.GET_FK_IGS_GE_NOTE (
161: old_references.reference_number
162: );
163:
164: IGS_PS_UNIT_VER_NOTE_PKG.GET_FK_IGS_GE_NOTE (
165: old_references.reference_number
166: );
167:
168: IGS_FI_P_SA_NOTES_PKG.GET_FK_IGS_GE_NOTE (
164: IGS_PS_UNIT_VER_NOTE_PKG.GET_FK_IGS_GE_NOTE (
165: old_references.reference_number
166: );
167:
168: IGS_FI_P_SA_NOTES_PKG.GET_FK_IGS_GE_NOTE (
169: old_references.reference_number
170: );
171:
172: END Check_Child_Existance;
176: ) RETURN BOOLEAN as
177:
178: CURSOR cur_rowid IS
179: SELECT rowid
180: FROM IGS_GE_NOTE
181: WHERE reference_number = x_reference_number
182: FOR UPDATE NOWAIT;
183:
184: lv_rowid cur_rowid%RowType;
290: X_S_NOTE_FORMAT_TYPE in VARCHAR2,
291: X_NOTE_TEXT in VARCHAR2,
292: X_MODE in VARCHAR2 default 'R'
293: ) as
294: cursor C is select ROWID from IGS_GE_NOTE
295: where REFERENCE_NUMBER = X_REFERENCE_NUMBER;
296: X_LAST_UPDATE_DATE DATE;
297: X_LAST_UPDATED_BY NUMBER;
298: X_LAST_UPDATE_LOGIN NUMBER;
327: x_last_update_date => X_LAST_UPDATE_DATE,
328: x_last_update_login => X_LAST_UPDATE_LOGIN
329: );
330:
331: insert into IGS_GE_NOTE (
332: REFERENCE_NUMBER,
333: S_NOTE_FORMAT_TYPE,
334: NOTE_TEXT,
335: CREATION_DATE,
369: ) as
370: cursor c1 is select
371: S_NOTE_FORMAT_TYPE,
372: NOTE_TEXT
373: from IGS_GE_NOTE
374: where ROWID = X_ROWID
375: for update nowait;
376: tlinfo c1%rowtype;
377:
443: x_last_updated_by => X_LAST_UPDATED_BY,
444: x_last_update_date => X_LAST_UPDATE_DATE,
445: x_last_update_login => X_LAST_UPDATE_LOGIN
446: );
447: update IGS_GE_NOTE set
448: S_NOTE_FORMAT_TYPE = NEW_REFERENCES.S_NOTE_FORMAT_TYPE,
449: NOTE_TEXT = NEW_REFERENCES.NOTE_TEXT,
450: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
451: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
467: X_S_NOTE_FORMAT_TYPE in VARCHAR2,
468: X_NOTE_TEXT in VARCHAR2,
469: X_MODE in VARCHAR2 default 'R'
470: ) as
471: cursor c1 is select rowid from IGS_GE_NOTE
472: where REFERENCE_NUMBER = X_REFERENCE_NUMBER
473: ;
474:
475: begin
501: Before_DML (
502: p_action => 'DELETE',
503: x_rowid => X_ROWID
504: );
505: delete from IGS_GE_NOTE
506: where ROWID = X_ROWID;
507: if (sql%notfound) then
508: raise no_data_found;
509: end if;
513: );
514:
515: end DELETE_ROW;
516:
517: end IGS_GE_NOTE_PKG;