71:
72: BEGIN
73:
74:
75: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
77: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
78: END IF;
79:
72: BEGIN
73:
74:
75: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
77: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
78: END IF;
79:
80: x_return_status := G_RET_STS_SUCCESS;
103: END IF;
104: END IF;
105:
106:
107: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108:
109: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
110: '1000: Variable Codes along with values:');
111:
105:
106:
107: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108:
109: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
110: '1000: Variable Codes along with values:');
111:
112: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
113: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
108:
109: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
110: '1000: Variable Codes along with values:');
111:
112: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
113: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
114: ' = ' || X_VARIABLE_VALUE_ID );
115:
116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
112: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
113: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
114: ' = ' || X_VARIABLE_VALUE_ID );
115:
116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
117: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
118: END IF;
119:
120: EXCEPTION
127: -- Add more debug statements if required. Follow the same structure for debug statements
128:
129:
130: WHEN FND_API.G_EXC_ERROR THEN
131: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
133: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
134: END IF;
135:
128:
129:
130: WHEN FND_API.G_EXC_ERROR THEN
131: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
133: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
134: END IF;
135:
136: IF l_oe_header_csr%ISOPEN THEN
146: p_count => x_msg_count,
147: p_data => x_msg_data );
148:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
152: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
153: END IF;
154:
147: p_data => x_msg_data );
148:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
152: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
153: END IF;
154:
155: IF l_oe_header_csr%ISOPEN THEN
163: x_return_status := G_RET_STS_UNEXP_ERROR ;
164: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
165:
166: WHEN OTHERS THEN
167: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
169: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
170: END IF;
171:
164: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
165:
166: WHEN OTHERS THEN
167: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
169: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
170: END IF;
171:
172: IF l_oe_header_csr%ISOPEN THEN
206: --AND TYPE_LOOKUP_CODE = P_DOC_TYPE
207:
208: BEGIN
209:
210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
212: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
213: END IF;
214:
207:
208: BEGIN
209:
210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
212: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
213: END IF;
214:
215: x_return_status := G_RET_STS_SUCCESS;
225: X_VARIABLE_VALUE_ID := l_price_update_tolerance;
226: END IF;
227:
228:
229: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
230:
231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
232: '1000: Variable Codes along with values:');
233:
227:
228:
229: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
230:
231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
232: '1000: Variable Codes along with values:');
233:
234: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
235: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
230:
231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
232: '1000: Variable Codes along with values:');
233:
234: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
235: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
236: ' = ' || X_VARIABLE_VALUE_ID );
237:
238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
234: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
235: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
236: ' = ' || X_VARIABLE_VALUE_ID );
237:
238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
239: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
240: END IF;
241:
242: EXCEPTION
241:
242: EXCEPTION
243:
244: WHEN FND_API.G_EXC_ERROR THEN
245: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
246: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
247: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
248: END IF;
249:
242: EXCEPTION
243:
244: WHEN FND_API.G_EXC_ERROR THEN
245: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
246: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
247: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
248: END IF;
249:
250: IF l_price_update_csr%ISOPEN THEN
257: p_count => x_msg_count,
258: p_data => x_msg_data );
259:
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
262: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
263: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
264: END IF;
265:
258: p_data => x_msg_data );
259:
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
262: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
263: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
264: END IF;
265:
266: IF l_price_update_csr%ISOPEN THEN
270: x_return_status := G_RET_STS_UNEXP_ERROR ;
271: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
272:
273: WHEN OTHERS THEN
274: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
276: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
277: END IF;
278:
271: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
272:
273: WHEN OTHERS THEN
274: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
276: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
277: END IF;
278:
279: IF l_price_update_csr%ISOPEN THEN
340:
341:
342: BEGIN
343:
344: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
346: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
347: END IF;
348:
341:
342: BEGIN
343:
344: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
346: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
347: END IF;
348:
349:
380: X_VARIABLE_VALUE_ID := l_tmp2_value;
381: END IF;
382:
383:
384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385:
386: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
387: '1000: Variable Codes along with values:');
388:
382:
383:
384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385:
386: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
387: '1000: Variable Codes along with values:');
388:
389: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
390: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
385:
386: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
387: '1000: Variable Codes along with values:');
388:
389: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
390: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
391: ' = ' || X_VARIABLE_VALUE_ID );
392:
393: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
389: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
390: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
391: ' = ' || X_VARIABLE_VALUE_ID );
392:
393: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
394: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
395: END IF;
396:
397: EXCEPTION
396:
397: EXCEPTION
398:
399: WHEN FND_API.G_EXC_ERROR THEN
400: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
402: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
403: END IF;
404:
397: EXCEPTION
398:
399: WHEN FND_API.G_EXC_ERROR THEN
400: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
402: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
403: END IF;
404:
405:
408: p_count => x_msg_count,
409: p_data => x_msg_data );
410:
411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
414: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
415: END IF;
416:
409: p_data => x_msg_data );
410:
411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
414: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
415: END IF;
416:
417: x_return_status := G_RET_STS_UNEXP_ERROR ;
418: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
419:
420: WHEN OTHERS THEN
421:
422: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
424: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
425: END IF;
426:
419:
420: WHEN OTHERS THEN
421:
422: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
424: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
425: END IF;
426:
427:
452: WHERE HEADER_ID = P_DOC_ID;
453:
454: BEGIN
455:
456: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
457: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
458: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
459: END IF;
460:
453:
454: BEGIN
455:
456: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
457: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
458: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
459: END IF;
460:
461: x_return_status := G_RET_STS_SUCCESS;
469: X_VARIABLE_VALUE_ID := l_ship_warehouse;
470: END IF;
471:
472:
473: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474:
475: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
476: '1000: Variable Codes along with values:');
477:
471:
472:
473: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474:
475: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
476: '1000: Variable Codes along with values:');
477:
478: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
479: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
474:
475: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
476: '1000: Variable Codes along with values:');
477:
478: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
479: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
480: ' = ' || X_VARIABLE_VALUE_ID );
481:
482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
478: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
479: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
480: ' = ' || X_VARIABLE_VALUE_ID );
481:
482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
483: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
484: END IF;
485:
486: EXCEPTION
485:
486: EXCEPTION
487:
488: WHEN FND_API.G_EXC_ERROR THEN
489: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
490: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
491: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
492: END IF;
493:
486: EXCEPTION
487:
488: WHEN FND_API.G_EXC_ERROR THEN
489: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
490: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
491: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
492: END IF;
493:
494: IF l_ship_warehouse_csr%ISOPEN THEN
501: p_count => x_msg_count,
502: p_data => x_msg_data );
503:
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
507: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
508: END IF;
509:
502: p_data => x_msg_data );
503:
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
507: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
508: END IF;
509:
510: IF l_ship_warehouse_csr%ISOPEN THEN
514: x_return_status := G_RET_STS_UNEXP_ERROR ;
515: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
516:
517: WHEN OTHERS THEN
518: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
520: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
521: END IF;
522:
515: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
516:
517: WHEN OTHERS THEN
518: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
520: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
521: END IF;
522:
523: IF l_ship_warehouse_csr%ISOPEN THEN
556: WHERE BEST_BID_NUMBER = P_DOC_ID;
557:
558: BEGIN
559:
560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
562: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
563: END IF;
564:
557:
558: BEGIN
559:
560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
562: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
563: END IF;
564:
565: x_return_status := G_RET_STS_SUCCESS;
581: X_VARIABLE_VALUE_ID := l_uom_code;
582: END IF;
583:
584:
585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
586:
587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
588: '1000: Variable Codes along with values:');
589:
583:
584:
585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
586:
587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
588: '1000: Variable Codes along with values:');
589:
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
591: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
586:
587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
588: '1000: Variable Codes along with values:');
589:
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
591: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
592: ' = ' || X_VARIABLE_VALUE_ID );
593:
594: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
591: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
592: ' = ' || X_VARIABLE_VALUE_ID );
593:
594: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
595: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
596: END IF;
597:
598: EXCEPTION
597:
598: EXCEPTION
599:
600: WHEN FND_API.G_EXC_ERROR THEN
601: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
603: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
604: END IF;
605:
598: EXCEPTION
599:
600: WHEN FND_API.G_EXC_ERROR THEN
601: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
603: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
604: END IF;
605:
606: IF l_rfq_uom_code_csr%ISOPEN THEN
617: p_count => x_msg_count,
618: p_data => x_msg_data );
619:
620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
621: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
623: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
624: END IF;
625:
618: p_data => x_msg_data );
619:
620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
621: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
623: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
624: END IF;
625:
626: IF l_rfq_uom_code_csr%ISOPEN THEN
635: x_return_status := G_RET_STS_UNEXP_ERROR ;
636: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
637:
638: WHEN OTHERS THEN
639: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
640: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
641: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
642: END IF;
643:
636: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
637:
638: WHEN OTHERS THEN
639: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
640: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
641: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
642: END IF;
643:
644: IF l_rfq_uom_code_csr%ISOPEN THEN
683: --WHERE PO_HEADER_ID = P_DOC_ID;
684:
685: BEGIN
686:
687: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
688: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
689: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
690: END IF;
691:
684:
685: BEGIN
686:
687: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
688: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
689: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
690: END IF;
691:
692: x_return_status := G_RET_STS_SUCCESS;
700: X_VARIABLE_VALUE_ID := l_uom_code;
701: END IF;
702:
703:
704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705:
706: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
707: '1000: Variable Codes along with values:');
708:
702:
703:
704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705:
706: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
707: '1000: Variable Codes along with values:');
708:
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
710: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
705:
706: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
707: '1000: Variable Codes along with values:');
708:
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
710: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
711: ' = ' || X_VARIABLE_VALUE_ID );
712:
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
710: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
711: ' = ' || X_VARIABLE_VALUE_ID );
712:
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
714: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
715: END IF;
716:
717: EXCEPTION
716:
717: EXCEPTION
718:
719: WHEN FND_API.G_EXC_ERROR THEN
720: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
722: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
723: END IF;
724:
717: EXCEPTION
718:
719: WHEN FND_API.G_EXC_ERROR THEN
720: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
722: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
723: END IF;
724:
725: IF l_uom_code_csr%ISOPEN THEN
732: p_count => x_msg_count,
733: p_data => x_msg_data );
734:
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
737: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
738: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
739: END IF;
740:
733: p_data => x_msg_data );
734:
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
737: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
738: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
739: END IF;
740:
741: IF l_uom_code_csr%ISOPEN THEN
745: x_return_status := G_RET_STS_UNEXP_ERROR ;
746: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
747:
748: WHEN OTHERS THEN
749: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
751: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
752: END IF;
753:
746: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
747:
748: WHEN OTHERS THEN
749: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
751: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
752: END IF;
753:
754: IF l_uom_code_csr%ISOPEN THEN
782: WHERE PO_HEADER_ID = P_DOC_ID;
783:
784: BEGIN
785:
786: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
787: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
788: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
789: END IF;
790:
783:
784: BEGIN
785:
786: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
787: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
788: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
789: END IF;
790:
791: x_return_status := G_RET_STS_SUCCESS;
799: X_VARIABLE_VALUE_ID := l_release_ratio;
800: END IF;
801:
802:
803: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
804:
805: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
806: '1000: Variable Codes along with values:');
807:
801:
802:
803: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
804:
805: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
806: '1000: Variable Codes along with values:');
807:
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
809: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
804:
805: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
806: '1000: Variable Codes along with values:');
807:
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
809: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
810: ' = ' || X_VARIABLE_VALUE_ID );
811:
812: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
809: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
810: ' = ' || X_VARIABLE_VALUE_ID );
811:
812: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
813: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
814: END IF;
815:
816: EXCEPTION
815:
816: EXCEPTION
817:
818: WHEN FND_API.G_EXC_ERROR THEN
819: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
820: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
821: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
822: END IF;
823:
816: EXCEPTION
817:
818: WHEN FND_API.G_EXC_ERROR THEN
819: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
820: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
821: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
822: END IF;
823:
824: IF l_release_ratio_csr%ISOPEN THEN
831: p_count => x_msg_count,
832: p_data => x_msg_data );
833:
834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
837: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
838: END IF;
839:
832: p_data => x_msg_data );
833:
834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
837: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
838: END IF;
839:
840: IF l_release_ratio_csr%ISOPEN THEN
844: x_return_status := G_RET_STS_UNEXP_ERROR ;
845: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
846:
847: WHEN OTHERS THEN
848: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
849: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
850: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
851: END IF;
852:
845: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
846:
847: WHEN OTHERS THEN
848: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
849: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
850: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
851: END IF;
852:
853: IF l_release_ratio_csr%ISOPEN THEN
883: WHERE HEADER_ID = P_DOC_ID);
884:
885: BEGIN
886:
887: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
888: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
889: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
890: END IF;
891:
884:
885: BEGIN
886:
887: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
888: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
889: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
890: END IF;
891:
892: x_return_status := G_RET_STS_SUCCESS;
900: X_VARIABLE_VALUE_ID := l_blanket_amount_range;
901: END IF;
902:
903:
904: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
905:
906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
907: '1000: Variable Codes along with values:');
908:
902:
903:
904: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
905:
906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
907: '1000: Variable Codes along with values:');
908:
909: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
910: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
905:
906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
907: '1000: Variable Codes along with values:');
908:
909: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
910: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
911: ' = ' || X_VARIABLE_VALUE_ID );
912:
913: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
909: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
910: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
911: ' = ' || X_VARIABLE_VALUE_ID );
912:
913: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
914: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
915: END IF;
916:
917: EXCEPTION
916:
917: EXCEPTION
918:
919: WHEN FND_API.G_EXC_ERROR THEN
920: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
921: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
922: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
923: END IF;
924:
917: EXCEPTION
918:
919: WHEN FND_API.G_EXC_ERROR THEN
920: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
921: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
922: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
923: END IF;
924:
925: IF l_blanket_amount_range_csr%ISOPEN THEN
932: p_count => x_msg_count,
933: p_data => x_msg_data );
934:
935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
936: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
938: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
939: END IF;
940:
933: p_data => x_msg_data );
934:
935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
936: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
938: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
939: END IF;
940:
941: IF l_blanket_amount_range_csr%ISOPEN THEN
945: x_return_status := G_RET_STS_UNEXP_ERROR ;
946: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
947:
948: WHEN OTHERS THEN
949: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
951: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
952: END IF;
953:
946: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
947:
948: WHEN OTHERS THEN
949: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
951: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
952: END IF;
953:
954: IF l_blanket_amount_range_csr%ISOPEN THEN
982: WHERE PO_HEADER_ID = P_DOC_ID;
983:
984: BEGIN
985:
986: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
987: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
988: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
989: END IF;
990:
983:
984: BEGIN
985:
986: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
987: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
988: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
989: END IF;
990:
991: x_return_status := G_RET_STS_SUCCESS;
999: X_VARIABLE_VALUE_ID := l_attribute4_val;
1000: END IF;
1001:
1002:
1003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1004:
1005: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1006: '1000: Variable Codes along with values:');
1007:
1001:
1002:
1003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1004:
1005: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1006: '1000: Variable Codes along with values:');
1007:
1008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1009: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
1004:
1005: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1006: '1000: Variable Codes along with values:');
1007:
1008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1009: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
1010: ' = ' || X_VARIABLE_VALUE_ID );
1011:
1012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1009: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
1010: ' = ' || X_VARIABLE_VALUE_ID );
1011:
1012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1013: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1014: END IF;
1015:
1016: EXCEPTION
1015:
1016: EXCEPTION
1017:
1018: WHEN FND_API.G_EXC_ERROR THEN
1019: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1021: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1022: END IF;
1023:
1016: EXCEPTION
1017:
1018: WHEN FND_API.G_EXC_ERROR THEN
1019: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1021: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1022: END IF;
1023:
1024: IF l_attribute4_val_csr%ISOPEN THEN
1031: p_count => x_msg_count,
1032: p_data => x_msg_data );
1033:
1034: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1037: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1038: END IF;
1039:
1032: p_data => x_msg_data );
1033:
1034: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1037: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1038: END IF;
1039:
1040: IF l_attribute4_val_csr%ISOPEN THEN
1044: x_return_status := G_RET_STS_UNEXP_ERROR ;
1045: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1046:
1047: WHEN OTHERS THEN
1048: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1050: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1051: END IF;
1052:
1045: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1046:
1047: WHEN OTHERS THEN
1048: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1050: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1051: END IF;
1052:
1053: IF l_attribute4_val_csr%ISOPEN THEN
1089:
1090:
1091: BEGIN
1092:
1093: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1095: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1096: END IF;
1097:
1090:
1091: BEGIN
1092:
1093: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1095: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1096: END IF;
1097:
1098: x_return_status := G_RET_STS_SUCCESS;
1110: X_VARIABLE_VALUE_ID := NULL;
1111: END IF;
1112:
1113:
1114: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1115:
1116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1117: '1000: Variable Codes along with values:');
1118:
1112:
1113:
1114: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1115:
1116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1117: '1000: Variable Codes along with values:');
1118:
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1120: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
1115:
1116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1117: '1000: Variable Codes along with values:');
1118:
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1120: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
1121: ' = ' || X_VARIABLE_VALUE_ID );
1122:
1123: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1120: 'Variable Code and Value' || ' ' || P_VARIABLE_CODE ||
1121: ' = ' || X_VARIABLE_VALUE_ID );
1122:
1123: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1124: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1125: END IF;
1126:
1127: EXCEPTION
1126:
1127: EXCEPTION
1128:
1129: WHEN FND_API.G_EXC_ERROR THEN
1130: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1131: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1132: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1133: END IF;
1134:
1127: EXCEPTION
1128:
1129: WHEN FND_API.G_EXC_ERROR THEN
1130: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1131: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1132: '1001: Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1133: END IF;
1134:
1135: IF l_attribute4_val_csr%ISOPEN THEN
1142: p_count => x_msg_count,
1143: p_data => x_msg_data );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1148: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1149: END IF;
1150:
1143: p_data => x_msg_data );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1148: '1002: Unexpected Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1149: END IF;
1150:
1151: IF l_attribute4_val_csr%ISOPEN THEN
1155: x_return_status := G_RET_STS_UNEXP_ERROR ;
1156: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1157:
1158: WHEN OTHERS THEN
1159: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1161: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1162: END IF;
1163:
1156: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1157:
1158: WHEN OTHERS THEN
1159: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1161: '1003: Other Error: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1162: END IF;
1163:
1164: IF l_attribute4_val_csr%ISOPEN THEN