13: )is
14:
15: l_OBJECT_DTLS_ID number;
16: cursor c is
17: select ROWID from jtf_object_pg_dtls
18: where object_dtls_id=l_OBJECT_DTLS_ID;
19:
20: begin
21:
18: where object_dtls_id=l_OBJECT_DTLS_ID;
19:
20: begin
21:
22: INSERT INTO JTF_OBJECT_PG_DTLS
23: (OBJECT_DTLS_ID ,
24: OBJECT_CODE ,
25: APPLICATION_ID ,
26: PAGE_TYPE ,
31: LAST_UPDATE_DATE ,
32: LAST_UPDATE_LOGIN,
33: OBJECT_VERSION_NUMBER)
34: VALUES (
35: JTF_OBJECT_PG_DTLS_S.NEXTVAL,
36: X_OBJECT_CODE ,
37: X_APPLICATION_ID ,
38: X_PAGE_TYPE ,
39: X_PG_REGION_PATH,
60: X_OBJECT_VERSION_NUMBER IN NUMBER
61: ) is
62: cursor c is select
63: OBJECT_VERSION_NUMBER
64: from jtf_object_pg_dtls
65: where object_dtls_id = X_OBJECT_DTLS_ID
66: for update of OBJECT_DTLS_ID nowait;
67: recinfo c%rowtype;
68:
101: ) is
102:
103: begin
104:
105: update JTF_OBJECT_PG_DTLS set
106: OBJECT_CODE=X_OBJECT_CODE ,
107: APPLICATION_ID=X_APPLICATION_ID ,
108: PAGE_TYPE=X_PAGE_TYPE,
109: PG_REGION_PATH=X_PG_REGION_PATH,
126: ) is
127:
128: begin
129:
130: delete from JTF_OBJECT_PG_DTLS
131: where OBJECT_DTLS_ID = X_OBJECT_DTLS_ID
132: and OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
133:
134: if (sql%notfound) then