DBA Data[Home] [Help]

APPS.QP_LIMIT_BALANCE_CHECK_PVT dependencies on FND_API

Line 33: IF l_debug = FND_API.G_TRUE THEN

29: l_operator_name VARCHAR2(80);
30: BEGIN
31: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
32:
33: IF l_debug = FND_API.G_TRUE THEN
34: QP_PREQ_GRP.engine_debug('*** Entering Build_Message_Text ****');
35: QP_PREQ_GRP.engine_debug('Limit Level '||p_limit_level);
36: END IF;
37:

Line 44: IF l_debug = FND_API.G_TRUE THEN

40: select name into l_modifier_name from qp_list_headers_vl
41: where list_header_id = p_List_Header_Id;
42: EXCEPTION
43: when no_data_found then
44: IF l_debug = FND_API.G_TRUE THEN
45: QP_PREQ_GRP.engine_debug('*** list header not found for id ***' || p_List_Header_Id);
46: END IF;
47: END;
48: END IF;

Line 56: IF l_debug = FND_API.G_TRUE THEN

52: select list_line_no into l_list_line_no from qp_list_lines
53: where list_line_id = p_List_Line_Id;
54: EXCEPTION
55: when no_data_found then
56: IF l_debug = FND_API.G_TRUE THEN
57: QP_PREQ_GRP.engine_debug('*** list line not found for id ***' || p_List_Line_Id);
58: END IF;
59: END;
60: END IF;

Line 67: IF l_debug = FND_API.G_TRUE THEN

63: select limit_number into l_limit_number from qp_limits
64: where limit_id = p_Limit_Id;
65: EXCEPTION
66: when no_data_found then
67: IF l_debug = FND_API.G_TRUE THEN
68: QP_PREQ_GRP.engine_debug('*** limit not found for id ***'||p_Limit_Id);
69: END IF;
70: END;
71:

Line 77: IF l_debug = FND_API.G_TRUE THEN

73: select meaning into l_operator_name from qp_lookups
74: where LOOKUP_TYPE = 'ARITHMETIC_OPERATOR' and lookup_code = p_operand_calculation_code;
75: EXCEPTION
76: when no_data_found then
77: IF l_debug = FND_API.G_TRUE THEN
78: QP_PREQ_GRP.engine_debug('*** lookup code found ***');
79: END IF;
80: END;
81:

Line 82: IF l_debug = FND_API.G_TRUE THEN

78: QP_PREQ_GRP.engine_debug('*** lookup code found ***');
79: END IF;
80: END;
81:
82: IF l_debug = FND_API.G_TRUE THEN
83: QP_PREQ_GRP.engine_debug('######INSIDE BUILD_MESSAGE_TEXT######- ARITHMETIC_OPERATOR ' || p_operand_calculation_code);
84:
85: QP_PREQ_GRP.engine_debug('######INSIDE BUILD_MESSAGE_TEXT######- ARITHMETIC_OPERATOR ' || l_operator_name);
86:

Line 129: IF l_debug = FND_API.G_TRUE THEN

125: END IF;
126:
127: p_message_text := l_message_text;
128:
129: IF l_debug = FND_API.G_TRUE THEN
130: QP_PREQ_GRP.engine_debug('*** Leaving Build_Message_Text ****');
131: END IF;
132:
133: END Build_Message_Text;

Line 148: IF l_debug = FND_API.G_TRUE THEN

144: l_return_status VARCHAR2(1);
145:
146: BEGIN
147: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
148: IF l_debug = FND_API.G_TRUE THEN
149: QP_PREQ_GRP.engine_debug('------------------------');
150: QP_PREQ_GRP.engine_debug('***Begin Update_Balance***');
151:
152: END IF;

Line 158: IF l_debug = FND_API.G_TRUE THEN

154:
155: --Get the minimum available_percent across all limitbalances for a given line
156: FOR i IN g_limit_balance_line.FIRST..g_limit_balance_line.LAST
157: LOOP
158: IF l_debug = FND_API.G_TRUE THEN
159: QP_PREQ_GRP.engine_debug('Processing g_limit_balance_line ' || i);
160:
161: END IF;
162: IF g_limit_balance_line(i).hard_limit_exceeded THEN

Line 163: IF l_debug = FND_API.G_TRUE THEN

159: QP_PREQ_GRP.engine_debug('Processing g_limit_balance_line ' || i);
160:
161: END IF;
162: IF g_limit_balance_line(i).hard_limit_exceeded THEN
163: IF l_debug = FND_API.G_TRUE THEN
164: QP_PREQ_GRP.engine_debug('Hard Limit with 0 balance encountered. ' ||
165: 'Deleting all Balance lines for current list_line_id. ');
166: END IF;
167: g_limit_balance_line.DELETE; -- No need to process balances further

Line 168: l_return_status := FND_API.G_RET_STS_SUCCESS;

164: QP_PREQ_GRP.engine_debug('Hard Limit with 0 balance encountered. ' ||
165: 'Deleting all Balance lines for current list_line_id. ');
166: END IF;
167: g_limit_balance_line.DELETE; -- No need to process balances further
168: l_return_status := FND_API.G_RET_STS_SUCCESS;
169: RETURN l_return_status;
170: --without updating any of the limits for current list_line_id
171: END IF;
172:

Line 174: IF l_debug = FND_API.G_TRUE THEN

170: --without updating any of the limits for current list_line_id
171: END IF;
172:
173: l_percent := least(l_percent, g_limit_balance_line(i).available_percent);
174: IF l_debug = FND_API.G_TRUE THEN
175: QP_PREQ_GRP.engine_debug('least percent so far' || l_percent);
176: END IF;
177: END LOOP;
178:

Line 182: IF l_debug = FND_API.G_TRUE THEN

178:
179: --Perform Update or Insert into qp_limit_balances as required.
180: FOR i IN g_limit_balance_line.FIRST..g_limit_balance_line.LAST
181: LOOP
182: IF l_debug = FND_API.G_TRUE THEN
183: QP_PREQ_GRP.engine_debug('Processing limit '||g_limit_balance_line(i).limit_id);
184:
185: QP_PREQ_GRP.engine_debug('Limit Level Code '||
186: g_limit_balance_line(i).limit_level_code);

Line 218: IF l_debug = FND_API.G_TRUE THEN

214:
215: l_given_amount := round((l_percent/100) * g_limit_balance_line(i).wanted_amount,2);
216:
217: IF g_limit_balance_line(i).process_action = g_update THEN
218: IF l_debug = FND_API.G_TRUE THEN
219: QP_PREQ_GRP.engine_debug('Update Required');
220:
221: END IF;
222: IF g_limit_balance_line(i).limit_level_code = 'ACROSS_TRANSACTION' THEN

Line 264: IF l_debug = FND_API.G_TRUE THEN

260: END IF; --If limit_level_code = 'ACROSS_TRANSACTION'
261:
262: --Calculated Limit Balance no longer available. Raise error.
263: IF SQL%ROWCOUNT = 0 THEN
264: IF l_debug = FND_API.G_TRUE THEN
265: QP_PREQ_GRP.engine_debug('Balance no longer available ');
266: END IF;
267: RAISE E_BALANCE_NOT_AVAILABLE;
268: END IF;

Line 271: IF l_debug = FND_API.G_TRUE THEN

267: RAISE E_BALANCE_NOT_AVAILABLE;
268: END IF;
269:
270: ELSIF g_limit_balance_line(i).process_action = g_insert THEN
271: IF l_debug = FND_API.G_TRUE THEN
272: QP_PREQ_GRP.engine_debug('Insert Required');
273:
274: QP_PREQ_GRP.engine_debug('given_amount '|| l_given_amount);
275: QP_PREQ_GRP.engine_debug('transaction_amount '||

Line 333: IF l_debug = FND_API.G_TRUE THEN

329: );
330:
331: END IF;
332:
333: IF l_debug = FND_API.G_TRUE THEN
334: QP_PREQ_GRP.engine_debug('amount given'||l_given_amount);
335: END IF;
336: g_limit_balance_line(i).given_amount := l_given_amount;
337: g_limit_balance_line(i).least_percent := l_percent;

Line 372: IF l_debug = FND_API.G_TRUE THEN

368: END IF; --g_limit_balance_line.COUNT > 0
369:
370: COMMIT;
371:
372: IF l_debug = FND_API.G_TRUE THEN
373: QP_PREQ_GRP.engine_debug('***End Update_Balance***');
374: QP_PREQ_GRP.engine_debug('------------------------');
375:
376: END IF;

Line 377: l_return_status := FND_API.G_RET_STS_SUCCESS;

373: QP_PREQ_GRP.engine_debug('***End Update_Balance***');
374: QP_PREQ_GRP.engine_debug('------------------------');
375:
376: END IF;
377: l_return_status := FND_API.G_RET_STS_SUCCESS;
378: x_return_text := 'Success';
379:
380: RETURN l_return_status;
381:

Line 384: IF l_debug = FND_API.G_TRUE THEN

380: RETURN l_return_status;
381:
382: EXCEPTION
383: WHEN DUP_VAL_ON_INDEX THEN
384: IF l_debug = FND_API.G_TRUE THEN
385: QP_PREQ_GRP.engine_debug('Insert Failed with Duplicate Value on Index');
386: END IF;
387: l_return_status := FND_API.G_RET_STS_ERROR;
388: x_return_text := 'Insert Failed with Duplicate Value on Index error ' ||

Line 387: l_return_status := FND_API.G_RET_STS_ERROR;

383: WHEN DUP_VAL_ON_INDEX THEN
384: IF l_debug = FND_API.G_TRUE THEN
385: QP_PREQ_GRP.engine_debug('Insert Failed with Duplicate Value on Index');
386: END IF;
387: l_return_status := FND_API.G_RET_STS_ERROR;
388: x_return_text := 'Insert Failed with Duplicate Value on Index error ' ||
389: 'in procedure Update_Balance';
390: ROLLBACK;
391: RETURN l_return_status;

Line 394: IF l_debug = FND_API.G_TRUE THEN

390: ROLLBACK;
391: RETURN l_return_status;
392:
393: WHEN E_BALANCE_NOT_AVAILABLE THEN
394: IF l_debug = FND_API.G_TRUE THEN
395: QP_PREQ_GRP.engine_debug('Limit Balance no longer available.Update Failed.');
396: END IF;
397: l_return_status := FND_API.G_RET_STS_ERROR;
398: x_return_text := 'Update Failed in procedure Update_Balance because ' ||

Line 397: l_return_status := FND_API.G_RET_STS_ERROR;

393: WHEN E_BALANCE_NOT_AVAILABLE THEN
394: IF l_debug = FND_API.G_TRUE THEN
395: QP_PREQ_GRP.engine_debug('Limit Balance no longer available.Update Failed.');
396: END IF;
397: l_return_status := FND_API.G_RET_STS_ERROR;
398: x_return_text := 'Update Failed in procedure Update_Balance because ' ||
399: 'Limit Balance no longer available';
400: ROLLBACK;
401: RETURN l_return_status;

Line 404: IF l_debug = FND_API.G_TRUE THEN

400: ROLLBACK;
401: RETURN l_return_status;
402:
403: WHEN OTHERS THEN
404: IF l_debug = FND_API.G_TRUE THEN
405: QP_PREQ_GRP.engine_debug('Other Exception in Update_Balance');
406: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
407: END IF;
408: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 408: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

404: IF l_debug = FND_API.G_TRUE THEN
405: QP_PREQ_GRP.engine_debug('Other Exception in Update_Balance');
406: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
407: END IF;
408: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: x_return_text := substr(sqlerrm, 1, 2000);
410: ROLLBACK;
411: RETURN l_return_status;
412:

Line 433: IF l_debug = FND_API.G_TRUE THEN

429: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
430: --Increment the recheck loop count everytime the Function is entered.
431: G_LOOP_COUNT := G_LOOP_COUNT + 1;
432:
433: IF l_debug = FND_API.G_TRUE THEN
434: QP_PREQ_GRP.engine_debug('***Begin Recheck_Balance***');
435:
436: END IF;
437: IF g_limit_balance_line.COUNT > 0 THEN

Line 442: IF l_debug = FND_API.G_TRUE THEN

438:
439: FOR i IN g_limit_balance_line.FIRST..g_limit_balance_line.LAST
440: LOOP
441: IF g_limit_balance_line(i).each_attr_exists = 'N' THEN
442: IF l_debug = FND_API.G_TRUE THEN
443: QP_PREQ_GRP.engine_debug('Each attr does not exist');
444: END IF;
445: BEGIN
446:

Line 478: IF l_debug = FND_API.G_TRUE THEN

474: l_full_available_amount := g_limit_balance_line(i).limit_amount;
475: g_limit_balance_line(i).process_action := g_insert;
476:
477: WHEN TOO_MANY_ROWS THEN
478: IF l_debug = FND_API.G_TRUE THEN
479: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
480:
481: END IF;
482: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 511: IF l_debug = FND_API.G_TRUE THEN

507: WHERE line_index = g_limit_balance_line(i).line_index
508: AND created_from_list_line_id =
509: g_limit_balance_line(i).list_line_id;
510:
511: IF l_debug = FND_API.G_TRUE THEN
512: QP_PREQ_GRP.engine_debug(l_message);
513:
514: END IF;
515: END IF;

Line 523: IF l_debug = FND_API.G_TRUE THEN

519: g_limit_balance_line(i).hard_limit_exceeded := TRUE;
520: RAISE;
521:
522: WHEN OTHERS THEN
523: IF l_debug = FND_API.G_TRUE THEN
524: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
525:
526: END IF;
527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 555: IF l_debug = FND_API.G_TRUE THEN

551: WHERE line_index = g_limit_balance_line(i).line_index
552: AND created_from_list_line_id =
553: g_limit_balance_line(i).list_line_id;
554:
555: IF l_debug = FND_API.G_TRUE THEN
556: QP_PREQ_GRP.engine_debug(l_message);
557:
558: END IF;
559: END IF;

Line 569: IF l_debug = FND_API.G_TRUE THEN

565:
566: END;--End of Block around Select Stmt when limit does not have each attrs
567:
568: ELSIF g_limit_balance_line(i).each_attr_exists = 'Y' THEN
569: IF l_debug = FND_API.G_TRUE THEN
570: QP_PREQ_GRP.engine_debug('Each attr exists');
571: END IF;
572: BEGIN
573:

Line 605: IF l_debug = FND_API.G_TRUE THEN

601: l_full_available_amount := g_limit_balance_line(i).limit_amount;
602: g_limit_balance_line(i).process_action := g_insert;
603:
604: WHEN TOO_MANY_ROWS THEN
605: IF l_debug = FND_API.G_TRUE THEN
606: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
607:
608: END IF;
609: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 638: IF l_debug = FND_API.G_TRUE THEN

634: WHERE line_index = g_limit_balance_line(i).line_index
635: AND created_from_list_line_id =
636: g_limit_balance_line(i).list_line_id;
637:
638: IF l_debug = FND_API.G_TRUE THEN
639: QP_PREQ_GRP.engine_debug(l_message);
640:
641: END IF;
642: END IF;

Line 650: IF l_debug = FND_API.G_TRUE THEN

646: g_limit_balance_line(i).hard_limit_exceeded := TRUE;
647: RAISE;
648:
649: WHEN OTHERS THEN
650: IF l_debug = FND_API.G_TRUE THEN
651: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
652:
653: END IF;
654: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 682: IF l_debug = FND_API.G_TRUE THEN

678: WHERE line_index = g_limit_balance_line(i).line_index
679: AND created_from_list_line_id =
680: g_limit_balance_line(i).list_line_id;
681:
682: IF l_debug = FND_API.G_TRUE THEN
683: QP_PREQ_GRP.engine_debug(l_message);
684:
685: END IF;
686: END IF;

Line 697: IF l_debug = FND_API.G_TRUE THEN

693: END;--End of Block around Select Stmt when limit has each attrs
694:
695: END IF; --If each_attr_exists
696:
697: IF l_debug = FND_API.G_TRUE THEN
698: QP_PREQ_GRP.engine_debug('Action to take '||g_limit_balance_line(i).process_action);
699:
700: END IF;
701: --Check the Limit Transaction Table to see if the same request has a

Line 793: IF l_debug = FND_API.G_TRUE THEN

789: END LOOP; --over the g_limit_balance_lines
790:
791: END IF; --g_limit_balance_line.COUNT > 0
792:
793: IF l_debug = FND_API.G_TRUE THEN
794: QP_PREQ_GRP.engine_debug('***End Recheck_Balance***');
795:
796: END IF;
797: EXCEPTION

Line 799: IF l_debug = FND_API.G_TRUE THEN

795:
796: END IF;
797: EXCEPTION
798: WHEN OTHERS THEN
799: IF l_debug = FND_API.G_TRUE THEN
800: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
801: END IF;
802: RETURN FALSE;
803: END Recheck_Balance;

Line 860: IF l_debug = FND_API.G_TRUE THEN

856:
857: BEGIN
858:
859: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
860: IF l_debug = FND_API.G_TRUE THEN
861: QP_PREQ_GRP.engine_debug('***Begin Check_Balance***');
862: END IF;
863: IF g_Limit_balance_line.COUNT = 0 THEN
864: i:=1;

Line 870: IF l_debug = FND_API.G_TRUE THEN

866: i := g_limit_balance_line.LAST + 1;
867: END IF;
868: x_skip_limit := FALSE;
869:
870: IF l_debug = FND_API.G_TRUE THEN
871: QP_PREQ_GRP.engine_debug('populating limit_balance_line '||i);
872: QP_PREQ_GRP.engine_debug('limit_id '||p_limit_rec.limit_id);
873:
874: END IF;

Line 878: IF l_debug = FND_API.G_TRUE THEN

874: END IF;
875: IF p_limit_rec.each_attr_exists = 'N' THEN
876: --If limit has no each (pure non-each) or no attributes
877: --(For such cases a balance record will always exist since setup creates one)
878: IF l_debug = FND_API.G_TRUE THEN
879: QP_PREQ_GRP.engine_debug('No Each-type attributes defined for this limit');
880:
881: END IF;
882: g_limit_balance_line(i).limit_id := p_limit_rec.limit_id;

Line 912: IF l_debug = FND_API.G_TRUE THEN

908: ELSIF p_limit_rec.limit_level_code = 'TRANSACTION' THEN
909: g_limit_balance_line(i).bal_price_request_code :=
910: QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE;
911: END IF; --If limit_level_code = 'ACROSS_TRANSACTION'
912: IF l_debug = FND_API.G_TRUE THEN
913: QP_PREQ_GRP.engine_debug('bal_price_request_code '||
914: g_limit_balance_line(i).bal_price_request_code);
915: END IF;
916: --Populate price_request_code from limits_cur for limit_transns table

Line 960: IF l_debug = FND_API.G_TRUE THEN

956: END IF; --If limit_level_code is 'ACROSS_TRANSACTION'
957:
958: g_limit_balance_line(i).process_action := g_update;
959:
960: IF l_debug = FND_API.G_TRUE THEN
961: QP_PREQ_GRP.engine_debug('Available Balance '|| l_full_available_amount);
962:
963: END IF;
964: EXCEPTION

Line 970: IF l_debug = FND_API.G_TRUE THEN

966: select qp_limit_balances_s.nextval
967: into g_limit_balance_line(i).limit_balance_id from dual;
968: l_full_available_amount := p_limit_rec.amount;
969: g_limit_balance_line(i).process_action := g_insert;
970: IF l_debug = FND_API.G_TRUE THEN
971: QP_PREQ_GRP.engine_debug('Balance Record Missing');
972:
973: END IF;
974: WHEN E_ORDER_PRICE_REQ_CODE_NULL THEN

Line 1004: IF l_debug = FND_API.G_TRUE THEN

1000: WHERE line_index = g_limit_balance_line(i).line_index
1001: AND created_from_list_line_id =
1002: g_limit_balance_line(i).list_line_id;
1003:
1004: IF l_debug = FND_API.G_TRUE THEN
1005: QP_PREQ_GRP.engine_debug(l_message);
1006:
1007: END IF;
1008: END IF;

Line 1011: IF l_debug = FND_API.G_TRUE THEN

1007: END IF;
1008: END IF;
1009:
1010: WHEN TOO_MANY_ROWS THEN
1011: IF l_debug = FND_API.G_TRUE THEN
1012: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1013:
1014: END IF;
1015: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 1044: IF l_debug = FND_API.G_TRUE THEN

1040: WHERE line_index = g_limit_balance_line(i).line_index
1041: AND created_from_list_line_id =
1042: g_limit_balance_line(i).list_line_id;
1043:
1044: IF l_debug = FND_API.G_TRUE THEN
1045: QP_PREQ_GRP.engine_debug(l_message);
1046:
1047: END IF;
1048: END IF;

Line 1056: IF l_debug = FND_API.G_TRUE THEN

1052: g_limit_balance_line(i).hard_limit_exceeded := TRUE;
1053: RAISE;
1054:
1055: WHEN OTHERS THEN
1056: IF l_debug = FND_API.G_TRUE THEN
1057: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1058:
1059: END IF;
1060: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 1088: IF l_debug = FND_API.G_TRUE THEN

1084: WHERE line_index = g_limit_balance_line(i).line_index
1085: AND created_from_list_line_id =
1086: g_limit_balance_line(i).list_line_id;
1087:
1088: IF l_debug = FND_API.G_TRUE THEN
1089: QP_PREQ_GRP.engine_debug(l_message);
1090:
1091: END IF;
1092: END IF;

Line 1177: IF l_debug = FND_API.G_TRUE THEN

1173: END IF;--If line_category is 'RETURN'
1174:
1175: END IF; --If limit_exceed_action_code = 'HARD'
1176:
1177: IF l_debug = FND_API.G_TRUE THEN
1178: QP_PREQ_GRP.engine_debug('p_wanted_amount '||p_wanted_amount);
1179: QP_PREQ_GRP.engine_debug('available_amount '||
1180: g_limit_balance_line(i).available_amount);
1181:

Line 1190: IF l_debug = FND_API.G_TRUE THEN

1186: ELSE
1187: g_limit_balance_line(i).available_percent := 100;
1188: END IF;
1189:
1190: IF l_debug = FND_API.G_TRUE THEN
1191: QP_PREQ_GRP.engine_debug('available_percent '||
1192: g_limit_balance_line(i).available_percent);
1193: END IF;
1194:

Line 1196: IF l_debug = FND_API.G_TRUE THEN

1192: g_limit_balance_line(i).available_percent);
1193: END IF;
1194:
1195: g_limit_balance_line(i).hard_limit_exceeded := FALSE;
1196: IF l_debug = FND_API.G_TRUE THEN
1197: QP_PREQ_GRP.engine_debug('***End Check_Balance***');
1198: END IF;
1199: RETURN TRUE;
1200:

Line 1204: IF l_debug = FND_API.G_TRUE THEN

1200:
1201: ELSIF p_limit_rec.each_attr_exists = 'Y' THEN
1202: --Mixed case where both Each and Non-Each Attributes exist for the limit
1203: --and pure Each case
1204: IF l_debug = FND_API.G_TRUE THEN
1205: QP_PREQ_GRP.engine_debug('Each-type attributes defined for this limit');
1206: END IF;
1207:
1208: --Fetch all the org, customer and item type context,attribute and value

Line 1240: IF l_debug = FND_API.G_TRUE THEN

1236: l_item_table(i3).value := l_item_rec.value_from;
1237: i3 := i3+1;
1238: END LOOP;
1239:
1240: IF l_debug = FND_API.G_TRUE THEN
1241: QP_PREQ_GRP.engine_debug('Organization Attr Count '|| l_org_table.count);
1242: QP_PREQ_GRP.engine_debug('Attribute1 Count '|| l_cust_table.count);
1243: QP_PREQ_GRP.engine_debug('Attribute2 Count '|| l_item_table.count);
1244:

Line 1256: IF l_debug = FND_API.G_TRUE THEN

1252: l_cust_table.COUNT = 0
1253: OR p_limit_rec.multival_attr2_context <> 'NA' AND
1254: l_item_table.COUNT = 0
1255: THEN
1256: IF l_debug = FND_API.G_TRUE THEN
1257: QP_PREQ_GRP.engine_debug('Skipping Limit '|| p_limit_rec.limit_id);
1258: END IF;
1259: x_skip_limit := TRUE;
1260: RETURN TRUE;

Line 1329: IF l_debug = FND_API.G_TRUE THEN

1325: ELSIF p_limit_rec.limit_level_code = 'TRANSACTION' THEN
1326: g_limit_balance_line(i).bal_price_request_code :=
1327: QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE;
1328: END IF;--If limit_level_code = 'ACROSS_TRANSACTION'
1329: IF l_debug = FND_API.G_TRUE THEN
1330: QP_PREQ_GRP.engine_debug('bal_price_request_code '||
1331: g_limit_balance_line(i).bal_price_request_code);
1332: END IF;
1333: --Populate price_request_code for limit_transactions table

Line 1461: IF l_debug = FND_API.G_TRUE THEN

1457: END IF;--If limit_level_code = 'ACROSS_TRANSACTION'
1458:
1459: g_limit_balance_line(i).process_action := g_update;
1460:
1461: IF l_debug = FND_API.G_TRUE THEN
1462: QP_PREQ_GRP.engine_debug('Available Balance '|| l_full_available_amount);
1463: END IF;
1464: EXCEPTION
1465: WHEN NO_DATA_FOUND THEN

Line 1532: IF l_debug = FND_API.G_TRUE THEN

1528: WHERE line_index = g_limit_balance_line(i).line_index
1529: AND created_from_list_line_id =
1530: g_limit_balance_line(i).list_line_id;
1531:
1532: IF l_debug = FND_API.G_TRUE THEN
1533: QP_PREQ_GRP.engine_debug(l_message);
1534:
1535: END IF;
1536: END IF;

Line 1539: IF l_debug = FND_API.G_TRUE THEN

1535: END IF;
1536: END IF;
1537:
1538: WHEN TOO_MANY_ROWS THEN
1539: IF l_debug = FND_API.G_TRUE THEN
1540: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1541:
1542: END IF;
1543: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 1573: IF l_debug = FND_API.G_TRUE THEN

1569: WHERE line_index = g_limit_balance_line(i).line_index
1570: AND created_from_list_line_id =
1571: g_limit_balance_line(i).list_line_id;
1572:
1573: IF l_debug = FND_API.G_TRUE THEN
1574: QP_PREQ_GRP.engine_debug(l_message);
1575:
1576: END IF;
1577: END IF;

Line 1585: IF l_debug = FND_API.G_TRUE THEN

1581: g_limit_balance_line(i).hard_limit_exceeded := TRUE;
1582: RAISE;
1583:
1584: WHEN OTHERS THEN
1585: IF l_debug = FND_API.G_TRUE THEN
1586: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1587:
1588: END IF;
1589: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 1619: IF l_debug = FND_API.G_TRUE THEN

1615: WHERE line_index = g_limit_balance_line(i).line_index
1616: AND created_from_list_line_id =
1617: g_limit_balance_line(i).list_line_id;
1618:
1619: IF l_debug = FND_API.G_TRUE THEN
1620: QP_PREQ_GRP.engine_debug(l_message);
1621:
1622: END IF;
1623: END IF;

Line 1705: IF l_debug = FND_API.G_TRUE THEN

1701: END IF; --If line_category is 'RETURN'
1702:
1703: END IF; --If limit_exceed_action_code is 'HARD'
1704:
1705: IF l_debug = FND_API.G_TRUE THEN
1706: QP_PREQ_GRP.engine_debug('p_wanted_amount '||p_wanted_amount);
1707: QP_PREQ_GRP.engine_debug('available_amount '||
1708: g_limit_balance_line(i).available_amount);
1709:

Line 1718: IF l_debug = FND_API.G_TRUE THEN

1714: ELSE
1715: g_limit_balance_line(i).available_percent := 100;
1716: END IF;
1717:
1718: IF l_debug = FND_API.G_TRUE THEN
1719: QP_PREQ_GRP.engine_debug('available_percent '||
1720: g_limit_balance_line(i).available_percent);
1721:
1722: END IF;

Line 1731: IF l_debug = FND_API.G_TRUE THEN

1727: END LOOP; --over l_item_table
1728: END LOOP; --over l_cust_table
1729: END LOOP; --over l_org_table
1730:
1731: IF l_debug = FND_API.G_TRUE THEN
1732: QP_PREQ_GRP.engine_debug('***End Check_balance***');
1733: END IF;
1734: RETURN TRUE;
1735:

Line 1740: IF l_debug = FND_API.G_TRUE THEN

1736: END IF; --If Each Attributes Exist for the Limit
1737:
1738: EXCEPTION
1739: WHEN OTHERS THEN
1740: IF l_debug = FND_API.G_TRUE THEN
1741: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1742: END IF;
1743: RETURN FALSE;
1744: END Check_Balance;

Line 1812: IF l_debug = FND_API.G_TRUE THEN

1808: RETURN l_limit_available;
1809:
1810: EXCEPTION
1811: WHEN OTHERS THEN
1812: IF l_debug = FND_API.G_TRUE THEN
1813: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1814: END IF;
1815: RETURN FALSE;
1816: END Check_Balance_Wrapper;

Line 2099: IF l_debug = FND_API.G_TRUE THEN

2095:
2096: BEGIN
2097:
2098: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2099: IF l_debug = FND_API.G_TRUE THEN
2100: QP_PREQ_GRP.engine_debug('***Begin Process_Limits***');
2101:
2102: END IF;
2103: --Initialize x_return_status

Line 2104: x_return_status := FND_API.G_RET_STS_SUCCESS;

2100: QP_PREQ_GRP.engine_debug('***Begin Process_Limits***');
2101:
2102: END IF;
2103: --Initialize x_return_status
2104: x_return_status := FND_API.G_RET_STS_SUCCESS;
2105: x_return_text := 'Success';
2106:
2107: --Reset global plsql table storing limit balances
2108: g_limit_balance_line.DELETE;

Line 2118: IF l_debug = FND_API.G_TRUE THEN

2114:
2115: FOR l_limit_rec IN limits_cur
2116: LOOP
2117:
2118: IF l_debug = FND_API.G_TRUE THEN
2119: QP_PREQ_GRP.engine_debug('========================');
2120: QP_PREQ_GRP.engine_debug('In limits_cur loop');
2121:
2122: QP_PREQ_GRP.engine_debug('list header id of previous limit ' || l_old_limit_rec.created_from_list_header_id);

Line 2141: IF l_debug = FND_API.G_TRUE THEN

2137: l_old_limit_rec.created_from_list_line_id AND
2138: l_limit_rec.line_index =
2139: l_old_limit_rec.line_index
2140: THEN
2141: IF l_debug = FND_API.G_TRUE THEN
2142: QP_PREQ_GRP.engine_debug('skipping limit '|| l_limit_rec.limit_id ||
2143: 'for line '||l_limit_rec.created_from_list_line_id);
2144:
2145: END IF;

Line 2158: IF l_debug = FND_API.G_TRUE THEN

2154: l_old_limit_rec.created_from_list_header_id AND
2155: l_limit_rec.line_index =
2156: l_old_limit_rec.line_index
2157: THEN
2158: IF l_debug = FND_API.G_TRUE THEN
2159: QP_PREQ_GRP.engine_debug('skipping limit '|| l_limit_rec.limit_id ||
2160: 'for header '||l_limit_rec.created_from_list_header_id);
2161:
2162: END IF;

Line 2186: IF l_debug = FND_API.G_TRUE THEN

2182: --Bug 4457725] Added to check for Group of Lines modifier such that a limit
2183: --is applied only once for a group
2184: select MODIFIER_LEVEL_CODE into l_modifier_level_code
2185: from qp_list_lines where list_line_id = l_old_limit_rec.created_from_list_line_id;
2186: IF l_debug = FND_API.G_TRUE THEN
2187: QP_PREQ_GRP.engine_debug('Modifier Level '||l_modifier_level_code);
2188: END IF;
2189:
2190: IF l_modifier_level_code = 'LINEGROUP' AND l_processed_limits_tbl.COUNT > 0

Line 2204: IF l_debug = FND_API.G_TRUE THEN

2200: END IF;
2201:
2202: IF l_modifier_level_code = 'LINEGROUP' AND l_processed
2203: THEN
2204: IF l_debug = FND_API.G_TRUE THEN
2205: QP_PREQ_GRP.engine_debug('Line Group Modifier with limit id '||l_old_limit_rec.limit_id||' already processed');
2206: END IF;
2207: --Clear the global plsql table storing limits info.
2208: g_limit_balance_line.DELETE;

Line 2217: IF l_debug = FND_API.G_TRUE THEN

2213:
2214: G_LOOP_COUNT := 0; --Initialize whenever line_index or list_line_id
2215: --changes, i.e., before each loop
2216: LOOP
2217: IF l_debug = FND_API.G_TRUE THEN
2218: QP_PREQ_GRP.engine_debug('Change in list_line_id or line_index. ' ||
2219: 'Update limit balance. Loop through ' ||
2220: 'Recheck_balance and Update_Balance, if ' ||
2221: 'necessary ');

Line 2231: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

2227: l_processed_limits_tbl(l_processed_limit_count) := l_old_limit_rec.limit_id;
2228: l_processed_limit_count := l_processed_limit_count+1;
2229: END IF;
2230:
2231: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2232:
2233: IF G_LOOP_COUNT <= G_MAX_LOOP_COUNT THEN
2234: l_retcode := Recheck_Balance;
2235: ELSE

Line 2236: RAISE FND_API.G_EXC_ERROR;

2232:
2233: IF G_LOOP_COUNT <= G_MAX_LOOP_COUNT THEN
2234: l_retcode := Recheck_Balance;
2235: ELSE
2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238:
2239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2235: ELSE
2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238:
2239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2241:
2242: ELSE --If Update_Balance successful
2243: IF g_limit_balance_line.COUNT > 0 THEN

Line 2240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238:
2239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2241:
2242: ELSE --If Update_Balance successful
2243: IF g_limit_balance_line.COUNT > 0 THEN
2244:

Line 2287: IF l_debug = FND_API.G_TRUE THEN

2283: ,p_least_percent => g_limit_balance_line(j).least_percent
2284: ,p_message_text => l_limit_text
2285: );
2286:
2287: IF l_debug = FND_API.G_TRUE THEN
2288: QP_PREQ_GRP.engine_debug('################# ' || l_limit_text);
2289:
2290: END IF;
2291: END IF;

Line 2309: IF l_debug = FND_API.G_TRUE THEN

2305: THEN
2306: l_hold_code := QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED;
2307: END IF;
2308:
2309: IF l_debug = FND_API.G_TRUE THEN
2310: QP_PREQ_GRP.engine_debug('Hold Flag is ' || g_limit_balance_line(j).limit_hold_flag );
2311: QP_PREQ_GRP.engine_debug('Hold Code is ' || l_hold_code);
2312:
2313: END IF;

Line 2378: IF l_debug = FND_API.G_TRUE THEN

2374: g_limit_balance_line(j).line_detail_index);
2375:
2376: END IF;--If created_from_list_line_type = 'PBH'
2377:
2378: IF l_debug = FND_API.G_TRUE THEN
2379: QP_PREQ_GRP.engine_debug('line_index '||
2380: g_limit_balance_line(j).line_index);
2381: QP_PREQ_GRP.engine_debug('limit_code '||
2382: g_limit_balance_line(j).limit_code);

Line 2400: IF l_debug = FND_API.G_TRUE THEN

2396: UPDATE qp_npreq_lines_tmp
2397: SET hold_code = DECODE(hold_code, QP_PREQ_GRP.G_STATUS_LIMIT_HOLD, QP_PREQ_GRP.G_STATUS_LIMIT_HOLD, l_hold_code)
2398: WHERE line_index = g_limit_balance_line(j).line_index;
2399:
2400: IF l_debug = FND_API.G_TRUE THEN
2401: QP_PREQ_GRP.engine_debug('Hold Flag is Y');
2402: QP_PREQ_GRP.engine_debug('Hold Code is '||QP_PREQ_GRP.G_STATUS_LIMIT_HOLD);
2403:
2404: END IF;

Line 2463: IF l_debug = FND_API.G_TRUE THEN

2459: END LOOP; --through limit balance lines
2460:
2461: END IF; --g_limit_balance_line.COUNT > 0
2462:
2463: IF l_debug = FND_API.G_TRUE THEN
2464: QP_PREQ_GRP.engine_debug('Done Updating Balances when line changed');
2465:
2466: END IF;
2467: --Clear the global plsql table storing limits info.

Line 2483: IF l_debug = FND_API.G_TRUE THEN

2479: x_skip_limit => l_skip_limit);
2480:
2481: IF NOT l_limit_available THEN
2482:
2483: IF l_debug = FND_API.G_TRUE THEN
2484: QP_PREQ_GRP.engine_debug('Limit not available - hard limit with 0 balance');
2485:
2486: END IF;
2487: --If Header-level limit, then skip all limits and go to the next

Line 2490: IF l_debug = FND_API.G_TRUE THEN

2486: END IF;
2487: --If Header-level limit, then skip all limits and go to the next
2488: --list_header limit. Elseif line_level go to the next line_level limit.
2489: IF l_limit_rec.limit_level = 'H' THEN
2490: IF l_debug = FND_API.G_TRUE THEN
2491: QP_PREQ_GRP.engine_debug('Header Level Limit '||
2492: l_limit_rec.limit_id ||' not available');
2493: END IF;
2494: /*

Line 2510: IF l_debug = FND_API.G_TRUE THEN

2506:
2507: l_skip_header := TRUE;
2508:
2509: ELSIF l_limit_rec.limit_level = 'L' THEN
2510: IF l_debug = FND_API.G_TRUE THEN
2511: QP_PREQ_GRP.engine_debug('Line Level Limit '||
2512: l_limit_rec.limit_id ||' not available');
2513: END IF;
2514: /*

Line 2533: IF l_debug = FND_API.G_TRUE THEN

2529: END IF;
2530:
2531: ELSIF l_limit_available AND l_skip_limit THEN
2532:
2533: IF l_debug = FND_API.G_TRUE THEN
2534: QP_PREQ_GRP.engine_debug('limit ' || l_limit_rec.limit_id ||
2535: ' available but' || 'skipped - does not qualify');
2536: END IF;
2537: l_skip_limit := FALSE;

Line 2544: IF l_debug = FND_API.G_TRUE THEN

2540: END IF; --If NOT l_limit_available
2541:
2542: l_old_limit_rec := l_limit_rec;
2543:
2544: IF l_debug = FND_API.G_TRUE THEN
2545: QP_PREQ_GRP.engine_debug('Repeat limits_cur loop for next limit - if any');
2546: END IF;
2547: <>
2548: null;

Line 2561: IF l_debug = FND_API.G_TRUE THEN

2557:
2558: G_LOOP_COUNT := 0; --Initialize before boundary condition loop
2559:
2560: LOOP
2561: IF l_debug = FND_API.G_TRUE THEN
2562: QP_PREQ_GRP.engine_debug('***Start Boundary condition processing***');
2563: END IF;
2564:
2565: select MODIFIER_LEVEL_CODE into l_modifier_level_code

Line 2567: IF l_debug = FND_API.G_TRUE THEN

2563: END IF;
2564:
2565: select MODIFIER_LEVEL_CODE into l_modifier_level_code
2566: from qp_list_lines where list_line_id = l_old_limit_rec.created_from_list_line_id;
2567: IF l_debug = FND_API.G_TRUE THEN
2568: QP_PREQ_GRP.engine_debug('Modifier Level '||l_modifier_level_code);
2569: END IF;
2570:
2571: IF l_modifier_level_code = 'LINEGROUP' AND l_processed_limits_tbl.COUNT > 0

Line 2585: IF l_debug = FND_API.G_TRUE THEN

2581: END IF;
2582:
2583: IF l_modifier_level_code = 'LINEGROUP' AND l_processed
2584: THEN
2585: IF l_debug = FND_API.G_TRUE THEN
2586: QP_PREQ_GRP.engine_debug('***Boundary condition GroupOfLines Limit already processed***');
2587: END IF;
2588: EXIT;
2589: END IF;

Line 2598: IF l_debug = FND_API.G_TRUE THEN

2594: l_processed_limits_tbl(l_processed_limit_count) := l_old_limit_rec.limit_id;
2595: l_processed_limit_count := l_processed_limit_count+1;
2596: END IF;
2597:
2598: IF l_debug = FND_API.G_TRUE THEN
2599: QP_PREQ_GRP.engine_debug('Update_Balance l_return_status ' ||l_return_status);
2600: END IF;
2601:
2602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

Line 2602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

2598: IF l_debug = FND_API.G_TRUE THEN
2599: QP_PREQ_GRP.engine_debug('Update_Balance l_return_status ' ||l_return_status);
2600: END IF;
2601:
2602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2603:
2604: IF G_LOOP_COUNT <= G_MAX_LOOP_COUNT THEN
2605: l_retcode := Recheck_Balance;
2606: ELSE

Line 2607: RAISE FND_API.G_EXC_ERROR;

2603:
2604: IF G_LOOP_COUNT <= G_MAX_LOOP_COUNT THEN
2605: l_retcode := Recheck_Balance;
2606: ELSE
2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2609:
2610: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2610: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2606: ELSE
2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2609:
2610: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2612:
2613: ELSE --If Update_Balance successful
2614:

Line 2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2607: RAISE FND_API.G_EXC_ERROR;
2608: END IF;
2609:
2610: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2612:
2613: ELSE --If Update_Balance successful
2614:
2615: IF g_limit_balance_line.COUNT > 0 THEN

Line 2638: IF l_debug = FND_API.G_TRUE THEN

2634: THEN
2635:
2636: l_limit_code := g_limit_balance_line(j).limit_code;
2637:
2638: IF l_debug = FND_API.G_TRUE THEN
2639: QP_PREQ_GRP.engine_debug('Before Buid_Message_Text');
2640: END IF;
2641:
2642: Build_Message_Text(

Line 2656: IF l_debug = FND_API.G_TRUE THEN

2652: ,p_least_percent => g_limit_balance_line(j).least_percent
2653: ,p_message_text => l_limit_text
2654: );
2655:
2656: IF l_debug = FND_API.G_TRUE THEN
2657: QP_PREQ_GRP.engine_debug('################# ' || l_limit_text);
2658:
2659: END IF;
2660: END IF;

Line 2667: IF l_debug = FND_API.G_TRUE THEN

2663: g_limit_balance_line(j).limit_code IN
2664: (QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED,
2665: QP_PREQ_GRP.G_STATUS_LIMIT_EXCEEDED)
2666: THEN
2667: IF l_debug = FND_API.G_TRUE THEN
2668: QP_PREQ_GRP.engine_debug('label 1');
2669: END IF;
2670: l_hold_code := QP_PREQ_GRP.G_STATUS_LIMIT_HOLD;
2671: END IF;

Line 2678: IF l_debug = FND_API.G_TRUE THEN

2674: g_limit_balance_line(j).limit_code IN
2675: (QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED,
2676: QP_PREQ_GRP.G_STATUS_LIMIT_EXCEEDED)
2677: THEN
2678: IF l_debug = FND_API.G_TRUE THEN
2679: QP_PREQ_GRP.engine_debug('label 2');
2680: END IF;
2681: l_hold_code := QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED;
2682: END IF;

Line 2684: IF l_debug = FND_API.G_TRUE THEN

2680: END IF;
2681: l_hold_code := QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED;
2682: END IF;
2683:
2684: IF l_debug = FND_API.G_TRUE THEN
2685: QP_PREQ_GRP.engine_debug('Hold Flag is ' || g_limit_balance_line(j).limit_hold_flag );
2686: QP_PREQ_GRP.engine_debug('Hold Code is ' || l_hold_code);
2687:
2688: END IF;

Line 2706: IF l_debug = FND_API.G_TRUE THEN

2702: AND created_from_list_line_id =
2703: g_limit_balance_line(j).list_line_id
2704: AND pricing_status_code = QP_PREQ_GRP.G_STATUS_NEW;
2705:
2706: IF l_debug = FND_API.G_TRUE THEN
2707: QP_PREQ_GRP.engine_debug('label 3');
2708: END IF;
2709:
2710: --Update the Child Break Lines for 'PBH' lines

Line 2754: IF l_debug = FND_API.G_TRUE THEN

2750: AND b.relationship_type_code = 'PRICE_BREAK'
2751: AND b.line_detail_index =
2752: g_limit_balance_line(j).line_detail_index);
2753:
2754: IF l_debug = FND_API.G_TRUE THEN
2755: QP_PREQ_GRP.engine_debug('label 4');
2756: END IF;
2757:
2758: END IF;--If created_from_list_line_type = 'PBH'

Line 2760: IF l_debug = FND_API.G_TRUE THEN

2756: END IF;
2757:
2758: END IF;--If created_from_list_line_type = 'PBH'
2759:
2760: IF l_debug = FND_API.G_TRUE THEN
2761: QP_PREQ_GRP.engine_debug('line_index '||
2762: g_limit_balance_line(j).line_index);
2763: QP_PREQ_GRP.engine_debug('limit_code '||
2764: g_limit_balance_line(j).limit_code);

Line 2784: IF l_debug = FND_API.G_TRUE THEN

2780: WHERE line_index = g_limit_balance_line(j).line_index;
2781:
2782: IF g_limit_balance_line(j).transaction_amount is null THEN
2783:
2784: IF l_debug = FND_API.G_TRUE THEN
2785: QP_PREQ_GRP.engine_debug('transaction amount is null');
2786: END IF;
2787:
2788: IF l_debug = FND_API.G_TRUE THEN

Line 2788: IF l_debug = FND_API.G_TRUE THEN

2784: IF l_debug = FND_API.G_TRUE THEN
2785: QP_PREQ_GRP.engine_debug('transaction amount is null');
2786: END IF;
2787:
2788: IF l_debug = FND_API.G_TRUE THEN
2789: QP_PREQ_GRP.engine_debug('Inserting Into qp_limit_transactions');
2790: END IF;
2791:
2792: INSERT INTO qp_limit_transactions

Line 2826: IF l_debug = FND_API.G_TRUE THEN

2822:
2823: ELSIF g_limit_balance_line(j).transaction_amount <>
2824: g_limit_balance_line(j).given_amount THEN
2825:
2826: IF l_debug = FND_API.G_TRUE THEN
2827: QP_PREQ_GRP.engine_debug('Updating qp_limit_transactions');
2828:
2829: END IF;
2830: /*

Line 2855: IF l_debug = FND_API.G_TRUE THEN

2851: END IF; --g_limit_balance_line.COUNT > 0
2852:
2853: --Clear the global plsql table storing limits info.
2854: g_limit_balance_line.DELETE;
2855: IF l_debug = FND_API.G_TRUE THEN
2856: QP_PREQ_GRP.engine_debug('***End Boundary condition processing***');
2857: END IF;
2858: EXIT;
2859: END IF; --If Update_Balance returns Error

Line 2864: IF l_debug = FND_API.G_TRUE THEN

2860: END LOOP; --Boundary condition loop
2861:
2862: END IF; --IF l_old_limit_rec.created_from_list_line_id >= 0
2863:
2864: IF l_debug = FND_API.G_TRUE THEN
2865: QP_PREQ_GRP.engine_debug('***End Process_Limits***');
2866:
2867: END IF;
2868: EXCEPTION

Line 2869: WHEN FND_API.G_EXC_ERROR THEN

2865: QP_PREQ_GRP.engine_debug('***End Process_Limits***');
2866:
2867: END IF;
2868: EXCEPTION
2869: WHEN FND_API.G_EXC_ERROR THEN
2870:
2871: x_return_status := FND_API.G_RET_STS_ERROR;
2872: --x_return_text is already set by Update_Balance
2873:

Line 2871: x_return_status := FND_API.G_RET_STS_ERROR;

2867: END IF;
2868: EXCEPTION
2869: WHEN FND_API.G_EXC_ERROR THEN
2870:
2871: x_return_status := FND_API.G_RET_STS_ERROR;
2872: --x_return_text is already set by Update_Balance
2873:
2874: IF l_debug = FND_API.G_TRUE THEN
2875: QP_PREQ_GRP.engine_debug('Expected Error in Process_Limits');

Line 2874: IF l_debug = FND_API.G_TRUE THEN

2870:
2871: x_return_status := FND_API.G_RET_STS_ERROR;
2872: --x_return_text is already set by Update_Balance
2873:
2874: IF l_debug = FND_API.G_TRUE THEN
2875: QP_PREQ_GRP.engine_debug('Expected Error in Process_Limits');
2876: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
2877:
2878: END IF;

Line 2879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2875: QP_PREQ_GRP.engine_debug('Expected Error in Process_Limits');
2876: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
2877:
2878: END IF;
2879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2880:
2881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2882: x_return_text := substr(sqlerrm, 1, 2000);
2883:

Line 2881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2877:
2878: END IF;
2879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2880:
2881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2882: x_return_text := substr(sqlerrm, 1, 2000);
2883:
2884: IF l_debug = FND_API.G_TRUE THEN
2885: QP_PREQ_GRP.engine_debug('Unexpected Error in Process_Limits');

Line 2884: IF l_debug = FND_API.G_TRUE THEN

2880:
2881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2882: x_return_text := substr(sqlerrm, 1, 2000);
2883:
2884: IF l_debug = FND_API.G_TRUE THEN
2885: QP_PREQ_GRP.engine_debug('Unexpected Error in Process_Limits');
2886: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
2887:
2888: END IF;

Line 2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2887:
2888: END IF;
2889: WHEN OTHERS THEN
2890:
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: x_return_text := substr(sqlerrm, 1, 2000);
2893:
2894: IF l_debug = FND_API.G_TRUE THEN
2895: QP_PREQ_GRP.engine_debug('Other Error in Process_Limits');

Line 2894: IF l_debug = FND_API.G_TRUE THEN

2890:
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: x_return_text := substr(sqlerrm, 1, 2000);
2893:
2894: IF l_debug = FND_API.G_TRUE THEN
2895: QP_PREQ_GRP.engine_debug('Other Error in Process_Limits');
2896: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
2897:
2898: END IF;