[Home] [Help]
PACKAGE BODY: APPS.PV_ATTR_PRINCIPALS_PKG
Source
1 PACKAGE BODY "PV_ATTR_PRINCIPALS_PKG" AS
2 /* $Header: pvxtatpb.pls 120.0 2007/12/20 07:10:07 abnagapp noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_ATTRIBUTE_PRINCIPALS_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_ATTR_PRINCIPALS_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtatpb.pls';
19
20
21 ----------------------------------------------------------
22 ---- MEDIA ----
23 ----------------------------------------------------------
24
25 -- ========================================================
26 --
27 -- NAME
28 -- createInsertBody
29 --
30 -- PURPOSE
31 --
32 -- NOTES
33 --
34 -- HISTORY
35 --
36 -- ========================================================
37 PROCEDURE Insert_Row(
38 px_attr_principal_id IN OUT NOCOPY NUMBER,
39 p_last_update_date DATE,
40 p_last_updated_by NUMBER,
41 p_creation_date DATE,
42 p_created_by NUMBER,
43 p_last_update_login NUMBER,
44 px_object_version_number IN OUT NOCOPY NUMBER,
45 p_attribute_id NUMBER,
46 p_jtf_auth_principal_id NUMBER
47 )
48 IS
49 x_rowid VARCHAR2(30);
50
51
52 BEGIN
53
54
55 px_object_version_number := 1;
56
57
58 INSERT INTO PV_ATTR_PRINCIPALS(
59 attr_principal_id,
60 last_update_date,
61 last_updated_by,
62 creation_date,
63 created_by,
64 last_update_login,
65 object_version_number,
66 attribute_id,
67 jtf_auth_principal_id
68 ) VALUES (
69 DECODE( px_attr_principal_id, FND_API.g_miss_num, NULL, px_attr_principal_id),
70 DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date),
71 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
72 DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
73 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
74 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
75 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
76 DECODE( p_attribute_id, FND_API.g_miss_num, NULL, p_attribute_id),
77 DECODE( p_jtf_auth_principal_id, FND_API.g_miss_num, NULL, p_jtf_auth_principal_id)
78 );
79 END Insert_Row;
80
81
82 ----------------------------------------------------------
83 ---- MEDIA ----
84 ----------------------------------------------------------
85
86 -- ========================================================
87 --
88 -- NAME
89 -- createUpdateBody
90 --
91 -- PURPOSE
92 --
93 -- NOTES
94 --
95 -- HISTORY
96 --
97 -- ========================================================
98 PROCEDURE Update_Row(
99 p_attr_principal_id NUMBER,
100 p_last_update_date DATE,
101 p_last_updated_by NUMBER,
102 p_creation_date DATE := FND_API.g_miss_date ,
103 p_created_by NUMBER := FND_API.g_miss_num ,
104 p_last_update_login NUMBER,
105 p_object_version_number NUMBER,
106 p_attribute_id NUMBER,
107 p_jtf_auth_principal_id NUMBER
108 )
109
110 IS
111 BEGIN
112 Update PV_ATTR_PRINCIPALS
113 SET
114 attr_principal_id = DECODE( p_attr_principal_id, FND_API.g_miss_num, attr_principal_id, p_attr_principal_id),
115 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
116 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
117 --creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
118 --created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
119 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
120 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number+1),
121 attribute_id = DECODE( p_attribute_id, FND_API.g_miss_num, attribute_id, p_attribute_id),
122 jtf_auth_principal_id = DECODE( p_jtf_auth_principal_id, FND_API.g_miss_num, jtf_auth_principal_id, p_jtf_auth_principal_id)
123 WHERE attr_principal_id = p_attr_principal_id
124 AND object_version_number = p_object_version_number;
125
126 IF (SQL%NOTFOUND) THEN
127 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128 END IF;
129 END Update_Row;
130
131
132 ----------------------------------------------------------
133 ---- MEDIA ----
134 ----------------------------------------------------------
135
136 -- ========================================================
137 --
138 -- NAME
139 -- createDeleteBody
140 --
141 -- PURPOSE
142 --
143 -- NOTES
144 --
145 -- HISTORY
146 --
147 -- ========================================================
148 PROCEDURE Delete_Row(
149 p_attr_principal_id NUMBER)
150 IS
151 BEGIN
152 DELETE FROM PV_ATTR_PRINCIPALS
153 WHERE attr_principal_id = p_attr_principal_id;
154 If (SQL%NOTFOUND) then
155 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156 End If;
157 END Delete_Row ;
158
159
160
161 ----------------------------------------------------------
162 ---- MEDIA ----
163 ----------------------------------------------------------
164
165 -- ========================================================
166 --
167 -- NAME
168 -- createLockBody
169 --
170 -- PURPOSE
171 --
172 -- NOTES
173 --
174 -- HISTORY
175 --
176 -- ========================================================
177 PROCEDURE Lock_Row(
178 p_attr_principal_id NUMBER,
179 p_last_update_date DATE,
180 p_last_updated_by NUMBER,
181 p_creation_date DATE,
182 p_created_by NUMBER,
183 p_last_update_login NUMBER,
184 p_object_version_number NUMBER,
185 p_attribute_id NUMBER,
186 p_jtf_auth_principal_id NUMBER
187 )
188
189 IS
190 CURSOR C IS
191 SELECT *
192 FROM PV_ATTR_PRINCIPALS
193 WHERE attr_principal_id = p_attr_principal_id
194 FOR UPDATE of attr_principal_id NOWAIT;
195 Recinfo C%ROWTYPE;
196 BEGIN
197 OPEN c;
198 FETCH c INTO Recinfo;
199 If (c%NOTFOUND) then
200 CLOSE c;
201 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
202 APP_EXCEPTION.RAISE_EXCEPTION;
203 END IF;
204 CLOSE C;
205 IF (
206 ( Recinfo.attr_principal_id = p_attr_principal_id)
207 AND ( ( Recinfo.last_update_date = p_last_update_date)
208 OR ( ( Recinfo.last_update_date IS NULL )
209 AND ( p_last_update_date IS NULL )))
210 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
211 OR ( ( Recinfo.last_updated_by IS NULL )
212 AND ( p_last_updated_by IS NULL )))
213 AND ( ( Recinfo.creation_date = p_creation_date)
214 OR ( ( Recinfo.creation_date IS NULL )
215 AND ( p_creation_date IS NULL )))
216 AND ( ( Recinfo.created_by = p_created_by)
217 OR ( ( Recinfo.created_by IS NULL )
218 AND ( p_created_by IS NULL )))
219 AND ( ( Recinfo.last_update_login = p_last_update_login)
220 OR ( ( Recinfo.last_update_login IS NULL )
221 AND ( p_last_update_login IS NULL )))
222 AND ( ( Recinfo.object_version_number = p_object_version_number)
223 OR ( ( Recinfo.object_version_number IS NULL )
224 AND ( p_object_version_number IS NULL )))
225 AND ( ( Recinfo.attribute_id = p_attribute_id)
226 OR ( ( Recinfo.attribute_id IS NULL )
227 AND ( p_attribute_id IS NULL )))
228 AND ( ( Recinfo.jtf_auth_principal_id = p_jtf_auth_principal_id)
229 OR ( ( Recinfo.jtf_auth_principal_id IS NULL )
230 AND ( p_jtf_auth_principal_id IS NULL )))
231 ) THEN
232 RETURN;
233 ELSE
234 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
235 APP_EXCEPTION.RAISE_EXCEPTION;
236 END IF;
237 END Lock_Row;
238 END;