[Home] [Help]
PACKAGE BODY: APPS.OKC_TEST
Source
1 package body OKC_TEST as
2 /* $Header: OKCTESTB.pls 115.7 2002/02/06 01:04:46 pkm ship $ */
3
4
5 PROCEDURE upd_comments(p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2,
7 p_old_kid IN NUMBER,
8 p_new_k_number IN VARCHAR2,
9 p_new_k_modifier IN VARCHAR2,
10 p_comments IN VARCHAR2,
11 x_msg_count OUT NUMBER,
12 x_msg_data OUT VARCHAR2,
13 x_return_status OUT VARCHAR2) IS
14 CURSOR k_cur IS
15 SELECT
16 ID
17 ,OBJECT_VERSION_NUMBER
18 ,SFWT_FLAG
19 ,CHR_ID_RESPONSE
20 ,CHR_ID_AWARD
21 -- ,CHR_ID_RENEWED obsolete
22 ,INV_ORGANIZATION_ID
23 ,STS_CODE
24 ,QCL_ID
25 ,SCS_CODE
26 ,CONTRACT_NUMBER
27 ,CURRENCY_CODE
28 ,CONTRACT_NUMBER_MODIFIER
29 ,ARCHIVED_YN
30 ,DELETED_YN
31 ,CUST_PO_NUMBER_REQ_YN
32 ,PRE_PAY_REQ_YN
33 ,CUST_PO_NUMBER
34 ,SHORT_DESCRIPTION
35 ,COMMENTS
36 ,DESCRIPTION
37 ,DPAS_RATING
38 ,COGNOMEN
39 ,TEMPLATE_YN
40 ,TEMPLATE_USED
41 ,DATE_APPROVED
42 ,DATETIME_CANCELLED
43 ,AUTO_RENEW_DAYS
44 ,DATE_ISSUED
45 ,DATETIME_RESPONDED
46 ,NON_RESPONSE_REASON
47 ,NON_RESPONSE_EXPLAIN
48 ,RFP_TYPE
49 ,CHR_TYPE
50 ,KEEP_ON_MAIL_LIST
51 ,SET_ASIDE_REASON
52 ,SET_ASIDE_PERCENT
53 ,RESPONSE_COPIES_REQ
54 ,DATE_CLOSE_PROJECTED
55 ,DATETIME_PROPOSED
56 ,DATE_SIGNED
57 ,DATE_TERMINATED
58 ,DATE_RENEWED
59 ,TRN_CODE
60 ,START_DATE
61 ,END_DATE
62 ,AUTHORING_ORG_ID
63 ,BUY_OR_SELL
64 ,ISSUE_OR_RECEIVE
65 ,ESTIMATED_AMOUNT
66 -- ,CHR_ID_RENEWED_TO -- obsolete
67 ,ESTIMATED_AMOUNT_RENEWED
68 ,CURRENCY_CODE_RENEWED
69 ,UPG_ORIG_SYSTEM_REF
70 ,UPG_ORIG_SYSTEM_REF_ID
71 ,ATTRIBUTE_CATEGORY
72 ,ATTRIBUTE1
73 ,ATTRIBUTE2
74 ,ATTRIBUTE3
75 ,ATTRIBUTE4
76 ,ATTRIBUTE5
77 ,ATTRIBUTE6
78 ,ATTRIBUTE7
79 ,ATTRIBUTE8
80 ,ATTRIBUTE9
81 ,ATTRIBUTE10
82 ,ATTRIBUTE11
83 ,ATTRIBUTE12
84 ,ATTRIBUTE13
85 ,ATTRIBUTE14
86 ,ATTRIBUTE15
87 ,CREATED_BY
88 ,CREATION_DATE
89 ,LAST_UPDATED_BY
90 ,LAST_UPDATE_DATE
91 ,LAST_UPDATE_LOGIN
92 FROM okc_k_headers_v
93 WHERE id = p_old_kid;
94 l_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
95 v_chrv_rec k_cur%ROWTYPE;
96 x_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
97 l_return_status varchar2(1) := 'S';
98 l_msg_count number;
99 l_msg_data varchar2(2000);
100 BEGIN
101 OPEN k_cur;
102 FETCH k_cur INTO v_chrv_rec;
103 v_chrv_rec.comments:=v_chrv_rec.comments||p_comments||
104 ': New Contract Number/Modifier are : '||p_new_k_number||'/'||p_new_k_modifier;
105 l_chrv_rec.ID := v_chrv_rec.ID;
106 l_chrv_rec.OBJECT_VERSION_NUMBER := v_chrv_rec.OBJECT_VERSION_NUMBER;
107 l_chrv_rec.SFWT_FLAG := v_chrv_rec.SFWT_FLAG;
108 l_chrv_rec.CHR_ID_RESPONSE := v_chrv_rec.CHR_ID_RESPONSE;
109 l_chrv_rec.CHR_ID_AWARD := v_chrv_rec.CHR_ID_AWARD;
110 -- l_chrv_rec.CHR_ID_RENEWED := v_chrv_rec.CHR_ID_RENEWED;
111 l_chrv_rec.INV_ORGANIZATION_ID := v_chrv_rec.INV_ORGANIZATION_ID;
112 l_chrv_rec.STS_CODE := v_chrv_rec.STS_CODE;
113 l_chrv_rec.CONTRACT_NUMBER := v_chrv_rec.CONTRACT_NUMBER;
114 l_chrv_rec.CURRENCY_CODE := v_chrv_rec.CURRENCY_CODE;
115 l_chrv_rec.CONTRACT_NUMBER_MODIFIER := v_chrv_rec.CONTRACT_NUMBER_MODIFIER;
116 l_chrv_rec.ARCHIVED_YN := v_chrv_rec.ARCHIVED_YN;
117 l_chrv_rec.DELETED_YN := v_chrv_rec.DELETED_YN;
118 l_chrv_rec.CUST_PO_NUMBER_REQ_YN := v_chrv_rec.CUST_PO_NUMBER_REQ_YN;
119 l_chrv_rec.PRE_PAY_REQ_YN := v_chrv_rec.PRE_PAY_REQ_YN;
120 l_chrv_rec.CUST_PO_NUMBER := v_chrv_rec.CUST_PO_NUMBER;
121 l_chrv_rec.SHORT_DESCRIPTION := v_chrv_rec.SHORT_DESCRIPTION;
122 l_chrv_rec.COMMENTS := v_chrv_rec.COMMENTS ;
123 l_chrv_rec.DESCRIPTION := v_chrv_rec.DESCRIPTION;
124 l_chrv_rec.DPAS_RATING := v_chrv_rec.DPAS_RATING;
125 l_chrv_rec.COGNOMEN := v_chrv_rec.COGNOMEN;
126 l_chrv_rec.TEMPLATE_YN := v_chrv_rec.TEMPLATE_YN;
127 l_chrv_rec.TEMPLATE_USED := v_chrv_rec.TEMPLATE_USED;
128 l_chrv_rec.DATE_APPROVED:= v_chrv_rec.DATE_APPROVED;
129 l_chrv_rec.DATETIME_CANCELLED := v_chrv_rec.DATETIME_CANCELLED;
130 l_chrv_rec.AUTO_RENEW_DAYS := v_chrv_rec.AUTO_RENEW_DAYS;
131 l_chrv_rec.DATE_ISSUED := v_chrv_rec.DATE_ISSUED;
132 l_chrv_rec.DATETIME_RESPONDED := v_chrv_rec.DATETIME_RESPONDED;
133 l_chrv_rec.NON_RESPONSE_REASON := v_chrv_rec.NON_RESPONSE_REASON;
134 l_chrv_rec.NON_RESPONSE_EXPLAIN := v_chrv_rec.NON_RESPONSE_EXPLAIN;
135 l_chrv_rec.RFP_TYPE := v_chrv_rec.RFP_TYPE;
136 l_chrv_rec.CHR_TYPE := v_chrv_rec.CHR_TYPE;
137 l_chrv_rec.KEEP_ON_MAIL_LIST := v_chrv_rec.KEEP_ON_MAIL_LIST;
138 l_chrv_rec.SET_ASIDE_REASON := v_chrv_rec.SET_ASIDE_REASON;
139 l_chrv_rec.SET_ASIDE_PERCENT := v_chrv_rec.SET_ASIDE_PERCENT;
140 l_chrv_rec.RESPONSE_COPIES_REQ := v_chrv_rec.RESPONSE_COPIES_REQ;
141 l_chrv_rec.DATE_CLOSE_PROJECTED := v_chrv_rec.DATE_CLOSE_PROJECTED;
142 l_chrv_rec.DATETIME_PROPOSED := v_chrv_rec.DATETIME_PROPOSED;
143 l_chrv_rec.DATE_SIGNED := v_chrv_rec.DATE_SIGNED;
144 l_chrv_rec.DATE_TERMINATED := v_chrv_rec.DATE_TERMINATED;
145 l_chrv_rec.DATE_RENEWED := v_chrv_rec.DATE_RENEWED;
146 l_chrv_rec.TRN_CODE := v_chrv_rec.TRN_CODE;
147 l_chrv_rec.START_DATE := v_chrv_rec.START_DATE;
148 l_chrv_rec.END_DATE := v_chrv_rec.END_DATE;
149 l_chrv_rec.AUTHORING_ORG_ID := v_chrv_rec.AUTHORING_ORG_ID;
150 l_chrv_rec.BUY_OR_SELL := v_chrv_rec.BUY_OR_SELL;
151 l_chrv_rec.ISSUE_OR_RECEIVE := v_chrv_rec.ISSUE_OR_RECEIVE;
152 l_chrv_rec.ESTIMATED_AMOUNT := v_chrv_rec.ESTIMATED_AMOUNT;
153 -- l_chrv_rec.CHR_ID_RENEWED_TO := v_chrv_rec.CHR_ID_RENEWED_TO;
154 l_chrv_rec.ESTIMATED_AMOUNT_RENEWED := v_chrv_rec.ESTIMATED_AMOUNT_RENEWED;
155 l_chrv_rec.CURRENCY_CODE_RENEWED := v_chrv_rec.CURRENCY_CODE_RENEWED;
156 l_chrv_rec.UPG_ORIG_SYSTEM_REF := v_chrv_rec.UPG_ORIG_SYSTEM_REF;
157 l_chrv_rec.UPG_ORIG_SYSTEM_REF_ID := v_chrv_rec.UPG_ORIG_SYSTEM_REF_ID;
158 l_chrv_rec.ATTRIBUTE_CATEGORY := v_chrv_rec.ATTRIBUTE_CATEGORY;
159 l_chrv_rec.ATTRIBUTE1 := v_chrv_rec.ATTRIBUTE1;
160 l_chrv_rec.ATTRIBUTE2 := v_chrv_rec.ATTRIBUTE2;
161 l_chrv_rec.ATTRIBUTE3 := v_chrv_rec.ATTRIBUTE3;
162 l_chrv_rec.ATTRIBUTE4 := v_chrv_rec.ATTRIBUTE4;
163 l_chrv_rec.ATTRIBUTE5 := v_chrv_rec.ATTRIBUTE5;
164 l_chrv_rec.ATTRIBUTE6 := v_chrv_rec.ATTRIBUTE6;
165 l_chrv_rec.ATTRIBUTE7 := v_chrv_rec.ATTRIBUTE7;
166 l_chrv_rec.ATTRIBUTE8 := v_chrv_rec.ATTRIBUTE8;
167 l_chrv_rec.ATTRIBUTE9 := v_chrv_rec.ATTRIBUTE9;
168 l_chrv_rec.ATTRIBUTE10 := v_chrv_rec.ATTRIBUTE10;
169 l_chrv_rec.ATTRIBUTE11 := v_chrv_rec.ATTRIBUTE11;
170 l_chrv_rec.ATTRIBUTE12 := v_chrv_rec.ATTRIBUTE12;
171 l_chrv_rec.ATTRIBUTE13 := v_chrv_rec.ATTRIBUTE13;
172 l_chrv_rec.ATTRIBUTE14 := v_chrv_rec.ATTRIBUTE14;
173 l_chrv_rec.ATTRIBUTE15 := v_chrv_rec.ATTRIBUTE15;
174 l_chrv_rec.CREATED_BY := v_chrv_rec.CREATED_BY;
175 l_chrv_rec.CREATION_DATE := v_chrv_rec.CREATION_DATE;
176 l_chrv_rec.LAST_UPDATED_BY := v_chrv_rec.LAST_UPDATED_BY;
177 l_chrv_rec.LAST_UPDATE_DATE := v_chrv_rec.LAST_UPDATE_DATE;
178 l_chrv_rec.LAST_UPDATE_LOGIN := v_chrv_rec.LAST_UPDATE_LOGIN;
179
180 OKC_CONTRACT_PUB.update_contract_header(
181 p_api_version => 1
182 ,p_init_msg_list => OKC_API.G_FALSE
183 ,x_return_status => l_return_status
184 ,x_msg_count => l_msg_count
185 ,x_msg_data => l_msg_data
186 ,p_restricted_update => OKC_API.G_FALSE
187 ,p_chrv_rec => l_chrv_rec
188 ,x_chrv_rec => x_chrv_rec);
189 CLOSE k_cur;
190 OKC_API.set_message(p_app_name => 'OKC',
191 p_msg_name => 'OKC_OC_SUCCESS',
192 p_token1 => 'PROCESS',
193 p_token1_value => 'OKC_TEST.UPD_COMMENTS');
194 x_return_status := 'S';
195
196 EXCEPTION
197 when others then
198 OKC_API.SET_MESSAGE(p_app_name => 'OKC',
199 p_msg_name => 'OKC_OC_FAILED',
200 p_token1 => 'PROCESS',
201 p_token1_value => 'OKC_TEST.UPD_COMMENTS',
202 p_token2 => 'MESSAGE1',
203 p_token2_value => 'Error Stack is :',
204 p_token3 => 'MESSAGE2',
205 p_token3_value => l_msg_data);
206 x_return_status := l_return_status;
207 END upd_comments;
208
209 FUNCTION party_exists(p_kid IN NUMBER,
210 p_party_name IN VARCHAR2,
211 p_role IN VARCHAR2)
212 RETURN VARCHAR2 IS
213
214 CURSOR party_cur IS
215 select 'X'
216 from okc_k_party_roles_v role,
217 okx_parties_v party
218 where role.object1_id1 = party.id1
219 and role.object1_id2 = party.id2
220 and role.jtot_object1_code in ('OKX_PARTY','OKX_OPERUNIT')
221 and upper(role.rle_code) = upper(p_role)
222 and role.chr_id = p_kid
223 and party.name = p_party_name;
224 party_rec party_cur%ROWTYPE;
225
226 BEGIN
227 OPEN party_cur;
228 FETCH party_cur INTO party_rec;
229 IF party_cur%FOUND THEN
230 RETURN('T');
231 ELSE
232 RETURN('F');
233 END IF;
234 CLOSE party_cur;
235 EXCEPTION
236 WHEN others THEN
237 RETURN('F');
238 END party_exists;
239
240 PROCEDURE proc1(p_val_1 IN VARCHAR2,
241 p_val_2 IN NUMBER,
242 p_val_3 IN date default null,
243 p_api_version IN NUMBER DEFAULT 1.0,
244 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE,
245 x_return_status OUT NOCOPY VARCHAR2,
246 x_msg_count OUT NOCOPY NUMBER,
247 x_msg_data OUT NOCOPY VARCHAR2) IS
248
249 var1 VARCHAR2(100);
250 var2 varchar2(20);
251 l_process_name varchar2(200) := 'TEST_PLSQL.PROC1';
252 BEGIN
253 x_msg_data := 'geeeeeeeeeeeee';
254 x_return_status := 'E';
255 OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
256 p_msg_name => 'OKC_OC_FAILED',
257 p_token1 => 'PROCESS',
258 p_token1_value => 'TEST_PLSQL.PROC1',
259 p_token2 => 'MESSAGE1',
260 p_token2_value => 'Error Stack is :',
261 p_token3 => 'MESSAGE2',
262 p_token3_value => 'geeeeeeeeeee');
263 return;
264
265 /* var1 := p_val_1 ||','|| p_val_2||','||p_val_3;
266 var2 := to_char(p_val_3,'DD-MON-YY');
267 OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
268 p_msg_name => 'OKC_OC_SUCCESS',
269 p_token1 => 'PROCESS',
270 p_token1_value => l_process_name);
271 x_return_status := 'S'; */
272 EXCEPTION
273 when others then
274 OKC_API.SET_MESSAGE(p_app_name => g_app_name,
275 p_msg_name => g_unexpected_error,
276 p_token1 => g_sqlcode_token,
277 p_token1_value => sqlcode,
278 p_token2 => g_sqlerrm_token,
279 p_token2_value => sqlerrm);
280
281
282 x_return_status := 'E';
283 END proc1;
284
285 FUNCTION func1 RETURN VARCHAR2 IS
286 BEGIN
287 RETURN('T');
288 END func1;
289
290
291 END OKC_TEST;