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