eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKC_PO_QA_PVT dependencies on OKC_API

Line 67: OKC_API.set_message(

63: l_token4_value := l_line;
64: End If;
65: End If;
66:
67: OKC_API.set_message(
68: p_app_name => G_APP_NAME,
69: p_msg_name => p_msg_name,
70: p_token1 => p_token1,
71: p_token1_value => l_token1_value,

Line 102: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

98: x_return_status OUT NOCOPY VARCHAR2,
99: p_chr_id IN NUMBER
100: ) IS
101:
102: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
103: l_dummy VARCHAR2(1) := '?';
104: l_count NUMBER := 0;
105: l_row_notfound BOOLEAN;
106: l_token VARCHAR2(2000);

Line 160: x_return_status := OKC_API.G_RET_STS_SUCCESS;

156: okc_debug.Log('10: Entering ',2);
157: END IF;
158:
159: -- initialize return status
160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
161:
162:
163:
164:

Line 173: OKC_API.set_message(

169: FROM OKC_K_HEADERS_b okhb
170: WHERE okhb.id = p_chr_id;
171:
172: IF (lcontract_intent <> 'B') THEN
173: OKC_API.set_message(
174: p_app_name => G_APP_NAME,
175: p_msg_name => 'OKC_QA_INTENT_BUY',
176: p_token1 => 'CONTRACT_INTENT',
177: p_token1_value => 'BUY');

Line 179: x_return_status := OKC_API.G_RET_STS_ERROR;

175: p_msg_name => 'OKC_QA_INTENT_BUY',
176: p_token1 => 'CONTRACT_INTENT',
177: p_token1_value => 'BUY');
178:
179: x_return_status := OKC_API.G_RET_STS_ERROR;
180: END IF;
181: /*********CONTRACT SHOULD HAVE ATLEAST ONE LINE***************/
182: BEGIN
183:

Line 184: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

180: END IF;
181: /*********CONTRACT SHOULD HAVE ATLEAST ONE LINE***************/
182: BEGIN
183:
184: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
185:
186: SELECT 1 /*+ FIRST_ROWS */
187: INTO l_nlines
188: FROM OKC_K_LINES_B oklb

Line 196: OKC_API.set_message(

192: END IF;
193:
194: EXCEPTION
195: WHEN NO_DATA_FOUND THEN
196: OKC_API.set_message(
197: p_app_name => G_APP_NAME,
198: p_msg_name => 'OKC_QA_K_LINES');
199:
200: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 200: x_return_status := OKC_API.G_RET_STS_ERROR;

196: OKC_API.set_message(
197: p_app_name => G_APP_NAME,
198: p_msg_name => 'OKC_QA_K_LINES');
199:
200: x_return_status := OKC_API.G_RET_STS_ERROR;
201: NULL;
202:
203: END;
204:

Line 208: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

204:
205: /*********ARE ALL THE TOP LINES HAVING PRICED HAS ITEM_TO_PRICE FLAG CHECKED***************/
206:
207: -- fetch the contract header information
208: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
209: OPEN l_oklb_csr;
210: LOOP
211: FETCH l_oklb_csr INTO l_oklb_rec;
212: EXIT WHEN l_oklb_csr%NOTFOUND;

Line 216: OKC_API.set_message(

212: EXIT WHEN l_oklb_csr%NOTFOUND;
213:
214: -- check required data for contract header
215: IF (l_oklb_rec.item_priced = 'N') THEN
216: OKC_API.set_message(
217: p_app_name => G_APP_NAME,
218: p_msg_name => 'OKC_QA_ITEM_PRICED');
219:
220: -- notify caller of an error

Line 221: x_return_status := OKC_API.G_RET_STS_ERROR;

217: p_app_name => G_APP_NAME,
218: p_msg_name => 'OKC_QA_ITEM_PRICED');
219:
220: -- notify caller of an error
221: x_return_status := OKC_API.G_RET_STS_ERROR;
222: END IF;
223:
224: IF (l_oklb_rec.priced = 'N') THEN
225: OKC_API.set_message(

Line 225: OKC_API.set_message(

221: x_return_status := OKC_API.G_RET_STS_ERROR;
222: END IF;
223:
224: IF (l_oklb_rec.priced = 'N') THEN
225: OKC_API.set_message(
226: p_app_name => G_APP_NAME,
227: p_msg_name => 'OKC_QA_PRICED_CHECK');
228:
229: -- notify caller of an error

Line 230: x_return_status := OKC_API.G_RET_STS_ERROR;

226: p_app_name => G_APP_NAME,
227: p_msg_name => 'OKC_QA_PRICED_CHECK');
228:
229: -- notify caller of an error
230: x_return_status := OKC_API.G_RET_STS_ERROR;
231: END IF;
232:
233: IF (l_oklb_rec.net_price < 0 OR l_oklb_rec.net_price IS NULL) THEN
234: OKC_API.set_message(

Line 234: OKC_API.set_message(

230: x_return_status := OKC_API.G_RET_STS_ERROR;
231: END IF;
232:
233: IF (l_oklb_rec.net_price < 0 OR l_oklb_rec.net_price IS NULL) THEN
234: OKC_API.set_message(
235: p_app_name => G_APP_NAME,
236: p_msg_name => 'OKC_QA_NETPRICE_CHECK');
237: -- notify caller of an error
238: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 238: x_return_status := OKC_API.G_RET_STS_ERROR;

234: OKC_API.set_message(
235: p_app_name => G_APP_NAME,
236: p_msg_name => 'OKC_QA_NETPRICE_CHECK');
237: -- notify caller of an error
238: x_return_status := OKC_API.G_RET_STS_ERROR;
239: END IF;
240: END LOOP;
241: CLOSE l_oklb_csr;
242: END IF;

Line 248: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

244: /*********DO ALL THE TOP LINES HAVE qty>0, valid UOM CODE, valid net price***************/
245: -- Check that at least 2 different parties have been attached
246: -- to the contract header.
247: -- get party count
248: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
249: OPEN l_oki_csr;
250: LOOP
251: FETCH l_oki_csr INTO l_oki_rec;
252: EXIT WHEN l_oki_csr%NOTFOUND;

Line 256: OKC_API.set_message(

252: EXIT WHEN l_oki_csr%NOTFOUND;
253:
254:
255: IF (l_oki_rec.qty <= 0 OR l_oki_rec.qty IS NULL) THEN
256: OKC_API.set_message(
257: p_app_name => G_APP_NAME,
258: p_msg_name => 'OKC_QA_QTY_CHECK');
259: -- notify caller of an error
260: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 260: x_return_status := OKC_API.G_RET_STS_ERROR;

256: OKC_API.set_message(
257: p_app_name => G_APP_NAME,
258: p_msg_name => 'OKC_QA_QTY_CHECK');
259: -- notify caller of an error
260: x_return_status := OKC_API.G_RET_STS_ERROR;
261: END IF;
262: IF (l_oki_rec.UOM_CODE IS NULL) THEN
263: OKC_API.set_message(
264: p_app_name => G_APP_NAME,

Line 263: OKC_API.set_message(

259: -- notify caller of an error
260: x_return_status := OKC_API.G_RET_STS_ERROR;
261: END IF;
262: IF (l_oki_rec.UOM_CODE IS NULL) THEN
263: OKC_API.set_message(
264: p_app_name => G_APP_NAME,
265: p_msg_name => 'OKC_QA_UOMCODE_CHECK');
266: -- notify caller of an error
267: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 267: x_return_status := OKC_API.G_RET_STS_ERROR;

263: OKC_API.set_message(
264: p_app_name => G_APP_NAME,
265: p_msg_name => 'OKC_QA_UOMCODE_CHECK');
266: -- notify caller of an error
267: x_return_status := OKC_API.G_RET_STS_ERROR;
268: END IF;
269: END LOOP;
270: CLOSE l_oki_csr;
271: END IF;

Line 275: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

271: END IF;
272: /*******Do the follwong rulegroups exist on the contract header---SHIPPING, PAYMENT***************/
273:
274: BEGIN
275: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
276: SELECT 1 /*+ FIRST_ROWS */
277: INTO lshipping_gr_count
278: FROM okc_rule_groups_b rgp
279: WHERE rgp.dnz_chr_id = p_chr_id

Line 288: OKC_API.set_message(

284: END IF;
285:
286: EXCEPTION
287: WHEN NO_DATA_FOUND THEN
288: OKC_API.set_message(
289: p_app_name => G_APP_NAME,
290: p_msg_name => 'OKC_QA_RG_SHIPPING',
291: p_token1 => 'RULE_GROUP',
292: p_token1_value => 'SHIPPING');

Line 294: x_return_status := OKC_API.G_RET_STS_ERROR;

290: p_msg_name => 'OKC_QA_RG_SHIPPING',
291: p_token1 => 'RULE_GROUP',
292: p_token1_value => 'SHIPPING');
293: -- notify caller of an error
294: x_return_status := OKC_API.G_RET_STS_ERROR;
295: NULL;
296: END;
297:
298: BEGIN

Line 299: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

295: NULL;
296: END;
297:
298: BEGIN
299: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
300: SELECT '1' /*+ FIRST_ROWS */
301: INTO lpayment_gr_count
302: FROM okc_rule_groups_b rgp
303: WHERE rgp.dnz_chr_id = p_chr_id

Line 313: OKC_API.set_message(

309:
310: END IF;
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
313: OKC_API.set_message(
314: p_app_name => G_APP_NAME,
315: p_msg_name => 'OKC_QA_RG_PAYMENT',
316: p_token1 => 'RULE_GROUP',
317: p_token1_value => 'PAYMENT');

Line 319: x_return_status := OKC_API.G_RET_STS_ERROR;

315: p_msg_name => 'OKC_QA_RG_PAYMENT',
316: p_token1 => 'RULE_GROUP',
317: p_token1_value => 'PAYMENT');
318: -- notify caller of an error
319: x_return_status := OKC_API.G_RET_STS_ERROR;
320: NULL;
321: END;
322:
323:

Line 326: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

322:
323:
324: /******Is there one and only one value for each partyrole - VENDOR/CUSTOMER***********/
325:
326: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
327: SELECT count(*)
328: INTO lno_of_vendors
329: FROM okc_k_party_roles_b cpr
330: WHERE cpr.rle_code = 'VENDOR'

Line 335: OKC_API.set_message(

331: AND cpr.cle_id IS NULL -- header level vendors only
332: AND cpr.dnz_chr_id = p_chr_id;
333:
334: IF (lno_of_vendors <> 1) THEN
335: OKC_API.set_message(
336: p_app_name => G_APP_NAME,
337: p_msg_name => 'OKC_QA_VENDOR_ROLE',
338: p_token1 => 'PARTY_ROLE',
339: p_token1_value => 'VENDOR');

Line 342: x_return_status := OKC_API.G_RET_STS_ERROR;

338: p_token1 => 'PARTY_ROLE',
339: p_token1_value => 'VENDOR');
340:
341: -- notify caller of an error
342: x_return_status := OKC_API.G_RET_STS_ERROR;
343: END IF;
344:
345:
346: SELECT count(*)

Line 354: OKC_API.set_message(

350: AND cpr.cle_id IS NULL -- header level customers only
351: AND cpr.dnz_chr_id = p_chr_id;
352:
353: IF (lno_of_customers <> 1) THEN
354: OKC_API.set_message(
355: p_app_name => G_APP_NAME,
356: p_msg_name => 'OKC_QA_CUSTOMER_ROLE',
357: p_token1 => 'PARTY_ROLE',
358: p_token1_value => 'CUSTOMER');

Line 361: x_return_status := OKC_API.G_RET_STS_ERROR;

357: p_token1 => 'PARTY_ROLE',
358: p_token1_value => 'CUSTOMER');
359:
360: -- notify caller of an error
361: x_return_status := OKC_API.G_RET_STS_ERROR;
362: END IF;
363: END IF;
364:
365: /************DOES THE PARTY ROLE CUSTOMER HAS A CONTACT CALLED BUYER**************************/

Line 367: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN

363: END IF;
364:
365: /************DOES THE PARTY ROLE CUSTOMER HAS A CONTACT CALLED BUYER**************************/
366: BEGIN
367: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
368: SELECT 1 /*+ FIRST_ROWS */
369: INTO lbuyer_contact
370: FROM okc_contacts okcc,
371: okc_k_party_roles_b okpr

Line 381: OKC_API.set_message(

377:
378: END IF;
379: EXCEPTION
380: WHEN NO_DATA_FOUND THEN
381: OKC_API.set_message(
382: p_app_name => G_APP_NAME,
383: p_msg_name => 'OKC_QA_BUYER_CHECK',
384: p_token1 => 'CONTACT_NAME',
385: p_token1_value => 'BUYER' ,

Line 389: x_return_status := OKC_API.G_RET_STS_ERROR;

385: p_token1_value => 'BUYER' ,
386: p_token2 => 'PARTY_ROLE',
387: p_token2_value => 'CUSTOMER');
388: -- notify caller of an error
389: x_return_status := OKC_API.G_RET_STS_ERROR;
390: NULL;
391: END;
392:
393: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

Line 393: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

389: x_return_status := OKC_API.G_RET_STS_ERROR;
390: NULL;
391: END;
392:
393: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
394: OKC_API.set_message(
395: p_app_name => G_APP_NAME,
396: p_msg_name => G_QA_SUCCESS);
397: END IF;

Line 394: OKC_API.set_message(

390: NULL;
391: END;
392:
393: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
394: OKC_API.set_message(
395: p_app_name => G_APP_NAME,
396: p_msg_name => G_QA_SUCCESS);
397: END IF;
398:

Line 419: OKC_API.SET_MESSAGE(

415: okc_debug.Log('3000: Leaving ',2);
416: okc_debug.Reset_Indentation;
417: END IF;
418: -- store SQL error message on message stack
419: OKC_API.SET_MESSAGE(
420: p_app_name => G_APP_NAME,
421: p_msg_name => G_UNEXPECTED_ERROR,
422: p_token1 => G_SQLCODE_TOKEN,
423: p_token1_value => SQLCODE,

Line 427: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

423: p_token1_value => SQLCODE,
424: p_token2 => G_SQLERRM_TOKEN,
425: p_token2_value => SQLERRM);
426: -- notify caller of an error as UNEXPETED error
427: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
428: -- verify that cursor was closed
429: IF l_oki_csr%ISOPEN THEN
430: CLOSE l_oki_csr;
431: END IF;