1: package body JTF_RS_GRP_RELATE_AUD_PKG as
2: /* $Header: jtfrstqb.pls 120.0 2005/05/11 08:22:30 appldev ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_GROUP_RELATE_AUDIT_ID in NUMBER,
21: X_LAST_UPDATE_DATE in DATE,
22: X_LAST_UPDATED_BY in NUMBER,
23: X_LAST_UPDATE_LOGIN in NUMBER
24: ) is
25: cursor C is select ROWID from JTF_RS_GRP_RELATE_AUD
26: where GROUP_RELATE_AUDIT_ID = X_GROUP_RELATE_AUDIT_ID
27: ;
28: begin
29: insert into JTF_RS_GRP_RELATE_AUD (
25: cursor C is select ROWID from JTF_RS_GRP_RELATE_AUD
26: where GROUP_RELATE_AUDIT_ID = X_GROUP_RELATE_AUDIT_ID
27: ;
28: begin
29: insert into JTF_RS_GRP_RELATE_AUD (
30: GROUP_RELATE_AUDIT_ID,
31: GROUP_RELATE_ID,
32: NEW_GROUP_ID,
33: OLD_GROUP_ID,
106: NEW_END_DATE_ACTIVE,
107: OLD_END_DATE_ACTIVE,
108: NEW_OBJECT_VERSION_NUMBER,
109: OLD_OBJECT_VERSION_NUMBER
110: from JTF_RS_GRP_RELATE_AUD
111: where GROUP_RELATE_AUDIT_ID = X_GROUP_RELATE_AUDIT_ID
112: for update of GROUP_RELATE_AUDIT_ID nowait;
113: tlinfo c1%rowtype;
114: begin
175: X_LAST_UPDATED_BY in NUMBER,
176: X_LAST_UPDATE_LOGIN in NUMBER
177: ) is
178: begin
179: update JTF_RS_GRP_RELATE_AUD set
180: GROUP_RELATE_ID = X_GROUP_RELATE_ID,
181: NEW_GROUP_ID = X_NEW_GROUP_ID,
182: OLD_GROUP_ID = X_OLD_GROUP_ID,
183: NEW_RELATED_GROUP_ID = X_NEW_RELATED_GROUP_ID,
203: procedure DELETE_ROW (
204: X_GROUP_RELATE_AUDIT_ID in NUMBER
205: ) is
206: begin
207: delete from JTF_RS_GRP_RELATE_AUD
208: where GROUP_RELATE_AUDIT_ID = X_GROUP_RELATE_AUDIT_ID;
209:
210: if (sql%notfound) then
211: raise no_data_found;
212: end if;
213:
214: end DELETE_ROW;
215:
216: end JTF_RS_GRP_RELATE_AUD_PKG;