[Home] [Help]
PACKAGE BODY: APPS.PV_PRGM_PMT_MODE_PKG
Source
1 PACKAGE BODY PV_PRGM_PMT_MODE_PKG as
2 /* $Header: pvxtppmb.pls 120.0 2005/05/27 16:26:42 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_PRGM_PMT_MODE_PKG
7 -- Purpose
8 --
9 -- History
10 -- 26-APR-2002 Peter.Nixon Created
11 -- 30-APR-2002 Peter.Nixon Modified
12 -- NOTE
13 --
14 -- Copyright (c) 2002 Oracle Corporation Redwood Shores, California, USA
15 -- All rights reserved.
16 --
17 -- End of Comments
18 -- ===============================================================
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_PRGM_PMT_MODE_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtppmb.pls';
22
23
24 -- ========================================================
25 --
26 -- NAME
27 -- Insert_Row
28 --
29 -- PURPOSE
30 --
31 -- NOTES
32 --
33 -- HISTORY
34 --
35 -- ========================================================
36 PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
37 PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
38 PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
39
40 PROCEDURE Insert_Row(
41 px_program_payment_mode_id IN OUT NOCOPY NUMBER
42 ,p_program_id NUMBER
43 ,p_geo_hierarchy_id NUMBER
44 ,p_mode_of_payment VARCHAR2
45 ,p_last_update_date DATE
46 ,p_last_updated_by NUMBER
47 ,p_creation_date DATE
48 ,p_created_by NUMBER
49 ,p_last_update_login NUMBER
50 ,p_object_version_number NUMBER
51 ,p_mode_type VARCHAR2
52 )
53
54 IS
55
56 BEGIN
57
58 INSERT INTO PV_PROGRAM_PAYMENT_MODE(
59 program_payment_mode_id
60 ,program_id
61 ,geo_hierarchy_id
62 ,mode_of_payment
63 ,last_update_date
64 ,last_updated_by
65 ,creation_date
66 ,created_by
67 ,last_update_login
68 ,object_version_number
69 ,mode_type
70 )
71 VALUES (
72 -- DECODE( px_program_payment_mode_id, FND_API.g_miss_num, NULL, px_program_payment_mode_id)
73 -- ,DECODE( p_program_id, FND_API.g_miss_num, NULL, p_program_id)
74 -- ,DECODE( p_geo_hierarchy_id, FND_API.g_miss_num, NULL, p_geo_hierarchy_id)
75 -- ,DECODE( p_mode_of_payment, FND_API.g_miss_char, NULL, p_mode_of_payment)
76 -- ,DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date)
77 -- ,DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by)
78 -- ,DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date)
79 -- ,DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by)
80 -- ,DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login)
81 -- ,DECODE( p_object_version_number, FND_API.g_miss_num, NULL, p_object_version_number)
82
83 DECODE( px_program_payment_mode_id, NULL,px_program_payment_mode_id,FND_API.g_miss_num, NULL, px_program_payment_mode_id)
84 ,DECODE( p_program_id, NULL, p_program_id, FND_API.g_miss_num, NULL, p_program_id)
85 ,DECODE( p_geo_hierarchy_id, NULL,p_geo_hierarchy_id, FND_API.g_miss_num, NULL, p_geo_hierarchy_id)
86 ,DECODE( p_mode_of_payment, NULL,p_mode_of_payment,FND_API.g_miss_char, NULL, p_mode_of_payment)
87 ,DECODE( p_last_update_date, NULL, p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date)
88 ,DECODE( p_last_updated_by, NULL, p_last_updated_by,FND_API.g_miss_num, NULL, p_last_updated_by)
89 ,DECODE( p_creation_date, NULL, p_creation_date, FND_API.g_miss_date, NULL, p_creation_date)
90 ,DECODE( p_created_by, NULL, p_created_by, FND_API.g_miss_num, NULL, p_created_by)
91 ,DECODE( p_last_update_login, NULL , p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login)
92 ,DECODE( p_object_version_number, NULL, p_object_version_number, FND_API.g_miss_num, NULL, p_object_version_number)
93 ,DECODE( p_mode_type, NULL,p_mode_type,FND_API.g_miss_char, NULL, p_mode_type)
94 );
95 END Insert_Row;
96
97
98
99 -- ========================================================
100 --
101 -- NAME
102 -- Update_Row
103 --
104 -- PURPOSE
105 --
106 -- NOTES
107 --
108 -- HISTORY
109 --
110 -- ========================================================
111 PROCEDURE Update_Row(
112 p_program_payment_mode_id NUMBER
113 ,p_program_id NUMBER
114 ,p_geo_hierarchy_id NUMBER
115 ,p_mode_of_payment VARCHAR2
116 ,p_last_update_date DATE
117 ,p_last_updated_by NUMBER
118 ,p_last_update_login NUMBER
119 ,p_object_version_number NUMBER
120 ,p_mode_type VARCHAR2
121 )
122
123 IS
124
125 BEGIN
126
127 Update PV_PROGRAM_PAYMENT_MODE
128 SET
129 -- program_payment_mode_id = DECODE( p_program_payment_mode_id, FND_API.g_miss_num, program_payment_mode_id, p_program_payment_mode_id)
130 -- ,program_id = DECODE( p_program_id, FND_API.g_miss_num, program_id, p_program_id)
131 -- ,geo_hierarchy_id = DECODE( p_geo_hierarchy_id, FND_API.g_miss_num, geo_hierarchy_id, p_geo_hierarchy_id)
132 -- ,mode_of_payment = DECODE( p_mode_of_payment, FND_API.g_miss_char, mode_of_payment, p_mode_of_payment)
133 -- ,last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date)
134 -- ,last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by)
135 -- ,last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login)
136 -- ,object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number+1)
137
138
139 program_payment_mode_id = DECODE( p_program_payment_mode_id, NULL, program_payment_mode_id, FND_API.g_miss_num, NULL, p_program_payment_mode_id)
140 ,program_id = DECODE( p_program_id, NULL, program_id, FND_API.g_miss_num, NULL, p_program_id)
141 ,geo_hierarchy_id = DECODE( p_geo_hierarchy_id, NULL, geo_hierarchy_id, FND_API.g_miss_num, NULL, p_geo_hierarchy_id)
142 ,mode_of_payment = DECODE( p_mode_of_payment, NULL, mode_of_payment, FND_API.g_miss_char, NULL, p_mode_of_payment)
143 ,last_update_date = DECODE( p_last_update_date, NULL, last_update_date, FND_API.g_miss_date, NULL, p_last_update_date)
144 ,last_updated_by = DECODE( p_last_updated_by, NULL, last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by)
145 ,last_update_login = DECODE( p_last_update_login, NULL, last_update_login, FND_API.g_miss_num, NULL, p_last_update_login)
146 ,object_version_number = DECODE( p_object_version_number, NULL, object_version_number, FND_API.g_miss_num, NULL, p_object_version_number+1)
147 ,mode_type = DECODE( p_mode_type, NULL,p_mode_type,FND_API.g_miss_char, NULL, p_mode_type)
148
149 WHERE PROGRAM_PAYMENT_MODE_ID = p_program_payment_mode_id
150 AND object_version_number = p_object_version_number;
151
152 IF (SQL%NOTFOUND) THEN
153 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
154 FND_MESSAGE.set_name('PV', 'PV_RECORD_NOT_FOUND');
155 FND_MSG_PUB.add;
156 END IF;
157 RAISE FND_API.g_exc_error;
158 END IF;
159
160 END Update_Row;
161
162
163
164 -- ========================================================
165 --
166 -- NAME
167 -- Delete_Row
168 --
169 -- PURPOSE
170 --
171 -- NOTES
172 --
173 -- HISTORY
174 --
175 -- ========================================================
176 PROCEDURE Delete_Row(
177 p_program_payment_mode_id NUMBER
178 ,p_object_version_number NUMBER
179 )
180 IS
181
182 BEGIN
183
184 DELETE FROM PV_PROGRAM_PAYMENT_MODE
185 WHERE program_payment_mode_id = p_program_payment_mode_id
186 AND object_version_number = p_object_version_number;
187
188 IF (SQL%NOTFOUND) THEN
189 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
190 FND_MESSAGE.set_name('PV', 'PV_RECORD_NOT_FOUND');
191 FND_MSG_PUB.add;
192 END IF;
193 RAISE FND_API.g_exc_error;
194 END IF;
195
196 END Delete_Row ;
197
198
199
200 -- ========================================================
201 --
202 -- NAME
203 -- Lock_Row
204 --
205 -- PURPOSE
206 --
207 -- NOTES
208 --
209 -- HISTORY
210 --
211 -- ========================================================
212 PROCEDURE Lock_Row(
213 px_program_payment_mode_id IN OUT NOCOPY NUMBER
214 ,p_program_id NUMBER
215 ,p_geo_hierarchy_id NUMBER
216 ,p_mode_of_payment VARCHAR2
217 ,p_last_update_date DATE
218 ,p_last_updated_by NUMBER
219 ,p_creation_date DATE
220 ,p_created_by NUMBER
221 ,p_last_update_login NUMBER
222 ,px_object_version_number IN OUT NOCOPY NUMBER
223 ,p_mode_type VARCHAR2
224 )
225
226 IS
227 CURSOR C IS
228 SELECT *
229 FROM PV_PROGRAM_PAYMENT_MODE
230 WHERE PROGRAM_PAYMENT_MODE_ID = px_program_payment_mode_id
231 FOR UPDATE of PROGRAM_PAYMENT_MODE_ID NOWAIT;
232 Recinfo C%ROWTYPE;
233 BEGIN
234 OPEN c;
235 FETCH c INTO Recinfo;
236 If (c%NOTFOUND) then
237 CLOSE c;
238 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
239 APP_EXCEPTION.RAISE_EXCEPTION;
240 END IF;
241 CLOSE C;
242 IF (
243 ( Recinfo.program_payment_mode_id = px_program_payment_mode_id)
244 AND ( ( Recinfo.program_id = p_program_id)
245 OR ( ( Recinfo.program_id IS NULL )
246 AND ( p_program_id IS NULL )))
247 AND ( ( Recinfo.geo_hierarchy_id = p_geo_hierarchy_id)
248 OR ( ( Recinfo.geo_hierarchy_id IS NULL )
249 AND ( p_geo_hierarchy_id IS NULL )))
250 AND ( ( Recinfo.mode_of_payment = p_mode_of_payment)
251 OR ( ( Recinfo.mode_of_payment IS NULL )
252 AND ( p_mode_of_payment IS NULL )))
253 AND ( ( Recinfo.last_update_date = p_last_update_date)
254 OR ( ( Recinfo.last_update_date IS NULL )
255 AND ( p_last_update_date IS NULL )))
256 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
257 OR ( ( Recinfo.last_updated_by IS NULL )
258 AND ( p_last_updated_by IS NULL )))
259 AND ( ( Recinfo.creation_date = p_creation_date)
260 OR ( ( Recinfo.creation_date IS NULL )
261 AND ( p_creation_date IS NULL )))
262 AND ( ( Recinfo.created_by = p_created_by)
263 OR ( ( Recinfo.created_by IS NULL )
264 AND ( p_created_by IS NULL )))
265 AND ( ( Recinfo.last_update_login = p_last_update_login)
266 OR ( ( Recinfo.last_update_login IS NULL )
267 AND ( p_last_update_login IS NULL )))
268 AND ( ( Recinfo.object_version_number = px_object_version_number)
269 OR ( ( Recinfo.object_version_number IS NULL )
270 AND ( px_object_version_number IS NULL )))
271 AND ( ( Recinfo.mode_type = p_mode_type)
272 OR ( ( Recinfo.mode_type IS NULL )
273 AND ( p_mode_type IS NULL )))
274 ) THEN
275 RETURN;
276 ELSE
277 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
278 APP_EXCEPTION.RAISE_EXCEPTION;
279 END IF;
280 END Lock_Row;
281
282 END PV_PRGM_PMT_MODE_PKG;