[Home] [Help]
1: package body IGS_RU_SET_MEMBER_PKG as
2: /* $Header: IGSUI13B.pls 115.7 2002/11/29 04:28:21 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_SET_MEMBER%RowType;
1: package body IGS_RU_SET_MEMBER_PKG as
2: /* $Header: IGSUI13B.pls 115.7 2002/11/29 04:28:21 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_SET_MEMBER%RowType;
6: new_references IGS_RU_SET_MEMBER%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSUI13B.pls 115.7 2002/11/29 04:28:21 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_SET_MEMBER%RowType;
6: new_references IGS_RU_SET_MEMBER%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
19: ) as
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_RU_SET_MEMBER
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
32: Open cur_old_ref_values;
33: Fetch cur_old_ref_values INTO old_references;
34: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
35: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
36: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_SET_MEMBER : P_ACTION INSERT, VALIDATE_INSERT : IGSUI13B.PLS');
37: IGS_GE_MSG_STACK.ADD;
38: App_Exception.Raise_Exception;
39: Close cur_old_ref_values;
40: Return;
122: )return BOOLEAN as
123:
124: CURSOR cur_rowid IS
125: SELECT rowid
126: FROM IGS_RU_SET_MEMBER
127: WHERE rs_sequence_number = x_rs_sequence_number
128: AND unit_cd = x_unit_cd
129: FOR UPDATE NOWAIT;
130:
149: ) as
150:
151: CURSOR cur_rowid IS
152: SELECT rowid
153: FROM IGS_RU_SET_MEMBER
154: WHERE rs_sequence_number = x_sequence_number ;
155:
156: lv_rowid cur_rowid%RowType;
157:
238: X_UNIT_CD in VARCHAR2,
239: X_VERSIONS in VARCHAR2,
240: X_MODE in VARCHAR2
241: ) as
242: cursor C is select ROWID from IGS_RU_SET_MEMBER
243: where RS_SEQUENCE_NUMBER = X_RS_SEQUENCE_NUMBER
244: and UNIT_CD = X_UNIT_CD;
245: X_LAST_UPDATE_DATE DATE;
246: X_LAST_UPDATED_BY NUMBER;
277: x_last_updated_by=>X_LAST_UPDATED_BY,
278: x_last_update_login=>X_LAST_UPDATE_LOGIN
279: );
280:
281: insert into IGS_RU_SET_MEMBER (
282: RS_SEQUENCE_NUMBER,
283: UNIT_CD,
284: VERSIONS,
285: CREATION_DATE,
319: X_VERSIONS in VARCHAR2
320: ) as
321: cursor c1 is select
322: VERSIONS
323: from IGS_RU_SET_MEMBER
324: where ROWID = X_ROWID for update nowait;
325: tlinfo c1%rowtype;
326:
327: begin
328: open c1;
329: fetch c1 into tlinfo;
330: if (c1%notfound) then
331: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
332: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_SET_MEMBER : P_ACTION LOCK_ROW : IGSUI13B.PLS');
333: IGS_GE_MSG_STACK.ADD;
334: app_exception.raise_exception;
335: close c1;
336: return;
343: ) then
344: null;
345: else
346: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
347: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_SET_MEMBER : P_ACTION LOCK_ROW FORM_RECORD_CHANGED: IGSUI13B.PLS');
348: IGS_GE_MSG_STACK.ADD;
349: app_exception.raise_exception;
350: end if;
351: return;
393: x_last_updated_by=>X_LAST_UPDATED_BY,
394: x_last_update_login=>X_LAST_UPDATE_LOGIN
395: );
396:
397: update IGS_RU_SET_MEMBER set
398: VERSIONS = NEW_REFERENCES.VERSIONS,
399: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
400: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
401: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
417: X_UNIT_CD in VARCHAR2,
418: X_VERSIONS in VARCHAR2,
419: X_MODE in VARCHAR2
420: ) as
421: cursor c1 is select rowid from IGS_RU_SET_MEMBER
422: where RS_SEQUENCE_NUMBER = X_RS_SEQUENCE_NUMBER
423: and UNIT_CD = X_UNIT_CD
424: ;
425: begin
453: Before_DML (
454: p_action => 'DELETE',
455: x_rowid => X_ROWID);
456:
457: delete from IGS_RU_SET_MEMBER
458: where ROWID = X_ROWID;
459: if (sql%notfound) then
460: raise no_data_found;
461: end if;
465: x_rowid => X_ROWID);
466:
467: end DELETE_ROW;
468:
469: end IGS_RU_SET_MEMBER_PKG;