PACKAGE BODY: APPS.PAY_NAF_DEL

Source

1 PACKAGE BODY pay_naf_del
2  /* $Header: pynafrhi.pkb 120.1.12020000.1 2012/08/14 10:05:06 achandwa noship $ */
3  AS
4 
5   g_package varchar2(33) DEFAULT '  pay_naf_del.';
6 
7   PROCEDURE pre_delete
8     (p_rec IN pay_naf_shd.g_rec_type) IS
9     l_proc varchar2(72) DEFAULT g_package
10                                 || 'pre_delete';
11   BEGIN
12     hr_utility.set_location ('Entering:'
13                              || l_proc
14                             ,5);
15 
16     hr_utility.set_location (' Leaving:'
17                              || l_proc
18                             ,10);
19   END pre_delete;
20 
21   PROCEDURE delete_dml
22     (p_rec IN pay_naf_shd.g_rec_type) IS
23     l_proc varchar2(72) DEFAULT g_package
24                                 || 'delete_dml';
25   BEGIN
26     hr_utility.set_location ('Entering:'
27                              || l_proc
28                             ,5);
29 
30     pay_naf_shd.g_api_dml := TRUE;
31 
32     DELETE
33     FROM    pay_no_altinn_transfers
34     WHERE   transfer_id = p_rec.transfer_id;
35 
36     pay_naf_shd.g_api_dml := FALSE;
37 
38     hr_utility.set_location (' Leaving:'
39                              || l_proc
40                             ,10);
41   END delete_dml;
42 
43   PROCEDURE post_delete
44     (p_rec IN pay_naf_shd.g_rec_type) IS
45     l_proc varchar2(72) DEFAULT g_package
46                                 || 'post_delete';
47   BEGIN
48     hr_utility.set_location ('Entering:'
49                              || l_proc
50                             ,5);
51 
52     hr_utility.set_location (' Leaving:'
53                              || l_proc
54                             ,10);
55   END post_delete;
56 
57   PROCEDURE del
58     (p_rec      IN pay_naf_shd.g_rec_type
59     ,p_validate IN boolean                DEFAULT FALSE) IS
60     l_proc varchar2(72) DEFAULT g_package
61                                 || 'del';
62   BEGIN
63     hr_utility.set_location ('Entering:'
64                              || l_proc
65                             ,5);
66 
67     IF p_validate THEN
68       SAVEPOINT del_pay_naf;
69     END IF;
70 
71     pay_naf_shd.lck (p_rec.transfer_id
72                     ,p_rec.object_version_number);
73 
74     pay_naf_bus.delete_validate (p_rec);
75 
76     pre_delete (p_rec);
77 
78     delete_dml (p_rec);
79 
80     post_delete (p_rec);
81 
82     IF p_validate THEN
83       RAISE hr_api.validate_enabled;
84     END IF;
85 
86     hr_utility.set_location (' Leaving:'
87                              || l_proc
88                             ,10);
89   EXCEPTION
90     WHEN hr_api.validate_enabled THEN
91       ROLLBACK TO del_pay_naf;
92   END del;
93 
94   PROCEDURE del
95     (p_transfer_id           IN number
96     ,p_object_version_number IN number
97     ,p_validate              IN boolean DEFAULT FALSE) IS
98     l_rec pay_naf_shd.g_rec_type;
99     l_proc varchar2(72) DEFAULT g_package
100                                 || 'del';
101   BEGIN
102     hr_utility.set_location ('Entering:'
103                              || l_proc
104                             ,5);
105 
106     l_rec.transfer_id := p_transfer_id;
107 
108     l_rec.object_version_number := p_object_version_number;
109 
110     del (l_rec
111         ,p_validate);
112 
113     hr_utility.set_location (' Leaving:'
114                              || l_proc
115                             ,10);
116   END del;
117 END pay_naf_del;