[Home] [Help]
1: package body JTF_RS_RESOURCE_EXTN_AUD_PKG as
2: /* $Header: jtfrstab.pls 120.0 2005/05/11 08:22:04 appldev ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_RESOURCE_AUDIT_ID in NUMBER,
133: X_OLD_SOURCE_MOBILE_PHONE in VARCHAR2,
134: X_NEW_SOURCE_PAGER in VARCHAR2,
135: X_OLD_SOURCE_PAGER in VARCHAR2
136: ) is
137: cursor C is select ROWID from JTF_RS_RESOURCE_EXTN_AUD
138: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID
139: ;
140: begin
141: insert into JTF_RS_RESOURCE_EXTN_AUD (
137: cursor C is select ROWID from JTF_RS_RESOURCE_EXTN_AUD
138: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID
139: ;
140: begin
141: insert into JTF_RS_RESOURCE_EXTN_AUD (
142: RESOURCE_AUDIT_ID,
143: RESOURCE_ID,
144: NEW_CATEGORY,
145: OLD_CATEGORY,
597: NEW_USER_ID,
598: OLD_USER_ID
599: --OLD_LOCATION,
600: --NEW_LOCATION
601: from JTF_RS_RESOURCE_EXTN_AUD
602: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID
603: for update of RESOURCE_AUDIT_ID nowait;
604: tlinfo c1%rowtype;
605: begin
861: X_NEW_SOURCE_PAGER in VARCHAR2,
862: X_OLD_SOURCE_PAGER in VARCHAR2
863: ) is
864: begin
865: update JTF_RS_RESOURCE_EXTN_AUD set
866: RESOURCE_ID = X_RESOURCE_ID,
867: NEW_CATEGORY = X_NEW_CATEGORY,
868: OLD_CATEGORY = X_OLD_CATEGORY,
869: NEW_RESOURCE_NUMBER = X_NEW_RESOURCE_NUMBER,
1001: procedure DELETE_ROW (
1002: X_RESOURCE_AUDIT_ID in NUMBER
1003: ) is
1004: begin
1005: delete from JTF_RS_RESOURCE_EXTN_AUD
1006: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID;
1007:
1008: if (sql%notfound) then
1009: raise no_data_found;
1010: end if;
1011:
1012: end DELETE_ROW;
1013:
1014: end JTF_RS_RESOURCE_EXTN_AUD_PKG;