[Home] [Help]
PACKAGE BODY: APPS.PAY_PMED_ACCOUNTS_API
Source
1 Package Body pay_pmed_accounts_api as
2 /* $Header: pypmaapi.pkb 115.2 2002/12/11 11:12:47 ssivasu2 noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pay_pmed_accounts_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_pmed_accounts >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_pmed_accounts
13 (p_validate in boolean default false
14 ,p_organization_id in number default null
15 ,p_source_id out nocopy number
16 ,p_account_number in varchar2 default null
17 ,p_enabled in varchar2 default null
18 ,p_description in varchar2 default null
19 ,p_business_group_id in number default null
20 ,p_attribute_category in varchar2 default null
21 ,p_attribute1 in varchar2 default null
22 ,p_attribute2 in varchar2 default null
23 ,p_attribute3 in varchar2 default null
24 ,p_attribute4 in varchar2 default null
25 ,p_attribute5 in varchar2 default null
26 ,p_attribute6 in varchar2 default null
27 ,p_attribute7 in varchar2 default null
28 ,p_attribute8 in varchar2 default null
29 ,p_attribute9 in varchar2 default null
30 ,p_attribute10 in varchar2 default null
31 ,p_attribute11 in varchar2 default null
32 ,p_attribute12 in varchar2 default null
33 ,p_attribute13 in varchar2 default null
34 ,p_attribute14 in varchar2 default null
35 ,p_attribute15 in varchar2 default null
36 ,p_attribute16 in varchar2 default null
37 ,p_attribute17 in varchar2 default null
38 ,p_attribute18 in varchar2 default null
39 ,p_attribute19 in varchar2 default null
40 ,p_attribute20 in varchar2 default null
41 ,p_attribute21 in varchar2 default null
42 ,p_attribute22 in varchar2 default null
43 ,p_attribute23 in varchar2 default null
44 ,p_attribute24 in varchar2 default null
45 ,p_attribute25 in varchar2 default null
46 ,p_attribute26 in varchar2 default null
47 ,p_attribute27 in varchar2 default null
48 ,p_attribute28 in varchar2 default null
49 ,p_attribute29 in varchar2 default null
50 ,p_attribute30 in varchar2 default null
51 ,p_object_version_number out nocopy number
52 ) is
53 --
54 -- Declare cursors and local variables
55 --
56 l_source_id pay_ca_pmed_accounts.source_id%TYPE;
57 l_proc varchar2(72) := g_package||'create_pmed_accounts';
58 l_object_version_number pay_ca_pmed_accounts.object_version_number%TYPE;
59 --
60 begin
61 --
62 hr_utility.set_location('Entering:'|| l_proc, 10);
63 --
64 -- Issue a savepoint if operating in validation only mode
65 --
66 savepoint create_pmed_accounts;
67 --
68 hr_utility.set_location(l_proc, 20);
69 --
70 -- Process Logic
71 --
72 begin
73 --
74 -- Start of API User Hook for the before hook of create_pmed_accounts
75 --
76 pay_pmed_accounts_bk1.create_pmed_accounts_b
77 (
78 p_organization_id => p_organization_id
79 ,p_account_number => p_account_number
80 ,p_enabled => p_enabled
81 ,p_description => p_description
82 ,p_business_group_id => p_business_group_id
83 ,p_attribute_category => p_attribute_category
84 ,p_attribute1 => p_attribute1
85 ,p_attribute2 => p_attribute2
86 ,p_attribute3 => p_attribute3
87 ,p_attribute4 => p_attribute4
88 ,p_attribute5 => p_attribute5
89 ,p_attribute6 => p_attribute6
90 ,p_attribute7 => p_attribute7
91 ,p_attribute8 => p_attribute8
92 ,p_attribute9 => p_attribute9
93 ,p_attribute10 => p_attribute10
94 ,p_attribute11 => p_attribute11
95 ,p_attribute12 => p_attribute12
96 ,p_attribute13 => p_attribute13
97 ,p_attribute14 => p_attribute14
98 ,p_attribute15 => p_attribute15
99 ,p_attribute16 => p_attribute16
100 ,p_attribute17 => p_attribute17
101 ,p_attribute18 => p_attribute18
102 ,p_attribute19 => p_attribute19
103 ,p_attribute20 => p_attribute20
104 ,p_attribute21 => p_attribute21
105 ,p_attribute22 => p_attribute22
106 ,p_attribute23 => p_attribute23
107 ,p_attribute24 => p_attribute24
108 ,p_attribute25 => p_attribute25
109 ,p_attribute26 => p_attribute26
110 ,p_attribute27 => p_attribute27
111 ,p_attribute28 => p_attribute28
112 ,p_attribute29 => p_attribute29
113 ,p_attribute30 => p_attribute30
114 );
115 exception
116 when hr_api.cannot_find_prog_unit then
117 hr_api.cannot_find_prog_unit_error
118 (
119 p_module_name => 'CREATE_pmed_accounts'
120 ,p_hook_type => 'BP'
121 );
122 --
123 -- End of API User Hook for the before hook of create_pmed_accounts
124 --
125 end;
126 --
127 pay_pma_ins.ins
128 (
129 p_organization_id => p_organization_id
130 ,p_source_id => l_source_id
131 ,p_account_number => p_account_number
132 ,p_enabled => p_enabled
133 ,p_description => p_description
134 ,p_business_group_id => p_business_group_id
135 ,p_attribute_category => p_attribute_category
136 ,p_attribute1 => p_attribute1
137 ,p_attribute2 => p_attribute2
138 ,p_attribute3 => p_attribute3
139 ,p_attribute4 => p_attribute4
140 ,p_attribute5 => p_attribute5
141 ,p_attribute6 => p_attribute6
142 ,p_attribute7 => p_attribute7
143 ,p_attribute8 => p_attribute8
144 ,p_attribute9 => p_attribute9
145 ,p_attribute10 => p_attribute10
146 ,p_attribute11 => p_attribute11
147 ,p_attribute12 => p_attribute12
148 ,p_attribute13 => p_attribute13
149 ,p_attribute14 => p_attribute14
150 ,p_attribute15 => p_attribute15
151 ,p_attribute16 => p_attribute16
152 ,p_attribute17 => p_attribute17
153 ,p_attribute18 => p_attribute18
154 ,p_attribute19 => p_attribute19
155 ,p_attribute20 => p_attribute20
156 ,p_attribute21 => p_attribute21
157 ,p_attribute22 => p_attribute22
158 ,p_attribute23 => p_attribute23
159 ,p_attribute24 => p_attribute24
160 ,p_attribute25 => p_attribute25
161 ,p_attribute26 => p_attribute26
162 ,p_attribute27 => p_attribute27
163 ,p_attribute28 => p_attribute28
164 ,p_attribute29 => p_attribute29
165 ,p_attribute30 => p_attribute30
166 ,p_object_version_number => l_object_version_number
167 );
168 --
169 begin
170 --
171 -- Start of API User Hook for the after hook of create_pmed_accounts
172 --
173 pay_pmed_accounts_bk1.create_pmed_accounts_a
174 (
175 p_organization_id => p_organization_id
176 ,p_source_id => l_source_id
177 ,p_account_number => p_account_number
178 ,p_enabled => p_enabled
179 ,p_description => p_description
180 ,p_business_group_id => p_business_group_id
181 ,p_attribute_category => p_attribute_category
182 ,p_attribute1 => p_attribute1
183 ,p_attribute2 => p_attribute2
184 ,p_attribute3 => p_attribute3
185 ,p_attribute4 => p_attribute4
186 ,p_attribute5 => p_attribute5
187 ,p_attribute6 => p_attribute6
188 ,p_attribute7 => p_attribute7
189 ,p_attribute8 => p_attribute8
190 ,p_attribute9 => p_attribute9
191 ,p_attribute10 => p_attribute10
192 ,p_attribute11 => p_attribute11
193 ,p_attribute12 => p_attribute12
194 ,p_attribute13 => p_attribute13
195 ,p_attribute14 => p_attribute14
196 ,p_attribute15 => p_attribute15
197 ,p_attribute16 => p_attribute16
198 ,p_attribute17 => p_attribute17
199 ,p_attribute18 => p_attribute18
200 ,p_attribute19 => p_attribute19
201 ,p_attribute20 => p_attribute20
202 ,p_attribute21 => p_attribute21
203 ,p_attribute22 => p_attribute22
204 ,p_attribute23 => p_attribute23
205 ,p_attribute24 => p_attribute24
206 ,p_attribute25 => p_attribute25
207 ,p_attribute26 => p_attribute26
208 ,p_attribute27 => p_attribute27
209 ,p_attribute28 => p_attribute28
210 ,p_attribute29 => p_attribute29
211 ,p_attribute30 => p_attribute30
212 ,p_object_version_number => l_object_version_number
213 );
214 exception
215 when hr_api.cannot_find_prog_unit then
216 hr_api.cannot_find_prog_unit_error
217 (p_module_name => 'CREATE_pmed_accounts'
218 ,p_hook_type => 'AP'
219 );
220 --
221 -- End of API User Hook for the after hook of create_pmed_accounts
222 --
223 end;
224 --
225 hr_utility.set_location(l_proc, 60);
226 --
227 -- When in validation only mode raise the Validate_Enabled exception
228 --
229 if p_validate then
230 raise hr_api.validate_enabled;
231 end if;
232 --
233 -- Set all output arguments
234 --
235 p_source_id := l_source_id;
236 p_object_version_number := l_object_version_number;
237 --
238 hr_utility.set_location(' Leaving:'||l_proc, 70);
239 --
240 exception
241 --
242 when hr_api.validate_enabled then
243 --
244 -- As the Validate_Enabled exception has been raised
245 -- we must rollback to the savepoint
246 --
247 ROLLBACK TO create_pmed_accounts;
248 --
249 -- Only set output warning arguments
250 -- (Any key or derived arguments must be set to null
251 -- when validation only mode is being used.)
252 --
253 p_source_id := null;
254 p_object_version_number := null;
255 hr_utility.set_location(' Leaving:'||l_proc, 80);
256 --
257 when others then
258 --
259 -- A validation or unexpected error has occured
260 --
261 ROLLBACK TO create_pmed_accounts;
262 --
263 p_source_id := null;
264 p_object_version_number := null;
265 --
266 raise;
267 --
268 end create_pmed_accounts;
269 -- ----------------------------------------------------------------------------
270 -- |------------------------< update_pmed_accounts >--- ------------------|
271 -- ----------------------------------------------------------------------------
272 --
273 procedure update_pmed_accounts
274 (p_validate in boolean default false
275 ,p_organization_id in number default hr_api.g_number
276 ,p_source_id in number
277 ,p_account_number in varchar2 default hr_api.g_varchar2
278 ,p_enabled in varchar2 default hr_api.g_varchar2
279 ,p_description in varchar2 default hr_api.g_varchar2
280 ,p_business_group_id in number default hr_api.g_number
281 ,p_attribute_category in varchar2 default hr_api.g_varchar2
282 ,p_attribute1 in varchar2 default hr_api.g_varchar2
283 ,p_attribute2 in varchar2 default hr_api.g_varchar2
284 ,p_attribute3 in varchar2 default hr_api.g_varchar2
285 ,p_attribute4 in varchar2 default hr_api.g_varchar2
286 ,p_attribute5 in varchar2 default hr_api.g_varchar2
287 ,p_attribute6 in varchar2 default hr_api.g_varchar2
288 ,p_attribute7 in varchar2 default hr_api.g_varchar2
289 ,p_attribute8 in varchar2 default hr_api.g_varchar2
290 ,p_attribute9 in varchar2 default hr_api.g_varchar2
291 ,p_attribute10 in varchar2 default hr_api.g_varchar2
292 ,p_attribute11 in varchar2 default hr_api.g_varchar2
293 ,p_attribute12 in varchar2 default hr_api.g_varchar2
294 ,p_attribute13 in varchar2 default hr_api.g_varchar2
295 ,p_attribute14 in varchar2 default hr_api.g_varchar2
296 ,p_attribute15 in varchar2 default hr_api.g_varchar2
297 ,p_attribute16 in varchar2 default hr_api.g_varchar2
298 ,p_attribute17 in varchar2 default hr_api.g_varchar2
299 ,p_attribute18 in varchar2 default hr_api.g_varchar2
300 ,p_attribute19 in varchar2 default hr_api.g_varchar2
301 ,p_attribute20 in varchar2 default hr_api.g_varchar2
302 ,p_attribute21 in varchar2 default hr_api.g_varchar2
303 ,p_attribute22 in varchar2 default hr_api.g_varchar2
304 ,p_attribute23 in varchar2 default hr_api.g_varchar2
305 ,p_attribute24 in varchar2 default hr_api.g_varchar2
306 ,p_attribute25 in varchar2 default hr_api.g_varchar2
307 ,p_attribute26 in varchar2 default hr_api.g_varchar2
308 ,p_attribute27 in varchar2 default hr_api.g_varchar2
309 ,p_attribute28 in varchar2 default hr_api.g_varchar2
310 ,p_attribute29 in varchar2 default hr_api.g_varchar2
311 ,p_attribute30 in varchar2 default hr_api.g_varchar2
312 ,p_object_version_number in out nocopy number
313 ) is
314 --
315 -- Declare cursors and local variables
316 --
317 l_proc varchar2(72) := g_package||'update_pmed_accounts';
318 l_object_version_number pay_ca_pmed_accounts.object_version_number%TYPE;
319 --
320 begin
321 --
322 hr_utility.set_location('Entering:'|| l_proc, 10);
323 --
324 -- Issue a savepoint if operating in validation only mode
325 --
326 savepoint update_pmed_accounts;
327 --
328 hr_utility.set_location(l_proc, 20);
329 --
330 -- Process Logic
331 --
332 l_object_version_number := p_object_version_number;
333 --
334 begin
335 --
336 -- Start of API User Hook for the before hook of update_pmed_accounts
337 --
338 pay_pmed_accounts_bk2.update_pmed_accounts_b
339 (
340 p_organization_id => p_organization_id
341 ,p_source_id => p_source_id
342 ,p_account_number => p_account_number
343 ,p_enabled => p_enabled
344 ,p_description => p_description
345 ,p_business_group_id => p_business_group_id
346 ,p_attribute_category => p_attribute_category
347 ,p_attribute1 => p_attribute1
348 ,p_attribute2 => p_attribute2
349 ,p_attribute3 => p_attribute3
350 ,p_attribute4 => p_attribute4
351 ,p_attribute5 => p_attribute5
352 ,p_attribute6 => p_attribute6
353 ,p_attribute7 => p_attribute7
354 ,p_attribute8 => p_attribute8
355 ,p_attribute9 => p_attribute9
356 ,p_attribute10 => p_attribute10
357 ,p_attribute11 => p_attribute11
358 ,p_attribute12 => p_attribute12
359 ,p_attribute13 => p_attribute13
360 ,p_attribute14 => p_attribute14
361 ,p_attribute15 => p_attribute15
362 ,p_attribute16 => p_attribute16
363 ,p_attribute17 => p_attribute17
364 ,p_attribute18 => p_attribute18
365 ,p_attribute19 => p_attribute19
366 ,p_attribute20 => p_attribute20
367 ,p_attribute21 => p_attribute21
368 ,p_attribute22 => p_attribute22
369 ,p_attribute23 => p_attribute23
370 ,p_attribute24 => p_attribute24
371 ,p_attribute25 => p_attribute25
372 ,p_attribute26 => p_attribute26
373 ,p_attribute27 => p_attribute27
374 ,p_attribute28 => p_attribute28
375 ,p_attribute29 => p_attribute29
376 ,p_attribute30 => p_attribute30
377 ,p_object_version_number => p_object_version_number
378 );
379 exception
380 when hr_api.cannot_find_prog_unit then
381 hr_api.cannot_find_prog_unit_error
382 (p_module_name => 'UPDATE_pmed_accounts'
383 ,p_hook_type => 'BP'
384 );
385 --
386 -- End of API User Hook for the before hook of update_pmed_accounts
387 --
388 end;
389 --
390 pay_pma_upd.upd
391 (
392 p_organization_id => p_organization_id
393 ,p_source_id => p_source_id
394 ,p_account_number => p_account_number
395 ,p_enabled => p_enabled
396 ,p_description => p_description
397 ,p_business_group_id => p_business_group_id
398 ,p_attribute_category => p_attribute_category
399 ,p_attribute1 => p_attribute1
400 ,p_attribute2 => p_attribute2
401 ,p_attribute3 => p_attribute3
402 ,p_attribute4 => p_attribute4
403 ,p_attribute5 => p_attribute5
404 ,p_attribute6 => p_attribute6
405 ,p_attribute7 => p_attribute7
406 ,p_attribute8 => p_attribute8
407 ,p_attribute9 => p_attribute9
408 ,p_attribute10 => p_attribute10
409 ,p_attribute11 => p_attribute11
410 ,p_attribute12 => p_attribute12
411 ,p_attribute13 => p_attribute13
412 ,p_attribute14 => p_attribute14
413 ,p_attribute15 => p_attribute15
414 ,p_attribute16 => p_attribute16
415 ,p_attribute17 => p_attribute17
416 ,p_attribute18 => p_attribute18
417 ,p_attribute19 => p_attribute19
418 ,p_attribute20 => p_attribute20
419 ,p_attribute21 => p_attribute21
420 ,p_attribute22 => p_attribute22
421 ,p_attribute23 => p_attribute23
422 ,p_attribute24 => p_attribute24
423 ,p_attribute25 => p_attribute25
424 ,p_attribute26 => p_attribute26
425 ,p_attribute27 => p_attribute27
426 ,p_attribute28 => p_attribute28
427 ,p_attribute29 => p_attribute29
428 ,p_attribute30 => p_attribute30
429 ,p_object_version_number => p_object_version_number
430 );
431 --
432 begin
433 --
434 -- Start of API User Hook for the after hook of update_pmed_accounts
435 --
436 pay_pmed_accounts_bk2.update_pmed_accounts_a
437 (
438 p_organization_id => p_organization_id
439 ,p_source_id => p_source_id
440 ,p_account_number => p_account_number
441 ,p_enabled => p_enabled
442 ,p_description => p_description
443 ,p_business_group_id => p_business_group_id
444 ,p_attribute_category => p_attribute_category
445 ,p_attribute1 => p_attribute1
446 ,p_attribute2 => p_attribute2
447 ,p_attribute3 => p_attribute3
448 ,p_attribute4 => p_attribute4
449 ,p_attribute5 => p_attribute5
450 ,p_attribute6 => p_attribute6
451 ,p_attribute7 => p_attribute7
452 ,p_attribute8 => p_attribute8
453 ,p_attribute9 => p_attribute9
454 ,p_attribute10 => p_attribute10
455 ,p_attribute11 => p_attribute11
456 ,p_attribute12 => p_attribute12
457 ,p_attribute13 => p_attribute13
458 ,p_attribute14 => p_attribute14
459 ,p_attribute15 => p_attribute15
460 ,p_attribute16 => p_attribute16
461 ,p_attribute17 => p_attribute17
462 ,p_attribute18 => p_attribute18
463 ,p_attribute19 => p_attribute19
464 ,p_attribute20 => p_attribute20
465 ,p_attribute21 => p_attribute21
466 ,p_attribute22 => p_attribute22
467 ,p_attribute23 => p_attribute23
468 ,p_attribute24 => p_attribute24
469 ,p_attribute25 => p_attribute25
470 ,p_attribute26 => p_attribute26
471 ,p_attribute27 => p_attribute27
472 ,p_attribute28 => p_attribute28
473 ,p_attribute29 => p_attribute29
474 ,p_attribute30 => p_attribute30
475 ,p_object_version_number => p_object_version_number
476 );
477 exception
478 when hr_api.cannot_find_prog_unit then
479 hr_api.cannot_find_prog_unit_error
480 (p_module_name => 'UPDATE_pmed_accounts'
481 ,p_hook_type => 'AP'
482 );
483 --
484 -- End of API User Hook for the after hook of update_pmed_accounts
485 --
486 end;
487 --
488 hr_utility.set_location(l_proc, 60);
489 --
490 -- When in validation only mode raise the Validate_Enabled exception
491 --
492 if p_validate then
493 raise hr_api.validate_enabled;
494 end if;
495 --
496 -- Set all output arguments
497 --
498 -- p_object_version_number := l_object_version_number;
499 --
500 hr_utility.set_location(' Leaving:'||l_proc, 70);
501 --
502 exception
503 --
504 when hr_api.validate_enabled then
505 --
506 -- As the Validate_Enabled exception has been raised
507 -- we must rollback to the savepoint
508 --
509 ROLLBACK TO update_pmed_accounts;
510 --
511 -- Only set output warning arguments
512 -- (Any key or derived arguments must be set to null
513 -- when validation only mode is being used.)
514 --
515 p_object_version_number := l_object_version_number;
516 --
517 hr_utility.set_location(' Leaving:'||l_proc, 80);
518 --
519 when others then
520 --
521 -- A validation or unexpected error has occured
522 --
523 ROLLBACK TO update_pmed_accounts;
524 --
525 p_object_version_number := l_object_version_number;
526 --
527 raise;
528 --
529 end update_pmed_accounts;
530 -- ----------------------------------------------------------------------------
531 -- |------------------------< delete_pmed_accounts >----------------------|
532 -- ----------------------------------------------------------------------------
533 --
534 procedure delete_pmed_accounts
535 (p_validate in boolean default false
536 ,p_source_id in number
537 ,p_object_version_number in out nocopy number
538 ) is
539 --
540 -- Declare cursors and local variables
541 --
542 l_proc varchar2(72) := g_package||'update_pmed_accounts';
543 l_object_version_number pay_ca_pmed_accounts.object_version_number%TYPE;
544 --
545 begin
546 --
547 hr_utility.set_location('Entering:'|| l_proc, 10);
548 --
549 -- Issue a savepoint if operating in validation only mode
550 --
551 savepoint delete_pmed_accounts;
552 --
553 hr_utility.set_location(l_proc, 20);
554 --
555 -- Process Logic
556 --
557 l_object_version_number := p_object_version_number;
558 --
559 --
560 begin
561 --
562 -- Start of API User Hook for the before hook of delete_pmed_accounts
563 --
564 pay_pmed_accounts_bk3.delete_pmed_accounts_b
565 (
566 p_source_id => p_source_id
567 ,p_object_version_number => p_object_version_number
568 );
569 exception
570 when hr_api.cannot_find_prog_unit then
571 hr_api.cannot_find_prog_unit_error
572 (p_module_name => 'DELETE_pmed_accounts'
573 ,p_hook_type => 'BP'
574 );
575 --
576 -- End of API User Hook for the before hook of delete_pmed_accounts
577 --
578 end;
579 --
580 pay_pma_del.del
581 (
582 p_source_id => p_source_id
583 ,p_object_version_number => l_object_version_number
584 );
585 --
586 begin
587 --
588 -- Start of API User Hook for the after hook of delete_pmed_accounts
589 --
590 pay_pmed_accounts_bk3.delete_pmed_accounts_a
591 (
592 p_source_id => p_source_id
593 ,p_object_version_number => l_object_version_number
594 );
595 exception
596 when hr_api.cannot_find_prog_unit then
597 hr_api.cannot_find_prog_unit_error
598 (p_module_name => 'DELETE_pmed_accounts'
599 ,p_hook_type => 'AP'
600 );
601 --
602 -- End of API User Hook for the after hook of delete_pmed_accounts
603 --
604 end;
605 --
606 hr_utility.set_location(l_proc, 60);
607 --
608 -- When in validation only mode raise the Validate_Enabled exception
609 --
610 if p_validate then
611 raise hr_api.validate_enabled;
612 end if;
613 --
614 --
615 hr_utility.set_location(' Leaving:'||l_proc, 70);
616 --
617 exception
618 --
619 when hr_api.validate_enabled then
620 --
621 -- As the Validate_Enabled exception has been raised
622 -- we must rollback to the savepoint
623 --
624 ROLLBACK TO delete_pmed_accounts;
625 --
626 -- Only set output warning arguments
627 -- (Any key or derived arguments must be set to null
628 -- when validation only mode is being used.)
629 --
630 --
631 when others then
632 --
633 -- A validation or unexpected error has occured
634 --
635 ROLLBACK TO delete_pmed_accounts;
636 raise;
637 --
638 end delete_pmed_accounts;
639 --
640 -- ----------------------------------------------------------------------------
641 -- |-------------------------------< lck >------------------------------------|
642 -- ----------------------------------------------------------------------------
643 --
644 procedure lck
645 (
646 p_source_id in number
647 ,p_object_version_number in number
648 ) is
649 --
650 --
651 -- Declare cursors and local variables
652 --
653 l_proc varchar2(72) := g_package||'lck';
654 --
655 begin
656 --
657 hr_utility.set_location('Entering:'|| l_proc, 10);
658 --
659 pay_pma_shd.lck
660 (
661 p_source_id => p_source_id
662 ,p_object_version_number => p_object_version_number
663 );
664 --
665 hr_utility.set_location(' Leaving:'||l_proc, 70);
666 --
667 end lck;
668 --
669 end pay_pmed_accounts_api;