1 PACKAGE body JTF_OBJECT_DTLS_PKG as
2 /* $Header: jtfobdtb.pls 120.1 2005/07/02 00:52:13 appldev noship $ */
3 procedure INSERT_ROW ( X_ROWID IN OUT NOCOPY VARCHAR2,
4 X_OBJECT_CODE IN VARCHAR2,
5 X_APPLICATION_ID IN NUMBER,
6 X_PAGE_TYPE IN VARCHAR2,
7 X_PG_REGION_PATH IN VARCHAR2,
8 X_CREATION_DATE IN DATE,
9 X_CREATED_BY IN NUMBER,
10 X_LAST_UPDATED_BY IN NUMBER,
11 X_LAST_UPDATE_DATE IN DATE,
12 X_LAST_UPDATE_LOGIN IN NUMBER
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
22 INSERT INTO JTF_OBJECT_PG_DTLS
23 (OBJECT_DTLS_ID ,
24 OBJECT_CODE ,
25 APPLICATION_ID ,
26 PAGE_TYPE ,
27 PG_REGION_PATH,
28 CREATION_DATE ,
29 CREATED_BY ,
30 LAST_UPDATED_BY ,
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,
40 X_CREATION_DATE ,
41 X_CREATED_BY ,
42 X_LAST_UPDATED_BY ,
43 X_LAST_UPDATE_DATE ,
44 X_LAST_UPDATE_LOGIN,
45 1.0 )
46 returning OBJECT_DTLS_ID into l_OBJECT_DTLS_ID;
47
48 open c;
49 fetch c into X_ROWID;
50 if (c%notfound) then
51 close c;
52 raise no_data_found;
53 end if;
54 close c;
55
56 end INSERT_ROW;
57
58 procedure LOCK_ROW (
59 X_OBJECT_DTLS_ID IN NUMBER,
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
69 begin
70 open c;
71 fetch c into recinfo;
72 if (c%notfound) then
73 close c;
74 fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
75 fnd_msg_pub.add;
76 app_exception.raise_exception;
77 end if;
78 close c;
79
80 if (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
81 then
82 null;
83 else
84 fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
85 fnd_msg_pub.add;
86 app_exception.raise_exception;
87 end if;
88
89
90 end LOCK_ROW;
91
92 procedure UPDATE_ROW ( X_OBJECT_DTLS_ID IN NUMBER,
93 X_OBJECT_CODE IN VARCHAR2,
94 X_APPLICATION_ID IN NUMBER,
95 X_PAGE_TYPE IN VARCHAR2,
96 X_PG_REGION_PATH IN VARCHAR2,
97 X_LAST_UPDATED_BY IN NUMBER,
98 X_LAST_UPDATE_DATE IN DATE,
99 X_LAST_UPDATE_LOGIN IN NUMBER,
100 X_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER
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,
110 LAST_UPDATED_BY=X_LAST_UPDATED_BY,
111 LAST_UPDATE_DATE=X_LAST_UPDATE_DATE,
112 LAST_UPDATE_LOGIN=X_LAST_UPDATE_LOGIN,
113 OBJECT_VERSION_NUMBER=(X_OBJECT_VERSION_NUMBER+1.0)
114 where OBJECT_DTLS_ID=X_OBJECT_DTLS_ID;
115
116 if (sql%notfound) then
117 raise no_data_found;
118 end if;
119
120
121 end UPDATE_ROW;
122
123 procedure DELETE_ROW (
124 X_OBJECT_DTLS_ID IN NUMBER,
125 X_OBJECT_VERSION_NUMBER IN NUMBER
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
135 raise no_data_found;
136 end if;
137
138 end DELETE_ROW;
139 end ;