1 PACKAGE cn_payment_security_pvt AUTHID CURRENT_USER AS
2 -- $Header: cnvpmscs.pls 120.6 2006/02/03 10:51:25 rnagired noship $
3
4 --R12 payment security constants begin
5 g_type_payrun CONSTANT VARCHAR2 (20) := 'PAYRUN';
6 g_access_payrun_create CONSTANT VARCHAR2 (20) := 'CREATE';
7 g_access_payrun_delete CONSTANT VARCHAR2 (20) := 'DELETE';
8 g_access_payrun_freeze CONSTANT VARCHAR2 (20) := 'FREEZE';
9 g_access_payrun_pay CONSTANT VARCHAR2 (20) := 'PAY';
10 g_access_payrun_refresh CONSTANT VARCHAR2 (20) := 'REFRESH';
11 g_access_payrun_unfreeze CONSTANT VARCHAR2 (20) := 'UNFREEZE';
12 g_access_payrun_view CONSTANT VARCHAR2 (20) := 'VIEW';
13 g_type_wksht CONSTANT VARCHAR2 (20) := 'WKSHT';
14 g_access_wksht_adjust CONSTANT VARCHAR2 (20) := 'ADJUST';
15 g_access_wksht_approve CONSTANT VARCHAR2 (20) := 'APPROVE';
16 g_access_wksht_create CONSTANT VARCHAR2 (20) := 'CREATE';
17 g_access_wksht_delete CONSTANT VARCHAR2 (20) := 'DELETE';
18 g_access_wksht_lock CONSTANT VARCHAR2 (20) := 'LOCK';
19 g_access_wksht_refresh CONSTANT VARCHAR2 (20) := 'REFRESH';
20 g_access_wksht_reject CONSTANT VARCHAR2 (20) := 'REJECT';
21 g_access_wksht_release_holds CONSTANT VARCHAR2 (20) := 'RELEASE_HOLDS';
22 g_access_wksht_submit CONSTANT VARCHAR2 (20) := 'SUBMIT';
23 g_access_wksht_unlock CONSTANT VARCHAR2 (20) := 'UNLOCK';
24 g_access_wksht_view CONSTANT VARCHAR2 (20) := 'VIEW';
25
26 --R12 payment security constants end
27
28 -- Start of comments
29 -- API name : Is_Superuser
30 -- Type : Private.
31 -- Function : Return 1 if current FND user is a super user in
32 -- payment administartive hierarchy
33 -- Pre-reqs : None.
34 -- Parameters :
35 -- IN :
36 -- p_period_id IN NUMBER
37 -- OUT :
38 -- Version : Current version 1.0
39 -- Notes : Return 1 if passed in fnd user is root node in
40 -- Payment administrative hierarchy
41 --
42 -- End of comments
43 FUNCTION is_superuser (
44 p_period_id IN NUMBER,
45 p_org_id IN NUMBER
46 )
47 RETURN NUMBER;
48
49 -- Start of comments
50 -- API name : Is_Manager
51 -- Type : Private.
52 -- Function : Return 1 if current FND user is a manager in
53 -- payment administartive hierarchy
54 -- Pre-reqs : None.
55 -- Parameters :
56 -- IN :
57 -- p_period_id IN NUMBER
58 -- OUT :
59 -- Version : Current version 1.0
60 -- Notes : Return 1 if passed in fnd user is a manager in
61 -- Payment administrative hierarchy
62 --
63 -- End of comments
64 FUNCTION is_manager (
65 p_period_id IN NUMBER,
66 p_org_id IN NUMBER
67 )
68 RETURN NUMBER;
69
70 --
71 -- Procedure : Worksheet_Audit
72 -- Procedure to update worksheet status and enter audit info into cn_reasons
73 --
74 PROCEDURE worksheet_audit (
75 p_worksheet_id IN NUMBER,
76 p_payrun_id IN NUMBER,
77 p_salesrep_id IN NUMBER,
78 p_action IN VARCHAR2,
79 p_do_approval_flow IN VARCHAR2 := fnd_api.g_true,
80 x_return_status OUT NOCOPY VARCHAR2,
81 x_msg_count OUT NOCOPY NUMBER,
82 x_msg_data OUT NOCOPY VARCHAR2
83 );
84
85 --
86 -- Procedure : Payrun_Audit
87 -- Procedure to update payrun status and enter audit info into cn_reasons
88 --
89 PROCEDURE payrun_audit (
90 p_payrun_id IN NUMBER,
91 p_action IN VARCHAR2,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2
95 );
96
97 -- Start of comments
98 -- API name : Payrun_Action
99 -- Type : Private.
100 -- Function : Procedure to check if the payrun action is valid.
101 -- Pre-reqs : None.
102 -- Parameters :
103 -- IN : p_api_version IN NUMBER Required
104 -- p_init_msg_list IN VARCHAR2 Optional
105 -- Default = FND_API.G_FALSE
106 -- p_commit IN VARCHAR2 Optional
107 -- Default = FND_API.G_FALSE
108 -- p_validation_level IN NUMBER Optional
109 -- Default = FND_API.G_VALID_LEVEL_FULL
110 -- p_payrun_id IN NUMBER
111 -- p_action IN VARCHAR2
112 -- p_do_audit IN VARCHAR2
113 -- OUT : x_return_status OUT VARCHAR2(1)
114 -- x_msg_count OUT NUMBER
115 -- x_msg_data OUT VARCHAR2(2000)
116 -- Version : Current version 1.0
117 --
118 -- Notes : Note text
119 --
120 -- End of comments
121 PROCEDURE payrun_action (
122 p_api_version IN NUMBER,
123 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
124 p_commit IN VARCHAR2 := fnd_api.g_false,
125 p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2,
129 p_payrun_id IN NUMBER,
130 p_action IN VARCHAR2,
131 p_do_audit IN VARCHAR2 := fnd_api.g_true
132 );
133
134 -- Start of comments
135 -- API name : Worksheet_Action
136 -- Type : Private.
137 -- Function : Procedure to check if the worksheet action is valid.
138 -- Pre-reqs : None.
139 -- Parameters :
140 -- IN : p_api_version IN NUMBER Required
141 -- p_init_msg_list IN VARCHAR2 Optional
142 -- Default = FND_API.G_FALSE
143 -- p_commit IN VARCHAR2 Optional
144 -- Default = FND_API.G_FALSE
145 -- p_validation_level IN NUMBER Optional
146 -- Default = FND_API.G_VALID_LEVEL_FULL
147 -- p_worksheet_id IN NUMBER
148 -- p_action IN VARCHAR2
149 -- p_do_audit IN VARCHAR2
150 -- OUT : x_return_status OUT VARCHAR2(1)
151 -- x_msg_count OUT NUMBER
152 -- x_msg_data OUT VARCHAR2(2000)
153 -- Version : Current version 1.0
154 --
155 -- Notes : Note text
156 --
157 -- End of comments
158 PROCEDURE worksheet_action (
159 p_api_version IN NUMBER,
160 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
161 p_commit IN VARCHAR2 := fnd_api.g_false,
162 p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
163 x_return_status OUT NOCOPY VARCHAR2,
164 x_msg_count OUT NOCOPY NUMBER,
165 x_msg_data OUT NOCOPY VARCHAR2,
166 p_worksheet_id IN NUMBER,
167 p_action IN VARCHAR2,
168 p_do_audit IN VARCHAR2 := fnd_api.g_true
169 );
170
171 --
172 -- Procedure : Paid_Payrun_Audit
173 -- This procedue will update payrun status to paid, insert audit record
174 -- into cn_reasons, update records in cn_pay_approval_flow
175 -- Should call this procedure at the end of pay_payrun procedure
176 --
177 PROCEDURE paid_payrun_audit (
178 p_payrun_id IN NUMBER,
179 x_return_status OUT NOCOPY VARCHAR2,
180 x_msg_count OUT NOCOPY NUMBER,
181 x_msg_data OUT NOCOPY VARCHAR2
182 );
183
184 --
185 -- Procedure : Paid_Payrun_Audit
186 -- This procedue will update payrun status to paid, insert audit record
187 -- into cn_reasons, update records in cn_pay_approval_flow
188 -- Should call this procedure at the end of pay_payrun procedure
189 --
190
191 FUNCTION get_security_access (
192 p_type IN VARCHAR2,
193 p_access IN VARCHAR2
194 )
195 RETURN BOOLEAN;
196
197
198 -- R12 Get Pay By Mode
199 FUNCTION get_pay_by_mode (
200 p_payrun_id IN NUMBER
201 ) RETURN VARCHAR2;
202
203 --
204 -- Procedure : Paid_Payrun_Audit
205 -- This procedue will update payrun status to paid, insert audit record
206 -- into cn_reasons, update records in cn_pay_approval_flow
207 -- Should call this procedure at the end of pay_payrun procedure
208 --
209
210 FUNCTION UpdPayShtAccess(
211 p_payrun_id in number,
212 p_assigned_to_user_id in number,
213 p_user_id in number)
214 RETURN varchar2;
215
216 --
217 -- Procedure : pmt_raise_event
218 -- This procedure raise wf events for a given type
219 --
220 PROCEDURE pmt_raise_event(
221 p_type VARCHAR2,
222 p_event_name VARCHAR2,
223 p_payrun_id NUMBER,
224 p_salesrep_id NUMBER := NULL) ;
225
226
227 END cn_payment_security_pvt;