[Home] [Help]
42: l_lse_id NUMBER;
43: l_line_number VARCHAR2 (300);
44: BEGIN
45: -- start debug log
46: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
47: THEN
48: fnd_log.STRING (fnd_log.level_procedure,
49: g_module ||
50: l_api_name,
44: BEGIN
45: -- start debug log
46: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
47: THEN
48: fnd_log.STRING (fnd_log.level_procedure,
49: g_module ||
50: l_api_name,
51: '100: Entered ' ||
52: g_pkg_name ||
65: THEN
66: CLOSE l_line_details_csr;
67:
68: -- end debug log
69: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
70: THEN
71: fnd_log.STRING (fnd_log.level_procedure,
72: g_module ||
73: l_api_name,
67:
68: -- end debug log
69: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
70: THEN
71: fnd_log.STRING (fnd_log.level_procedure,
72: g_module ||
73: l_api_name,
74: '1000: Leaving ' ||
75: g_pkg_name ||
85:
86: IF l_lse_id = 46
87: THEN
88: -- end debug log
89: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
90: THEN
91: fnd_log.STRING (fnd_log.level_procedure,
92: g_module ||
93: l_api_name,
87: THEN
88: -- end debug log
89: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
90: THEN
91: fnd_log.STRING (fnd_log.level_procedure,
92: g_module ||
93: l_api_name,
94: '1000: Leaving ' ||
95: g_pkg_name ||
110: THEN
111: CLOSE l_line_no_csr;
112:
113: -- end debug log
114: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
115: THEN
116: fnd_log.STRING (fnd_log.level_procedure,
117: g_module ||
118: l_api_name,
112:
113: -- end debug log
114: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
115: THEN
116: fnd_log.STRING (fnd_log.level_procedure,
117: g_module ||
118: l_api_name,
119: '1000: Leaving ' ||
120: g_pkg_name ||
128:
129: CLOSE l_line_no_csr;
130:
131: -- end debug log
132: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
133: THEN
134: fnd_log.STRING (fnd_log.level_procedure,
135: g_module ||
136: l_api_name,
130:
131: -- end debug log
132: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
133: THEN
134: fnd_log.STRING (fnd_log.level_procedure,
135: g_module ||
136: l_api_name,
137: '1000: Leaving ' ||
138: g_pkg_name ||
143:
144: RETURN l_line_number;
145: ELSE
146: -- end debug log
147: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
148: THEN
149: fnd_log.STRING (fnd_log.level_procedure,
150: g_module ||
151: l_api_name,
145: ELSE
146: -- end debug log
147: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
148: THEN
149: fnd_log.STRING (fnd_log.level_procedure,
150: g_module ||
151: l_api_name,
152: '1000: Leaving ' ||
153: g_pkg_name ||
178: l_discount NUMBER := 0;
179: l_subline_qty NUMBER := 0;
180: l_lse_id NUMBER;
181: BEGIN
182: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
183: fnd_log.string(fnd_log.level_procedure,
184: g_module||l_api_name,
185: 'Entered '||g_pkg_name||'.'||l_api_name);
186: END IF;
179: l_subline_qty NUMBER := 0;
180: l_lse_id NUMBER;
181: BEGIN
182: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
183: fnd_log.string(fnd_log.level_procedure,
184: g_module||l_api_name,
185: 'Entered '||g_pkg_name||'.'||l_api_name);
186: END IF;
187:
194: CLOSE cs_subline_qty;
195: l_discount := l_discount * l_subline_qty;
196: END IF;
197:
198: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
199: fnd_log.string(fnd_log.level_procedure,
200: g_module||l_api_name,
201: 'Leaving '||g_pkg_name||'.'||l_api_name);
202: END IF;
195: l_discount := l_discount * l_subline_qty;
196: END IF;
197:
198: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
199: fnd_log.string(fnd_log.level_procedure,
200: g_module||l_api_name,
201: 'Leaving '||g_pkg_name||'.'||l_api_name);
202: END IF;
203:
222: l_surcharge NUMBER := 0;
223: l_subline_qty NUMBER := 0;
224: l_lse_id NUMBER;
225: BEGIN
226: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
227: fnd_log.STRING(fnd_log.level_procedure,
228: g_module||l_api_name,
229: 'Entered '||g_pkg_name||'.'||l_api_name);
230: END IF;
223: l_subline_qty NUMBER := 0;
224: l_lse_id NUMBER;
225: BEGIN
226: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
227: fnd_log.STRING(fnd_log.level_procedure,
228: g_module||l_api_name,
229: 'Entered '||g_pkg_name||'.'||l_api_name);
230: END IF;
231:
238: CLOSE cs_subline_qty;
239: l_surcharge := l_surcharge * l_subline_qty;
240: END IF;
241:
242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
243: fnd_log.STRING(fnd_log.level_procedure,
244: g_module||l_api_name,
245: 'Leaving '||g_pkg_name ||'.' ||l_api_name);
246: END IF;
239: l_surcharge := l_surcharge * l_subline_qty;
240: END IF;
241:
242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
243: fnd_log.STRING(fnd_log.level_procedure,
244: g_module||l_api_name,
245: 'Leaving '||g_pkg_name ||'.' ||l_api_name);
246: END IF;
247:
270: l_topline_discount NUMBER;
271: l_topline_yn VARCHAR2 (1) := 'N';
272: BEGIN
273: -- start debug log
274: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
275: THEN
276: fnd_log.STRING (fnd_log.level_procedure,
277: g_module ||
278: l_api_name,
272: BEGIN
273: -- start debug log
274: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
275: THEN
276: fnd_log.STRING (fnd_log.level_procedure,
277: g_module ||
278: l_api_name,
279: '100: Entered ' ||
280: g_pkg_name ||
306:
307: -- end if;
308:
309: -- end debug log
310: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
311: THEN
312: fnd_log.STRING (fnd_log.level_procedure,
313: g_module ||
314: l_api_name,
308:
309: -- end debug log
310: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
311: THEN
312: fnd_log.STRING (fnd_log.level_procedure,
313: g_module ||
314: l_api_name,
315: '1000: Leaving ' ||
316: g_pkg_name ||
344: l_topline_surcharge NUMBER;
345: l_topline_yn VARCHAR2 (1) := 'N';
346: BEGIN
347: -- start debug log
348: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
349: THEN
350: fnd_log.STRING (fnd_log.level_procedure,
351: g_module ||
352: l_api_name,
346: BEGIN
347: -- start debug log
348: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
349: THEN
350: fnd_log.STRING (fnd_log.level_procedure,
351: g_module ||
352: l_api_name,
353: '100: Entered ' ||
354: g_pkg_name ||
379: END IF;
380:
381: -- end if;
382: -- end debug log
383: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
384: THEN
385: fnd_log.STRING (fnd_log.level_procedure,
386: g_module ||
387: l_api_name,
381: -- end if;
382: -- end debug log
383: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
384: THEN
385: fnd_log.STRING (fnd_log.level_procedure,
386: g_module ||
387: l_api_name,
388: '1000: Leaving ' ||
389: g_pkg_name ||
426: -- l_rule_rec OKC_RUL_PVT.rulv_rec_type;
427: l_billed_date DATE;
428: BEGIN
429: -- start debug log
430: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.STRING (fnd_log.level_procedure,
433: g_module ||
434: l_api_name,
428: BEGIN
429: -- start debug log
430: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.STRING (fnd_log.level_procedure,
433: g_module ||
434: l_api_name,
435: '100: Entered ' ||
436: g_pkg_name ||
531: EXCEPTION
532: WHEN g_exc_error
533: THEN
534: -- end debug log
535: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
536: THEN
537: fnd_log.STRING (fnd_log.level_procedure,
538: g_module ||
539: l_api_name,
533: THEN
534: -- end debug log
535: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
536: THEN
537: fnd_log.STRING (fnd_log.level_procedure,
538: g_module ||
539: l_api_name,
540: '2000: Leaving ' ||
541: g_pkg_name ||
547: NULL;
548: WHEN OTHERS
549: THEN
550: -- end debug log
551: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
552: THEN
553: fnd_log.STRING (fnd_log.level_procedure,
554: g_module ||
555: l_api_name,
549: THEN
550: -- end debug log
551: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
552: THEN
553: fnd_log.STRING (fnd_log.level_procedure,
554: g_module ||
555: l_api_name,
556: '4000: Leaving ' ||
557: g_pkg_name ||
563: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
564: x_return_status := g_ret_sts_error;
565:
566: -- end debug log
567: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
568: THEN
569: fnd_log.STRING (fnd_log.level_procedure,
570: g_module ||
571: l_api_name,
565:
566: -- end debug log
567: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
568: THEN
569: fnd_log.STRING (fnd_log.level_procedure,
570: g_module ||
571: l_api_name,
572: '1000: Leaving ' ||
573: g_pkg_name ||
604: l_hdr_discount NUMBER;
605: l_hdr_surcharge NUMBER;
606: BEGIN
607: -- start debug log
608: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
609: THEN
610: fnd_log.STRING (fnd_log.level_procedure,
611: g_module ||
612: l_api_name,
606: BEGIN
607: -- start debug log
608: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
609: THEN
610: fnd_log.STRING (fnd_log.level_procedure,
611: g_module ||
612: l_api_name,
613: '100: Entered ' ||
614: g_pkg_name ||
652: x_modifiers_tbl (1).surcharge +
653: x_modifiers_tbl (1).discount;
654:
655: -- end debug log
656: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
657: THEN
658: fnd_log.STRING (fnd_log.level_procedure,
659: g_module ||
660: l_api_name,
654:
655: -- end debug log
656: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
657: THEN
658: fnd_log.STRING (fnd_log.level_procedure,
659: g_module ||
660: l_api_name,
661: '1000: Leaving ' ||
662: g_pkg_name ||
667: EXCEPTION
668: WHEN NO_DATA_FOUND
669: THEN
670: -- end debug log
671: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
672: THEN
673: fnd_log.STRING (fnd_log.level_procedure,
674: g_module ||
675: l_api_name,
669: THEN
670: -- end debug log
671: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
672: THEN
673: fnd_log.STRING (fnd_log.level_procedure,
674: g_module ||
675: l_api_name,
676: '5000: Leaving ' ||
677: g_pkg_name ||
685: x_modifiers_tbl (1).total := 0;
686: WHEN g_exc_error
687: THEN
688: -- end debug log
689: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
690: THEN
691: fnd_log.STRING (fnd_log.level_procedure,
692: g_module ||
693: l_api_name,
687: THEN
688: -- end debug log
689: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
690: THEN
691: fnd_log.STRING (fnd_log.level_procedure,
692: g_module ||
693: l_api_name,
694: '2000: Leaving ' ||
695: g_pkg_name ||
701: NULL;
702: WHEN OTHERS
703: THEN
704: -- end debug log
705: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.STRING (fnd_log.level_procedure,
708: g_module ||
709: l_api_name,
703: THEN
704: -- end debug log
705: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.STRING (fnd_log.level_procedure,
708: g_module ||
709: l_api_name,
710: '4000: Leaving ' ||
711: g_pkg_name ||
770: FROM oks_k_lines_b
771: WHERE cle_id = p_id;
772: BEGIN
773: -- start debug log
774: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
775: THEN
776: fnd_log.STRING (fnd_log.level_procedure,
777: g_module ||
778: l_api_name,
772: BEGIN
773: -- start debug log
774: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
775: THEN
776: fnd_log.STRING (fnd_log.level_procedure,
777: g_module ||
778: l_api_name,
779: '100: Entered ' ||
780: g_pkg_name ||
841: CLOSE l_oks_cle_csr;
842: END IF;
843:
844: -- end debug log
845: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
846: THEN
847: fnd_log.STRING (fnd_log.level_procedure,
848: g_module ||
849: l_api_name,
843:
844: -- end debug log
845: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
846: THEN
847: fnd_log.STRING (fnd_log.level_procedure,
848: g_module ||
849: l_api_name,
850: '1000: Leaving ' ||
851: g_pkg_name ||
873: FROM okc_k_lines_b
874: WHERE ID = p_line_id;
875: BEGIN
876: -- start debug log
877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
878: THEN
879: fnd_log.STRING (fnd_log.level_procedure,
880: g_module ||
881: l_api_name,
875: BEGIN
876: -- start debug log
877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
878: THEN
879: fnd_log.STRING (fnd_log.level_procedure,
880: g_module ||
881: l_api_name,
882: '100: Entered ' ||
883: g_pkg_name ||
903:
904: CLOSE l_line_csr;
905:
906: -- end debug log
907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
908: THEN
909: fnd_log.STRING (fnd_log.level_procedure,
910: g_module ||
911: l_api_name,
905:
906: -- end debug log
907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
908: THEN
909: fnd_log.STRING (fnd_log.level_procedure,
910: g_module ||
911: l_api_name,
912: '1000: Leaving ' ||
913: g_pkg_name ||
918: EXCEPTION
919: WHEN OTHERS
920: THEN
921: -- end debug log
922: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
923: THEN
924: fnd_log.STRING (fnd_log.level_procedure,
925: g_module ||
926: l_api_name,
920: THEN
921: -- end debug log
922: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
923: THEN
924: fnd_log.STRING (fnd_log.level_procedure,
925: g_module ||
926: l_api_name,
927: '4000: Leaving ' ||
928: g_pkg_name ||
960: l_dummy VARCHAR2 (1);
961: l_return BOOLEAN;
962: BEGIN
963: -- start debug log
964: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
965: THEN
966: fnd_log.STRING (fnd_log.level_procedure,
967: g_module ||
968: l_api_name,
962: BEGIN
963: -- start debug log
964: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
965: THEN
966: fnd_log.STRING (fnd_log.level_procedure,
967: g_module ||
968: l_api_name,
969: '100: Entered ' ||
970: g_pkg_name ||
987:
988: CLOSE l_subscr_item_csr;
989:
990: -- end debug log
991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
992: THEN
993: fnd_log.STRING (fnd_log.level_procedure,
994: g_module ||
995: l_api_name,
989:
990: -- end debug log
991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
992: THEN
993: fnd_log.STRING (fnd_log.level_procedure,
994: g_module ||
995: l_api_name,
996: '1000: Leaving ' ||
997: g_pkg_name ||
1072: l_name VARCHAR2 (1000);
1073: l_description VARCHAR2 (1000);
1074: BEGIN
1075: -- start debug log
1076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1077: THEN
1078: fnd_log.STRING (fnd_log.level_procedure,
1079: g_module ||
1080: l_api_name,
1074: BEGIN
1075: -- start debug log
1076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1077: THEN
1078: fnd_log.STRING (fnd_log.level_procedure,
1079: g_module ||
1080: l_api_name,
1081: '100: Entered ' ||
1082: g_pkg_name ||
1095: l_dnz_chr_id;
1096:
1097: CLOSE l_line_csr;
1098:
1099: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1100: THEN
1101: fnd_log.STRING (fnd_log.level_statement,
1102: g_module ||
1103: l_api_name,
1097: CLOSE l_line_csr;
1098:
1099: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1100: THEN
1101: fnd_log.STRING (fnd_log.level_statement,
1102: g_module ||
1103: l_api_name,
1104: '200:l_cle_id: ' ||
1105: l_cle_id
1103: l_api_name,
1104: '200:l_cle_id: ' ||
1105: l_cle_id
1106: );
1107: fnd_log.STRING (fnd_log.level_statement,
1108: g_module ||
1109: l_api_name,
1110: '201:l_lse_id: ' ||
1111: l_lse_id
1109: l_api_name,
1110: '201:l_lse_id: ' ||
1111: l_lse_id
1112: );
1113: fnd_log.STRING (fnd_log.level_statement,
1114: g_module ||
1115: l_api_name,
1116: '202:l_dnz_chr_id: ' ||
1117: l_dnz_chr_id
1127: INTO l_inv_org_id;
1128:
1129: CLOSE l_hdr_csr;
1130:
1131: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1132: THEN
1133: fnd_log.STRING (fnd_log.level_statement,
1134: g_module ||
1135: l_api_name,
1129: CLOSE l_hdr_csr;
1130:
1131: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1132: THEN
1133: fnd_log.STRING (fnd_log.level_statement,
1134: g_module ||
1135: l_api_name,
1136: '203:l_inv_org_id: ' ||
1137: l_inv_org_id
1146: l_object1_id2;
1147:
1148: CLOSE l_item_csr;
1149:
1150: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1151: THEN
1152: fnd_log.STRING (fnd_log.level_statement,
1153: g_module ||
1154: l_api_name,
1148: CLOSE l_item_csr;
1149:
1150: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1151: THEN
1152: fnd_log.STRING (fnd_log.level_statement,
1153: g_module ||
1154: l_api_name,
1155: '204:object1_id1: ' ||
1156: l_object1_id1
1154: l_api_name,
1155: '204:object1_id1: ' ||
1156: l_object1_id1
1157: );
1158: fnd_log.STRING (fnd_log.level_statement,
1159: g_module ||
1160: l_api_name,
1161: '205:object1_id2: ' ||
1162: l_object1_id2
1207: x_description := l_description;
1208: END IF;
1209: END IF;
1210:
1211: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1212: THEN
1213: fnd_log.STRING (fnd_log.level_statement,
1214: g_module ||
1215: l_api_name,
1209: END IF;
1210:
1211: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1212: THEN
1213: fnd_log.STRING (fnd_log.level_statement,
1214: g_module ||
1215: l_api_name,
1216: '206:x_name: ' ||
1217: x_name
1215: l_api_name,
1216: '206:x_name: ' ||
1217: x_name
1218: );
1219: fnd_log.STRING (fnd_log.level_statement,
1220: g_module ||
1221: l_api_name,
1222: '207:x_desc: ' ||
1223: x_description
1227: -- errorout('x_name: ' || x_name);
1228: -- errorout('x_desc: ' || x_description);
1229:
1230: -- end debug log
1231: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1232: THEN
1233: fnd_log.STRING (fnd_log.level_procedure,
1234: g_module ||
1235: l_api_name,
1229:
1230: -- end debug log
1231: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1232: THEN
1233: fnd_log.STRING (fnd_log.level_procedure,
1234: g_module ||
1235: l_api_name,
1236: '1000: Leaving ' ||
1237: g_pkg_name ||
1242: EXCEPTION
1243: WHEN OTHERS
1244: THEN
1245: -- end debug log
1246: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1247: THEN
1248: fnd_log.STRING (fnd_log.level_procedure,
1249: g_module ||
1250: l_api_name,
1244: THEN
1245: -- end debug log
1246: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1247: THEN
1248: fnd_log.STRING (fnd_log.level_procedure,
1249: g_module ||
1250: l_api_name,
1251: '4000: Leaving ' ||
1252: g_pkg_name ||
1272: l_api_name CONSTANT VARCHAR2 (30)
1273: := 'GET_PRICING_MESSAGES';
1274: BEGIN
1275: -- start debug log
1276: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1277: THEN
1278: fnd_log.STRING (fnd_log.level_procedure,
1279: g_module ||
1280: l_api_name,
1274: BEGIN
1275: -- start debug log
1276: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1277: THEN
1278: fnd_log.STRING (fnd_log.level_procedure,
1279: g_module ||
1280: l_api_name,
1281: '100: Entered ' ||
1282: g_pkg_name ||
1285: );
1286: END IF;
1287:
1288: -- end debug log
1289: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1290: THEN
1291: fnd_log.STRING (fnd_log.level_procedure,
1292: g_module ||
1293: l_api_name,
1287:
1288: -- end debug log
1289: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1290: THEN
1291: fnd_log.STRING (fnd_log.level_procedure,
1292: g_module ||
1293: l_api_name,
1294: '1000: Leaving ' ||
1295: g_pkg_name ||
1332:
1333: l_amount NUMBER := 0;
1334: BEGIN
1335: -- start debug log
1336: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1337: THEN
1338: fnd_log.STRING (fnd_log.level_procedure,
1339: g_module ||
1340: l_api_name,
1334: BEGIN
1335: -- start debug log
1336: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1337: THEN
1338: fnd_log.STRING (fnd_log.level_procedure,
1339: g_module ||
1340: l_api_name,
1341: '100: Entered ' ||
1342: g_pkg_name ||
1375: l_amount := 0;
1376: END IF;
1377:
1378: -- end debug log
1379: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1380: THEN
1381: fnd_log.STRING (fnd_log.level_procedure,
1382: g_module ||
1383: l_api_name,
1377:
1378: -- end debug log
1379: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1380: THEN
1381: fnd_log.STRING (fnd_log.level_procedure,
1382: g_module ||
1383: l_api_name,
1384: '1000: Leaving ' ||
1385: g_pkg_name ||
1403: l_proc_name VARCHAR2 (240)
1404: := 'QUALIFIER_PARTY_MERGE';
1405: BEGIN
1406: -- start debug log
1407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.STRING (fnd_log.level_procedure,
1410: g_module ||
1411: l_api_name,
1405: BEGIN
1406: -- start debug log
1407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.STRING (fnd_log.level_procedure,
1410: g_module ||
1411: l_api_name,
1412: '100: Entered ' ||
1413: g_pkg_name ||
1433: arp_message.set_name ('AR', 'AR_ROWS_UPDATED');
1434: arp_message.set_token ('NUM_ROWS', TO_CHAR (l_count));
1435:
1436: -- end debug log
1437: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1438: THEN
1439: fnd_log.STRING (fnd_log.level_procedure,
1440: g_module ||
1441: l_api_name,
1435:
1436: -- end debug log
1437: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1438: THEN
1439: fnd_log.STRING (fnd_log.level_procedure,
1440: g_module ||
1441: l_api_name,
1442: '1000: Leaving ' ||
1443: g_pkg_name ||
1448: EXCEPTION
1449: WHEN OTHERS
1450: THEN
1451: -- end debug log
1452: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1453: THEN
1454: fnd_log.STRING (fnd_log.level_procedure,
1455: g_module ||
1456: l_api_name,
1450: THEN
1451: -- end debug log
1452: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1453: THEN
1454: fnd_log.STRING (fnd_log.level_procedure,
1455: g_module ||
1456: l_api_name,
1457: '4000: Leaving ' ||
1458: g_pkg_name ||
1512: l_proc_name VARCHAR2 (240)
1513: := 'QUALIFIER_ACCOUNT_MERGE';
1514: BEGIN
1515: -- start debug log
1516: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1517: THEN
1518: fnd_log.STRING (fnd_log.level_procedure,
1519: g_module ||
1520: l_api_name,
1514: BEGIN
1515: -- start debug log
1516: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1517: THEN
1518: fnd_log.STRING (fnd_log.level_procedure,
1519: g_module ||
1520: l_api_name,
1521: '100: Entered ' ||
1522: g_pkg_name ||
1549: IF merge_header_id_list.COUNT = 0
1550: AND l_last_fetch
1551: THEN
1552: -- end debug log
1553: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1554: THEN
1555: fnd_log.STRING (fnd_log.level_procedure,
1556: g_module ||
1557: l_api_name,
1551: THEN
1552: -- end debug log
1553: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1554: THEN
1555: fnd_log.STRING (fnd_log.level_procedure,
1556: g_module ||
1557: l_api_name,
1558: '1000: Leaving ' ||
1559: g_pkg_name ||
1626: arp_message.set_name ('AR', 'AR_ROWS_UPDATED');
1627: arp_message.set_token ('NUM_ROWS', TO_CHAR (l_count));
1628:
1629: -- end debug log
1630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1631: THEN
1632: fnd_log.STRING (fnd_log.level_procedure,
1633: g_module ||
1634: l_api_name,
1628:
1629: -- end debug log
1630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1631: THEN
1632: fnd_log.STRING (fnd_log.level_procedure,
1633: g_module ||
1634: l_api_name,
1635: '1000: Leaving ' ||
1636: g_pkg_name ||
1641: EXCEPTION
1642: WHEN OTHERS
1643: THEN
1644: -- end debug log
1645: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1646: THEN
1647: fnd_log.STRING (fnd_log.level_procedure,
1648: g_module ||
1649: l_api_name,
1643: THEN
1644: -- end debug log
1645: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1646: THEN
1647: fnd_log.STRING (fnd_log.level_procedure,
1648: g_module ||
1649: l_api_name,
1650: '4000: Leaving ' ||
1651: g_pkg_name ||
1750: l_line_no VARCHAR2 (300);
1751: l_status VARCHAR2 (30); --3912685
1752: BEGIN
1753: -- start debug log
1754: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1755: THEN
1756: fnd_log.STRING (fnd_log.level_procedure,
1757: g_module ||
1758: l_api_name,
1752: BEGIN
1753: -- start debug log
1754: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1755: THEN
1756: fnd_log.STRING (fnd_log.level_procedure,
1757: g_module ||
1758: l_api_name,
1759: '100: Entered ' ||
1760: g_pkg_name ||
1764: END IF;
1765:
1766: x_return_status := g_ret_sts_success;
1767:
1768: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1769: THEN
1770: fnd_log.STRING (fnd_log.level_statement,
1771: g_module ||
1772: l_api_name,
1766: x_return_status := g_ret_sts_success;
1767:
1768: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1769: THEN
1770: fnd_log.STRING (fnd_log.level_statement,
1771: g_module ||
1772: l_api_name,
1773: '300:********** Entered Subscription Price ********'
1774: );
1771: g_module ||
1772: l_api_name,
1773: '300:********** Entered Subscription Price ********'
1774: );
1775: fnd_log.STRING (fnd_log.level_statement,
1776: g_module ||
1777: l_api_name,
1778: '301:CHR_ID = ' ||
1779: p_detail_rec.chr_id
1777: l_api_name,
1778: '301:CHR_ID = ' ||
1779: p_detail_rec.chr_id
1780: );
1781: fnd_log.STRING (fnd_log.level_statement,
1782: g_module ||
1783: l_api_name,
1784: '302:LINE_ID = ' ||
1785: p_detail_rec.line_id
1783: l_api_name,
1784: '302:LINE_ID = ' ||
1785: p_detail_rec.line_id
1786: );
1787: fnd_log.STRING (fnd_log.level_statement,
1788: g_module ||
1789: l_api_name,
1790: '303:SUBLINE_ID = ' ||
1791: p_detail_rec.subline_id
1789: l_api_name,
1790: '303:SUBLINE_ID = ' ||
1791: p_detail_rec.subline_id
1792: );
1793: fnd_log.STRING (fnd_log.level_statement,
1794: g_module ||
1795: l_api_name,
1796: '304:INTENT = ' ||
1797: p_detail_rec.intent
1795: l_api_name,
1796: '304:INTENT = ' ||
1797: p_detail_rec.intent
1798: );
1799: fnd_log.STRING (fnd_log.level_statement,
1800: g_module ||
1801: l_api_name,
1802: '305:CURRENCY = ' ||
1803: p_detail_rec.currency
1801: l_api_name,
1802: '305:CURRENCY = ' ||
1803: p_detail_rec.currency
1804: );
1805: fnd_log.STRING (fnd_log.level_statement,
1806: g_module ||
1807: l_api_name,
1808: '306:Usage Qty = ' ||
1809: p_detail_rec.usage_qty
1807: l_api_name,
1808: '306:Usage Qty = ' ||
1809: p_detail_rec.usage_qty
1810: );
1811: fnd_log.STRING (fnd_log.level_statement,
1812: g_module ||
1813: l_api_name,
1814: '307:Usage UOM Code = ' ||
1815: p_detail_rec.usage_uom_code
1856: IF l_line_details_csr%NOTFOUND
1857: THEN
1858: CLOSE l_line_details_csr;
1859:
1860: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1861: THEN
1862: fnd_log.STRING
1863: (fnd_log.level_statement,
1864: g_module ||
1858: CLOSE l_line_details_csr;
1859:
1860: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1861: THEN
1862: fnd_log.STRING
1863: (fnd_log.level_statement,
1864: g_module ||
1865: l_api_name,
1866: '308:Negotiated amount ERROR at Calc Subscription call'
1859:
1860: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1861: THEN
1862: fnd_log.STRING
1863: (fnd_log.level_statement,
1864: g_module ||
1865: l_api_name,
1866: '308:Negotiated amount ERROR at Calc Subscription call'
1867: );
1881: );
1882:
1883: IF x_return_status <> g_ret_sts_success
1884: THEN
1885: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1886: THEN
1887: fnd_log.STRING (fnd_log.level_statement,
1888: g_module ||
1889: l_api_name,
1883: IF x_return_status <> g_ret_sts_success
1884: THEN
1885: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1886: THEN
1887: fnd_log.STRING (fnd_log.level_statement,
1888: g_module ||
1889: l_api_name,
1890: '309:UOM/QTY ERROR at Calc Subscription call'
1891: );
1894: --errorout('UOM/QTY ERROR at Calc Subscription call');
1895: RAISE g_exc_error;
1896: END IF;
1897:
1898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1899: THEN
1900: fnd_log.STRING (fnd_log.level_statement,
1901: g_module ||
1902: l_api_name,
1896: END IF;
1897:
1898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1899: THEN
1900: fnd_log.STRING (fnd_log.level_statement,
1901: g_module ||
1902: l_api_name,
1903: '310:QTY = ' ||
1904: l_qpprod_quantity ||
1921: l_line_details_rec.price_negotiated /
1922: l_qpprod_quantity;
1923: END IF;
1924:
1925: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1926: THEN
1927: fnd_log.STRING (fnd_log.level_statement,
1928: g_module ||
1929: l_api_name,
1923: END IF;
1924:
1925: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1926: THEN
1927: fnd_log.STRING (fnd_log.level_statement,
1928: g_module ||
1929: l_api_name,
1930: '311:Asking price = ' ||
1931: l_input_detail_rec.asking_unit_price
1944: );
1945:
1946: IF x_return_status <> g_ret_sts_success
1947: THEN
1948: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1949: )
1950: THEN
1951: fnd_log.STRING (fnd_log.level_procedure,
1952: g_module ||
1947: THEN
1948: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1949: )
1950: THEN
1951: fnd_log.STRING (fnd_log.level_procedure,
1952: g_module ||
1953: l_api_name,
1954: '101:CALC PRICE ERROR at 2nd SAPI call'
1955: );
1954: '101:CALC PRICE ERROR at 2nd SAPI call'
1955: );
1956: END IF;
1957:
1958: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
1959: )
1960: THEN
1961: fnd_log.STRING (fnd_log.level_statement,
1962: g_module ||
1957:
1958: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
1959: )
1960: THEN
1961: fnd_log.STRING (fnd_log.level_statement,
1962: g_module ||
1963: l_api_name,
1964: '312:CALC PRICE ERROR at 2nd SAPI call'
1965: );
2029: );
2030:
2031: IF x_return_status <> g_ret_sts_success
2032: THEN
2033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2034: THEN
2035: fnd_log.STRING (fnd_log.level_statement,
2036: g_module ||
2037: l_api_name,
2031: IF x_return_status <> g_ret_sts_success
2032: THEN
2033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2034: THEN
2035: fnd_log.STRING (fnd_log.level_statement,
2036: g_module ||
2037: l_api_name,
2038: '313:CALC Price ERROR after SAPI call'
2039: );
2066: x_price_details.prod_priced_qty := NULL;
2067: x_price_details.prod_priced_uom := NULL;
2068: x_price_details.prod_ext_amount := NULL;
2069:
2070: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2071: THEN
2072: fnd_log.STRING (fnd_log.level_statement,
2073: g_module ||
2074: l_api_name,
2068: x_price_details.prod_ext_amount := NULL;
2069:
2070: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2071: THEN
2072: fnd_log.STRING (fnd_log.level_statement,
2073: g_module ||
2074: l_api_name,
2075: '314:x_price_details.PROD_QTY = ' ||
2076: x_price_details.prod_qty
2074: l_api_name,
2075: '314:x_price_details.PROD_QTY = ' ||
2076: x_price_details.prod_qty
2077: );
2078: fnd_log.STRING (fnd_log.level_statement,
2079: g_module ||
2080: l_api_name,
2081: '315:x_price_details.PROD_QTY_UOM = ' ||
2082: x_price_details.prod_qty_uom
2080: l_api_name,
2081: '315:x_price_details.PROD_QTY_UOM = ' ||
2082: x_price_details.prod_qty_uom
2083: );
2084: fnd_log.STRING (fnd_log.level_statement,
2085: g_module ||
2086: l_api_name,
2087: '316:x_price_details.SERV_QTY = ' ||
2088: x_price_details.serv_qty
2086: l_api_name,
2087: '316:x_price_details.SERV_QTY = ' ||
2088: x_price_details.serv_qty
2089: );
2090: fnd_log.STRING (fnd_log.level_statement,
2091: g_module ||
2092: l_api_name,
2093: '317:x_price_details.SERV_QTY_UOM = ' ||
2094: x_price_details.serv_qty_uom
2092: l_api_name,
2093: '317:x_price_details.SERV_QTY_UOM = ' ||
2094: x_price_details.serv_qty_uom
2095: );
2096: fnd_log.STRING (fnd_log.level_statement,
2097: g_module ||
2098: l_api_name,
2099: '318:x_price_details.PROD_PRICE_LIST_ID = ' ||
2100: x_price_details.prod_price_list_id
2098: l_api_name,
2099: '318:x_price_details.PROD_PRICE_LIST_ID = ' ||
2100: x_price_details.prod_price_list_id
2101: );
2102: fnd_log.STRING (fnd_log.level_statement,
2103: g_module ||
2104: l_api_name,
2105: '319:x_price_details.SERV_PRICE_LIST_ID = ' ||
2106: x_price_details.serv_price_list_id
2104: l_api_name,
2105: '319:x_price_details.SERV_PRICE_LIST_ID = ' ||
2106: x_price_details.serv_price_list_id
2107: );
2108: fnd_log.STRING (fnd_log.level_statement,
2109: g_module ||
2110: l_api_name,
2111: '320:x_price_details.PROD_LIST_UNIT_PRICE = ' ||
2112: x_price_details.prod_list_unit_price
2110: l_api_name,
2111: '320:x_price_details.PROD_LIST_UNIT_PRICE = ' ||
2112: x_price_details.prod_list_unit_price
2113: );
2114: fnd_log.STRING (fnd_log.level_statement,
2115: g_module ||
2116: l_api_name,
2117: '321:x_price_details.SERV_LIST_UNIT_PRICE = ' ||
2118: x_price_details.serv_list_unit_price
2116: l_api_name,
2117: '321:x_price_details.SERV_LIST_UNIT_PRICE = ' ||
2118: x_price_details.serv_list_unit_price
2119: );
2120: fnd_log.STRING (fnd_log.level_statement,
2121: g_module ||
2122: l_api_name,
2123: '322:x_price_details.PROD_ADJ_UNIT_PRICE = ' ||
2124: x_price_details.prod_adj_unit_price
2122: l_api_name,
2123: '322:x_price_details.PROD_ADJ_UNIT_PRICE = ' ||
2124: x_price_details.prod_adj_unit_price
2125: );
2126: fnd_log.STRING (fnd_log.level_statement,
2127: g_module ||
2128: l_api_name,
2129: '323:x_price_details.SERV_ADJ_UNIT_PRICE = ' ||
2130: x_price_details.serv_adj_unit_price
2128: l_api_name,
2129: '323:x_price_details.SERV_ADJ_UNIT_PRICE = ' ||
2130: x_price_details.serv_adj_unit_price
2131: );
2132: fnd_log.STRING (fnd_log.level_statement,
2133: g_module ||
2134: l_api_name,
2135: '324:x_price_details.PROD_PRICED_QTY = ' ||
2136: x_price_details.prod_priced_qty
2134: l_api_name,
2135: '324:x_price_details.PROD_PRICED_QTY = ' ||
2136: x_price_details.prod_priced_qty
2137: );
2138: fnd_log.STRING (fnd_log.level_statement,
2139: g_module ||
2140: l_api_name,
2141: '325:x_price_details.PROD_PRICED_UOM = ' ||
2142: x_price_details.prod_priced_uom
2140: l_api_name,
2141: '325:x_price_details.PROD_PRICED_UOM = ' ||
2142: x_price_details.prod_priced_uom
2143: );
2144: fnd_log.STRING (fnd_log.level_statement,
2145: g_module ||
2146: l_api_name,
2147: '326:x_price_details.PROD_EXT_AMOUNT = ' ||
2148: x_price_details.prod_ext_amount
2146: l_api_name,
2147: '326:x_price_details.PROD_EXT_AMOUNT = ' ||
2148: x_price_details.prod_ext_amount
2149: );
2150: fnd_log.STRING (fnd_log.level_statement,
2151: g_module ||
2152: l_api_name,
2153: '327:x_price_details.SERV_PRICED_QTY = ' ||
2154: x_price_details.serv_priced_qty
2152: l_api_name,
2153: '327:x_price_details.SERV_PRICED_QTY = ' ||
2154: x_price_details.serv_priced_qty
2155: );
2156: fnd_log.STRING (fnd_log.level_statement,
2157: g_module ||
2158: l_api_name,
2159: '328:x_price_details.SERV_PRICED_UOM = ' ||
2160: x_price_details.serv_priced_uom
2158: l_api_name,
2159: '328:x_price_details.SERV_PRICED_UOM = ' ||
2160: x_price_details.serv_priced_uom
2161: );
2162: fnd_log.STRING (fnd_log.level_statement,
2163: g_module ||
2164: l_api_name,
2165: '329:x_price_details.SERV_EXT_AMOUNT = ' ||
2166: x_price_details.serv_ext_amount
2164: l_api_name,
2165: '329:x_price_details.SERV_EXT_AMOUNT = ' ||
2166: x_price_details.serv_ext_amount
2167: );
2168: fnd_log.STRING (fnd_log.level_statement,
2169: g_module ||
2170: l_api_name,
2171: '330:x_price_details.SERV_OPERAND = ' ||
2172: x_price_details.serv_operand
2170: l_api_name,
2171: '330:x_price_details.SERV_OPERAND = ' ||
2172: x_price_details.serv_operand
2173: );
2174: fnd_log.STRING (fnd_log.level_statement,
2175: g_module ||
2176: l_api_name,
2177: '331:x_price_details.SERV_OPERATOR = ' ||
2178: x_price_details.serv_operator
2176: l_api_name,
2177: '331:x_price_details.SERV_OPERATOR = ' ||
2178: x_price_details.serv_operator
2179: );
2180: fnd_log.STRING (fnd_log.level_statement,
2181: g_module ||
2182: l_api_name,
2183: '332:x_price_details.STATUS_TEXT = ' ||
2184: x_price_details.status_text
2182: l_api_name,
2183: '332:x_price_details.STATUS_TEXT = ' ||
2184: x_price_details.status_text
2185: );
2186: fnd_log.STRING (fnd_log.level_statement,
2187: g_module ||
2188: l_api_name,
2189: '333:l_rail_rec.amount = ' ||
2190: l_rail_rec.amount
2225: );
2226:
2227: IF x_return_status <> g_ret_sts_success
2228: THEN
2229: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2230: THEN
2231: fnd_log.STRING (fnd_log.level_statement,
2232: g_module ||
2233: l_api_name,
2227: IF x_return_status <> g_ret_sts_success
2228: THEN
2229: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2230: THEN
2231: fnd_log.STRING (fnd_log.level_statement,
2232: g_module ||
2233: l_api_name,
2234: '334:Tax ERROR after GET_TAX call x_return_status '||x_return_status
2235: );
2232: g_module ||
2233: l_api_name,
2234: '334:Tax ERROR after GET_TAX call x_return_status '||x_return_status
2235: );
2236: fnd_log.STRING (fnd_log.level_statement,
2237: g_module ||
2238: l_api_name,
2239: '334:x_msg_data '||x_msg_data
2240: );
2246: l_rail_rec.tax_value := 0;
2247: l_rail_rec.amount_includes_tax_flag := 'N';
2248: END IF;
2249:
2250: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2251: THEN
2252: fnd_log.STRING (fnd_log.level_statement,
2253: g_module ||
2254: l_api_name,
2248: END IF;
2249:
2250: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2251: THEN
2252: fnd_log.STRING (fnd_log.level_statement,
2253: g_module ||
2254: l_api_name,
2255: '336:l_rail_rec.TAX_VALUE = ' ||
2256: l_rail_rec.tax_value
2254: l_api_name,
2255: '336:l_rail_rec.TAX_VALUE = ' ||
2256: l_rail_rec.tax_value
2257: );
2258: fnd_log.STRING (fnd_log.level_statement,
2259: g_module ||
2260: l_api_name,
2261: '337:l_rail_rec.AMOUNT_INCLUDES_TAX_FLAG = ' ||
2262: l_rail_rec.amount_includes_tax_flag
2325: );
2326:
2327: IF x_return_status <> g_ret_sts_success
2328: THEN
2329: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2330: THEN
2331: fnd_log.STRING (fnd_log.level_statement,
2332: g_module ||
2333: l_api_name,
2327: IF x_return_status <> g_ret_sts_success
2328: THEN
2329: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2330: THEN
2331: fnd_log.STRING (fnd_log.level_statement,
2332: g_module ||
2333: l_api_name,
2334: '338:Update line details at Calc Subscription'
2335: );
2358: );
2359:
2360: IF x_return_status <> g_ret_sts_success
2361: THEN
2362: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2363: THEN
2364: fnd_log.STRING
2365: (fnd_log.level_statement,
2366: g_module ||
2360: IF x_return_status <> g_ret_sts_success
2361: THEN
2362: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2363: THEN
2364: fnd_log.STRING
2365: (fnd_log.level_statement,
2366: g_module ||
2367: l_api_name,
2368: '339:Update Contract line ERROR at Calc Subscription'
2361: THEN
2362: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2363: THEN
2364: fnd_log.STRING
2365: (fnd_log.level_statement,
2366: g_module ||
2367: l_api_name,
2368: '339:Update Contract line ERROR at Calc Subscription'
2369: );
2382: x_price_details.serv_adj_unit_price;
2383: l_scev_rec_in.object_version_number :=
2384: l_subs_elements_rec.object_version_number;
2385:
2386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2387: THEN
2388: fnd_log.STRING (fnd_log.level_statement,
2389: g_module ||
2390: l_api_name,
2384: l_subs_elements_rec.object_version_number;
2385:
2386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2387: THEN
2388: fnd_log.STRING (fnd_log.level_statement,
2389: g_module ||
2390: l_api_name,
2391: '340:Subscription element ID : ' ||
2392: l_scev_rec_in.ID
2390: l_api_name,
2391: '340:Subscription element ID : ' ||
2392: l_scev_rec_in.ID
2393: );
2394: fnd_log.STRING (fnd_log.level_statement,
2395: g_module ||
2396: l_api_name,
2397: '341:Subscription element Amt : ' ||
2398: l_scev_rec_in.amount
2411: );
2412:
2413: IF x_return_status <> g_ret_sts_success
2414: THEN
2415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2416: THEN
2417: fnd_log.STRING
2418: (fnd_log.level_statement,
2419: g_module ||
2413: IF x_return_status <> g_ret_sts_success
2414: THEN
2415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2416: THEN
2417: fnd_log.STRING
2418: (fnd_log.level_statement,
2419: g_module ||
2420: l_api_name,
2421: '342:ERROR while updating Subscription elements at Calc Subscription'
2414: THEN
2415: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2416: THEN
2417: fnd_log.STRING
2418: (fnd_log.level_statement,
2419: g_module ||
2420: l_api_name,
2421: '342:ERROR while updating Subscription elements at Calc Subscription'
2422: );
2469: x_price_details.status_text :=
2470: NVL (x_price_details.status_text, g_sts_txt_success);
2471:
2472: -- end debug log
2473: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2474: THEN
2475: fnd_log.STRING (fnd_log.level_procedure,
2476: g_module ||
2477: l_api_name,
2471:
2472: -- end debug log
2473: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2474: THEN
2475: fnd_log.STRING (fnd_log.level_procedure,
2476: g_module ||
2477: l_api_name,
2478: '1000: Leaving ' ||
2479: g_pkg_name ||
2484: EXCEPTION
2485: WHEN g_exc_cant_price
2486: THEN
2487: -- end debug log
2488: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2489: THEN
2490: fnd_log.STRING (fnd_log.level_procedure,
2491: g_module ||
2492: l_api_name,
2486: THEN
2487: -- end debug log
2488: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2489: THEN
2490: fnd_log.STRING (fnd_log.level_procedure,
2491: g_module ||
2492: l_api_name,
2493: '7000: Leaving ' ||
2494: g_pkg_name ||
2532: END IF;
2533: WHEN g_exc_error
2534: THEN
2535: -- end debug log
2536: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2537: THEN
2538: fnd_log.STRING (fnd_log.level_procedure,
2539: g_module ||
2540: l_api_name,
2534: THEN
2535: -- end debug log
2536: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2537: THEN
2538: fnd_log.STRING (fnd_log.level_procedure,
2539: g_module ||
2540: l_api_name,
2541: '2000: Leaving ' ||
2542: g_pkg_name ||
2578: END IF;
2579: WHEN OTHERS
2580: THEN
2581: -- end debug log
2582: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2583: THEN
2584: fnd_log.STRING (fnd_log.level_procedure,
2585: g_module ||
2586: l_api_name,
2580: THEN
2581: -- end debug log
2582: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2583: THEN
2584: fnd_log.STRING (fnd_log.level_procedure,
2585: g_module ||
2586: l_api_name,
2587: '4000: Leaving ' ||
2588: g_pkg_name ||
2694: l_chr_id NUMBER;
2695: invalid_hdr_id_exception EXCEPTION;
2696: BEGIN
2697: -- start debug log
2698: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2699: THEN
2700: fnd_log.STRING (fnd_log.level_procedure,
2701: g_module ||
2702: l_api_name,
2696: BEGIN
2697: -- start debug log
2698: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2699: THEN
2700: fnd_log.STRING (fnd_log.level_procedure,
2701: g_module ||
2702: l_api_name,
2703: '100: Entered ' ||
2704: g_pkg_name ||
2708: END IF;
2709:
2710: x_return_status := g_ret_sts_success;
2711:
2712: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2713: THEN
2714: fnd_log.STRING (fnd_log.level_statement,
2715: g_module ||
2716: l_api_name,
2710: x_return_status := g_ret_sts_success;
2711:
2712: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2713: THEN
2714: fnd_log.STRING (fnd_log.level_statement,
2715: g_module ||
2716: l_api_name,
2717: '343:********** Entered Sub line Price ********'
2718: );
2715: g_module ||
2716: l_api_name,
2717: '343:********** Entered Sub line Price ********'
2718: );
2719: fnd_log.STRING (fnd_log.level_statement,
2720: g_module ||
2721: l_api_name,
2722: '344:CHR_ID = ' ||
2723: p_detail_rec.chr_id
2721: l_api_name,
2722: '344:CHR_ID = ' ||
2723: p_detail_rec.chr_id
2724: );
2725: fnd_log.STRING (fnd_log.level_statement,
2726: g_module ||
2727: l_api_name,
2728: '345:LINE_ID = ' ||
2729: p_detail_rec.line_id
2727: l_api_name,
2728: '345:LINE_ID = ' ||
2729: p_detail_rec.line_id
2730: );
2731: fnd_log.STRING (fnd_log.level_statement,
2732: g_module ||
2733: l_api_name,
2734: '346:SUBLINE_ID = ' ||
2735: p_detail_rec.subline_id
2733: l_api_name,
2734: '346:SUBLINE_ID = ' ||
2735: p_detail_rec.subline_id
2736: );
2737: fnd_log.STRING (fnd_log.level_statement,
2738: g_module ||
2739: l_api_name,
2740: '347:INTENT = ' ||
2741: p_detail_rec.intent
2739: l_api_name,
2740: '347:INTENT = ' ||
2741: p_detail_rec.intent
2742: );
2743: fnd_log.STRING (fnd_log.level_statement,
2744: g_module ||
2745: l_api_name,
2746: '348:CURRENCY = ' ||
2747: p_detail_rec.currency
2745: l_api_name,
2746: '348:CURRENCY = ' ||
2747: p_detail_rec.currency
2748: );
2749: fnd_log.STRING (fnd_log.level_statement,
2750: g_module ||
2751: l_api_name,
2752: '349:Usage Qty = ' ||
2753: p_detail_rec.usage_qty
2751: l_api_name,
2752: '349:Usage Qty = ' ||
2753: p_detail_rec.usage_qty
2754: );
2755: fnd_log.STRING (fnd_log.level_statement,
2756: g_module ||
2757: l_api_name,
2758: '350:Usage UOM Code = ' ||
2759: p_detail_rec.usage_uom_code
2799: IF l_line_details_csr%NOTFOUND
2800: THEN
2801: CLOSE l_line_details_csr;
2802:
2803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2804: THEN
2805: fnd_log.STRING
2806: (fnd_log.level_statement,
2807: g_module ||
2801: CLOSE l_line_details_csr;
2802:
2803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2804: THEN
2805: fnd_log.STRING
2806: (fnd_log.level_statement,
2807: g_module ||
2808: l_api_name,
2809: '351:Override amount not present in Price Negotiated column'
2802:
2803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2804: THEN
2805: fnd_log.STRING
2806: (fnd_log.level_statement,
2807: g_module ||
2808: l_api_name,
2809: '351:Override amount not present in Price Negotiated column'
2810: );
2836: );
2837:
2838: IF x_return_status <> g_ret_sts_success
2839: THEN
2840: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
2841: )
2842: THEN
2843: fnd_log.STRING (fnd_log.level_statement,
2844: g_module ||
2839: THEN
2840: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
2841: )
2842: THEN
2843: fnd_log.STRING (fnd_log.level_statement,
2844: g_module ||
2845: l_api_name,
2846: '352:CALC PRICE ERROR at 1st SAPI call'
2847: );
2861: (l_prod_qty *
2862: l_serv_qty
2863: );
2864:
2865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2866: THEN
2867: fnd_log.STRING (fnd_log.level_statement,
2868: g_module ||
2869: l_api_name,
2863: );
2864:
2865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2866: THEN
2867: fnd_log.STRING (fnd_log.level_statement,
2868: g_module ||
2869: l_api_name,
2870: '353:Asking price : ' ||
2871: l_input_detail_rec.asking_unit_price
2884: );
2885:
2886: IF x_return_status <> g_ret_sts_success
2887: THEN
2888: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2889: )
2890: THEN
2891: fnd_log.STRING (fnd_log.level_procedure,
2892: g_module ||
2887: THEN
2888: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2889: )
2890: THEN
2891: fnd_log.STRING (fnd_log.level_procedure,
2892: g_module ||
2893: l_api_name,
2894: '201:CALC PRICE ERROR at 2nd SAPI call'
2895: );
2894: '201:CALC PRICE ERROR at 2nd SAPI call'
2895: );
2896: END IF;
2897:
2898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
2899: )
2900: THEN
2901: fnd_log.STRING (fnd_log.level_statement,
2902: g_module ||
2897:
2898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
2899: )
2900: THEN
2901: fnd_log.STRING (fnd_log.level_statement,
2902: g_module ||
2903: l_api_name,
2904: '354:CALC PRICE ERROR at 2nd SAPI call'
2905: );
3039: );
3040:
3041: IF x_return_status <> g_ret_sts_success
3042: THEN
3043: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3044: THEN
3045: fnd_log.STRING (fnd_log.level_statement,
3046: g_module ||
3047: l_api_name,
3041: IF x_return_status <> g_ret_sts_success
3042: THEN
3043: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3044: THEN
3045: fnd_log.STRING (fnd_log.level_statement,
3046: g_module ||
3047: l_api_name,
3048: '355:CALC PRICE ERROR at 2nd SAPI call'
3049: );
3073: );
3074:
3075: IF x_return_status <> g_ret_sts_success
3076: THEN
3077: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3078: THEN
3079: fnd_log.STRING (fnd_log.level_statement,
3080: g_module ||
3081: l_api_name,
3075: IF x_return_status <> g_ret_sts_success
3076: THEN
3077: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3078: THEN
3079: fnd_log.STRING (fnd_log.level_statement,
3080: g_module ||
3081: l_api_name,
3082: '356:TAX ERROR in Subline Price x_return_status '||x_return_status
3083: );
3080: g_module ||
3081: l_api_name,
3082: '356:TAX ERROR in Subline Price x_return_status '||x_return_status
3083: );
3084: fnd_log.STRING (fnd_log.level_statement,
3085: g_module ||
3086: l_api_name,
3087: '356: x_msg_data '||x_msg_data
3088: );
3094: l_rail_rec.tax_value := 0;
3095: l_rail_rec.amount_includes_tax_flag := 'N';
3096: END IF;
3097:
3098: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3099: THEN
3100: fnd_log.STRING (fnd_log.level_statement,
3101: g_module ||
3102: l_api_name,
3096: END IF;
3097:
3098: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3099: THEN
3100: fnd_log.STRING (fnd_log.level_statement,
3101: g_module ||
3102: l_api_name,
3103: '358:l_rail_rec.TAX_VALUE = ' ||
3104: l_rail_rec.tax_value
3102: l_api_name,
3103: '358:l_rail_rec.TAX_VALUE = ' ||
3104: l_rail_rec.tax_value
3105: );
3106: fnd_log.STRING (fnd_log.level_statement,
3107: g_module ||
3108: l_api_name,
3109: '359:l_rail_rec.AMOUNT_INCLUDES_TAX_FLAG = ' ||
3110: l_rail_rec.amount_includes_tax_flag
3171: );
3172:
3173: IF x_return_status <> g_ret_sts_success
3174: THEN
3175: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3176: THEN
3177: fnd_log.STRING (fnd_log.level_statement,
3178: g_module ||
3179: l_api_name,
3173: IF x_return_status <> g_ret_sts_success
3174: THEN
3175: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3176: THEN
3177: fnd_log.STRING (fnd_log.level_statement,
3178: g_module ||
3179: l_api_name,
3180: '360:Update line details at Calc Subscription'
3181: );
3208: );
3209:
3210: IF x_return_status <> g_ret_sts_success
3211: THEN
3212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3213: THEN
3214: fnd_log.STRING
3215: (fnd_log.level_statement,
3216: g_module ||
3210: IF x_return_status <> g_ret_sts_success
3211: THEN
3212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3213: THEN
3214: fnd_log.STRING
3215: (fnd_log.level_statement,
3216: g_module ||
3217: l_api_name,
3218: '361:Contract line updation ERROR in Subline Price'
3211: THEN
3212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3213: THEN
3214: fnd_log.STRING
3215: (fnd_log.level_statement,
3216: g_module ||
3217: l_api_name,
3218: '361:Contract line updation ERROR in Subline Price'
3219: );
3223: RAISE g_exc_error;
3224: END IF;
3225:
3226: -- end debug log
3227: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3228: THEN
3229: fnd_log.STRING (fnd_log.level_procedure,
3230: g_module ||
3231: l_api_name,
3225:
3226: -- end debug log
3227: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3228: THEN
3229: fnd_log.STRING (fnd_log.level_procedure,
3230: g_module ||
3231: l_api_name,
3232: '1000: Leaving ' ||
3233: g_pkg_name ||
3238: EXCEPTION
3239: WHEN g_exc_cant_price
3240: THEN
3241: -- end debug log
3242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3243: THEN
3244: fnd_log.STRING (fnd_log.level_procedure,
3245: g_module ||
3246: l_api_name,
3240: THEN
3241: -- end debug log
3242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3243: THEN
3244: fnd_log.STRING (fnd_log.level_procedure,
3245: g_module ||
3246: l_api_name,
3247: '7000: Leaving ' ||
3248: g_pkg_name ||
3260: NULL;
3261: WHEN g_exc_error
3262: THEN
3263: -- end debug log
3264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3265: THEN
3266: fnd_log.STRING (fnd_log.level_procedure,
3267: g_module ||
3268: l_api_name,
3262: THEN
3263: -- end debug log
3264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3265: THEN
3266: fnd_log.STRING (fnd_log.level_procedure,
3267: g_module ||
3268: l_api_name,
3269: '2000: Leaving ' ||
3270: g_pkg_name ||
3276: NULL;
3277: WHEN invalid_hdr_id_exception
3278: THEN
3279: -- end debug log
3280: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3281: THEN
3282: fnd_log.STRING (fnd_log.level_procedure,
3283: g_module ||
3284: l_api_name,
3278: THEN
3279: -- end debug log
3280: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3281: THEN
3282: fnd_log.STRING (fnd_log.level_procedure,
3283: g_module ||
3284: l_api_name,
3285: '8000: Leaving ' ||
3286: g_pkg_name ||
3296: );
3297: WHEN OTHERS
3298: THEN
3299: -- end debug log
3300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3301: THEN
3302: fnd_log.STRING (fnd_log.level_procedure,
3303: g_module ||
3304: l_api_name,
3298: THEN
3299: -- end debug log
3300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3301: THEN
3302: fnd_log.STRING (fnd_log.level_procedure,
3303: g_module ||
3304: l_api_name,
3305: '4000: Leaving ' ||
3306: g_pkg_name ||
3365: l_line_no VARCHAR2 (300);
3366: l_status VARCHAR2 (30); --3912685
3367: BEGIN
3368: -- start debug log
3369: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3370: THEN
3371: fnd_log.STRING (fnd_log.level_procedure,
3372: g_module ||
3373: l_api_name,
3367: BEGIN
3368: -- start debug log
3369: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3370: THEN
3371: fnd_log.STRING (fnd_log.level_procedure,
3372: g_module ||
3373: l_api_name,
3374: '100: Entered ' ||
3375: g_pkg_name ||
3390: );
3391:
3392: IF x_return_status <> g_ret_sts_success
3393: THEN
3394: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3395: THEN
3396: fnd_log.STRING (fnd_log.level_statement,
3397: g_module ||
3398: l_api_name,
3392: IF x_return_status <> g_ret_sts_success
3393: THEN
3394: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3395: THEN
3396: fnd_log.STRING (fnd_log.level_statement,
3397: g_module ||
3398: l_api_name,
3399: '362:Get Line details ERROR in Topline'
3400: );
3450: );
3451:
3452: IF x_return_status <> g_ret_sts_success
3453: THEN
3454: IF (fnd_log.level_statement >=
3455: fnd_log.g_current_runtime_level
3456: )
3457: THEN
3458: fnd_log.STRING
3451:
3452: IF x_return_status <> g_ret_sts_success
3453: THEN
3454: IF (fnd_log.level_statement >=
3455: fnd_log.g_current_runtime_level
3456: )
3457: THEN
3458: fnd_log.STRING
3459: (fnd_log.level_statement,
3454: IF (fnd_log.level_statement >=
3455: fnd_log.g_current_runtime_level
3456: )
3457: THEN
3458: fnd_log.STRING
3459: (fnd_log.level_statement,
3460: g_module ||
3461: l_api_name,
3462: '363:CALC PRICE ERROR after SAPI call in Topline'
3455: fnd_log.g_current_runtime_level
3456: )
3457: THEN
3458: fnd_log.STRING
3459: (fnd_log.level_statement,
3460: g_module ||
3461: l_api_name,
3462: '363:CALC PRICE ERROR after SAPI call in Topline'
3463: );
3484: );
3485:
3486: IF x_return_status <> g_ret_sts_success
3487: THEN
3488: IF (fnd_log.level_statement >=
3489: fnd_log.g_current_runtime_level
3490: )
3491: THEN
3492: fnd_log.STRING (fnd_log.level_statement,
3485:
3486: IF x_return_status <> g_ret_sts_success
3487: THEN
3488: IF (fnd_log.level_statement >=
3489: fnd_log.g_current_runtime_level
3490: )
3491: THEN
3492: fnd_log.STRING (fnd_log.level_statement,
3493: g_module ||
3488: IF (fnd_log.level_statement >=
3489: fnd_log.g_current_runtime_level
3490: )
3491: THEN
3492: fnd_log.STRING (fnd_log.level_statement,
3493: g_module ||
3494: l_api_name,
3495: '364:TAX CALC ERROR in Topline x_return_status '||x_return_status
3496: );
3493: g_module ||
3494: l_api_name,
3495: '364:TAX CALC ERROR in Topline x_return_status '||x_return_status
3496: );
3497: fnd_log.STRING (fnd_log.level_statement,
3498: g_module ||
3499: l_api_name,
3500: 'x_msg_data '||x_msg_data
3501: );
3507: l_rail_rec.tax_value := 0;
3508: l_rail_rec.amount_includes_tax_flag := 'N';
3509: END IF;
3510:
3511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
3512: )
3513: THEN
3514: fnd_log.STRING (fnd_log.level_statement,
3515: g_module ||
3510:
3511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
3512: )
3513: THEN
3514: fnd_log.STRING (fnd_log.level_statement,
3515: g_module ||
3516: l_api_name,
3517: '366:l_rail_rec.TAX_VALUE = ' ||
3518: l_rail_rec.tax_value
3516: l_api_name,
3517: '366:l_rail_rec.TAX_VALUE = ' ||
3518: l_rail_rec.tax_value
3519: );
3520: fnd_log.STRING
3521: (fnd_log.level_statement,
3522: g_module ||
3523: l_api_name,
3524: '367:l_rail_rec.AMOUNT_INCLUDES_TAX_FLAG = ' ||
3517: '366:l_rail_rec.TAX_VALUE = ' ||
3518: l_rail_rec.tax_value
3519: );
3520: fnd_log.STRING
3521: (fnd_log.level_statement,
3522: g_module ||
3523: l_api_name,
3524: '367:l_rail_rec.AMOUNT_INCLUDES_TAX_FLAG = ' ||
3525: l_rail_rec.amount_includes_tax_flag
3597: );
3598:
3599: IF x_return_status <> g_ret_sts_success
3600: THEN
3601: IF (fnd_log.level_statement >=
3602: fnd_log.g_current_runtime_level
3603: )
3604: THEN
3605: fnd_log.STRING
3598:
3599: IF x_return_status <> g_ret_sts_success
3600: THEN
3601: IF (fnd_log.level_statement >=
3602: fnd_log.g_current_runtime_level
3603: )
3604: THEN
3605: fnd_log.STRING
3606: (fnd_log.level_statement,
3601: IF (fnd_log.level_statement >=
3602: fnd_log.g_current_runtime_level
3603: )
3604: THEN
3605: fnd_log.STRING
3606: (fnd_log.level_statement,
3607: g_module ||
3608: l_api_name,
3609: '368:Update line details at Calc Subscription'
3602: fnd_log.g_current_runtime_level
3603: )
3604: THEN
3605: fnd_log.STRING
3606: (fnd_log.level_statement,
3607: g_module ||
3608: l_api_name,
3609: '368:Update line details at Calc Subscription'
3610: );
3640: );
3641:
3642: IF x_return_status <> g_ret_sts_success
3643: THEN
3644: IF (fnd_log.level_statement >=
3645: fnd_log.g_current_runtime_level
3646: )
3647: THEN
3648: fnd_log.STRING
3641:
3642: IF x_return_status <> g_ret_sts_success
3643: THEN
3644: IF (fnd_log.level_statement >=
3645: fnd_log.g_current_runtime_level
3646: )
3647: THEN
3648: fnd_log.STRING
3649: (fnd_log.level_statement,
3644: IF (fnd_log.level_statement >=
3645: fnd_log.g_current_runtime_level
3646: )
3647: THEN
3648: fnd_log.STRING
3649: (fnd_log.level_statement,
3650: g_module ||
3651: l_api_name,
3652: '369:Contract line updation ERROR in Subline Price - Topline Price'
3645: fnd_log.g_current_runtime_level
3646: )
3647: THEN
3648: fnd_log.STRING
3649: (fnd_log.level_statement,
3650: g_module ||
3651: l_api_name,
3652: '369:Contract line updation ERROR in Subline Price - Topline Price'
3653: );
3695: 1;
3696: END IF; -- Skip iteration if its a Subscription item
3697:
3698: -- end debug log
3699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3700: THEN
3701: fnd_log.STRING (fnd_log.level_procedure,
3702: g_module ||
3703: l_api_name,
3697:
3698: -- end debug log
3699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3700: THEN
3701: fnd_log.STRING (fnd_log.level_procedure,
3702: g_module ||
3703: l_api_name,
3704: '1000: Leaving ' ||
3705: g_pkg_name ||
3710: EXCEPTION
3711: WHEN g_exc_cant_price
3712: THEN
3713: -- end debug log
3714: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3715: )
3716: THEN
3717: fnd_log.STRING (fnd_log.level_procedure,
3718: g_module ||
3713: -- end debug log
3714: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3715: )
3716: THEN
3717: fnd_log.STRING (fnd_log.level_procedure,
3718: g_module ||
3719: l_api_name,
3720: '7000: Leaving ' ||
3721: g_pkg_name ||
3758: END IF;
3759: WHEN g_skip_exception
3760: THEN
3761: -- end debug log
3762: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3763: )
3764: THEN
3765: fnd_log.STRING (fnd_log.level_procedure,
3766: g_module ||
3761: -- end debug log
3762: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3763: )
3764: THEN
3765: fnd_log.STRING (fnd_log.level_procedure,
3766: g_module ||
3767: l_api_name,
3768: '9000: Leaving ' ||
3769: g_pkg_name ||
3828: RAISE g_exc_error;
3829: END IF;
3830:
3831: -- end debug log
3832: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3833: THEN
3834: fnd_log.STRING (fnd_log.level_procedure,
3835: g_module ||
3836: l_api_name,
3830:
3831: -- end debug log
3832: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3833: THEN
3834: fnd_log.STRING (fnd_log.level_procedure,
3835: g_module ||
3836: l_api_name,
3837: '1000: Leaving ' ||
3838: g_pkg_name ||
3843: EXCEPTION
3844: WHEN g_exc_error
3845: THEN
3846: -- end debug log
3847: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3848: THEN
3849: fnd_log.STRING (fnd_log.level_procedure,
3850: g_module ||
3851: l_api_name,
3845: THEN
3846: -- end debug log
3847: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3848: THEN
3849: fnd_log.STRING (fnd_log.level_procedure,
3850: g_module ||
3851: l_api_name,
3852: '2000: Leaving ' ||
3853: g_pkg_name ||
3859: NULL;
3860: WHEN OTHERS
3861: THEN
3862: -- end debug log
3863: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3864: THEN
3865: fnd_log.STRING (fnd_log.level_procedure,
3866: g_module ||
3867: l_api_name,
3861: THEN
3862: -- end debug log
3863: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3864: THEN
3865: fnd_log.STRING (fnd_log.level_procedure,
3866: g_module ||
3867: l_api_name,
3868: '4000: Leaving ' ||
3869: g_pkg_name ||
3916: l_chrv_rec_out okc_contract_pub.chrv_rec_type;
3917: l_k_det_rec k_details_rec;
3918: BEGIN
3919: -- start debug log
3920: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3921: THEN
3922: fnd_log.STRING (fnd_log.level_procedure,
3923: g_module ||
3924: l_api_name,
3918: BEGIN
3919: -- start debug log
3920: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3921: THEN
3922: fnd_log.STRING (fnd_log.level_procedure,
3923: g_module ||
3924: l_api_name,
3925: '100: Entered ' ||
3926: g_pkg_name ||
3955: );
3956:
3957: IF x_return_status <> g_ret_sts_success
3958: THEN
3959: IF (fnd_log.level_statement >=
3960: fnd_log.g_current_runtime_level
3961: )
3962: THEN
3963: fnd_log.STRING
3956:
3957: IF x_return_status <> g_ret_sts_success
3958: THEN
3959: IF (fnd_log.level_statement >=
3960: fnd_log.g_current_runtime_level
3961: )
3962: THEN
3963: fnd_log.STRING
3964: (fnd_log.level_statement,
3959: IF (fnd_log.level_statement >=
3960: fnd_log.g_current_runtime_level
3961: )
3962: THEN
3963: fnd_log.STRING
3964: (fnd_log.level_statement,
3965: g_module ||
3966: l_api_name,
3967: '370:CALC SUBSCRIPTION ERROR at Calc Hdr call'
3960: fnd_log.g_current_runtime_level
3961: )
3962: THEN
3963: fnd_log.STRING
3964: (fnd_log.level_statement,
3965: g_module ||
3966: l_api_name,
3967: '370:CALC SUBSCRIPTION ERROR at Calc Hdr call'
3968: );
3991: );
3992:
3993: IF x_return_status <> g_ret_sts_success
3994: THEN
3995: IF (fnd_log.level_statement >=
3996: fnd_log.g_current_runtime_level
3997: )
3998: THEN
3999: fnd_log.STRING
3992:
3993: IF x_return_status <> g_ret_sts_success
3994: THEN
3995: IF (fnd_log.level_statement >=
3996: fnd_log.g_current_runtime_level
3997: )
3998: THEN
3999: fnd_log.STRING
4000: (fnd_log.level_statement,
3995: IF (fnd_log.level_statement >=
3996: fnd_log.g_current_runtime_level
3997: )
3998: THEN
3999: fnd_log.STRING
4000: (fnd_log.level_statement,
4001: g_module ||
4002: l_api_name,
4003: '371:CALC TOPLINE ERROR at Calc Hdr call'
3996: fnd_log.g_current_runtime_level
3997: )
3998: THEN
3999: fnd_log.STRING
4000: (fnd_log.level_statement,
4001: g_module ||
4002: l_api_name,
4003: '371:CALC TOPLINE ERROR at Calc Hdr call'
4004: );
4009: END IF;
4010: END IF;
4011:
4012: -- end debug log
4013: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4014: THEN
4015: fnd_log.STRING (fnd_log.level_procedure,
4016: g_module ||
4017: l_api_name,
4011:
4012: -- end debug log
4013: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4014: THEN
4015: fnd_log.STRING (fnd_log.level_procedure,
4016: g_module ||
4017: l_api_name,
4018: '1000: Leaving ' ||
4019: g_pkg_name ||
4024: EXCEPTION
4025: WHEN g_skip_exception
4026: THEN
4027: -- end debug log
4028: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4029: )
4030: THEN
4031: fnd_log.STRING (fnd_log.level_procedure,
4032: g_module ||
4027: -- end debug log
4028: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4029: )
4030: THEN
4031: fnd_log.STRING (fnd_log.level_procedure,
4032: g_module ||
4033: l_api_name,
4034: '9000: Leaving ' ||
4035: g_pkg_name ||
4067: RAISE g_exc_error;
4068: END IF;
4069:
4070: -- end debug log
4071: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4072: THEN
4073: fnd_log.STRING (fnd_log.level_procedure,
4074: g_module ||
4075: l_api_name,
4069:
4070: -- end debug log
4071: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4072: THEN
4073: fnd_log.STRING (fnd_log.level_procedure,
4074: g_module ||
4075: l_api_name,
4076: '1000: Leaving ' ||
4077: g_pkg_name ||
4082: EXCEPTION
4083: WHEN g_exc_error
4084: THEN
4085: -- end debug log
4086: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4087: THEN
4088: fnd_log.STRING (fnd_log.level_procedure,
4089: g_module ||
4090: l_api_name,
4084: THEN
4085: -- end debug log
4086: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4087: THEN
4088: fnd_log.STRING (fnd_log.level_procedure,
4089: g_module ||
4090: l_api_name,
4091: '2000: Leaving ' ||
4092: g_pkg_name ||
4098: NULL;
4099: WHEN OTHERS
4100: THEN
4101: -- end debug log
4102: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4103: THEN
4104: fnd_log.STRING (fnd_log.level_procedure,
4105: g_module ||
4106: l_api_name,
4100: THEN
4101: -- end debug log
4102: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4103: THEN
4104: fnd_log.STRING (fnd_log.level_procedure,
4105: g_module ||
4106: l_api_name,
4107: '4000: Leaving ' ||
4108: g_pkg_name ||
4144: l_clev_rec_in okc_contract_pub.clev_rec_type;
4145: l_clev_rec_out okc_contract_pub.clev_rec_type;
4146: BEGIN
4147: -- start debug log
4148: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4149: THEN
4150: fnd_log.STRING (fnd_log.level_procedure,
4151: g_module ||
4152: l_api_name,
4146: BEGIN
4147: -- start debug log
4148: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4149: THEN
4150: fnd_log.STRING (fnd_log.level_procedure,
4151: g_module ||
4152: l_api_name,
4153: '100: Entered ' ||
4154: g_pkg_name ||
4154: g_pkg_name ||
4155: '.' ||
4156: l_api_name
4157: );
4158: fnd_log.STRING
4159: (fnd_log.level_procedure,
4160: g_module ||
4161: l_api_name,
4162: '100: ***************** Parameters : ******************'
4155: '.' ||
4156: l_api_name
4157: );
4158: fnd_log.STRING
4159: (fnd_log.level_procedure,
4160: g_module ||
4161: l_api_name,
4162: '100: ***************** Parameters : ******************'
4163: );
4160: g_module ||
4161: l_api_name,
4162: '100: ***************** Parameters : ******************'
4163: );
4164: fnd_log.STRING (fnd_log.level_procedure,
4165: g_module ||
4166: l_api_name,
4167: '100:CHR_ID = ' ||
4168: p_detail_rec.chr_id
4166: l_api_name,
4167: '100:CHR_ID = ' ||
4168: p_detail_rec.chr_id
4169: );
4170: fnd_log.STRING (fnd_log.level_procedure,
4171: g_module ||
4172: l_api_name,
4173: '100:LINE_ID = ' ||
4174: p_detail_rec.line_id
4172: l_api_name,
4173: '100:LINE_ID = ' ||
4174: p_detail_rec.line_id
4175: );
4176: fnd_log.STRING (fnd_log.level_procedure,
4177: g_module ||
4178: l_api_name,
4179: '100:SUBLINE_ID = ' ||
4180: p_detail_rec.subline_id
4178: l_api_name,
4179: '100:SUBLINE_ID = ' ||
4180: p_detail_rec.subline_id
4181: );
4182: fnd_log.STRING (fnd_log.level_procedure,
4183: g_module ||
4184: l_api_name,
4185: '100:INTENT = ' ||
4186: p_detail_rec.intent
4184: l_api_name,
4185: '100:INTENT = ' ||
4186: p_detail_rec.intent
4187: );
4188: fnd_log.STRING (fnd_log.level_procedure,
4189: g_module ||
4190: l_api_name,
4191: '100:CURRENCY = ' ||
4192: p_detail_rec.currency
4190: l_api_name,
4191: '100:CURRENCY = ' ||
4192: p_detail_rec.currency
4193: );
4194: fnd_log.STRING (fnd_log.level_procedure,
4195: g_module ||
4196: l_api_name,
4197: '100:Usage Qty = ' ||
4198: p_detail_rec.usage_qty
4196: l_api_name,
4197: '100:Usage Qty = ' ||
4198: p_detail_rec.usage_qty
4199: );
4200: fnd_log.STRING (fnd_log.level_procedure,
4201: g_module ||
4202: l_api_name,
4203: '100:Usage UOM Code = ' ||
4204: p_detail_rec.usage_uom_code
4202: l_api_name,
4203: '100:Usage UOM Code = ' ||
4204: p_detail_rec.usage_uom_code
4205: );
4206: fnd_log.STRING (fnd_log.level_procedure,
4207: g_module ||
4208: l_api_name,
4209: '100:Asking Unit Price = ' ||
4210: p_detail_rec.asking_unit_price
4266: p_token1 => g_invalid_value,
4267: p_token1_value => 'CHR_ID'
4268: );
4269:
4270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4271: THEN
4272: fnd_log.STRING (fnd_log.level_statement,
4273: g_module ||
4274: l_api_name,
4268: );
4269:
4270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4271: THEN
4272: fnd_log.STRING (fnd_log.level_statement,
4273: g_module ||
4274: l_api_name,
4275: '372:Contract header id is NULL'
4276: );
4291: x_topline_id => l_input_detail_rec.subline_id,
4292: x_return_status => x_return_status
4293: );
4294:
4295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4296: )
4297: THEN
4298: fnd_log.STRING (fnd_log.level_statement,
4299: g_module ||
4294:
4295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4296: )
4297: THEN
4298: fnd_log.STRING (fnd_log.level_statement,
4299: g_module ||
4300: l_api_name,
4301: '373:Get_id chr_id in CompP = ' ||
4302: l_input_detail_rec.chr_id
4300: l_api_name,
4301: '373:Get_id chr_id in CompP = ' ||
4302: l_input_detail_rec.chr_id
4303: );
4304: fnd_log.STRING (fnd_log.level_statement,
4305: g_module ||
4306: l_api_name,
4307: '374:Get_id topline_id in CompP = ' ||
4308: l_input_detail_rec.line_id
4312: --errorout ('Get_id chr_id in CompP = ' || l_input_detail_rec.chr_id);
4313: --errorout ('Get_id topline_id in CompP = ' || l_input_detail_rec.line_id);
4314: IF x_return_status <> g_ret_sts_success
4315: THEN
4316: IF (fnd_log.level_statement >=
4317: fnd_log.g_current_runtime_level
4318: )
4319: THEN
4320: fnd_log.STRING (fnd_log.level_statement,
4313: --errorout ('Get_id topline_id in CompP = ' || l_input_detail_rec.line_id);
4314: IF x_return_status <> g_ret_sts_success
4315: THEN
4316: IF (fnd_log.level_statement >=
4317: fnd_log.g_current_runtime_level
4318: )
4319: THEN
4320: fnd_log.STRING (fnd_log.level_statement,
4321: g_module ||
4316: IF (fnd_log.level_statement >=
4317: fnd_log.g_current_runtime_level
4318: )
4319: THEN
4320: fnd_log.STRING (fnd_log.level_statement,
4321: g_module ||
4322: l_api_name,
4323: '375:Get_id return status = ' ||
4324: x_return_status
4370: THEN
4371: RAISE g_exc_error;
4372: END IF;
4373: ELSE
4374: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4375: THEN
4376: fnd_log.STRING (fnd_log.level_statement,
4377: g_module ||
4378: l_api_name,
4372: END IF;
4373: ELSE
4374: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4375: THEN
4376: fnd_log.STRING (fnd_log.level_statement,
4377: g_module ||
4378: l_api_name,
4379: '376:Top Line id is NULL'
4380: );
4402: x_topline_id => l_input_detail_rec.line_id,
4403: x_return_status => x_return_status
4404: );
4405:
4406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4407: )
4408: THEN
4409: fnd_log.STRING (fnd_log.level_statement,
4410: g_module ||
4405:
4406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4407: )
4408: THEN
4409: fnd_log.STRING (fnd_log.level_statement,
4410: g_module ||
4411: l_api_name,
4412: '377:Get_id topline_id = ' ||
4413: l_input_detail_rec.line_id
4416:
4417: --errorout ('Get_id topline_id = ' || l_input_detail_rec.line_id);
4418: IF x_return_status <> g_ret_sts_success
4419: THEN
4420: IF (fnd_log.level_statement >=
4421: fnd_log.g_current_runtime_level
4422: )
4423: THEN
4424: fnd_log.STRING (fnd_log.level_statement,
4417: --errorout ('Get_id topline_id = ' || l_input_detail_rec.line_id);
4418: IF x_return_status <> g_ret_sts_success
4419: THEN
4420: IF (fnd_log.level_statement >=
4421: fnd_log.g_current_runtime_level
4422: )
4423: THEN
4424: fnd_log.STRING (fnd_log.level_statement,
4425: g_module ||
4420: IF (fnd_log.level_statement >=
4421: fnd_log.g_current_runtime_level
4422: )
4423: THEN
4424: fnd_log.STRING (fnd_log.level_statement,
4425: g_module ||
4426: l_api_name,
4427: '378:Get_id return status = ' ||
4428: x_return_status
4433: RAISE g_exc_error;
4434: END IF;
4435: END IF;
4436:
4437: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4438: THEN
4439: fnd_log.STRING (fnd_log.level_statement,
4440: g_module ||
4441: l_api_name,
4435: END IF;
4436:
4437: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4438: THEN
4439: fnd_log.STRING (fnd_log.level_statement,
4440: g_module ||
4441: l_api_name,
4442: '379:here is Sub line'
4443: );
4509: THEN
4510: RAISE g_exc_error;
4511: END IF;
4512: ELSE
4513: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4514: THEN
4515: fnd_log.STRING (fnd_log.level_statement,
4516: g_module ||
4517: l_api_name,
4511: END IF;
4512: ELSE
4513: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4514: THEN
4515: fnd_log.STRING (fnd_log.level_statement,
4516: g_module ||
4517: l_api_name,
4518: '380:Sub line id is NULL'
4519: );
4539: x_topline_id => l_input_detail_rec.subline_id,
4540: x_return_status => x_return_status
4541: );
4542:
4543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4544: )
4545: THEN
4546: fnd_log.STRING (fnd_log.level_statement,
4547: g_module ||
4542:
4543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4544: )
4545: THEN
4546: fnd_log.STRING (fnd_log.level_statement,
4547: g_module ||
4548: l_api_name,
4549: '381:Get_id chr_id in CompP = ' ||
4550: l_input_detail_rec.chr_id
4548: l_api_name,
4549: '381:Get_id chr_id in CompP = ' ||
4550: l_input_detail_rec.chr_id
4551: );
4552: fnd_log.STRING (fnd_log.level_statement,
4553: g_module ||
4554: l_api_name,
4555: '382:Get_id topline_id in CompP = ' ||
4556: l_input_detail_rec.line_id
4560: --errorout ('Get_id chr_id in CompP = ' || l_input_detail_rec.chr_id);
4561: --errorout ('Get_id topline_id in CompP = ' || l_input_detail_rec.line_id);
4562: IF x_return_status <> g_ret_sts_success
4563: THEN
4564: IF (fnd_log.level_statement >=
4565: fnd_log.g_current_runtime_level
4566: )
4567: THEN
4568: fnd_log.STRING (fnd_log.level_statement,
4561: --errorout ('Get_id topline_id in CompP = ' || l_input_detail_rec.line_id);
4562: IF x_return_status <> g_ret_sts_success
4563: THEN
4564: IF (fnd_log.level_statement >=
4565: fnd_log.g_current_runtime_level
4566: )
4567: THEN
4568: fnd_log.STRING (fnd_log.level_statement,
4569: g_module ||
4564: IF (fnd_log.level_statement >=
4565: fnd_log.g_current_runtime_level
4566: )
4567: THEN
4568: fnd_log.STRING (fnd_log.level_statement,
4569: g_module ||
4570: l_api_name,
4571: '383:Get_id return status = ' ||
4572: x_return_status
4587: x_msg_count => x_msg_count,
4588: x_msg_data => x_msg_data
4589: );
4590:
4591: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4592: THEN
4593: fnd_log.STRING
4594: (fnd_log.level_statement,
4595: g_module ||
4589: );
4590:
4591: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4592: THEN
4593: fnd_log.STRING
4594: (fnd_log.level_statement,
4595: g_module ||
4596: l_api_name,
4597: '384:after CSUBS - In compute price - return status = ' ||
4590:
4591: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4592: THEN
4593: fnd_log.STRING
4594: (fnd_log.level_statement,
4595: g_module ||
4596: l_api_name,
4597: '384:after CSUBS - In compute price - return status = ' ||
4598: x_return_status
4604: THEN
4605: RAISE g_exc_error;
4606: END IF;
4607:
4608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4609: THEN
4610: fnd_log.STRING (fnd_log.level_statement,
4611: g_module ||
4612: l_api_name,
4606: END IF;
4607:
4608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4609: THEN
4610: fnd_log.STRING (fnd_log.level_statement,
4611: g_module ||
4612: l_api_name,
4613: '385:Chr_id = ' ||
4614: l_input_detail_rec.chr_id
4626: );
4627: l_chrv_rec_in.object_version_number :=
4628: l_k_det_rec.object_version_number;
4629:
4630: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4631: THEN
4632: fnd_log.STRING (fnd_log.level_statement,
4633: g_module ||
4634: l_api_name,
4628: l_k_det_rec.object_version_number;
4629:
4630: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4631: THEN
4632: fnd_log.STRING (fnd_log.level_statement,
4633: g_module ||
4634: l_api_name,
4635: '386:Amount = ' ||
4636: l_chrv_rec_in.estimated_amount
4648: p_chrv_rec => l_chrv_rec_in,
4649: x_chrv_rec => l_chrv_rec_out
4650: );
4651:
4652: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4653: THEN
4654: fnd_log.STRING
4655: (fnd_log.level_statement,
4656: g_module ||
4650: );
4651:
4652: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4653: THEN
4654: fnd_log.STRING
4655: (fnd_log.level_statement,
4656: g_module ||
4657: l_api_name,
4658: '387:after hdr updation - In compute price - return status = ' ||
4651:
4652: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4653: THEN
4654: fnd_log.STRING
4655: (fnd_log.level_statement,
4656: g_module ||
4657: l_api_name,
4658: '387:after hdr updation - In compute price - return status = ' ||
4659: x_return_status
4665: THEN
4666: RAISE g_exc_error;
4667: END IF;
4668: ELSE
4669: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4670: THEN
4671: fnd_log.STRING (fnd_log.level_statement,
4672: g_module ||
4673: l_api_name,
4667: END IF;
4668: ELSE
4669: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4670: THEN
4671: fnd_log.STRING (fnd_log.level_statement,
4672: g_module ||
4673: l_api_name,
4674: '388:Line id is NULL'
4675: );
4697: x_topline_id => l_input_detail_rec.line_id,
4698: x_return_status => x_return_status
4699: );
4700:
4701: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4702: )
4703: THEN
4704: fnd_log.STRING (fnd_log.level_statement,
4705: g_module ||
4700:
4701: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
4702: )
4703: THEN
4704: fnd_log.STRING (fnd_log.level_statement,
4705: g_module ||
4706: l_api_name,
4707: '389:Get_id topline_id = ' ||
4708: l_input_detail_rec.line_id
4716: RAISE g_exc_error;
4717: END IF;
4718: END IF;
4719:
4720: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4721: THEN
4722: fnd_log.STRING (fnd_log.level_statement,
4723: g_module ||
4724: l_api_name,
4718: END IF;
4719:
4720: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4721: THEN
4722: fnd_log.STRING (fnd_log.level_statement,
4723: g_module ||
4724: l_api_name,
4725: '390:here is Sub line'
4726: );
4792: THEN
4793: RAISE g_exc_error;
4794: END IF;
4795: ELSE
4796: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4797: THEN
4798: fnd_log.STRING (fnd_log.level_statement,
4799: g_module ||
4800: l_api_name,
4794: END IF;
4795: ELSE
4796: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4797: THEN
4798: fnd_log.STRING (fnd_log.level_statement,
4799: g_module ||
4800: l_api_name,
4801: '391:Sub line id is NULL'
4802: );
4811: x_return_status := g_ret_sts_error;
4812: RAISE g_exc_error;
4813: END IF;
4814: ELSE
4815: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4816: THEN
4817: fnd_log.STRING (fnd_log.level_statement,
4818: g_module ||
4819: l_api_name,
4813: END IF;
4814: ELSE
4815: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4816: THEN
4817: fnd_log.STRING (fnd_log.level_statement,
4818: g_module ||
4819: l_api_name,
4820: '392:********** Invalid Intent ********'
4821: );
4830: x_return_status := g_ret_sts_error;
4831: RAISE g_exc_error;
4832: END IF;
4833:
4834: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4835: THEN
4836: fnd_log.STRING (fnd_log.level_statement,
4837: g_module ||
4838: l_api_name,
4832: END IF;
4833:
4834: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4835: THEN
4836: fnd_log.STRING (fnd_log.level_statement,
4837: g_module ||
4838: l_api_name,
4839: '393:********** Exiting Compute Price ********'
4840: );
4842:
4843: -- errorout ('********** Exiting Compute Price ********');
4844:
4845: -- end debug log
4846: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4847: THEN
4848: fnd_log.STRING (fnd_log.level_procedure,
4849: g_module ||
4850: l_api_name,
4844:
4845: -- end debug log
4846: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4847: THEN
4848: fnd_log.STRING (fnd_log.level_procedure,
4849: g_module ||
4850: l_api_name,
4851: '1000: Leaving ' ||
4852: g_pkg_name ||
4857: EXCEPTION
4858: WHEN g_exc_error
4859: THEN
4860: -- end debug log
4861: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4862: THEN
4863: fnd_log.STRING (fnd_log.level_procedure,
4864: g_module ||
4865: l_api_name,
4859: THEN
4860: -- end debug log
4861: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4862: THEN
4863: fnd_log.STRING (fnd_log.level_procedure,
4864: g_module ||
4865: l_api_name,
4866: '2000: Leaving ' ||
4867: g_pkg_name ||
4873: DBMS_TRANSACTION.rollback_savepoint ('COMPUTE_PRICE');
4874: WHEN OTHERS
4875: THEN
4876: -- end debug log
4877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4878: THEN
4879: fnd_log.STRING (fnd_log.level_procedure,
4880: g_module ||
4881: l_api_name,
4875: THEN
4876: -- end debug log
4877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4878: THEN
4879: fnd_log.STRING (fnd_log.level_procedure,
4880: g_module ||
4881: l_api_name,
4882: '4000: Leaving ' ||
4883: g_pkg_name ||