[Home] [Help]
PACKAGE BODY: APPS.OKE_CONTRACT_APPROVAL_PUB
Source
1 package body OKE_CONTRACT_APPROVAL_PUB as
2 /* $Header: OKEPCAPB.pls 115.4 2002/08/14 01:44:42 alaw ship $ */
3
4 -- Start of comments
5 --
6 -- Procedure Name : k_approval_start
7 -- Description :
8 -- Business Rules :
9 -- Parameters :
10 -- Version : 1.0
11 -- End of comments
12
13 procedure k_approval_start(
14 p_api_version IN NUMBER,
15 p_init_msg_list IN VARCHAR2 default OKE_API.G_FALSE,
16 x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2,
19 p_contract_id IN number,
20 p_process_id IN number,
21 p_do_commit IN VARCHAR2 default OKE_API.G_TRUE
22 ) is
23 begin
24 OKE_CONTRACT_APPROVAL_PVT.k_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_contract_id => p_contract_id,
31 p_process_id => p_process_id,
32 p_do_commit => p_do_commit
33 );
34 end k_approval_start;
35
36 -- Start of comments
37 --
38 -- Procedure Name : wf_monitor_url
39 -- Description :
40 -- Business Rules :
41 -- Parameters :
42 -- Version : 1.0
43 -- End of comments
44
45 function wf_monitor_url(
46 p_contract_id IN number,
47 p_process_id IN number,
48 p_mode IN varchar2 default 'USER'
49 ) return varchar2 is
50 begin
51 return OKE_CONTRACT_APPROVAL_PVT.wf_monitor_url(
52 p_contract_id => p_contract_id,
53 p_process_id => p_process_id,
54 p_mode => p_mode
55 );
56 end wf_monitor_url;
57
58 -- Start of comments
59 --
60 -- Procedure Name : k_approval_stop
61 -- Description :
62 -- Business Rules :
63 -- Parameters :
64 -- Version : 1.0
65 -- End of comments
66
67 procedure k_approval_stop(
68 p_api_version IN NUMBER,
69 p_init_msg_list IN VARCHAR2 default OKE_API.G_FALSE,
70 x_return_status OUT NOCOPY VARCHAR2,
71 x_msg_count OUT NOCOPY NUMBER,
72 x_msg_data OUT NOCOPY VARCHAR2,
73 p_contract_id IN NUMBER,
74 p_do_commit IN VARCHAR2 default OKE_API.G_TRUE
75 ) is
76 begin
77 OKE_CONTRACT_APPROVAL_PVT.k_approval_stop(
78 p_api_version => p_api_version,
79 p_init_msg_list => p_init_msg_list,
80 x_return_status => x_return_status,
81 x_msg_count => x_msg_count,
82 x_msg_data => x_msg_data,
83 p_contract_id => p_contract_id,
84 p_do_commit => p_do_commit
85 );
86 end k_approval_stop;
87
88 -- Start of comments
89 --
90 -- Procedure Name : wf_copy_env
91 -- Description :
92 -- Business Rules :
93 -- Parameters :
94 -- Version : 1.0
95 -- End of comments
96
97 procedure wf_copy_env(p_item_type varchar2, p_item_key varchar2) is
98 begin
99 OKE_CONTRACT_APPROVAL_PVT.wf_copy_env(p_item_type, p_item_key);
100 end wf_copy_env;
101
102 -- Start of comments
103 --
104 -- Procedure Name : k_accesible
105 -- Description :
106 -- Business Rules :
107 -- Parameters :
108 -- Version : 1.0
109 -- End of comments
110
111 function k_accesible(
112 p_contract_id IN number,
113 p_user_id IN number,
114 p_level IN varchar2 default 'R'
115 ) return varchar2 is
116 begin
117 return OKE_CONTRACT_APPROVAL_PVT.k_accesible(
118 p_contract_id => p_contract_id,
119 p_user_id => p_user_id,
120 p_level => p_level
121 );
122 end k_accesible;
123
124 -- Start of comments
125 --
126 -- Procedure Name : k_approved
127 -- Description :
128 -- Business Rules :
129 -- Parameters :
130 -- Version : 1.0
131 -- End of comments
132
133 procedure k_approved(
134 p_contract_id IN number,
135 p_date_approved IN date default sysdate,
136 x_return_status OUT NOCOPY VARCHAR2
137 ) is
138 begin
139 OKE_CONTRACT_APPROVAL_PVT.k_approved(
140 p_contract_id => p_contract_id,
141 p_date_approved => p_date_approved,
142 x_return_status => x_return_status
143 );
144 end k_approved;
145
146 -- Start of comments
147 --
148 -- Procedure Name : k_erase_approved
149 -- Description :
150 -- Business Rules :
151 -- Parameters :
152 -- Version : 1.0
153 -- End of comments
154
155 procedure k_erase_approved(
156 p_contract_id IN number,
157 x_return_status OUT NOCOPY VARCHAR2
158 ) is
159 begin
160 OKE_CONTRACT_APPROVAL_PVT.k_erase_approved(
161 p_contract_id => p_contract_id,
162 x_return_status => x_return_status
163 );
164 end k_erase_approved;
165
166 -- Start of comments
167 --
168 -- Procedure Name : k_signed
169 -- Description :
170 -- Business Rules :
171 -- Parameters :
172 -- Version : 1.0
173 -- End of comments
174
175 procedure k_signed(
176 p_contract_id IN number,
177 p_date_signed IN date default sysdate,
178 x_return_status OUT NOCOPY VARCHAR2
179 ) is
180 begin
181 OKE_CONTRACT_APPROVAL_PVT.k_signed(
182 p_contract_id => p_contract_id,
183 p_date_signed => p_date_signed,
184 x_return_status => x_return_status
185 );
186 end k_signed;
187 end OKE_CONTRACT_APPROVAL_PUB;