[Home] [Help]
PACKAGE BODY: APPS.OKC_CHANGE_CONTRACT_PUB
Source
1 package body OKC_CHANGE_CONTRACT_PUB as
2 /* $Header: OKCPCHKB.pls 120.0 2005/05/25 22:48:06 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 -- Start of comments
6 --
7 -- Procedure Name : change_approval_start
8 -- Description :
9 -- Business Rules :
10 -- Parameters :
11 -- Version : 1.0
12 -- End of comments
13
14 procedure change_approval_start(
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2 ,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_change_request_id IN number,
21 p_do_commit IN VARCHAR2
22 ) is
23 begin
24 OKC_CHANGE_CONTRACT_PVT.change_approval_start(
25 p_api_version => p_api_version,
26 p_init_msg_list => p_init_msg_list,
27 x_return_status => x_return_status,
28 x_msg_count => x_msg_count,
29 x_msg_data => x_msg_data,
30 p_change_request_id => p_change_request_id,
31 p_do_commit => p_do_commit
32 );
33 end change_approval_start;
34
35 -- Start of comments
36 --
37 -- Procedure Name : wf_monitor_url
38 -- Description :
39 -- Business Rules :
40 -- Parameters :
41 -- Version : 1.0
42 -- End of comments
43
44 function wf_monitor_url(
45 p_change_request_id IN number,
46 p_process_id IN number,
47 p_mode IN varchar2
48 ) return varchar2 is
49 begin
50 return OKC_CHANGE_CONTRACT_PVT.wf_monitor_url(
51 p_change_request_id => p_change_request_id,
52 p_process_id => p_process_id,
53 p_mode => p_mode
54 );
55 end wf_monitor_url;
56
57 -- Start of comments
58 --
59 -- Procedure Name : change_approval_stop
60 -- Description :
61 -- Business Rules :
62 -- Parameters :
63 -- Version : 1.0
64 -- End of comments
65
66 procedure change_approval_stop(
67 p_api_version IN NUMBER,
68 p_init_msg_list IN VARCHAR2 ,
69 x_return_status OUT NOCOPY VARCHAR2,
70 x_msg_count OUT NOCOPY NUMBER,
71 x_msg_data OUT NOCOPY VARCHAR2,
72 p_change_request_id IN number,
73 p_do_commit IN VARCHAR2
74 ) is
75 begin
76 OKC_CHANGE_CONTRACT_PVT.change_approval_stop(
77 p_api_version => p_api_version,
78 p_init_msg_list => p_init_msg_list,
79 x_return_status => x_return_status,
80 x_msg_count => x_msg_count,
81 x_msg_data => x_msg_data,
82 p_change_request_id => p_change_request_id,
83 p_do_commit => p_do_commit
84 );
85 end change_approval_stop;
86
87 -- Start of comments
88 --
89 -- Procedure Name : change_get_key
90 -- Description :
91 -- Business Rules :
92 -- Parameters :
93 -- Version : 1.0
94 -- End of comments
95
96 procedure change_get_key(
97 p_api_version IN NUMBER,
98 p_init_msg_list IN VARCHAR2 ,
99 x_return_status OUT NOCOPY VARCHAR2,
100 x_msg_count OUT NOCOPY NUMBER,
101 x_msg_data OUT NOCOPY VARCHAR2,
102 p_change_request_id IN number,
103 p_do_commit IN VARCHAR2
104 ) is
105 begin
106 OKC_CHANGE_CONTRACT_PVT.change_get_key(
107 p_api_version => p_api_version,
108 p_init_msg_list => p_init_msg_list,
109 x_return_status => x_return_status,
110 x_msg_count => x_msg_count,
111 x_msg_data => x_msg_data,
112 p_change_request_id => p_change_request_id,
113 p_do_commit => p_do_commit
114 );
115 end change_get_key;
116
117 -- Start of comments
118 --
119 -- Procedure Name : change_put_key
120 -- Description :
121 -- Business Rules :
122 -- Parameters :
123 -- Version : 1.0
124 -- End of comments
125
126 procedure change_put_key(
127 p_api_version IN NUMBER,
128 p_init_msg_list IN VARCHAR2,
129 x_return_status OUT NOCOPY VARCHAR2,
130 x_msg_count OUT NOCOPY NUMBER,
131 x_msg_data OUT NOCOPY VARCHAR2,
132 p_change_request_id IN number,
133 p_datetime_applied IN date ,
134 p_k_version IN varchar2,
135 p_do_commit IN VARCHAR2
136 ) is
137 begin
138 OKC_CHANGE_CONTRACT_PVT.change_put_key(
139 p_api_version => p_api_version,
140 p_init_msg_list => p_init_msg_list,
141 x_return_status => x_return_status,
142 x_msg_count => x_msg_count,
143 x_msg_data => x_msg_data,
144 p_change_request_id => p_change_request_id,
145 p_datetime_applied => p_datetime_applied,
146 p_k_version => p_k_version,
147 p_do_commit => p_do_commit
148 );
149 end change_put_key;
150
151 -- for wf development
152
153 -- Start of comments
154 --
155 -- Procedure Name : change_request_approved
156 -- Description :
157 -- Business Rules :
158 -- Parameters :
159 -- Version : 1.0
160 -- End of comments
161
162 procedure change_request_approved(
163 p_change_request_id IN number,
164 x_return_status OUT NOCOPY VARCHAR2
165 ) is
166 begin
167 OKC_CHANGE_CONTRACT_PVT.change_request_approved(
168 p_change_request_id => p_change_request_id,
169 x_return_status => x_return_status
170 );
171 end change_request_approved;
172
173 -- for wf development
174
175 -- Start of comments
176 --
177 -- Procedure Name : change_request_rejected
178 -- Description :
179 -- Business Rules :
180 -- Parameters :
181 -- Version : 1.0
182 -- End of comments
183
184 procedure change_request_rejected(
185 p_change_request_id IN number,
186 x_return_status OUT NOCOPY VARCHAR2
187 ) is
188 begin
189 OKC_CHANGE_CONTRACT_PVT.change_request_rejected(
190 p_change_request_id => p_change_request_id,
191 x_return_status => x_return_status
192 );
193 end change_request_rejected;
194
195 -- for wf development
196
197 -- Start of comments
198 --
199 -- Procedure Name : wf_copy_env
200 -- Description :
201 -- Business Rules :
202 -- Parameters :
203 -- Version : 1.0
204 -- End of comments
205
206 procedure wf_copy_env( p_item_type varchar2,
207 p_item_key varchar2) is
208 begin
209 OKC_CONTRACT_APPROVAL_PUB.wf_copy_env(p_item_type, p_item_key);
210 end wf_copy_env;
211
212 -- Start of comments
213 --
214 -- Procedure Name : k_accesible
215 -- Description :
216 -- Business Rules :
217 -- Parameters :
218 -- Version : 1.0
219 -- End of comments
220
221 function k_accesible(
222 p_contract_id IN number,
223 p_user_id IN number,
224 p_level IN varchar2
225 ) return varchar2 is
226 begin
227 return OKC_CONTRACT_APPROVAL_PUB.k_accesible(
228 p_contract_id => p_contract_id,
229 p_user_id => p_user_id,
230 p_level => p_level
231 );
232 end k_accesible;
233
234 end OKC_CHANGE_CONTRACT_PUB;