[Home] [Help]
37: AND CLM_INFO_FLAG <> 'Y';
38:
39: BEGIN
40: d_progress := 10;
41: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORDER_AMT_WITHIN_MAX_MIN with parameters' , d_progress);
42: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
43: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
44:
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
38:
39: BEGIN
40: d_progress := 10;
41: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORDER_AMT_WITHIN_MAX_MIN with parameters' , d_progress);
42: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
43: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
44:
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: BEGIN
39: BEGIN
40: d_progress := 10;
41: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORDER_AMT_WITHIN_MAX_MIN with parameters' , d_progress);
42: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
43: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
44:
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: BEGIN
47: d_progress := 20;
50: FROM po_headers_gt
51: WHERE PO_HEADER_ID = p_document_id;
52:
53: d_progress := 30;
54: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
55: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
56: EXCEPTION
57: WHEN OTHERS THEN
58: d_progress := 40;
51: WHERE PO_HEADER_ID = p_document_id;
52:
53: d_progress := 30;
54: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
55: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
56: EXCEPTION
57: WHEN OTHERS THEN
58: d_progress := 40;
59: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID' , d_progress);
55: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
56: EXCEPTION
57: WHEN OTHERS THEN
58: d_progress := 40;
59: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID' , d_progress);
60: RAISE;
61: END;
62:
63: d_progress := 50;
67: AND c_get_po_lines_rec.IDV_LINE_ID IS NOT NULL
68: THEN
69: d_progress := 60;
70: BEGIN
71: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID :' || c_get_po_lines_rec.IDV_HEADER_ID , d_progress);
72: PO_UDA_DEFAULTING_PKG.DEBUG('PO_LINE_ID :' || c_get_po_lines_rec.IDV_LINE_ID , d_progress);
73: d_progress := 70;
74:
75: l_total_amt_ordered := getAmountOrderedForIDV
68: THEN
69: d_progress := 60;
70: BEGIN
71: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID :' || c_get_po_lines_rec.IDV_HEADER_ID , d_progress);
72: PO_UDA_DEFAULTING_PKG.DEBUG('PO_LINE_ID :' || c_get_po_lines_rec.IDV_LINE_ID , d_progress);
73: d_progress := 70;
74:
75: l_total_amt_ordered := getAmountOrderedForIDV
76: (
89: AND PO_LINE_ID = c_get_po_lines_rec.IDV_LINE_ID;
90:
91: d_progress := 80;
92:
93: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
94: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_amt :' || l_idv_min_ord_amt , d_progress);
95: EXCEPTION
96: WHEN OTHERS THEN
97: d_progress := 90;
90:
91: d_progress := 80;
92:
93: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
94: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_amt :' || l_idv_min_ord_amt , d_progress);
95: EXCEPTION
96: WHEN OTHERS THEN
97: d_progress := 90;
98: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_ORDER_AMOUNT, CLM_MIN_ORDER_AMOUNT' , d_progress);
94: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_amt :' || l_idv_min_ord_amt , d_progress);
95: EXCEPTION
96: WHEN OTHERS THEN
97: d_progress := 90;
98: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_ORDER_AMOUNT, CLM_MIN_ORDER_AMOUNT' , d_progress);
99: RAISE;
100: END;
101:
102: d_progress := 100;
101:
102: d_progress := 100;
103: IF l_total_amt_ordered BETWEEN l_idv_min_ord_amt AND l_idv_max_ord_amt THEN
104: d_progress := 110;
105: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORDER_AMT_WITHIN_MAX_MIN' , d_progress);
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107: ELSE
108: d_progress := 120;
109: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORDER_AMT_WITHIN_MAX_MIN' , d_progress);
105: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORDER_AMT_WITHIN_MAX_MIN' , d_progress);
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107: ELSE
108: d_progress := 120;
109: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORDER_AMT_WITHIN_MAX_MIN' , d_progress);
110:
111: x_return_status := FND_API.G_RET_STS_ERROR;
112:
113: LOG_ERR_CLM_NMD_COLS_SUB_CHK
124: END IF;
125: END LOOP;
126: ELSE
127: d_progress := 130;
128: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
130: x_msg_data := 'Not a Standard PO';
131: END IF;
132: EXCEPTION
130: x_msg_data := 'Not a Standard PO';
131: END IF;
132: EXCEPTION
133: WHEN OTHERS THEN
134: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_ORDER_AMT_WITHIN_MAX_MIN' , d_progress);
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: END CLM_ORDER_AMT_WITHIN_MAX_MIN;
137:
138: /* The below procedure checks
171: WHERE PO_HEADER_ID = p_document_id;
172:
173: BEGIN
174: d_progress := 10;
175: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_MAX_ORD_AMT_WITIN_SUM_AMT with parameters' , d_progress);
176: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
177: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
178:
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
172:
173: BEGIN
174: d_progress := 10;
175: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_MAX_ORD_AMT_WITIN_SUM_AMT with parameters' , d_progress);
176: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
177: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
178:
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180: BEGIN
173: BEGIN
174: d_progress := 10;
175: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_MAX_ORD_AMT_WITIN_SUM_AMT with parameters' , d_progress);
176: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
177: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
178:
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180: BEGIN
181: d_progress := 20;
184: FROM po_headers_gt
185: WHERE PO_HEADER_ID = p_document_id;
186:
187: d_progress := 30;
188: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
189: EXCEPTION
190: WHEN OTHERS THEN
191: d_progress := 40;
192: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
188: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
189: EXCEPTION
190: WHEN OTHERS THEN
191: d_progress := 40;
192: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
193: RAISE;
194: END;
195:
196: d_progress := 50;
202: FROM po_headers_gt
203: WHERE PO_HEADER_ID = p_document_id;
204:
205: d_progress := 70;
206: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
207: PO_UDA_DEFAULTING_PKG.DEBUG('l_amt_limit :' || l_amt_limit , d_progress);
208: EXCEPTION
209: WHEN OTHERS THEN
210: d_progress := 80;
203: WHERE PO_HEADER_ID = p_document_id;
204:
205: d_progress := 70;
206: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
207: PO_UDA_DEFAULTING_PKG.DEBUG('l_amt_limit :' || l_amt_limit , d_progress);
208: EXCEPTION
209: WHEN OTHERS THEN
210: d_progress := 80;
211: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_ORDER_AMOUNT, AMOUNT_LIMIT' , d_progress);
207: PO_UDA_DEFAULTING_PKG.DEBUG('l_amt_limit :' || l_amt_limit , d_progress);
208: EXCEPTION
209: WHEN OTHERS THEN
210: d_progress := 80;
211: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_ORDER_AMOUNT, AMOUNT_LIMIT' , d_progress);
212: RAISE;
213: END;
214:
215: d_progress := 90;
226: l_total_amt_ordered := l_total_amt_ordered + l_total_line_amt_ordered;
227:
228: END LOOP;
229: d_progress := 100;
230: PO_UDA_DEFAULTING_PKG.DEBUG('l_total_amt_ordered :' || l_total_amt_ordered , d_progress);
231: EXCEPTION
232: WHEN OTHERS THEN
233: d_progress := 110;
234: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch AMOUNT' , d_progress);
230: PO_UDA_DEFAULTING_PKG.DEBUG('l_total_amt_ordered :' || l_total_amt_ordered , d_progress);
231: EXCEPTION
232: WHEN OTHERS THEN
233: d_progress := 110;
234: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch AMOUNT' , d_progress);
235: RAISE;
236: END;
237:
238: d_progress := 120;
243: OR l_idv_max_ord_amt IS NULL
244: OR l_total_amt_ordered IS NULL)
245: THEN
246: d_progress := 130;
247: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_MAX_ORD_AMT_WITIN_SUM_AMT' , d_progress);
248: x_return_status := FND_API.G_RET_STS_SUCCESS;
249: ELSE
250: d_progress := 140;
251: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_MAX_ORD_AMT_WITIN_SUM_AMT' , d_progress);
247: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_MAX_ORD_AMT_WITIN_SUM_AMT' , d_progress);
248: x_return_status := FND_API.G_RET_STS_SUCCESS;
249: ELSE
250: d_progress := 140;
251: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_MAX_ORD_AMT_WITIN_SUM_AMT' , d_progress);
252: x_return_status := FND_API.G_RET_STS_ERROR;
253:
254: LOG_ERR_CLM_NMD_COLS_SUB_CHK
255: (
263: END IF;
264: d_progress := 150;
265: ELSE
266: d_progress := 160;
267: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269: x_msg_data := 'Not a Agreement';
270: END IF;
271: d_progress := 170;
270: END IF;
271: d_progress := 170;
272: EXCEPTION
273: WHEN OTHERS THEN
274: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_MAX_ORD_AMT_WITIN_SUM_AMT' , d_progress);
275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276: END CLM_MAX_ORD_AMT_WITIN_SUM_AMT;
277:
278: /* The below procedure checks
310:
311:
312: BEGIN
313: d_progress := 10;
314: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_WITIN_ST_END_DT with parameters' , d_progress);
315: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
316: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
317:
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
311:
312: BEGIN
313: d_progress := 10;
314: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_WITIN_ST_END_DT with parameters' , d_progress);
315: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
316: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
317:
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319: BEGIN
312: BEGIN
313: d_progress := 10;
314: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_WITIN_ST_END_DT with parameters' , d_progress);
315: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
316: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
317:
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319: BEGIN
320: d_progress := 20;
323: FROM po_headers_gt
324: WHERE PO_HEADER_ID = p_document_id;
325:
326: d_progress := 30;
327: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
328: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
329: EXCEPTION
330: WHEN OTHERS THEN
331: d_progress := 40;
324: WHERE PO_HEADER_ID = p_document_id;
325:
326: d_progress := 30;
327: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
328: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
329: EXCEPTION
330: WHEN OTHERS THEN
331: d_progress := 40;
332: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID' , d_progress);
328: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
329: EXCEPTION
330: WHEN OTHERS THEN
331: d_progress := 40;
332: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID' , d_progress);
333: RAISE;
334: END;
335:
336: d_progress := 50;
339: IF c_get_po_lines_rec.FROM_LINE_ID IS NOT NULL THEN
340:
341: d_progress := 60;
342: BEGIN
343: PO_UDA_DEFAULTING_PKG.DEBUG('FROM_LINE_ID :' || c_get_po_lines_rec.FROM_LINE_ID , d_progress);
344: SELECT CLM_ORDER_START_DATE,
345: CLM_ORDER_END_DATE
346: INTO l_ord_st_dt,
347: l_ord_end_dt
353: FROM po_headers_gt
354: WHERE PO_HEADER_ID = p_document_id;
355:
356: d_progress := 70;
357: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_st_dt :' || l_ord_st_dt , d_progress);
358: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_end_dt :' || l_ord_end_dt , d_progress);
359: EXCEPTION
360: WHEN OTHERS THEN
361: d_progress := 80;
354: WHERE PO_HEADER_ID = p_document_id;
355:
356: d_progress := 70;
357: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_st_dt :' || l_ord_st_dt , d_progress);
358: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_end_dt :' || l_ord_end_dt , d_progress);
359: EXCEPTION
360: WHEN OTHERS THEN
361: d_progress := 80;
362: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_ORDER_START_DATE, CLM_ORDER_END_DATE' , d_progress);
358: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_end_dt :' || l_ord_end_dt , d_progress);
359: EXCEPTION
360: WHEN OTHERS THEN
361: d_progress := 80;
362: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_ORDER_START_DATE, CLM_ORDER_END_DATE' , d_progress);
363: RAISE;
364: END;
365:
366: d_progress := 90;
365:
366: d_progress := 90;
367: IF l_ord_st_dt IS NULL OR l_ord_end_dt IS NULL THEN
368: d_progress := 95;
369: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
370: x_return_status := FND_API.G_RET_STS_SUCCESS;
371: ELSIF l_effective_date IS NULL THEN
372: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
373: x_return_status := FND_API.G_RET_STS_ERROR;
368: d_progress := 95;
369: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
370: x_return_status := FND_API.G_RET_STS_SUCCESS;
371: ELSIF l_effective_date IS NULL THEN
372: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
373: x_return_status := FND_API.G_RET_STS_ERROR;
374:
375: LOG_ERR_CLM_NMD_COLS_SUB_CHK
376: (
383: );
384:
385: ELSIF l_effective_date BETWEEN l_ord_st_dt AND l_ord_end_dt THEN
386: d_progress := 100;
387: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
388: x_return_status := FND_API.G_RET_STS_SUCCESS;
389: ELSE
390: d_progress := 110;
391: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
387: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
388: x_return_status := FND_API.G_RET_STS_SUCCESS;
389: ELSE
390: d_progress := 110;
391: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
392: x_return_status := FND_API.G_RET_STS_ERROR;
393:
394: LOG_ERR_CLM_NMD_COLS_SUB_CHK
395: (
406: END LOOP;
407: d_progress := 130;
408: ELSE
409: d_progress := 140;
410: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412: x_msg_data := 'Not a Standard PO';
413: END IF;
414: d_progress := 150;
413: END IF;
414: d_progress := 150;
415: EXCEPTION
416: WHEN OTHERS THEN
417: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_ORD_DT_WITIN_ST_END_DT' , d_progress);
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: END CLM_ORD_DT_WITIN_ST_END_DT;
420:
421: /* The below procedure checks
451: WHERE PO_HEADER_ID = p_document_id;
452:
453: BEGIN
454: d_progress := 10;
455: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_LINE_WITIN_DT_HEAD with parameters' , d_progress);
456: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
457: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
458:
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
452:
453: BEGIN
454: d_progress := 10;
455: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_LINE_WITIN_DT_HEAD with parameters' , d_progress);
456: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
457: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
458:
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
460: BEGIN
453: BEGIN
454: d_progress := 10;
455: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_LINE_WITIN_DT_HEAD with parameters' , d_progress);
456: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
457: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
458:
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
460: BEGIN
461: d_progress := 20;
464: FROM po_headers_gt
465: WHERE PO_HEADER_ID = p_document_id;
466:
467: d_progress := 30;
468: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
469: EXCEPTION
470: WHEN OTHERS THEN
471: d_progress := 40;
472: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
468: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
469: EXCEPTION
470: WHEN OTHERS THEN
471: d_progress := 40;
472: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
473: RAISE;
474: END;
475:
476: d_progress := 50;
492: OR l_line_max_end_dt IS NULL
493: OR l_head_st_dt IS NULL
494: OR l_head_end_dt IS NULL THEN
495: d_progress := 160;
496: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_LINE_WITIN_DT_HEAD' , d_progress);
497: x_return_status := FND_API.G_RET_STS_SUCCESS;
498: ELSIF l_line_min_start_dt < l_head_st_dt OR l_line_max_end_dt > l_head_end_dt THEN
499: d_progress := 150;
500: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_DT_LINE_WITIN_DT_HEAD' , d_progress);
496: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_LINE_WITIN_DT_HEAD' , d_progress);
497: x_return_status := FND_API.G_RET_STS_SUCCESS;
498: ELSIF l_line_min_start_dt < l_head_st_dt OR l_line_max_end_dt > l_head_end_dt THEN
499: d_progress := 150;
500: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_DT_LINE_WITIN_DT_HEAD' , d_progress);
501: x_return_status := FND_API.G_RET_STS_ERROR;
502:
503: LOG_ERR_CLM_NMD_COLS_SUB_CHK
504: (
510: ,p_return_message => 'PO_CLM_ORD_DT_LINE_IN_DT_HEAD'
511: );
512: ELSE
513: d_progress := 160;
514: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_DT_LINE_WITIN_DT_HEAD' , d_progress);
515: x_return_status := FND_API.G_RET_STS_SUCCESS;
516: END IF;
517: d_progress := 170;
518:
520:
521: EXCEPTION
522: WHEN OTHERS THEN
523: d_progress := 80;
524: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_ORDER_START_DATE, CLM_ORDER_END_DATE' , d_progress);
525: RAISE;
526: END;
527: d_progress := 140;
528: ELSE
526: END;
527: d_progress := 140;
528: ELSE
529: d_progress := 180;
530: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
531: x_return_status := FND_API.G_RET_STS_SUCCESS;
532: x_msg_data := 'Not a Blanket';
533: END IF;
534: d_progress := 190;
533: END IF;
534: d_progress := 190;
535: EXCEPTION
536: WHEN OTHERS THEN
537: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_ORD_DT_LINE_WITIN_DT_HEAD' , d_progress);
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
539: END CLM_ORD_DT_LINE_WITIN_DT_HEAD;
540:
541: /* The below procedure checks
562: l_effect_dt_null_msg VARCHAR2(100);
563:
564: BEGIN
565: d_progress := 10;
566: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_EFF_DT_HEAD_CHECK with parameters' , d_progress);
567: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
568:
569: BEGIN
570: d_progress := 20;
563:
564: BEGIN
565: d_progress := 10;
566: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_EFF_DT_HEAD_CHECK with parameters' , d_progress);
567: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
568:
569: BEGIN
570: d_progress := 20;
571: SELECT TYPE_LOOKUP_CODE
573: FROM po_headers_gt
574: WHERE PO_HEADER_ID = p_document_id;
575:
576: d_progress := 30;
577: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
578: EXCEPTION
579: WHEN OTHERS THEN
580: d_progress := 40;
581: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
577: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
578: EXCEPTION
579: WHEN OTHERS THEN
580: d_progress := 40;
581: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
582: RAISE;
583: END;
584:
585: IF l_document_type_code = 'BLANKET' OR l_document_type_code = 'CONTRACT' THEN
682: WHEN No_Data_Found THEN
683: null;
684: WHEN OTHERS THEN
685: d_progress := 40;
686: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_EFF_DT_HEAD_CHECK' , d_progress);
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: END CLM_EFF_DT_HEAD_CHECK;
689:
690:
724: l_api_name CONSTANT VARCHAR2(100) := 'CLM_QTY_ORD_QTY_CHECK';
725:
726: BEGIN
727: d_progress := 10;
728: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_QTY_ORD_QTY_CHECK with parameters' , d_progress);
729: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
730: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
725:
726: BEGIN
727: d_progress := 10;
728: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_QTY_ORD_QTY_CHECK with parameters' , d_progress);
729: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
730: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733: BEGIN
726: BEGIN
727: d_progress := 10;
728: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_QTY_ORD_QTY_CHECK with parameters' , d_progress);
729: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
730: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733: BEGIN
734: d_progress := 20;
737: FROM po_headers_gt
738: WHERE PO_HEADER_ID = p_document_id;
739:
740: d_progress := 30;
741: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
742: EXCEPTION
743: WHEN OTHERS THEN
744: d_progress := 40;
745: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
741: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
742: EXCEPTION
743: WHEN OTHERS THEN
744: d_progress := 40;
745: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
746: RAISE;
747: END;
748:
749: d_progress := 50;
749: d_progress := 50;
750: IF l_document_type_code = 'BLANKET' AND PO_CLM_CLO_UTIL.isCLMInstalled THEN
751: FOR c_get_po_lines_rec IN c_get_po_lines(p_document_id) LOOP
752: d_progress := 60;
753: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_ORDER_QUANTITY , d_progress);
754: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_ORDER_QUANTITY , d_progress);
755: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_TOTAL_QUANTITY , d_progress);
756: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_TOTAL_QUANTITY , d_progress);
757:
750: IF l_document_type_code = 'BLANKET' AND PO_CLM_CLO_UTIL.isCLMInstalled THEN
751: FOR c_get_po_lines_rec IN c_get_po_lines(p_document_id) LOOP
752: d_progress := 60;
753: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_ORDER_QUANTITY , d_progress);
754: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_ORDER_QUANTITY , d_progress);
755: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_TOTAL_QUANTITY , d_progress);
756: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_TOTAL_QUANTITY , d_progress);
757:
758: d_progress := 70;
751: FOR c_get_po_lines_rec IN c_get_po_lines(p_document_id) LOOP
752: d_progress := 60;
753: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_ORDER_QUANTITY , d_progress);
754: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_ORDER_QUANTITY , d_progress);
755: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_TOTAL_QUANTITY , d_progress);
756: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_TOTAL_QUANTITY , d_progress);
757:
758: d_progress := 70;
759: IF (c_get_po_lines_rec.CLM_MIN_ORDER_QUANTITY IS NOT NULL
752: d_progress := 60;
753: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_ORDER_QUANTITY , d_progress);
754: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_ORDER_QUANTITY , d_progress);
755: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MAX_TOTAL_QUANTITY , d_progress);
756: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_QUANTITY :' || c_get_po_lines_rec.CLM_MIN_TOTAL_QUANTITY , d_progress);
757:
758: d_progress := 70;
759: IF (c_get_po_lines_rec.CLM_MIN_ORDER_QUANTITY IS NOT NULL
760: OR c_get_po_lines_rec.CLM_MAX_ORDER_QUANTITY IS NOT NULL
764: THEN
765: d_progress := 80;
766: IF c_get_po_lines_rec.QUANTITY IS NULL THEN
767: d_progress := 90;
768: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_QTY_ORD_QTY_CHECK' , d_progress);
769: x_return_status := FND_API.G_RET_STS_ERROR;
770:
771: LOG_ERR_CLM_NMD_COLS_SUB_CHK
772: (
779: );
780:
781: ELSE
782: d_progress := 100;
783: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_QTY_ORD_QTY_CHECK' , d_progress);
784: x_return_status := FND_API.G_RET_STS_SUCCESS;
785: END IF;
786: d_progress := 110;
787: END IF;
787: END IF;
788: END LOOP;
789: ELSE
790: d_progress := 120;
791: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793: x_msg_data := 'Not a Blanket';
794: END IF;
795: d_progress := 130;
794: END IF;
795: d_progress := 130;
796: EXCEPTION
797: WHEN OTHERS THEN
798: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_QTY_ORD_QTY_CHECK' , d_progress);
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: END CLM_QTY_ORD_QTY_CHECK;
801:
802: /* The below procedure checks
838: d_progress NUMBER := 0;
839:
840: BEGIN
841: d_progress := 10;
842: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_ORD_AMT_CHECK with parameters' , d_progress);
843: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
844: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
845:
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
839:
840: BEGIN
841: d_progress := 10;
842: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_ORD_AMT_CHECK with parameters' , d_progress);
843: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
844: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
845:
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
847: BEGIN
840: BEGIN
841: d_progress := 10;
842: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_ORD_AMT_CHECK with parameters' , d_progress);
843: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
844: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
845:
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
847: BEGIN
848: d_progress := 20;
851: FROM po_headers_gt
852: WHERE PO_HEADER_ID = p_document_id;
853:
854: d_progress := 30;
855: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
856: EXCEPTION
857: WHEN OTHERS THEN
858: d_progress := 40;
859: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
855: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
856: EXCEPTION
857: WHEN OTHERS THEN
858: d_progress := 40;
859: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE' , d_progress);
860: RAISE;
861: END;
862:
863: d_progress := 50;
863: d_progress := 50;
864: IF l_document_type_code = 'BLANKET' AND PO_CLM_CLO_UTIL.isCLMInstalled THEN
865: FOR c_get_po_lines_rec IN c_get_po_lines(p_document_id) LOOP
866: d_progress := 60;
867: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_ORDER_AMOUNT , d_progress);
868: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_ORDER_AMOUNT , d_progress);
869: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_TOTAL_AMOUNT , d_progress);
870: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_TOTAL_AMOUNT , d_progress);
871:
864: IF l_document_type_code = 'BLANKET' AND PO_CLM_CLO_UTIL.isCLMInstalled THEN
865: FOR c_get_po_lines_rec IN c_get_po_lines(p_document_id) LOOP
866: d_progress := 60;
867: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_ORDER_AMOUNT , d_progress);
868: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_ORDER_AMOUNT , d_progress);
869: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_TOTAL_AMOUNT , d_progress);
870: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_TOTAL_AMOUNT , d_progress);
871:
872: d_progress := 70;
865: FOR c_get_po_lines_rec IN c_get_po_lines(p_document_id) LOOP
866: d_progress := 60;
867: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_ORDER_AMOUNT , d_progress);
868: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_ORDER_AMOUNT , d_progress);
869: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_TOTAL_AMOUNT , d_progress);
870: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_TOTAL_AMOUNT , d_progress);
871:
872: d_progress := 70;
873: IF c_get_po_lines_rec.CLM_MIN_ORDER_AMOUNT IS NOT NULL
866: d_progress := 60;
867: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_ORDER_AMOUNT , d_progress);
868: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_ORDER_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_ORDER_AMOUNT , d_progress);
869: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MAX_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MAX_TOTAL_AMOUNT , d_progress);
870: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_MIN_TOTAL_AMOUNT :' || c_get_po_lines_rec.CLM_MIN_TOTAL_AMOUNT , d_progress);
871:
872: d_progress := 70;
873: IF c_get_po_lines_rec.CLM_MIN_ORDER_AMOUNT IS NOT NULL
874: OR c_get_po_lines_rec.CLM_MAX_ORDER_AMOUNT IS NOT NULL
878: IF c_get_po_lines_rec.MATCHING_BASIS = 'AMOUNT' THEN
879: d_progress := 80;
880: IF c_get_po_lines_rec.AMOUNT IS NULL THEN
881: d_progress := 90;
882: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_AMT_ORD_AMT_CHECK' , d_progress);
883: x_return_status := FND_API.G_RET_STS_ERROR;
884:
885: LOG_ERR_CLM_NMD_COLS_SUB_CHK
886: (
892: ,p_return_message => 'PO_CLM_AMT_ORD_AMT_CHECK'
893: );
894: ELSE
895: d_progress := 100;
896: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_AMT_ORD_AMT_CHECK' , d_progress);
897: x_return_status := FND_API.G_RET_STS_SUCCESS;
898: END IF;
899: ELSIF c_get_po_lines_rec.MATCHING_BASIS = 'QUANTITY' THEN
900: d_progress := 110;
899: ELSIF c_get_po_lines_rec.MATCHING_BASIS = 'QUANTITY' THEN
900: d_progress := 110;
901: IF c_get_po_lines_rec.QUANTITY IS NULL THEN
902: d_progress := 120;
903: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_AMT_ORD_AMT_CHECK' , d_progress);
904: x_return_status := FND_API.G_RET_STS_ERROR;
905:
906: LOG_ERR_CLM_NMD_COLS_SUB_CHK
907: (
913: ,p_return_message => 'PO_CLM_AMT_ORD_AMT_CHECK'
914: );
915: ELSE
916: d_progress := 130;
917: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_AMT_ORD_AMT_CHECK' , d_progress);
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919: END IF;
920: ELSE
921: d_progress := 140;
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919: END IF;
920: ELSE
921: d_progress := 140;
922: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_AMT_ORD_AMT_CHECK' , d_progress);
923: x_return_status := FND_API.G_RET_STS_SUCCESS;
924: END IF;
925: d_progress := 150;
926: END IF;
926: END IF;
927: END LOOP;
928: ELSE
929: d_progress := 160;
930: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
931: x_return_status := FND_API.G_RET_STS_SUCCESS;
932: x_msg_data := 'Not a Blanket';
933: END IF;
934: d_progress := 170;
934: d_progress := 170;
935:
936: EXCEPTION
937: WHEN OTHERS THEN
938: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_AMT_ORD_AMT_CHECK' , d_progress);
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: END CLM_AMT_ORD_AMT_CHECK;
941:
942: /* The below procedure checks
979: GROUP BY FROM_HEADER_ID, FROM_LINE_ID, MATCHING_BASIS;
980:
981: BEGIN
982: d_progress := 10;
983: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_TOT_QTY_WIT_MAX_MIN_CHECK with parameters' , d_progress);
984: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
985: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
986: x_return_status := FND_API.G_RET_STS_SUCCESS;
987:
980:
981: BEGIN
982: d_progress := 10;
983: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_TOT_QTY_WIT_MAX_MIN_CHECK with parameters' , d_progress);
984: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
985: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
986: x_return_status := FND_API.G_RET_STS_SUCCESS;
987:
988: d_progress := 20;
981: BEGIN
982: d_progress := 10;
983: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_TOT_QTY_WIT_MAX_MIN_CHECK with parameters' , d_progress);
984: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
985: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
986: x_return_status := FND_API.G_RET_STS_SUCCESS;
987:
988: d_progress := 20;
989: BEGIN
992: FROM po_headers_gt
993: WHERE PO_HEADER_ID = p_document_id;
994:
995: d_progress := 30;
996: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
997: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
998: EXCEPTION
999: WHEN OTHERS THEN
1000: d_progress := 40;
993: WHERE PO_HEADER_ID = p_document_id;
994:
995: d_progress := 30;
996: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
997: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
998: EXCEPTION
999: WHEN OTHERS THEN
1000: d_progress := 40;
1001: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID with PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
997: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
998: EXCEPTION
999: WHEN OTHERS THEN
1000: d_progress := 40;
1001: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID with PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1002: RAISE;
1003: END;
1004:
1005: d_progress := 50;
1014: WHERE PO_HEADER_ID = c_get_po_lines_rec.IDV_HEADER_ID
1015: AND PO_LINE_ID = c_get_po_lines_rec.IDV_LINE_ID;
1016:
1017: d_progress := 70;
1018: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_qty :' || l_idv_min_ord_qty , d_progress);
1019: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_qty :' || l_idv_max_ord_qty , d_progress);
1020: EXCEPTION
1021: WHEN OTHERS THEN
1022: d_progress := 80;
1015: AND PO_LINE_ID = c_get_po_lines_rec.IDV_LINE_ID;
1016:
1017: d_progress := 70;
1018: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_qty :' || l_idv_min_ord_qty , d_progress);
1019: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_qty :' || l_idv_max_ord_qty , d_progress);
1020: EXCEPTION
1021: WHEN OTHERS THEN
1022: d_progress := 80;
1023: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MIN_ORDER_QUANTITY, CLM_MAX_ORDER_QUANTITY ', d_progress);
1019: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_qty :' || l_idv_max_ord_qty , d_progress);
1020: EXCEPTION
1021: WHEN OTHERS THEN
1022: d_progress := 80;
1023: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MIN_ORDER_QUANTITY, CLM_MAX_ORDER_QUANTITY ', d_progress);
1024: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || c_get_po_lines_rec.IDV_HEADER_ID || ') and PO_LINE_ID (' || c_get_po_lines_rec.IDV_LINE_ID || ')' , d_progress);
1025: RAISE;
1026: END;
1027: d_progress := 90;
1020: EXCEPTION
1021: WHEN OTHERS THEN
1022: d_progress := 80;
1023: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MIN_ORDER_QUANTITY, CLM_MAX_ORDER_QUANTITY ', d_progress);
1024: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || c_get_po_lines_rec.IDV_HEADER_ID || ') and PO_LINE_ID (' || c_get_po_lines_rec.IDV_LINE_ID || ')' , d_progress);
1025: RAISE;
1026: END;
1027: d_progress := 90;
1028:
1027: d_progress := 90;
1028:
1029: IF c_get_po_lines_rec.TOTAL_QTY BETWEEN l_idv_min_ord_qty AND l_idv_max_ord_qty THEN
1030: d_progress := 100;
1031: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_TOT_QTY_WIT_MAX_MIN_CHECK' , d_progress);
1032: x_return_status := FND_API.G_RET_STS_SUCCESS;
1033: ELSE
1034: d_progress := 110;
1035: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_TOT_QTY_WIT_MAX_MIN_CHECK' , d_progress);
1031: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_TOT_QTY_WIT_MAX_MIN_CHECK' , d_progress);
1032: x_return_status := FND_API.G_RET_STS_SUCCESS;
1033: ELSE
1034: d_progress := 110;
1035: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_TOT_QTY_WIT_MAX_MIN_CHECK' , d_progress);
1036: x_return_status := FND_API.G_RET_STS_ERROR;
1037:
1038: SELECT MIN(LINE_NUM)
1039: INTO l_line_num
1058: d_progress := 120;
1059: END LOOP;
1060: ELSE
1061: d_progress := 130;
1062: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1063: x_return_status := FND_API.G_RET_STS_SUCCESS;
1064: x_msg_data := 'Not a Blanket';
1065: END IF;
1066: d_progress := 140;
1065: END IF;
1066: d_progress := 140;
1067: EXCEPTION
1068: WHEN OTHERS THEN
1069: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_TOT_QTY_WIT_MAX_MIN_CHECK' , d_progress);
1070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1071: END CLM_TOT_QTY_WIT_MAX_MIN_CHECK;
1072:
1073:
1115: GROUP BY FROM_HEADER_ID, FROM_LINE_ID, MATCHING_BASIS;
1116:
1117: BEGIN
1118: d_progress := 10;
1119: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK with parameters' , d_progress);
1120: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1121: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1122: x_return_status := FND_API.G_RET_STS_SUCCESS;
1123:
1116:
1117: BEGIN
1118: d_progress := 10;
1119: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK with parameters' , d_progress);
1120: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1121: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1122: x_return_status := FND_API.G_RET_STS_SUCCESS;
1123:
1124: d_progress := 20;
1117: BEGIN
1118: d_progress := 10;
1119: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK with parameters' , d_progress);
1120: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1121: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1122: x_return_status := FND_API.G_RET_STS_SUCCESS;
1123:
1124: d_progress := 20;
1125: BEGIN
1128: FROM po_headers_gt
1129: WHERE PO_HEADER_ID = p_document_id;
1130:
1131: d_progress := 30;
1132: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1133: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1134: EXCEPTION
1135: WHEN OTHERS THEN
1136: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1129: WHERE PO_HEADER_ID = p_document_id;
1130:
1131: d_progress := 30;
1132: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1133: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1134: EXCEPTION
1135: WHEN OTHERS THEN
1136: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1137: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1132: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1133: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1134: EXCEPTION
1135: WHEN OTHERS THEN
1136: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1137: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1138: d_progress := 40;
1139: RAISE;
1140: END;
1133: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1134: EXCEPTION
1135: WHEN OTHERS THEN
1136: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1137: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1138: d_progress := 40;
1139: RAISE;
1140: END;
1141:
1151: WHERE PO_HEADER_ID = c_get_po_lines_rec.IDV_HEADER_ID
1152: AND PO_LINE_ID = c_get_po_lines_rec.IDV_LINE_ID;
1153:
1154: d_progress := 70;
1155: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_qty :' || l_idv_max_qty , d_progress);
1156: EXCEPTION
1157: WHEN OTHERS THEN
1158: d_progress := 80;
1159: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_TOTAL_QUANTITY', d_progress);
1155: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_qty :' || l_idv_max_qty , d_progress);
1156: EXCEPTION
1157: WHEN OTHERS THEN
1158: d_progress := 80;
1159: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_TOTAL_QUANTITY', d_progress);
1160: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || c_get_po_lines_rec.IDV_HEADER_ID || ') and PO_LINE_ID (' || c_get_po_lines_rec.IDV_LINE_ID || ')' , d_progress);
1161: RAISE;
1162: END;
1163:
1156: EXCEPTION
1157: WHEN OTHERS THEN
1158: d_progress := 80;
1159: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_TOTAL_QUANTITY', d_progress);
1160: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || c_get_po_lines_rec.IDV_HEADER_ID || ') and PO_LINE_ID (' || c_get_po_lines_rec.IDV_LINE_ID || ')' , d_progress);
1161: RAISE;
1162: END;
1163:
1164: IF po_encumbrance_preprocessing.g_call_from_encumbrance <> 'Y' THEN
1204:
1205: d_progress := 90;
1206: IF l_diff_qty + nvl(l_tot_qty_ordered, 0) <= NVL(l_idv_max_qty, l_diff_qty + nvl(l_tot_qty_ordered, 0)) THEN
1207: d_progress := 100;
1208: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK' , d_progress);
1209: x_return_status := FND_API.G_RET_STS_SUCCESS;
1210: ELSE
1211: d_progress := 110;
1212: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK' , d_progress);
1208: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK' , d_progress);
1209: x_return_status := FND_API.G_RET_STS_SUCCESS;
1210: ELSE
1211: d_progress := 110;
1212: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK' , d_progress);
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214:
1215: SELECT MIN(LINE_NUM)
1216: INTO l_line_num
1234: END IF;
1235: END LOOP;
1236: ELSE
1237: d_progress := 120;
1238: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1239: x_return_status := FND_API.G_RET_STS_SUCCESS;
1240: x_msg_data := 'Not a Blanket';
1241: END IF;
1242: d_progress := 130;
1241: END IF;
1242: d_progress := 130;
1243: EXCEPTION
1244: WHEN OTHERS THEN
1245: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK' , d_progress);
1246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1247: END CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK;
1248:
1249: /* The below procedure checks
1290: l_idv_max_amt NUMBER;
1291:
1292: BEGIN
1293: d_progress := 10;
1294: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK with parameters' , d_progress);
1295: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1296: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1297: x_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1291:
1292: BEGIN
1293: d_progress := 10;
1294: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK with parameters' , d_progress);
1295: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1296: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1297: x_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1299: d_progress := 20;
1292: BEGIN
1293: d_progress := 10;
1294: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK with parameters' , d_progress);
1295: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1296: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1297: x_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1299: d_progress := 20;
1300: BEGIN
1303: FROM po_headers_gt
1304: WHERE PO_HEADER_ID = p_document_id;
1305:
1306: d_progress := 30;
1307: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1308: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1309: EXCEPTION
1310: WHEN OTHERS THEN
1311: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1304: WHERE PO_HEADER_ID = p_document_id;
1305:
1306: d_progress := 30;
1307: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1308: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1309: EXCEPTION
1310: WHEN OTHERS THEN
1311: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1312: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1307: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1308: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1309: EXCEPTION
1310: WHEN OTHERS THEN
1311: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1312: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1313: d_progress := 40;
1314: RAISE;
1315: END;
1308: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_from_header_id , d_progress);
1309: EXCEPTION
1310: WHEN OTHERS THEN
1311: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, FROM_HEADER_ID', d_progress);
1312: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1313: d_progress := 40;
1314: RAISE;
1315: END;
1316:
1326: WHERE PO_HEADER_ID = c_get_po_lines_rec.IDV_HEADER_ID
1327: AND PO_LINE_ID = c_get_po_lines_rec.IDV_LINE_ID;
1328:
1329: d_progress := 70;
1330: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_amt :' || l_idv_min_ord_amt , d_progress);
1331: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
1332: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_type :' || l_ord_type , d_progress);
1333: EXCEPTION
1334: WHEN OTHERS THEN
1327: AND PO_LINE_ID = c_get_po_lines_rec.IDV_LINE_ID;
1328:
1329: d_progress := 70;
1330: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_amt :' || l_idv_min_ord_amt , d_progress);
1331: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
1332: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_type :' || l_ord_type , d_progress);
1333: EXCEPTION
1334: WHEN OTHERS THEN
1335: d_progress := 80;
1328:
1329: d_progress := 70;
1330: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_min_ord_amt :' || l_idv_min_ord_amt , d_progress);
1331: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_max_ord_amt :' || l_idv_max_ord_amt , d_progress);
1332: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_type :' || l_ord_type , d_progress);
1333: EXCEPTION
1334: WHEN OTHERS THEN
1335: d_progress := 80;
1336: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_TOTAL_AMOUNT, CLM_TOTAL_AMOUNT_ORDERED', d_progress);
1332: PO_UDA_DEFAULTING_PKG.DEBUG('l_ord_type :' || l_ord_type , d_progress);
1333: EXCEPTION
1334: WHEN OTHERS THEN
1335: d_progress := 80;
1336: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_TOTAL_AMOUNT, CLM_TOTAL_AMOUNT_ORDERED', d_progress);
1337: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || c_get_po_lines_rec.IDV_HEADER_ID || ') and PO_LINE_ID (' || c_get_po_lines_rec.IDV_LINE_ID || ')' , d_progress);
1338: RAISE;
1339: END;
1340:
1333: EXCEPTION
1334: WHEN OTHERS THEN
1335: d_progress := 80;
1336: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch CLM_MAX_TOTAL_AMOUNT, CLM_TOTAL_AMOUNT_ORDERED', d_progress);
1337: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || c_get_po_lines_rec.IDV_HEADER_ID || ') and PO_LINE_ID (' || c_get_po_lines_rec.IDV_LINE_ID || ')' , d_progress);
1338: RAISE;
1339: END;
1340:
1341: IF po_encumbrance_preprocessing.g_call_from_encumbrance <> 'Y' THEN
1365: d_progress := 130;
1366:
1367: IF l_diff_amt + l_tot_amt_ordered <= NVL(l_idv_max_amt, l_diff_amt + l_tot_amt_ordered) THEN
1368: d_progress := 140;
1369: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK' , d_progress);
1370: x_return_status := FND_API.G_RET_STS_SUCCESS;
1371: ELSE
1372: d_progress := 150;
1373: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK' , d_progress);
1369: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK' , d_progress);
1370: x_return_status := FND_API.G_RET_STS_SUCCESS;
1371: ELSE
1372: d_progress := 150;
1373: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK' , d_progress);
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375:
1376: LOG_ERR_CLM_NMD_COLS_SUB_CHK
1377: (
1387: END IF;
1388: END LOOP;
1389: ELSE
1390: d_progress := 160;
1391: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393: x_msg_data := 'Not a Blanket';
1394: END IF;
1395: EXCEPTION
1393: x_msg_data := 'Not a Blanket';
1394: END IF;
1395: EXCEPTION
1396: WHEN OTHERS THEN
1397: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK' , d_progress);
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399: END CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK;
1400:
1401: /* The below procedure checks
1427: l_diff_amt NUMBER :=0;
1428:
1429: BEGIN
1430: d_progress := 10;
1431: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_GE_LINE_AMT with parameters' , d_progress);
1432: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1433: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1434: x_return_status := FND_API.G_RET_STS_SUCCESS;
1435:
1428:
1429: BEGIN
1430: d_progress := 10;
1431: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_GE_LINE_AMT with parameters' , d_progress);
1432: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1433: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1434: x_return_status := FND_API.G_RET_STS_SUCCESS;
1435:
1436: d_progress := 20;
1429: BEGIN
1430: d_progress := 10;
1431: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_GE_LINE_AMT with parameters' , d_progress);
1432: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1433: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1434: x_return_status := FND_API.G_RET_STS_SUCCESS;
1435:
1436: d_progress := 20;
1437: BEGIN
1440: FROM po_headers_gt
1441: WHERE PO_HEADER_ID = p_document_id;
1442:
1443: d_progress := 30;
1444: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1445: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_idv_header_id , d_progress);
1446: EXCEPTION
1447: WHEN OTHERS THEN
1448: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, CLM_SOURCE_DOCUMENT_ID', d_progress);
1441: WHERE PO_HEADER_ID = p_document_id;
1442:
1443: d_progress := 30;
1444: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1445: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_idv_header_id , d_progress);
1446: EXCEPTION
1447: WHEN OTHERS THEN
1448: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, CLM_SOURCE_DOCUMENT_ID', d_progress);
1449: d_progress := 40;
1444: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1445: PO_UDA_DEFAULTING_PKG.DEBUG('l_from_header_id :' || l_idv_header_id , d_progress);
1446: EXCEPTION
1447: WHEN OTHERS THEN
1448: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, CLM_SOURCE_DOCUMENT_ID', d_progress);
1449: d_progress := 40;
1450: RAISE;
1451: END;
1452:
1485: d_progress := 100;
1486:
1487: IF l_amount_limit IS NOT NULL THEN
1488: IF l_amount_limit >= l_diff_amt + l_clm_amt_released THEN
1489: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_AMT_GE_LINE_AMT' , d_progress);
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1491: ELSE
1492: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_AMT_GE_LINE_AMT' , d_progress);
1493: x_return_status := FND_API.G_RET_STS_ERROR;
1488: IF l_amount_limit >= l_diff_amt + l_clm_amt_released THEN
1489: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : CLM_AMT_GE_LINE_AMT' , d_progress);
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1491: ELSE
1492: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : CLM_AMT_GE_LINE_AMT' , d_progress);
1493: x_return_status := FND_API.G_RET_STS_ERROR;
1494: LOG_ERR_CLM_NMD_COLS_SUB_CHK
1495: (
1496: p_online_report_id => p_online_report_id
1503: END IF;
1504: END IF;
1505: ELSE
1506: d_progress := 160;
1507: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1508: x_return_status := FND_API.G_RET_STS_SUCCESS;
1509: x_msg_data := 'Not a PO';
1510: END IF;
1511: EXCEPTION
1509: x_msg_data := 'Not a PO';
1510: END IF;
1511: EXCEPTION
1512: WHEN OTHERS THEN
1513: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_AMT_GE_LINE_AMT' , d_progress);
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1515: END CLM_AMT_GE_LINE_AMT;
1516:
1517:
1541: l_max_ord_amt NUMBER := 0;
1542: l_min_ord_amt NUMBER := 0;
1543: BEGIN
1544: d_progress := 10;
1545: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_WITHIN_MAX_MIN_ORD_AMT with parameters' , d_progress);
1546: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1547: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549:
1542: l_min_ord_amt NUMBER := 0;
1543: BEGIN
1544: d_progress := 10;
1545: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_WITHIN_MAX_MIN_ORD_AMT with parameters' , d_progress);
1546: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1547: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549:
1550: d_progress := 20;
1543: BEGIN
1544: d_progress := 10;
1545: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_AMT_WITHIN_MAX_MIN_ORD_AMT with parameters' , d_progress);
1546: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1547: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549:
1550: d_progress := 20;
1551: BEGIN
1554: FROM po_headers_gt
1555: WHERE PO_HEADER_ID = p_document_id;
1556:
1557: d_progress := 30;
1558: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1559: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_header_id :' || l_idv_header_id , d_progress);
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, CLM_SOURCE_DOCUMENT_ID', d_progress);
1555: WHERE PO_HEADER_ID = p_document_id;
1556:
1557: d_progress := 30;
1558: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1559: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_header_id :' || l_idv_header_id , d_progress);
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, CLM_SOURCE_DOCUMENT_ID', d_progress);
1563: d_progress := 40;
1558: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1559: PO_UDA_DEFAULTING_PKG.DEBUG('l_idv_header_id :' || l_idv_header_id , d_progress);
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE, CLM_SOURCE_DOCUMENT_ID', d_progress);
1563: d_progress := 40;
1564: RAISE;
1565: END;
1566:
1586: Hence added two ELSIFs after this IF condition.
1587: */
1588: IF l_max_ord_amt IS NOT NULL AND l_min_ord_amt IS NOT NULL THEN
1589: IF l_total_amt BETWEEN l_min_ord_amt AND l_max_ord_amt THEN
1590: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1591: x_return_status := FND_API.G_RET_STS_SUCCESS;
1592: ELSE
1593: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1589: IF l_total_amt BETWEEN l_min_ord_amt AND l_max_ord_amt THEN
1590: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1591: x_return_status := FND_API.G_RET_STS_SUCCESS;
1592: ELSE
1593: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595: LOG_ERR_CLM_NMD_COLS_SUB_CHK
1596: (
1597: p_online_report_id => p_online_report_id
1603: );
1604: END IF;
1605: ELSIF l_max_ord_amt IS NOT NULL THEN
1606: IF l_total_amt <= l_max_ord_amt THEN
1607: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1608: x_return_status := FND_API.G_RET_STS_SUCCESS;
1609: ELSE
1610: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1611: x_return_status := FND_API.G_RET_STS_ERROR;
1606: IF l_total_amt <= l_max_ord_amt THEN
1607: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1608: x_return_status := FND_API.G_RET_STS_SUCCESS;
1609: ELSE
1610: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1611: x_return_status := FND_API.G_RET_STS_ERROR;
1612: LOG_ERR_CLM_NMD_COLS_SUB_CHK
1613: (
1614: p_online_report_id => p_online_report_id
1620: );
1621: END IF;
1622: ELSIF l_min_ord_amt IS NOT NULL THEN
1623: IF l_total_amt >= l_min_ord_amt THEN
1624: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1625: x_return_status := FND_API.G_RET_STS_SUCCESS;
1626: ELSE
1627: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1628: x_return_status := FND_API.G_RET_STS_ERROR;
1623: IF l_total_amt >= l_min_ord_amt THEN
1624: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Passed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1625: x_return_status := FND_API.G_RET_STS_SUCCESS;
1626: ELSE
1627: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Failed : PO_CLM_AMT_IN_MAX_MIN_ORD_AMT' , d_progress);
1628: x_return_status := FND_API.G_RET_STS_ERROR;
1629: LOG_ERR_CLM_NMD_COLS_SUB_CHK
1630: (
1631: p_online_report_id => p_online_report_id
1638: END IF;
1639: END IF;
1640: ELSE
1641: d_progress := 160;
1642: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1643: x_return_status := FND_API.G_RET_STS_SUCCESS;
1644: x_msg_data := 'Not a PO';
1645: END IF;
1646: EXCEPTION
1644: x_msg_data := 'Not a PO';
1645: END IF;
1646: EXCEPTION
1647: WHEN OTHERS THEN
1648: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_AMT_WITHIN_MAX_MIN_ORD_AMT' , d_progress);
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1650: END CLM_AMT_WITHIN_MAX_MIN_ORD_AMT;
1651:
1652: /* The below procedure checks
1676: l_doc_type VARCHAR2(100);
1677:
1678: BEGIN
1679: d_progress := 10;
1680: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_CHK with parameters' , d_progress);
1681: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1682: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1683: x_return_status := FND_API.G_RET_STS_SUCCESS;
1684: d_progress := 20;
1677:
1678: BEGIN
1679: d_progress := 10;
1680: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_CHK with parameters' , d_progress);
1681: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1682: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1683: x_return_status := FND_API.G_RET_STS_SUCCESS;
1684: d_progress := 20;
1685:
1678: BEGIN
1679: d_progress := 10;
1680: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_CHK with parameters' , d_progress);
1681: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1682: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1683: x_return_status := FND_API.G_RET_STS_SUCCESS;
1684: d_progress := 20;
1685:
1686: BEGIN
1689: FROM po_headers_gt
1690: WHERE PO_HEADER_ID = p_document_id;
1691:
1692: d_progress := 30;
1693: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE', d_progress);
1697: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1692: d_progress := 30;
1693: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE', d_progress);
1697: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1698: d_progress := 40;
1699: RAISE;
1700: END;
1693: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE', d_progress);
1697: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1698: d_progress := 40;
1699: RAISE;
1700: END;
1701:
1766: END;
1767: d_progress := 110;
1768: ELSE
1769: d_progress := 120;
1770: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1771: x_return_status := FND_API.G_RET_STS_SUCCESS;
1772: x_msg_data := 'Not a Blanket';
1773: END IF;
1774:
1773: END IF;
1774:
1775: EXCEPTION
1776: WHEN OTHERS THEN
1777: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_SRC_DOC_CHK' , d_progress);
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1779: END CLM_SRC_DOC_CHK;
1780:
1781: /* The below procedure checks
1817:
1818:
1819: BEGIN
1820: d_progress := 10;
1821: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_LINE_CHK with parameters' , d_progress);
1822: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1823: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1824: x_return_status := FND_API.G_RET_STS_SUCCESS;
1825: d_progress := 20;
1818:
1819: BEGIN
1820: d_progress := 10;
1821: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_LINE_CHK with parameters' , d_progress);
1822: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1823: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1824: x_return_status := FND_API.G_RET_STS_SUCCESS;
1825: d_progress := 20;
1826:
1819: BEGIN
1820: d_progress := 10;
1821: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_LINE_CHK with parameters' , d_progress);
1822: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1823: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1824: x_return_status := FND_API.G_RET_STS_SUCCESS;
1825: d_progress := 20;
1826:
1827: BEGIN
1830: FROM po_headers_gt
1831: WHERE PO_HEADER_ID = p_document_id;
1832:
1833: d_progress := 30;
1834: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1835: EXCEPTION
1836: WHEN OTHERS THEN
1837: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE', d_progress);
1838: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1833: d_progress := 30;
1834: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1835: EXCEPTION
1836: WHEN OTHERS THEN
1837: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE', d_progress);
1838: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1839: d_progress := 40;
1840: RAISE;
1841: END;
1834: PO_UDA_DEFAULTING_PKG.DEBUG('l_document_type_code :' || l_document_type_code , d_progress);
1835: EXCEPTION
1836: WHEN OTHERS THEN
1837: PO_UDA_DEFAULTING_PKG.DEBUG('Exception while trying to fetch TYPE_LOOKUP_CODE', d_progress);
1838: PO_UDA_DEFAULTING_PKG.DEBUG('PO_HEADER_ID (' || p_document_id || ') and DRAFT_ID (' || p_draft_id || ')' , d_progress);
1839: d_progress := 40;
1840: RAISE;
1841: END;
1842:
1882: END;
1883: d_progress := 110;
1884: ELSE
1885: d_progress := 120;
1886: PO_UDA_DEFAULTING_PKG.DEBUG('Constraint Not Applicable : Not a valid document' , d_progress);
1887: x_return_status := FND_API.G_RET_STS_SUCCESS;
1888: x_msg_data := 'Not a Blanket';
1889: END IF;
1890:
1889: END IF;
1890:
1891: EXCEPTION
1892: WHEN OTHERS THEN
1893: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in CLM_SRC_DOC_LINE_CHK' , d_progress);
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: END CLM_SRC_DOC_LINE_CHK;
1896:
1897: /* The below procedure checks
1918: l_api_name CONSTANT VARCHAR2(100) := 'CLM_NAMED_COLS_SUB_CHK';
1919: g_ret_status VARCHAR2(3);
1920:
1921: BEGIN
1922: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_NAMED_COLS_SUB_CHK with parameters' , d_progress);
1923: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1924: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1925: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
1926: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
1919: g_ret_status VARCHAR2(3);
1920:
1921: BEGIN
1922: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_NAMED_COLS_SUB_CHK with parameters' , d_progress);
1923: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1924: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1925: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
1926: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
1927: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
1920:
1921: BEGIN
1922: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_NAMED_COLS_SUB_CHK with parameters' , d_progress);
1923: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1924: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1925: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
1926: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
1927: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
1928:
1921: BEGIN
1922: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_NAMED_COLS_SUB_CHK with parameters' , d_progress);
1923: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1924: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1925: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
1926: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
1927: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
1928:
1929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1922: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.CLM_NAMED_COLS_SUB_CHK with parameters' , d_progress);
1923: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1924: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1925: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
1926: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
1927: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
1928:
1929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1930: g_ret_status := FND_API.G_RET_STS_SUCCESS;
1923: PO_UDA_DEFAULTING_PKG.DEBUG('p_document_id :' || p_document_id , d_progress);
1924: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id :' || p_draft_id , d_progress);
1925: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
1926: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
1927: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
1928:
1929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1930: g_ret_status := FND_API.G_RET_STS_SUCCESS;
1931:
1928:
1929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1930: g_ret_status := FND_API.G_RET_STS_SUCCESS;
1931:
1932: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_ORDER_AMT_WITHIN_MAX_MIN : ' || x_return_status, d_progress);
1933: PO_CLM_COLS_SUB_CHECK.CLM_ORDER_AMT_WITHIN_MAX_MIN
1934: (
1935: p_document_id => p_document_id
1936: ,p_draft_id => p_draft_id
1943: ,x_msg_count => x_msg_count
1944: ,x_msg_data => x_msg_data
1945: );
1946:
1947: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_ORDER_AMT_WITHIN_MAX_MIN : ' || x_return_status, d_progress);
1948: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1949: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1950: g_ret_status := x_return_status;
1951: END IF;
1950: g_ret_status := x_return_status;
1951: END IF;
1952: END IF;
1953:
1954: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_MAX_ORD_AMT_WITIN_SUM_AMT : ' || x_return_status, d_progress);
1955: PO_CLM_COLS_SUB_CHECK.CLM_MAX_ORD_AMT_WITIN_SUM_AMT
1956: (
1957: p_document_id => p_document_id
1958: ,p_draft_id => p_draft_id
1965: ,x_msg_count => x_msg_count
1966: ,x_msg_data => x_msg_data
1967: );
1968:
1969: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_MAX_ORD_AMT_WITIN_SUM_AMT : ' || x_return_status, d_progress);
1970: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1971: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1972: g_ret_status := x_return_status;
1973: END IF;
1972: g_ret_status := x_return_status;
1973: END IF;
1974: END IF;
1975:
1976: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_WITIN_ST_END_DT : ' || x_return_status, d_progress);
1977: PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_WITIN_ST_END_DT
1978: (
1979: p_document_id => p_document_id
1980: ,p_draft_id => p_draft_id
1987: ,x_msg_count => x_msg_count
1988: ,x_msg_data => x_msg_data
1989: );
1990:
1991: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_WITIN_ST_END_DT : ' || x_return_status, d_progress);
1992: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: g_ret_status := x_return_status;
1995: END IF;
1994: g_ret_status := x_return_status;
1995: END IF;
1996: END IF;
1997:
1998: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_LINE_WITIN_DT_HEAD : ' || x_return_status, d_progress);
1999: PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_LINE_WITIN_DT_HEAD
2000: (
2001: p_document_id => p_document_id
2002: ,p_draft_id => p_draft_id
2009: ,x_msg_count => x_msg_count
2010: ,x_msg_data => x_msg_data
2011: );
2012:
2013: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_DT_LINE_WITIN_DT_HEAD : ' || x_return_status, d_progress);
2014: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2015: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2016: g_ret_status := x_return_status;
2017: END IF;
2016: g_ret_status := x_return_status;
2017: END IF;
2018: END IF;
2019:
2020: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_EFF_DT_HEAD_CHECK : ' || x_return_status, d_progress);
2021:
2022: --Bug 13478326 Effective date need not be checked for mods.
2023:
2024: IF(p_draft_id = -1 OR p_draft_id IS NULL) THEN
2035: );
2036:
2037: END IF;
2038:
2039: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_EFF_DT_HEAD_CHECK : ' || x_return_status, d_progress);
2040: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2041: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2042: g_ret_status := x_return_status;
2043: END IF;
2042: g_ret_status := x_return_status;
2043: END IF;
2044: END IF;
2045:
2046: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_QTY_ORD_QTY_CHECK : ' || x_return_status, d_progress);
2047: PO_CLM_COLS_SUB_CHECK.CLM_QTY_ORD_QTY_CHECK
2048: (
2049: p_document_id => p_document_id
2050: ,p_draft_id => p_draft_id
2057: ,x_msg_count => x_msg_count
2058: ,x_msg_data => x_msg_data
2059: );
2060:
2061: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_QTY_ORD_QTY_CHECK : ' || x_return_status, d_progress);
2062: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2063: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2064: g_ret_status := x_return_status;
2065: END IF;
2064: g_ret_status := x_return_status;
2065: END IF;
2066: END IF;
2067:
2068: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_AMT_ORD_AMT_CHECK : ' || x_return_status, d_progress);
2069: PO_CLM_COLS_SUB_CHECK.CLM_AMT_ORD_AMT_CHECK
2070: (
2071: p_document_id => p_document_id
2072: ,p_draft_id => p_draft_id
2079: ,x_msg_count => x_msg_count
2080: ,x_msg_data => x_msg_data
2081: );
2082:
2083: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_AMT_ORD_AMT_CHECK : ' || x_return_status, d_progress);
2084: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2085: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2086: g_ret_status := x_return_status;
2087: END IF;
2086: g_ret_status := x_return_status;
2087: END IF;
2088: END IF;
2089:
2090: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_TOT_QTY_WIT_MAX_MIN_CHECK : ' || x_return_status, d_progress);
2091: PO_CLM_COLS_SUB_CHECK.CLM_TOT_QTY_WIT_MAX_MIN_CHECK
2092: (
2093: p_document_id => p_document_id
2094: ,p_draft_id => p_draft_id
2101: ,x_msg_count => x_msg_count
2102: ,x_msg_data => x_msg_data
2103: );
2104:
2105: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_TOT_QTY_WIT_MAX_MIN_CHECK : ' || x_return_status, d_progress);
2106: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2108: g_ret_status := x_return_status;
2109: END IF;
2109: END IF;
2110: END IF;
2111:
2112:
2113: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK : ' || x_return_status, d_progress);
2114: PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK
2115: (
2116: p_document_id => p_document_id
2117: ,p_draft_id => p_draft_id
2124: ,x_msg_count => x_msg_count
2125: ,x_msg_data => x_msg_data
2126: );
2127:
2128: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_QTY_LE_MAX_QTY_CHK : ' || x_return_status, d_progress);
2129: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2130: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2131: g_ret_status := x_return_status;
2132: END IF;
2131: g_ret_status := x_return_status;
2132: END IF;
2133: END IF;
2134:
2135: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK : ' || x_return_status, d_progress);
2136: PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK
2137: (
2138: p_document_id => p_document_id
2139: ,p_draft_id => p_draft_id
2146: ,x_msg_count => x_msg_count
2147: ,x_msg_data => x_msg_data
2148: );
2149:
2150: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_ORD_TOT_AMT_LE_MAX_AMT_CHK : ' || x_return_status, d_progress);
2151: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2152: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2153: g_ret_status := x_return_status;
2154: END IF;
2154: END IF;
2155:
2156: END IF;
2157:
2158: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_CHK : ' || x_return_status, d_progress);
2159: PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_CHK
2160: (
2161: p_document_id => p_document_id
2162: ,p_draft_id => p_draft_id
2169: ,x_msg_count => x_msg_count
2170: ,x_msg_data => x_msg_data
2171: );
2172:
2173: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_CHK : ' || x_return_status, d_progress);
2174: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2175: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2176: g_ret_status := x_return_status;
2177: END IF;
2176: g_ret_status := x_return_status;
2177: END IF;
2178: END IF;
2179:
2180: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_LINE_CHK : ' || x_return_status, d_progress);
2181: PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_LINE_CHK
2182: (
2183: p_document_id => p_document_id
2184: ,p_draft_id => p_draft_id
2191: ,x_msg_count => x_msg_count
2192: ,x_msg_data => x_msg_data
2193: );
2194:
2195: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_SRC_DOC_LINE_CHK : ' || x_return_status, d_progress);
2196: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2198: g_ret_status := x_return_status;
2199: END IF;
2198: g_ret_status := x_return_status;
2199: END IF;
2200: END IF;
2201:
2202: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_AMT_GE_LINE_AMT : ' || x_return_status, d_progress);
2203: PO_CLM_COLS_SUB_CHECK.CLM_AMT_GE_LINE_AMT
2204: (
2205: p_document_id => p_document_id
2206: ,p_draft_id => p_draft_id
2213: ,x_msg_count => x_msg_count
2214: ,x_msg_data => x_msg_data
2215: );
2216:
2217: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_AMT_GE_LINE_AMT : ' || x_return_status, d_progress);
2218: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2220: g_ret_status := x_return_status;
2221: END IF;
2220: g_ret_status := x_return_status;
2221: END IF;
2222: END IF;
2223:
2224: PO_UDA_DEFAULTING_PKG.DEBUG('Before call to PO_CLM_COLS_SUB_CHECK.CLM_AMT_WITHIN_MAX_MIN_ORD_AMT : ' || x_return_status, d_progress);
2225: PO_CLM_COLS_SUB_CHECK.CLM_AMT_WITHIN_MAX_MIN_ORD_AMT
2226: (
2227: p_document_id => p_document_id
2228: ,p_draft_id => p_draft_id
2235: ,x_msg_count => x_msg_count
2236: ,x_msg_data => x_msg_data
2237: );
2238:
2239: PO_UDA_DEFAULTING_PKG.DEBUG('After call to PO_CLM_COLS_SUB_CHECK.CLM_AMT_WITHIN_MAX_MIN_ORD_AMT : ' || x_return_status, d_progress);
2240: IF g_ret_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2241: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2242: g_ret_status := x_return_status;
2243: END IF;
2248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: END IF;
2251:
2252: PO_UDA_DEFAULTING_PKG.DEBUG('CLM_NAMED_COLS_SUB_CHK is completed with : ' || x_return_status, d_progress);
2253:
2254: EXCEPTION
2255: WHEN OTHERS THEN
2256: x_return_status := FND_API.G_RET_STS_ERROR;
2271: l_ret_clm_err_msg_txt VARCHAR2(3000);
2272: d_progress NUMBER := 0;
2273: BEGIN
2274: d_progress := 10;
2275: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK with parameters' , d_progress);
2276: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
2277: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
2278: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
2279: PO_UDA_DEFAULTING_PKG.DEBUG('p_return_message :' || p_return_message , d_progress);
2272: d_progress NUMBER := 0;
2273: BEGIN
2274: d_progress := 10;
2275: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK with parameters' , d_progress);
2276: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
2277: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
2278: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
2279: PO_UDA_DEFAULTING_PKG.DEBUG('p_return_message :' || p_return_message , d_progress);
2280:
2273: BEGIN
2274: d_progress := 10;
2275: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK with parameters' , d_progress);
2276: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
2277: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
2278: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
2279: PO_UDA_DEFAULTING_PKG.DEBUG('p_return_message :' || p_return_message , d_progress);
2280:
2281: d_progress := 20;
2274: d_progress := 10;
2275: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK with parameters' , d_progress);
2276: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
2277: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
2278: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
2279: PO_UDA_DEFAULTING_PKG.DEBUG('p_return_message :' || p_return_message , d_progress);
2280:
2281: d_progress := 20;
2282: PO_UDA_DEFAULTING_PKG.DEBUG('Before fetching the message text' , d_progress);
2275: PO_UDA_DEFAULTING_PKG.DEBUG('Starting PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK with parameters' , d_progress);
2276: PO_UDA_DEFAULTING_PKG.DEBUG('p_online_report_id :' || p_online_report_id , d_progress);
2277: PO_UDA_DEFAULTING_PKG.DEBUG('p_user_id :' || p_user_id , d_progress);
2278: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
2279: PO_UDA_DEFAULTING_PKG.DEBUG('p_return_message :' || p_return_message , d_progress);
2280:
2281: d_progress := 20;
2282: PO_UDA_DEFAULTING_PKG.DEBUG('Before fetching the message text' , d_progress);
2283: FND_MESSAGE.set_name('PO', p_return_message);
2278: PO_UDA_DEFAULTING_PKG.DEBUG('p_sequence :' || p_sequence , d_progress);
2279: PO_UDA_DEFAULTING_PKG.DEBUG('p_return_message :' || p_return_message , d_progress);
2280:
2281: d_progress := 20;
2282: PO_UDA_DEFAULTING_PKG.DEBUG('Before fetching the message text' , d_progress);
2283: FND_MESSAGE.set_name('PO', p_return_message);
2284: l_ret_clm_err_msg_txt := FND_MESSAGE.GET;
2285: d_progress := 30;
2286: PO_UDA_DEFAULTING_PKG.DEBUG('After fetching the message text :' || l_ret_clm_err_msg_txt, d_progress);
2282: PO_UDA_DEFAULTING_PKG.DEBUG('Before fetching the message text' , d_progress);
2283: FND_MESSAGE.set_name('PO', p_return_message);
2284: l_ret_clm_err_msg_txt := FND_MESSAGE.GET;
2285: d_progress := 30;
2286: PO_UDA_DEFAULTING_PKG.DEBUG('After fetching the message text :' || l_ret_clm_err_msg_txt, d_progress);
2287:
2288: INSERT INTO po_online_report_text_gt
2289: (
2290: online_report_id,
2317: );
2318: d_progress := 40;
2319: EXCEPTION
2320: WHEN OTHERS THEN
2321: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in LOG_ERR_CLM_NMD_COLS_SUB_CHK' , d_progress);
2322: RAISE;
2323: END LOG_ERR_CLM_NMD_COLS_SUB_CHK;
2324:
2325: -------------------------------------------------------------------------------
2356: l_header_id NUMBER := NULL;
2357:
2358: BEGIN
2359:
2360: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrderedForIDV with parameters', d_position);
2361: PO_UDA_DEFAULTING_PKG.DEBUG('p_doc_level_id ' || p_doc_level_id, d_position);
2362: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2363:
2364: d_position := 10;
2357:
2358: BEGIN
2359:
2360: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrderedForIDV with parameters', d_position);
2361: PO_UDA_DEFAULTING_PKG.DEBUG('p_doc_level_id ' || p_doc_level_id, d_position);
2362: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2363:
2364: d_position := 10;
2365:
2358: BEGIN
2359:
2360: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrderedForIDV with parameters', d_position);
2361: PO_UDA_DEFAULTING_PKG.DEBUG('p_doc_level_id ' || p_doc_level_id, d_position);
2362: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2363:
2364: d_position := 10;
2365:
2366: IF p_level = 'LINE' AND p_idv_line_id IS NOT NULL THEN
2370: WHERE pol.po_line_id = p_doc_level_id;
2371: ELSIF p_level = 'HEADER' THEN
2372: l_header_id := p_doc_level_id;
2373: ELSE
2374: PO_UDA_DEFAULTING_PKG.DEBUG('Incorrect level', d_position);
2375: END IF;
2376:
2377: IF l_header_id IS NOT NULL THEN
2378:
2395: );
2396:
2397: d_position := 40;
2398:
2399: PO_UDA_DEFAULTING_PKG.DEBUG('l_precision ' || l_precision, d_position);
2400: PO_UDA_DEFAULTING_PKG.DEBUG('l_mau ' || l_mau, d_position);
2401:
2402: d_position := 50;
2403:
2396:
2397: d_position := 40;
2398:
2399: PO_UDA_DEFAULTING_PKG.DEBUG('l_precision ' || l_precision, d_position);
2400: PO_UDA_DEFAULTING_PKG.DEBUG('l_mau ' || l_mau, d_position);
2401:
2402: d_position := 50;
2403:
2404: BEGIN
2449: EXCEPTION
2450: WHEN No_Data_Found THEN
2451: RETURN 0;
2452: WHEN OTHERS THEN
2453: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in getAmountOrderedForIDV', d_position);
2454: RETURN 0;
2455: END;
2456:
2457: d_position := 60;
2455: END;
2456:
2457: d_position := 60;
2458:
2459: PO_UDA_DEFAULTING_PKG.DEBUG('l_return_val ' || l_return_val, d_position);
2460:
2461: d_position := 70;
2462:
2463: END IF;
2465: RETURN l_return_val;
2466:
2467: EXCEPTION
2468: WHEN OTHERS THEN
2469: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in getAmountOrderedForIDV', d_position);
2470: RETURN 0;
2471: END getAmountOrderedForIDV;
2472:
2473: ----------------------------------------------------------------------------
2505: l_header_id NUMBER := NULL;
2506:
2507: BEGIN
2508:
2509: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrdered with parameters', d_position);
2510: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id ' || p_draft_id, d_position);
2511: PO_UDA_DEFAULTING_PKG.DEBUG('p_header_id ' || p_header_id, d_position);
2512: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2513: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_line_id ' || p_idv_line_id, d_position);
2506:
2507: BEGIN
2508:
2509: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrdered with parameters', d_position);
2510: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id ' || p_draft_id, d_position);
2511: PO_UDA_DEFAULTING_PKG.DEBUG('p_header_id ' || p_header_id, d_position);
2512: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2513: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_line_id ' || p_idv_line_id, d_position);
2514:
2507: BEGIN
2508:
2509: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrdered with parameters', d_position);
2510: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id ' || p_draft_id, d_position);
2511: PO_UDA_DEFAULTING_PKG.DEBUG('p_header_id ' || p_header_id, d_position);
2512: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2513: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_line_id ' || p_idv_line_id, d_position);
2514:
2515: d_position := 10;
2508:
2509: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrdered with parameters', d_position);
2510: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id ' || p_draft_id, d_position);
2511: PO_UDA_DEFAULTING_PKG.DEBUG('p_header_id ' || p_header_id, d_position);
2512: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2513: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_line_id ' || p_idv_line_id, d_position);
2514:
2515: d_position := 10;
2516:
2509: PO_UDA_DEFAULTING_PKG.DEBUG('Startig function getAmountOrdered with parameters', d_position);
2510: PO_UDA_DEFAULTING_PKG.DEBUG('p_draft_id ' || p_draft_id, d_position);
2511: PO_UDA_DEFAULTING_PKG.DEBUG('p_header_id ' || p_header_id, d_position);
2512: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_header_id ' || p_idv_header_id, d_position);
2513: PO_UDA_DEFAULTING_PKG.DEBUG('p_idv_line_id ' || p_idv_line_id, d_position);
2514:
2515: d_position := 10;
2516:
2517: SELECT poh.currency_code, poh.org_id
2585: EXCEPTION
2586: WHEN No_Data_Found THEN
2587: RETURN 0;
2588: WHEN OTHERS THEN
2589: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in getAmountOrdered', d_position);
2590: RETURN 0;
2591: END;
2592: d_position := 60;
2593: PO_UDA_DEFAULTING_PKG.DEBUG('l_return_val ' || l_return_val, d_position);
2589: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in getAmountOrdered', d_position);
2590: RETURN 0;
2591: END;
2592: d_position := 60;
2593: PO_UDA_DEFAULTING_PKG.DEBUG('l_return_val ' || l_return_val, d_position);
2594:
2595: RETURN l_return_val;
2596:
2597: EXCEPTION
2595: RETURN l_return_val;
2596:
2597: EXCEPTION
2598: WHEN OTHERS THEN
2599: PO_UDA_DEFAULTING_PKG.DEBUG('Exception in getAmountOrdered', d_position);
2600: RETURN 0;
2601: END getAmountOrdered;
2602:
2603: END;