[Home] [Help]
1: package body JTF_RS_RESOURCE_EXTN_AUD_PKG as
2: /* $Header: jtfrstab.pls 120.2 2010/08/30 06:23:52 rgokavar ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_RESOURCE_AUDIT_ID in NUMBER,
135: X_OLD_SOURCE_PAGER in VARCHAR2,
136: X_NEW_FS_SETUP_COMPLETE in VARCHAR2 ,
137: X_OLD_FS_SETUP_COMPLETE in VARCHAR2
138: ) is
139: cursor C is select ROWID from JTF_RS_RESOURCE_EXTN_AUD
140: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID
141: ;
142: begin
143: insert into JTF_RS_RESOURCE_EXTN_AUD (
139: cursor C is select ROWID from JTF_RS_RESOURCE_EXTN_AUD
140: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID
141: ;
142: begin
143: insert into JTF_RS_RESOURCE_EXTN_AUD (
144: RESOURCE_AUDIT_ID,
145: RESOURCE_ID,
146: NEW_CATEGORY,
147: OLD_CATEGORY,
603: NEW_USER_ID,
604: OLD_USER_ID
605: --OLD_LOCATION,
606: --NEW_LOCATION
607: from JTF_RS_RESOURCE_EXTN_AUD
608: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID
609: for update of RESOURCE_AUDIT_ID nowait;
610: tlinfo c1%rowtype;
611: begin
869: X_NEW_FS_SETUP_COMPLETE in VARCHAR2,
870: X_OLD_FS_SETUP_COMPLETE in VARCHAR2
871: ) is
872: begin
873: update JTF_RS_RESOURCE_EXTN_AUD set
874: RESOURCE_ID = X_RESOURCE_ID,
875: NEW_CATEGORY = X_NEW_CATEGORY,
876: OLD_CATEGORY = X_OLD_CATEGORY,
877: NEW_RESOURCE_NUMBER = X_NEW_RESOURCE_NUMBER,
1011: procedure DELETE_ROW (
1012: X_RESOURCE_AUDIT_ID in NUMBER
1013: ) is
1014: begin
1015: delete from JTF_RS_RESOURCE_EXTN_AUD
1016: where RESOURCE_AUDIT_ID = X_RESOURCE_AUDIT_ID;
1017:
1018: if (sql%notfound) then
1019: raise no_data_found;
1020: end if;
1021:
1022: end DELETE_ROW;
1023:
1024: end JTF_RS_RESOURCE_EXTN_AUD_PKG;