[Home] [Help]
5: ------------------------------------------------------------------------------
6: g_pkg_name CONSTANT VARCHAR2 (200)
7: := 'OKS_CUSTOMER_ACCEPTANCE_PVT';
8: g_app_name CONSTANT VARCHAR2 (3) := 'OKS';
9: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
10: g_module CONSTANT VARCHAR2 (250)
11: := 'oks.plsql.' ||
12: g_pkg_name ||
13: '.';
48: WHERE ch.ID = sh.chr_id
49: AND ch.ID = p_chr_id;
50: BEGIN
51: -- start debug log
52: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
53: fnd_log.STRING (fnd_log.level_procedure,
54: g_module ||
55: l_api_name,
56: '100: Entered ' ||
49: AND ch.ID = p_chr_id;
50: BEGIN
51: -- start debug log
52: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
53: fnd_log.STRING (fnd_log.level_procedure,
54: g_module ||
55: l_api_name,
56: '100: Entered ' ||
57: g_pkg_name ||
67:
68: CLOSE csr_k_amt;
69:
70: -- end debug log
71: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
72: fnd_log.STRING (fnd_log.level_procedure,
73: g_module ||
74: l_api_name,
75: '1000: Leaving ' ||
68: CLOSE csr_k_amt;
69:
70: -- end debug log
71: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
72: fnd_log.STRING (fnd_log.level_procedure,
73: g_module ||
74: l_api_name,
75: '1000: Leaving ' ||
76: g_pkg_name ||
81:
82: RETURN l_k_amount;
83: EXCEPTION
84: WHEN OTHERS THEN
85: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
86: fnd_log.STRING (fnd_log.level_procedure,
87: g_module ||
88: l_api_name,
89: '4000: Leaving ' ||
82: RETURN l_k_amount;
83: EXCEPTION
84: WHEN OTHERS THEN
85: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
86: fnd_log.STRING (fnd_log.level_procedure,
87: g_module ||
88: l_api_name,
89: '4000: Leaving ' ||
90: g_pkg_name ||
117: FROM okc_k_headers_all_b ch
118: WHERE ch.ID = p_chr_id;
119: BEGIN
120: -- start debug log
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.STRING (fnd_log.level_procedure,
123: g_module ||
124: l_api_name,
125: '100: Entered ' ||
118: WHERE ch.ID = p_chr_id;
119: BEGIN
120: -- start debug log
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.STRING (fnd_log.level_procedure,
123: g_module ||
124: l_api_name,
125: '100: Entered ' ||
126: g_pkg_name ||
136:
137: CLOSE csr_k_subtotal;
138:
139: -- end debug log
140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
141: fnd_log.STRING (fnd_log.level_procedure,
142: g_module ||
143: l_api_name,
144: '1000: Leaving ' ||
137: CLOSE csr_k_subtotal;
138:
139: -- end debug log
140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
141: fnd_log.STRING (fnd_log.level_procedure,
142: g_module ||
143: l_api_name,
144: '1000: Leaving ' ||
145: g_pkg_name ||
150:
151: RETURN l_k_subtotal;
152: EXCEPTION
153: WHEN OTHERS THEN
154: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
155: fnd_log.STRING (fnd_log.level_procedure,
156: g_module ||
157: l_api_name,
158: '4000: Leaving ' ||
151: RETURN l_k_subtotal;
152: EXCEPTION
153: WHEN OTHERS THEN
154: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
155: fnd_log.STRING (fnd_log.level_procedure,
156: g_module ||
157: l_api_name,
158: '4000: Leaving ' ||
159: g_pkg_name ||
187: AND ch.ID = p_chr_id;
188:
189: BEGIN
190: -- start debug log
191: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
192: fnd_log.STRING (fnd_log.level_procedure,
193: g_module ||
194: l_api_name,
195: '100: Entered ' ||
188:
189: BEGIN
190: -- start debug log
191: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
192: fnd_log.STRING (fnd_log.level_procedure,
193: g_module ||
194: l_api_name,
195: '100: Entered ' ||
196: g_pkg_name ||
206:
207: CLOSE csr_k_tax;
208:
209: -- end debug log
210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
211: fnd_log.STRING (fnd_log.level_procedure,
212: g_module ||
213: l_api_name,
214: '1000: Leaving ' ||
207: CLOSE csr_k_tax;
208:
209: -- end debug log
210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
211: fnd_log.STRING (fnd_log.level_procedure,
212: g_module ||
213: l_api_name,
214: '1000: Leaving ' ||
215: g_pkg_name ||
220:
221: RETURN l_k_tax;
222: EXCEPTION
223: WHEN OTHERS THEN
224: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
225: fnd_log.STRING (fnd_log.level_procedure,
226: g_module ||
227: l_api_name,
228: '4000: Leaving ' ||
221: RETURN l_k_tax;
222: EXCEPTION
223: WHEN OTHERS THEN
224: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
225: fnd_log.STRING (fnd_log.level_procedure,
226: g_module ||
227: l_api_name,
228: '4000: Leaving ' ||
229: g_pkg_name ||
290: 'c'
291: );
292: BEGIN
293: -- start debug log
294: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
295: fnd_log.STRING (fnd_log.level_procedure,
296: g_module ||
297: l_api_name,
298: '100: Entered ' ||
291: );
292: BEGIN
293: -- start debug log
294: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
295: fnd_log.STRING (fnd_log.level_procedure,
296: g_module ||
297: l_api_name,
298: '100: Entered ' ||
299: g_pkg_name ||
357:
358: l_contract_accept_clause := fnd_message.get;
359:
360: -- end debug log
361: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
362: fnd_log.STRING (fnd_log.level_procedure,
363: g_module ||
364: l_api_name,
365: '1000: Leaving ' ||
358: l_contract_accept_clause := fnd_message.get;
359:
360: -- end debug log
361: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
362: fnd_log.STRING (fnd_log.level_procedure,
363: g_module ||
364: l_api_name,
365: '1000: Leaving ' ||
366: g_pkg_name ||
371:
372: RETURN l_contract_accept_clause;
373: EXCEPTION
374: WHEN OTHERS THEN
375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
376: fnd_log.STRING (fnd_log.level_procedure,
377: g_module ||
378: l_api_name,
379: '4000: Leaving ' ||
372: RETURN l_contract_accept_clause;
373: EXCEPTION
374: WHEN OTHERS THEN
375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
376: fnd_log.STRING (fnd_log.level_procedure,
377: g_module ||
378: l_api_name,
379: '4000: Leaving ' ||
380: g_pkg_name ||
441: 'c'
442: );
443: BEGIN
444: -- start debug log
445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
446: fnd_log.STRING (fnd_log.level_procedure,
447: g_module ||
448: l_api_name,
449: '100: Entered ' ||
442: );
443: BEGIN
444: -- start debug log
445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
446: fnd_log.STRING (fnd_log.level_procedure,
447: g_module ||
448: l_api_name,
449: '100: Entered ' ||
450: g_pkg_name ||
508:
509: l_contract_decline_clause := fnd_message.get;
510:
511: -- end debug log
512: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
513: fnd_log.STRING (fnd_log.level_procedure,
514: g_module ||
515: l_api_name,
516: '1000: Leaving ' ||
509: l_contract_decline_clause := fnd_message.get;
510:
511: -- end debug log
512: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
513: fnd_log.STRING (fnd_log.level_procedure,
514: g_module ||
515: l_api_name,
516: '1000: Leaving ' ||
517: g_pkg_name ||
522:
523: RETURN l_contract_decline_clause;
524: EXCEPTION
525: WHEN OTHERS THEN
526: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
527: fnd_log.STRING (fnd_log.level_procedure,
528: g_module ||
529: l_api_name,
530: '4000: Leaving ' ||
523: RETURN l_contract_decline_clause;
524: EXCEPTION
525: WHEN OTHERS THEN
526: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
527: fnd_log.STRING (fnd_log.level_procedure,
528: g_module ||
529: l_api_name,
530: '4000: Leaving ' ||
531: g_pkg_name ||
556: AND r.cle_id IS NULL
557: AND r.chr_id = p_chr_id;
558: BEGIN
559: -- start debug log
560: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
561: fnd_log.STRING (fnd_log.level_procedure,
562: g_module ||
563: l_api_name,
564: '100: Entered ' ||
557: AND r.chr_id = p_chr_id;
558: BEGIN
559: -- start debug log
560: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
561: fnd_log.STRING (fnd_log.level_procedure,
562: g_module ||
563: l_api_name,
564: '100: Entered ' ||
565: g_pkg_name ||
575:
576: CLOSE csr_vendor_name;
577:
578: -- end debug log
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
580: fnd_log.STRING (fnd_log.level_procedure,
581: g_module ||
582: l_api_name,
583: '1000: Leaving ' ||
576: CLOSE csr_vendor_name;
577:
578: -- end debug log
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
580: fnd_log.STRING (fnd_log.level_procedure,
581: g_module ||
582: l_api_name,
583: '1000: Leaving ' ||
584: g_pkg_name ||
589:
590: RETURN l_vendor_name;
591: EXCEPTION
592: WHEN OTHERS THEN
593: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
594: fnd_log.STRING (fnd_log.level_procedure,
595: g_module ||
596: l_api_name,
597: '4000: Leaving ' ||
590: RETURN l_vendor_name;
591: EXCEPTION
592: WHEN OTHERS THEN
593: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
594: fnd_log.STRING (fnd_log.level_procedure,
595: g_module ||
596: l_api_name,
597: '4000: Leaving ' ||
598: g_pkg_name ||
625: AND r.dnz_chr_id = p_chr_id; /* changed chr_id to dnz_chr_id for
626: bug6439795 */
627: BEGIN
628: -- start debug log
629: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
630: fnd_log.STRING (fnd_log.level_procedure,
631: g_module ||
632: l_api_name,
633: '100: Entered ' ||
626: bug6439795 */
627: BEGIN
628: -- start debug log
629: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
630: fnd_log.STRING (fnd_log.level_procedure,
631: g_module ||
632: l_api_name,
633: '100: Entered ' ||
634: g_pkg_name ||
644:
645: CLOSE csr_customer_name;
646:
647: -- end debug log
648: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
649: fnd_log.STRING (fnd_log.level_procedure,
650: g_module ||
651: l_api_name,
652: '1000: Leaving ' ||
645: CLOSE csr_customer_name;
646:
647: -- end debug log
648: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
649: fnd_log.STRING (fnd_log.level_procedure,
650: g_module ||
651: l_api_name,
652: '1000: Leaving ' ||
653: g_pkg_name ||
658:
659: RETURN l_customer_name;
660: EXCEPTION
661: WHEN OTHERS THEN
662: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
663: fnd_log.STRING (fnd_log.level_procedure,
664: g_module ||
665: l_api_name,
666: '4000: Leaving ' ||
659: RETURN l_customer_name;
660: EXCEPTION
661: WHEN OTHERS THEN
662: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
663: fnd_log.STRING (fnd_log.level_procedure,
664: g_module ||
665: l_api_name,
666: '4000: Leaving ' ||
667: g_pkg_name ||
691: AND jtot_object1_code = 'OKX_PARTY'
692: AND rle_code = 'CUSTOMER';
693: BEGIN
694: -- start debug log
695: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
696: fnd_log.STRING (fnd_log.level_procedure,
697: g_module ||
698: l_api_name,
699: '100: Entered ' ||
692: AND rle_code = 'CUSTOMER';
693: BEGIN
694: -- start debug log
695: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
696: fnd_log.STRING (fnd_log.level_procedure,
697: g_module ||
698: l_api_name,
699: '100: Entered ' ||
700: g_pkg_name ||
710:
711: CLOSE csr_k_party;
712:
713: -- end debug log
714: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
715: fnd_log.STRING (fnd_log.level_procedure,
716: g_module ||
717: l_api_name,
718: '1000: Leaving ' ||
711: CLOSE csr_k_party;
712:
713: -- end debug log
714: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
715: fnd_log.STRING (fnd_log.level_procedure,
716: g_module ||
717: l_api_name,
718: '1000: Leaving ' ||
719: g_pkg_name ||
724:
725: RETURN l_party_id;
726: EXCEPTION
727: WHEN OTHERS THEN
728: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
729: fnd_log.STRING (fnd_log.level_procedure,
730: g_module ||
731: l_api_name,
732: '4000: Leaving ' ||
725: RETURN l_party_id;
726: EXCEPTION
727: WHEN OTHERS THEN
728: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
729: fnd_log.STRING (fnd_log.level_procedure,
730: g_module ||
731: l_api_name,
732: '4000: Leaving ' ||
733: g_pkg_name ||
754: FROM okc_k_headers_all_b
755: WHERE ID = p_chr_id;
756: BEGIN
757: -- start debug log
758: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
759: fnd_log.STRING (fnd_log.level_procedure,
760: g_module ||
761: l_api_name,
762: '100: Entered ' ||
755: WHERE ID = p_chr_id;
756: BEGIN
757: -- start debug log
758: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
759: fnd_log.STRING (fnd_log.level_procedure,
760: g_module ||
761: l_api_name,
762: '100: Entered ' ||
763: g_pkg_name ||
773:
774: CLOSE csr_k_organization;
775:
776: -- end debug log
777: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
778: fnd_log.STRING (fnd_log.level_procedure,
779: g_module ||
780: l_api_name,
781: '1000: Leaving ' ||
774: CLOSE csr_k_organization;
775:
776: -- end debug log
777: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
778: fnd_log.STRING (fnd_log.level_procedure,
779: g_module ||
780: l_api_name,
781: '1000: Leaving ' ||
782: g_pkg_name ||
787:
788: RETURN l_organization_id;
789: EXCEPTION
790: WHEN OTHERS THEN
791: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
792: fnd_log.STRING (fnd_log.level_procedure,
793: g_module ||
794: l_api_name,
795: '4000: Leaving ' ||
788: RETURN l_organization_id;
789: EXCEPTION
790: WHEN OTHERS THEN
791: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
792: fnd_log.STRING (fnd_log.level_procedure,
793: g_module ||
794: l_api_name,
795: '4000: Leaving ' ||
796: g_pkg_name ||
910: AND gcd.cdt_type = 'MDT';
911: */
912: BEGIN
913: -- start debug log
914: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
915: fnd_log.STRING (fnd_log.level_procedure,
916: g_module ||
917: l_api_name,
918: '100: Entered ' ||
911: */
912: BEGIN
913: -- start debug log
914: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
915: fnd_log.STRING (fnd_log.level_procedure,
916: g_module ||
917: l_api_name,
918: '100: Entered ' ||
919: g_pkg_name ||
974:
975: CLOSE csr_global_helpdesk;
976:
977: -- end debug log
978: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
979: fnd_log.STRING (fnd_log.level_procedure,
980: g_module ||
981: l_api_name,
982: '1000: Leaving ' ||
975: CLOSE csr_global_helpdesk;
976:
977: -- end debug log
978: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
979: fnd_log.STRING (fnd_log.level_procedure,
980: g_module ||
981: l_api_name,
982: '1000: Leaving ' ||
983: g_pkg_name ||
988:
989: RETURN l_salesrep_email;
990: EXCEPTION
991: WHEN OTHERS THEN
992: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
993: fnd_log.STRING (fnd_log.level_procedure,
994: g_module ||
995: l_api_name,
996: '4000: Leaving ' ||
989: RETURN l_salesrep_email;
990: EXCEPTION
991: WHEN OTHERS THEN
992: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
993: fnd_log.STRING (fnd_log.level_procedure,
994: g_module ||
995: l_api_name,
996: '4000: Leaving ' ||
997: g_pkg_name ||
1030:
1031: l_csr_cust_account_id_rec csr_cust_account_dtls%ROWTYPE;
1032: BEGIN
1033: -- start debug log
1034: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1035: fnd_log.STRING (fnd_log.level_procedure,
1036: g_module ||
1037: l_api_name,
1038: '100: Entered ' ||
1031: l_csr_cust_account_id_rec csr_cust_account_dtls%ROWTYPE;
1032: BEGIN
1033: -- start debug log
1034: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1035: fnd_log.STRING (fnd_log.level_procedure,
1036: g_module ||
1037: l_api_name,
1038: '100: Entered ' ||
1039: g_pkg_name ||
1055: l_cust_account_id :=
1056: l_csr_cust_account_id_rec.customer_account_id;
1057:
1058: -- end debug log
1059: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1060: fnd_log.STRING (fnd_log.level_procedure,
1061: g_module ||
1062: l_api_name,
1063: '1000: Leaving ' ||
1056: l_csr_cust_account_id_rec.customer_account_id;
1057:
1058: -- end debug log
1059: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1060: fnd_log.STRING (fnd_log.level_procedure,
1061: g_module ||
1062: l_api_name,
1063: '1000: Leaving ' ||
1064: g_pkg_name ||
1069:
1070: RETURN l_cust_account_id;
1071: EXCEPTION
1072: WHEN OTHERS THEN
1073: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1074: fnd_log.STRING (fnd_log.level_procedure,
1075: g_module ||
1076: l_api_name,
1077: '4000: Leaving ' ||
1070: RETURN l_cust_account_id;
1071: EXCEPTION
1072: WHEN OTHERS THEN
1073: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1074: fnd_log.STRING (fnd_log.level_procedure,
1075: g_module ||
1076: l_api_name,
1077: '4000: Leaving ' ||
1078: g_pkg_name ||
1105: FROM okc_k_headers_all_b kc
1106: WHERE kc.ID = p_chr_id;
1107: BEGIN
1108: -- start debug log
1109: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1110: fnd_log.STRING (fnd_log.level_procedure,
1111: g_module ||
1112: l_api_name,
1113: '100: Entered ' ||
1106: WHERE kc.ID = p_chr_id;
1107: BEGIN
1108: -- start debug log
1109: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1110: fnd_log.STRING (fnd_log.level_procedure,
1111: g_module ||
1112: l_api_name,
1113: '100: Entered ' ||
1114: g_pkg_name ||
1130: fnd_message.set_token ('CONTRACT_NUM', l_contract_number);
1131: l_email_subject := fnd_message.get;
1132:
1133: -- end debug log
1134: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1135: fnd_log.STRING (fnd_log.level_procedure,
1136: g_module ||
1137: l_api_name,
1138: '1000: Leaving ' ||
1131: l_email_subject := fnd_message.get;
1132:
1133: -- end debug log
1134: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1135: fnd_log.STRING (fnd_log.level_procedure,
1136: g_module ||
1137: l_api_name,
1138: '1000: Leaving ' ||
1139: g_pkg_name ||
1144:
1145: RETURN l_email_subject;
1146: EXCEPTION
1147: WHEN OTHERS THEN
1148: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1149: fnd_log.STRING (fnd_log.level_procedure,
1150: g_module ||
1151: l_api_name,
1152: '4000: Leaving ' ||
1145: RETURN l_email_subject;
1146: EXCEPTION
1147: WHEN OTHERS THEN
1148: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1149: fnd_log.STRING (fnd_log.level_procedure,
1150: g_module ||
1151: l_api_name,
1152: '4000: Leaving ' ||
1153: g_pkg_name ||
1182: WHERE uom_code = p_code
1183: AND active_flag = 'Y';
1184: BEGIN
1185: -- start debug log
1186: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1187: fnd_log.STRING (fnd_log.level_procedure,
1188: g_module ||
1189: l_api_name,
1190: '100: Entered ' ||
1183: AND active_flag = 'Y';
1184: BEGIN
1185: -- start debug log
1186: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1187: fnd_log.STRING (fnd_log.level_procedure,
1188: g_module ||
1189: l_api_name,
1190: '100: Entered ' ||
1191: g_pkg_name ||
1191: g_pkg_name ||
1192: '.' ||
1193: l_api_name
1194: );
1195: fnd_log.STRING (fnd_log.level_procedure,
1196: g_module ||
1197: l_api_name,
1198: '100: Parameters : p_start_date : ' ||
1199: p_start_date
1197: l_api_name,
1198: '100: Parameters : p_start_date : ' ||
1199: p_start_date
1200: );
1201: fnd_log.STRING (fnd_log.level_procedure,
1202: g_module ||
1203: l_api_name,
1204: '100: p_end_date : ' ||
1205: p_end_date
1203: l_api_name,
1204: '100: p_end_date : ' ||
1205: p_end_date
1206: );
1207: fnd_log.STRING (fnd_log.level_procedure,
1208: g_module ||
1209: l_api_name,
1210: '100: Calling OKC_TIME_UTIL_PUB.get_duration'
1211: );
1218: x_return_status => l_return_status
1219: );
1220:
1221: -- debug log
1222: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1223: fnd_log.STRING (fnd_log.level_procedure,
1224: g_module ||
1225: l_api_name,
1226: '150: After Calling OKC_TIME_UTIL_PUB.get_duration'
1219: );
1220:
1221: -- debug log
1222: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1223: fnd_log.STRING (fnd_log.level_procedure,
1224: g_module ||
1225: l_api_name,
1226: '150: After Calling OKC_TIME_UTIL_PUB.get_duration'
1227: );
1224: g_module ||
1225: l_api_name,
1226: '150: After Calling OKC_TIME_UTIL_PUB.get_duration'
1227: );
1228: fnd_log.STRING (fnd_log.level_procedure,
1229: g_module ||
1230: l_api_name,
1231: '150: x_return_status : ' ||
1232: l_return_status
1230: l_api_name,
1231: '150: x_return_status : ' ||
1232: l_return_status
1233: );
1234: fnd_log.STRING (fnd_log.level_procedure,
1235: g_module ||
1236: l_api_name,
1237: '150: x_duration : ' ||
1238: l_duration
1236: l_api_name,
1237: '150: x_duration : ' ||
1238: l_duration
1239: );
1240: fnd_log.STRING (fnd_log.level_procedure,
1241: g_module ||
1242: l_api_name,
1243: '150: x_timeunit : ' ||
1244: l_timeunit
1252:
1253: CLOSE csr_timeunit_desc;
1254:
1255: -- debug log
1256: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1257: fnd_log.STRING (fnd_log.level_procedure,
1258: g_module ||
1259: l_api_name,
1260: '200: l_timeunit_desc : ' ||
1253: CLOSE csr_timeunit_desc;
1254:
1255: -- debug log
1256: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1257: fnd_log.STRING (fnd_log.level_procedure,
1258: g_module ||
1259: l_api_name,
1260: '200: l_timeunit_desc : ' ||
1261: l_timeunit_desc
1259: l_api_name,
1260: '200: l_timeunit_desc : ' ||
1261: l_timeunit_desc
1262: );
1263: fnd_log.STRING (fnd_log.level_procedure,
1264: g_module ||
1265: l_api_name,
1266: '1000: Leaving ' ||
1267: g_pkg_name ||
1275: l_timeunit_desc;
1276: RETURN l_duration_period;
1277: EXCEPTION
1278: WHEN OTHERS THEN
1279: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1280: fnd_log.STRING (fnd_log.level_procedure,
1281: g_module ||
1282: l_api_name,
1283: '4000: Leaving ' ||
1276: RETURN l_duration_period;
1277: EXCEPTION
1278: WHEN OTHERS THEN
1279: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1280: fnd_log.STRING (fnd_log.level_procedure,
1281: g_module ||
1282: l_api_name,
1283: '4000: Leaving ' ||
1284: g_pkg_name ||
1310: FROM iby_trxn_extensions_v ibyt
1311: WHERE ibyt.trxn_extension_id = p_trxn_extension_id;
1312: BEGIN
1313: -- start debug log
1314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1315: fnd_log.STRING (fnd_log.level_procedure,
1316: g_module ||
1317: l_api_name,
1318: '100: Entered ' ||
1311: WHERE ibyt.trxn_extension_id = p_trxn_extension_id;
1312: BEGIN
1313: -- start debug log
1314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1315: fnd_log.STRING (fnd_log.level_procedure,
1316: g_module ||
1317: l_api_name,
1318: '100: Entered ' ||
1319: g_pkg_name ||
1319: g_pkg_name ||
1320: '.' ||
1321: l_api_name
1322: );
1323: fnd_log.STRING (fnd_log.level_procedure,
1324: g_module ||
1325: l_api_name,
1326: '100: Parameters : p_trxn_extension_id : ' ||
1327: p_trxn_extension_id
1335:
1336: CLOSE csr_cc_dtls;
1337:
1338: -- debug log
1339: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1340: fnd_log.STRING (fnd_log.level_procedure,
1341: g_module ||
1342: l_api_name,
1343: '200: l_cc_detail : ' ||
1336: CLOSE csr_cc_dtls;
1337:
1338: -- debug log
1339: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1340: fnd_log.STRING (fnd_log.level_procedure,
1341: g_module ||
1342: l_api_name,
1343: '200: l_cc_detail : ' ||
1344: l_cc_detail
1342: l_api_name,
1343: '200: l_cc_detail : ' ||
1344: l_cc_detail
1345: );
1346: fnd_log.STRING (fnd_log.level_procedure,
1347: g_module ||
1348: l_api_name,
1349: '1000: Leaving ' ||
1350: g_pkg_name ||
1355:
1356: RETURN l_cc_detail;
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1360: fnd_log.STRING (fnd_log.level_procedure,
1361: g_module ||
1362: l_api_name,
1363: '4000: Leaving ' ||
1356: RETURN l_cc_detail;
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1360: fnd_log.STRING (fnd_log.level_procedure,
1361: g_module ||
1362: l_api_name,
1363: '4000: Leaving ' ||
1364: g_pkg_name ||
1385: FROM iby_trxn_extensions_v ibyt
1386: WHERE ibyt.trxn_extension_id = p_trxn_extension_id;
1387: BEGIN
1388: -- start debug log
1389: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1390: fnd_log.STRING (fnd_log.level_procedure,
1391: g_module ||
1392: l_api_name,
1393: '100: Entered ' ||
1386: WHERE ibyt.trxn_extension_id = p_trxn_extension_id;
1387: BEGIN
1388: -- start debug log
1389: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1390: fnd_log.STRING (fnd_log.level_procedure,
1391: g_module ||
1392: l_api_name,
1393: '100: Entered ' ||
1394: g_pkg_name ||
1394: g_pkg_name ||
1395: '.' ||
1396: l_api_name
1397: );
1398: fnd_log.STRING (fnd_log.level_procedure,
1399: g_module ||
1400: l_api_name,
1401: '100: Parameters : p_trxn_extension_id : ' ||
1402: p_trxn_extension_id
1410:
1411: CLOSE csr_cc_dtls;
1412:
1413: -- debug log
1414: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1415: fnd_log.STRING (fnd_log.level_procedure,
1416: g_module ||
1417: l_api_name,
1418: '200: l_cc_cvv2 : ' ||
1411: CLOSE csr_cc_dtls;
1412:
1413: -- debug log
1414: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1415: fnd_log.STRING (fnd_log.level_procedure,
1416: g_module ||
1417: l_api_name,
1418: '200: l_cc_cvv2 : ' ||
1419: l_cc_cvv2
1417: l_api_name,
1418: '200: l_cc_cvv2 : ' ||
1419: l_cc_cvv2
1420: );
1421: fnd_log.STRING (fnd_log.level_procedure,
1422: g_module ||
1423: l_api_name,
1424: '1000: Leaving ' ||
1425: g_pkg_name ||
1430:
1431: RETURN l_cc_cvv2;
1432: EXCEPTION
1433: WHEN OTHERS THEN
1434: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1435: fnd_log.STRING (fnd_log.level_procedure,
1436: g_module ||
1437: l_api_name,
1438: '4000: Leaving ' ||
1431: RETURN l_cc_cvv2;
1432: EXCEPTION
1433: WHEN OTHERS THEN
1434: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1435: fnd_log.STRING (fnd_log.level_procedure,
1436: g_module ||
1437: l_api_name,
1438: '4000: Leaving ' ||
1439: g_pkg_name ||
1465: AND f.LANGUAGE = USERENV ('LANG')
1466: AND k.ID = p_chr_id;
1467: BEGIN
1468: -- start debug log
1469: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1470: fnd_log.STRING (fnd_log.level_procedure,
1471: g_module ||
1472: l_api_name,
1473: '100: Entered ' ||
1466: AND k.ID = p_chr_id;
1467: BEGIN
1468: -- start debug log
1469: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1470: fnd_log.STRING (fnd_log.level_procedure,
1471: g_module ||
1472: l_api_name,
1473: '100: Entered ' ||
1474: g_pkg_name ||
1474: g_pkg_name ||
1475: '.' ||
1476: l_api_name
1477: );
1478: fnd_log.STRING (fnd_log.level_procedure,
1479: g_module ||
1480: l_api_name,
1481: '100: Parameters : p_chr_id : ' ||
1482: p_chr_id
1490:
1491: CLOSE csr_currency_tip;
1492:
1493: -- debug log
1494: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1495: fnd_log.STRING (fnd_log.level_procedure,
1496: g_module ||
1497: l_api_name,
1498: '200: l_currency_code_tip : ' ||
1491: CLOSE csr_currency_tip;
1492:
1493: -- debug log
1494: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1495: fnd_log.STRING (fnd_log.level_procedure,
1496: g_module ||
1497: l_api_name,
1498: '200: l_currency_code_tip : ' ||
1499: l_currency_code_tip
1497: l_api_name,
1498: '200: l_currency_code_tip : ' ||
1499: l_currency_code_tip
1500: );
1501: fnd_log.STRING (fnd_log.level_procedure,
1502: g_module ||
1503: l_api_name,
1504: '1000: Leaving ' ||
1505: g_pkg_name ||
1510:
1511: RETURN l_currency_code_tip;
1512: EXCEPTION
1513: WHEN OTHERS THEN
1514: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1515: fnd_log.STRING (fnd_log.level_procedure,
1516: g_module ||
1517: l_api_name,
1518: '4000: Leaving ' ||
1511: RETURN l_currency_code_tip;
1512: EXCEPTION
1513: WHEN OTHERS THEN
1514: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1515: fnd_log.STRING (fnd_log.level_procedure,
1516: g_module ||
1517: l_api_name,
1518: '4000: Leaving ' ||
1519: g_pkg_name ||
1541: l_api_name CONSTANT VARCHAR2 (30)
1542: := 'decline_contract';
1543: BEGIN
1544: -- start debug log
1545: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1546: fnd_log.STRING (fnd_log.level_procedure,
1547: g_module ||
1548: l_api_name,
1549: '100: Entered ' ||
1542: := 'decline_contract';
1543: BEGIN
1544: -- start debug log
1545: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1546: fnd_log.STRING (fnd_log.level_procedure,
1547: g_module ||
1548: l_api_name,
1549: '100: Entered ' ||
1550: g_pkg_name ||
1597: p_data => x_msg_data
1598: );
1599:
1600: -- end debug log
1601: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1602: fnd_log.STRING (fnd_log.level_procedure,
1603: g_module ||
1604: l_api_name,
1605: '1000: Leaving ' ||
1598: );
1599:
1600: -- end debug log
1601: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1602: fnd_log.STRING (fnd_log.level_procedure,
1603: g_module ||
1604: l_api_name,
1605: '1000: Leaving ' ||
1606: g_pkg_name ||
1609: );
1610: END IF;
1611: EXCEPTION
1612: WHEN fnd_api.g_exc_error THEN
1613: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1614: fnd_log.STRING (fnd_log.level_procedure,
1615: g_module ||
1616: l_api_name,
1617: '2000: Leaving ' ||
1610: END IF;
1611: EXCEPTION
1612: WHEN fnd_api.g_exc_error THEN
1613: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1614: fnd_log.STRING (fnd_log.level_procedure,
1615: g_module ||
1616: l_api_name,
1617: '2000: Leaving ' ||
1618: g_pkg_name ||
1626: p_count => x_msg_count,
1627: p_data => x_msg_data
1628: );
1629: WHEN fnd_api.g_exc_unexpected_error THEN
1630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1631: fnd_log.STRING (fnd_log.level_procedure,
1632: g_module ||
1633: l_api_name,
1634: '3000: Leaving ' ||
1627: p_data => x_msg_data
1628: );
1629: WHEN fnd_api.g_exc_unexpected_error THEN
1630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1631: fnd_log.STRING (fnd_log.level_procedure,
1632: g_module ||
1633: l_api_name,
1634: '3000: Leaving ' ||
1635: g_pkg_name ||
1643: p_count => x_msg_count,
1644: p_data => x_msg_data
1645: );
1646: WHEN OTHERS THEN
1647: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1648: fnd_log.STRING (fnd_log.level_procedure,
1649: g_module ||
1650: l_api_name,
1651: '4000: Leaving ' ||
1644: p_data => x_msg_data
1645: );
1646: WHEN OTHERS THEN
1647: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1648: fnd_log.STRING (fnd_log.level_procedure,
1649: g_module ||
1650: l_api_name,
1651: '4000: Leaving ' ||
1652: g_pkg_name ||
1675: l_api_name CONSTANT VARCHAR2 (30)
1676: := 'accept_contract';
1677: BEGIN
1678: -- start debug log
1679: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1680: fnd_log.STRING (fnd_log.level_procedure,
1681: g_module ||
1682: l_api_name,
1683: '100: Entered ' ||
1676: := 'accept_contract';
1677: BEGIN
1678: -- start debug log
1679: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1680: fnd_log.STRING (fnd_log.level_procedure,
1681: g_module ||
1682: l_api_name,
1683: '100: Entered ' ||
1684: g_pkg_name ||
1728: p_data => x_msg_data
1729: );
1730:
1731: -- end debug log
1732: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1733: fnd_log.STRING (fnd_log.level_procedure,
1734: g_module ||
1735: l_api_name,
1736: '1000: Leaving ' ||
1729: );
1730:
1731: -- end debug log
1732: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1733: fnd_log.STRING (fnd_log.level_procedure,
1734: g_module ||
1735: l_api_name,
1736: '1000: Leaving ' ||
1737: g_pkg_name ||
1740: );
1741: END IF;
1742: EXCEPTION
1743: WHEN fnd_api.g_exc_error THEN
1744: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1745: fnd_log.STRING (fnd_log.level_procedure,
1746: g_module ||
1747: l_api_name,
1748: '2000: Leaving ' ||
1741: END IF;
1742: EXCEPTION
1743: WHEN fnd_api.g_exc_error THEN
1744: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1745: fnd_log.STRING (fnd_log.level_procedure,
1746: g_module ||
1747: l_api_name,
1748: '2000: Leaving ' ||
1749: g_pkg_name ||
1757: p_count => x_msg_count,
1758: p_data => x_msg_data
1759: );
1760: WHEN fnd_api.g_exc_unexpected_error THEN
1761: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1762: fnd_log.STRING (fnd_log.level_procedure,
1763: g_module ||
1764: l_api_name,
1765: '3000: Leaving ' ||
1758: p_data => x_msg_data
1759: );
1760: WHEN fnd_api.g_exc_unexpected_error THEN
1761: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1762: fnd_log.STRING (fnd_log.level_procedure,
1763: g_module ||
1764: l_api_name,
1765: '3000: Leaving ' ||
1766: g_pkg_name ||
1774: p_count => x_msg_count,
1775: p_data => x_msg_data
1776: );
1777: WHEN OTHERS THEN
1778: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1779: fnd_log.STRING (fnd_log.level_procedure,
1780: g_module ||
1781: l_api_name,
1782: '4000: Leaving ' ||
1775: p_data => x_msg_data
1776: );
1777: WHEN OTHERS THEN
1778: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1779: fnd_log.STRING (fnd_log.level_procedure,
1780: g_module ||
1781: l_api_name,
1782: '4000: Leaving ' ||
1783: g_pkg_name ||
1847: l_payer l_payer_type;
1848: l_response iby_fndcpt_common_pub.result_rec_type;
1849: BEGIN
1850: -- start debug log
1851: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1852: fnd_log.STRING (fnd_log.level_procedure,
1853: g_module ||
1854: l_api_name,
1855: '100: Entered ' ||
1848: l_response iby_fndcpt_common_pub.result_rec_type;
1849: BEGIN
1850: -- start debug log
1851: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1852: fnd_log.STRING (fnd_log.level_procedure,
1853: g_module ||
1854: l_api_name,
1855: '100: Entered ' ||
1856: g_pkg_name ||
1856: g_pkg_name ||
1857: '.' ||
1858: l_api_name
1859: );
1860: fnd_log.STRING (fnd_log.level_procedure,
1861: g_module ||
1862: l_api_name,
1863: '100: Parameters p_chr_id : ' ||
1864: p_chr_id
1862: l_api_name,
1863: '100: Parameters p_chr_id : ' ||
1864: p_chr_id
1865: );
1866: fnd_log.STRING (fnd_log.level_procedure,
1867: g_module ||
1868: l_api_name,
1869: '100: p_payment_type : ' ||
1870: p_payment_type
1868: l_api_name,
1869: '100: p_payment_type : ' ||
1870: p_payment_type
1871: );
1872: fnd_log.STRING (fnd_log.level_procedure,
1873: g_module ||
1874: l_api_name,
1875: '100: p_payment_details : ' ||
1876: p_payment_details
1874: l_api_name,
1875: '100: p_payment_details : ' ||
1876: p_payment_details
1877: );
1878: fnd_log.STRING (fnd_log.level_procedure,
1879: g_module ||
1880: l_api_name,
1881: '100: p_party_id : ' ||
1882: p_party_id
1880: l_api_name,
1881: '100: p_party_id : ' ||
1882: p_party_id
1883: );
1884: fnd_log.STRING (fnd_log.level_procedure,
1885: g_module ||
1886: l_api_name,
1887: '100: p_cust_account_id : ' ||
1888: p_cust_account_id
1886: l_api_name,
1887: '100: p_cust_account_id : ' ||
1888: p_cust_account_id
1889: );
1890: fnd_log.STRING (fnd_log.level_procedure,
1891: g_module ||
1892: l_api_name,
1893: '100: p_expiration_month : ' ||
1894: p_expiration_month
1892: l_api_name,
1893: '100: p_expiration_month : ' ||
1894: p_expiration_month
1895: );
1896: fnd_log.STRING (fnd_log.level_procedure,
1897: g_module ||
1898: l_api_name,
1899: '100: p_expiration_year : ' ||
1900: p_expiration_year
1898: l_api_name,
1899: '100: p_expiration_year : ' ||
1900: p_expiration_year
1901: );
1902: fnd_log.STRING (fnd_log.level_procedure,
1903: g_module ||
1904: l_api_name,
1905: '100: p_cvv_code : ' ||
1906: p_cvv_code
1904: l_api_name,
1905: '100: p_cvv_code : ' ||
1906: p_cvv_code
1907: );
1908: fnd_log.STRING (fnd_log.level_procedure,
1909: g_module ||
1910: l_api_name,
1911: '100: p_instr_assignment_id : ' ||
1912: p_instr_assignment_id
1910: l_api_name,
1911: '100: p_instr_assignment_id : ' ||
1912: p_instr_assignment_id
1913: );
1914: fnd_log.STRING (fnd_log.level_procedure,
1915: g_module ||
1916: l_api_name,
1917: '100: p_old_txn_entension_id : ' ||
1918: p_old_txn_entension_id
1957: END IF;
1958:
1959: -- Get the payment_terms_id1 from GCD
1960: -- debug log
1961: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1962: fnd_log.STRING (fnd_log.level_procedure,
1963: g_module ||
1964: l_api_name,
1965: '210: Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
1958:
1959: -- Get the payment_terms_id1 from GCD
1960: -- debug log
1961: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1962: fnd_log.STRING (fnd_log.level_procedure,
1963: g_module ||
1964: l_api_name,
1965: '210: Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
1966: );
1980: x_msg_data => x_msg_data
1981: );
1982:
1983: -- debug log
1984: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1985: fnd_log.STRING (fnd_log.level_procedure,
1986: g_module ||
1987: l_api_name,
1988: '250: After Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
1981: );
1982:
1983: -- debug log
1984: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1985: fnd_log.STRING (fnd_log.level_procedure,
1986: g_module ||
1987: l_api_name,
1988: '250: After Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
1989: );
1986: g_module ||
1987: l_api_name,
1988: '250: After Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
1989: );
1990: fnd_log.STRING (fnd_log.level_procedure,
1991: g_module ||
1992: l_api_name,
1993: '250: x_return_status : ' ||
1994: x_return_status
1992: l_api_name,
1993: '250: x_return_status : ' ||
1994: x_return_status
1995: );
1996: fnd_log.STRING (fnd_log.level_procedure,
1997: g_module ||
1998: l_api_name,
1999: '250:x_rnrl_rec.payment_terms_id1 : ' ||
2000: x_rnrl_rec.payment_terms_id1
1998: l_api_name,
1999: '250:x_rnrl_rec.payment_terms_id1 : ' ||
2000: x_rnrl_rec.payment_terms_id1
2001: );
2002: fnd_log.STRING (fnd_log.level_procedure,
2003: g_module ||
2004: l_api_name,
2005: '250:x_rnrl_rec.payment_terms_id2 : ' ||
2006: x_rnrl_rec.payment_terms_id2
2036:
2037: CLOSE csr_billing_address_id;
2038:
2039: -- debug log
2040: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2041: fnd_log.STRING (fnd_log.level_statement,
2042: g_module ||
2043: l_api_name,
2044: '300: l_billing_address_id : ' ||
2037: CLOSE csr_billing_address_id;
2038:
2039: -- debug log
2040: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2041: fnd_log.STRING (fnd_log.level_statement,
2042: g_module ||
2043: l_api_name,
2044: '300: l_billing_address_id : ' ||
2045: l_billing_address_id
2059: l_expiration_date := LAST_DAY (TO_DATE (p_expiration_month ||'/' ||p_expiration_year, 'MM/YYYY'));
2060: END IF;
2061:
2062: -- debug log
2063: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2064: fnd_log.STRING (fnd_log.level_statement,
2065: g_module ||
2066: l_api_name,
2067: '300: l_expiration_date : ' ||
2060: END IF;
2061:
2062: -- debug log
2063: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2064: fnd_log.STRING (fnd_log.level_statement,
2065: g_module ||
2066: l_api_name,
2067: '300: l_expiration_date : ' ||
2068: TO_CHAR (l_expiration_date)
2070: END IF;
2071:
2072: -- call process_credit_card
2073: -- debug log
2074: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2075: fnd_log.STRING (fnd_log.level_statement,
2076: g_module ||
2077: l_api_name,
2078: '350: Calling process_credit_card '
2071:
2072: -- call process_credit_card
2073: -- debug log
2074: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2075: fnd_log.STRING (fnd_log.level_statement,
2076: g_module ||
2077: l_api_name,
2078: '350: Calling process_credit_card '
2079: );
2098: x_msg_count => x_msg_count
2099: );
2100:
2101: -- debug log
2102: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2103: fnd_log.STRING
2104: (fnd_log.level_statement,
2105: g_module ||
2106: l_api_name,
2099: );
2100:
2101: -- debug log
2102: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2103: fnd_log.STRING
2104: (fnd_log.level_statement,
2105: g_module ||
2106: l_api_name,
2107: '450: After Calling process_credit_card x_return_status : ' ||
2100:
2101: -- debug log
2102: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2103: fnd_log.STRING
2104: (fnd_log.level_statement,
2105: g_module ||
2106: l_api_name,
2107: '450: After Calling process_credit_card x_return_status : ' ||
2108: x_return_status
2106: l_api_name,
2107: '450: After Calling process_credit_card x_return_status : ' ||
2108: x_return_status
2109: );
2110: fnd_log.STRING (fnd_log.level_statement,
2111: g_module ||
2112: l_api_name,
2113: '450: l_trxn_extension_id : ' ||
2114: l_trxn_extension_id
2207: p_data => x_msg_data
2208: );
2209:
2210: -- end debug log
2211: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2212: fnd_log.STRING (fnd_log.level_procedure,
2213: g_module ||
2214: l_api_name,
2215: '1000: Leaving ' ||
2208: );
2209:
2210: -- end debug log
2211: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2212: fnd_log.STRING (fnd_log.level_procedure,
2213: g_module ||
2214: l_api_name,
2215: '1000: Leaving ' ||
2216: g_pkg_name ||
2219: );
2220: END IF;
2221: EXCEPTION
2222: WHEN fnd_api.g_exc_error THEN
2223: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2224: fnd_log.STRING (fnd_log.level_procedure,
2225: g_module ||
2226: l_api_name,
2227: '2000: Leaving ' ||
2220: END IF;
2221: EXCEPTION
2222: WHEN fnd_api.g_exc_error THEN
2223: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2224: fnd_log.STRING (fnd_log.level_procedure,
2225: g_module ||
2226: l_api_name,
2227: '2000: Leaving ' ||
2228: g_pkg_name ||
2236: p_count => x_msg_count,
2237: p_data => x_msg_data
2238: );
2239: WHEN fnd_api.g_exc_unexpected_error THEN
2240: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2241: fnd_log.STRING (fnd_log.level_procedure,
2242: g_module ||
2243: l_api_name,
2244: '3000: Leaving ' ||
2237: p_data => x_msg_data
2238: );
2239: WHEN fnd_api.g_exc_unexpected_error THEN
2240: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2241: fnd_log.STRING (fnd_log.level_procedure,
2242: g_module ||
2243: l_api_name,
2244: '3000: Leaving ' ||
2245: g_pkg_name ||
2253: p_count => x_msg_count,
2254: p_data => x_msg_data
2255: );
2256: WHEN OTHERS THEN
2257: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2258: fnd_log.STRING (fnd_log.level_procedure,
2259: g_module ||
2260: l_api_name,
2261: '4000: Leaving ' ||
2254: p_data => x_msg_data
2255: );
2256: WHEN OTHERS THEN
2257: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2258: fnd_log.STRING (fnd_log.level_procedure,
2259: g_module ||
2260: l_api_name,
2261: '4000: Leaving ' ||
2262: g_pkg_name ||
2288: l_api_version CONSTANT NUMBER := 1;
2289: l_api_name CONSTANT VARCHAR2 (30) := 'send_email';
2290: BEGIN
2291: -- start debug log
2292: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2293: fnd_log.STRING (fnd_log.level_procedure,
2294: g_module ||
2295: l_api_name,
2296: '100: Entered ' ||
2289: l_api_name CONSTANT VARCHAR2 (30) := 'send_email';
2290: BEGIN
2291: -- start debug log
2292: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2293: fnd_log.STRING (fnd_log.level_procedure,
2294: g_module ||
2295: l_api_name,
2296: '100: Entered ' ||
2297: g_pkg_name ||
2297: g_pkg_name ||
2298: '.' ||
2299: l_api_name
2300: );
2301: fnd_log.STRING (fnd_log.level_procedure,
2302: g_module ||
2303: l_api_name,
2304: '100: Parameters p_chr_id : ' ||
2305: p_chr_id
2303: l_api_name,
2304: '100: Parameters p_chr_id : ' ||
2305: p_chr_id
2306: );
2307: fnd_log.STRING (fnd_log.level_procedure,
2308: g_module ||
2309: l_api_name,
2310: '100: p_send_to : ' ||
2311: p_send_to
2309: l_api_name,
2310: '100: p_send_to : ' ||
2311: p_send_to
2312: );
2313: fnd_log.STRING (fnd_log.level_procedure,
2314: g_module ||
2315: l_api_name,
2316: '100: p_api_version : ' ||
2317: p_api_version
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329:
2330: -- debug log
2331: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2332: fnd_log.STRING (fnd_log.level_procedure,
2333: g_module ||
2334: l_api_name,
2335: '110: Calling FND_MSG_PUB.initialize'
2328: END IF;
2329:
2330: -- debug log
2331: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2332: fnd_log.STRING (fnd_log.level_procedure,
2333: g_module ||
2334: l_api_name,
2335: '110: Calling FND_MSG_PUB.initialize'
2336: );
2346: -- set context to multi org
2347: -- mo_global.init ('OKC');
2348:
2349: -- debug log
2350: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2351: fnd_log.STRING
2352: (fnd_log.level_procedure,
2353: g_module ||
2354: l_api_name,
2347: -- mo_global.init ('OKC');
2348:
2349: -- debug log
2350: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2351: fnd_log.STRING
2352: (fnd_log.level_procedure,
2353: g_module ||
2354: l_api_name,
2355: '140: Calling OKS_WF_K_PROCESS_PVT.customer_request_assistance '
2348:
2349: -- debug log
2350: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2351: fnd_log.STRING
2352: (fnd_log.level_procedure,
2353: g_module ||
2354: l_api_name,
2355: '140: Calling OKS_WF_K_PROCESS_PVT.customer_request_assistance '
2356: );
2371: x_msg_count => x_msg_count
2372: );
2373:
2374: -- debug log
2375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2376: fnd_log.STRING
2377: (fnd_log.level_procedure,
2378: g_module ||
2379: l_api_name,
2372: );
2373:
2374: -- debug log
2375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2376: fnd_log.STRING
2377: (fnd_log.level_procedure,
2378: g_module ||
2379: l_api_name,
2380: '150: After Calling customer_request_assistance x_return_status : ' ||
2373:
2374: -- debug log
2375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2376: fnd_log.STRING
2377: (fnd_log.level_procedure,
2378: g_module ||
2379: l_api_name,
2380: '150: After Calling customer_request_assistance x_return_status : ' ||
2381: x_return_status
2395: p_data => x_msg_data
2396: );
2397:
2398: -- end debug log
2399: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2400: fnd_log.STRING (fnd_log.level_procedure,
2401: g_module ||
2402: l_api_name,
2403: '1000: Leaving ' ||
2396: );
2397:
2398: -- end debug log
2399: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2400: fnd_log.STRING (fnd_log.level_procedure,
2401: g_module ||
2402: l_api_name,
2403: '1000: Leaving ' ||
2404: g_pkg_name ||
2407: );
2408: END IF;
2409: EXCEPTION
2410: WHEN fnd_api.g_exc_error THEN
2411: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2412: fnd_log.STRING (fnd_log.level_procedure,
2413: g_module ||
2414: l_api_name,
2415: '2000: Leaving ' ||
2408: END IF;
2409: EXCEPTION
2410: WHEN fnd_api.g_exc_error THEN
2411: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2412: fnd_log.STRING (fnd_log.level_procedure,
2413: g_module ||
2414: l_api_name,
2415: '2000: Leaving ' ||
2416: g_pkg_name ||
2424: p_count => x_msg_count,
2425: p_data => x_msg_data
2426: );
2427: WHEN fnd_api.g_exc_unexpected_error THEN
2428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2429: fnd_log.STRING (fnd_log.level_procedure,
2430: g_module ||
2431: l_api_name,
2432: '3000: Leaving ' ||
2425: p_data => x_msg_data
2426: );
2427: WHEN fnd_api.g_exc_unexpected_error THEN
2428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2429: fnd_log.STRING (fnd_log.level_procedure,
2430: g_module ||
2431: l_api_name,
2432: '3000: Leaving ' ||
2433: g_pkg_name ||
2441: p_count => x_msg_count,
2442: p_data => x_msg_data
2443: );
2444: WHEN OTHERS THEN
2445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2446: fnd_log.STRING (fnd_log.level_procedure,
2447: g_module ||
2448: l_api_name,
2449: '4000: Leaving ' ||
2442: p_data => x_msg_data
2443: );
2444: WHEN OTHERS THEN
2445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2446: fnd_log.STRING (fnd_log.level_procedure,
2447: g_module ||
2448: l_api_name,
2449: '4000: Leaving ' ||
2450: g_pkg_name ||
2515:
2516:
2517: BEGIN
2518: -- start debug log
2519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2520: fnd_log.STRING (fnd_log.level_procedure,
2521: g_module ||
2522: l_api_name,
2523: '100: Entered ' ||
2516:
2517: BEGIN
2518: -- start debug log
2519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2520: fnd_log.STRING (fnd_log.level_procedure,
2521: g_module ||
2522: l_api_name,
2523: '100: Entered ' ||
2524: g_pkg_name ||
2546: -- set context to multi org
2547: -- mo_global.init ('OKC');
2548:
2549: -- debug log
2550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2551: fnd_log.STRING (fnd_log.level_procedure,
2552: g_module ||
2553: l_api_name,
2554: '200: Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
2547: -- mo_global.init ('OKC');
2548:
2549: -- debug log
2550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2551: fnd_log.STRING (fnd_log.level_procedure,
2552: g_module ||
2553: l_api_name,
2554: '200: Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
2555: );
2569: x_msg_data => x_msg_data
2570: );
2571:
2572: -- debug log
2573: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2574: fnd_log.STRING (fnd_log.level_procedure,
2575: g_module ||
2576: l_api_name,
2577: '250: After Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
2570: );
2571:
2572: -- debug log
2573: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2574: fnd_log.STRING (fnd_log.level_procedure,
2575: g_module ||
2576: l_api_name,
2577: '250: After Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
2578: );
2575: g_module ||
2576: l_api_name,
2577: '250: After Calling OKS_RENEW_UTIL_PVT.get_renew_rules'
2578: );
2579: fnd_log.STRING (fnd_log.level_procedure,
2580: g_module ||
2581: l_api_name,
2582: '250: x_return_status : ' ||
2583: x_return_status
2581: l_api_name,
2582: '250: x_return_status : ' ||
2583: x_return_status
2584: );
2585: fnd_log.STRING (fnd_log.level_procedure,
2586: g_module ||
2587: l_api_name,
2588: '250:x_rnrl_rec.credit_card_flag : ' ||
2589: x_rnrl_rec.credit_card_flag
2587: l_api_name,
2588: '250:x_rnrl_rec.credit_card_flag : ' ||
2589: x_rnrl_rec.credit_card_flag
2590: );
2591: fnd_log.STRING (fnd_log.level_procedure,
2592: g_module ||
2593: l_api_name,
2594: '250:x_rnrl_rec.commitment_number_flag : ' ||
2595: x_rnrl_rec.commitment_number_flag
2593: l_api_name,
2594: '250:x_rnrl_rec.commitment_number_flag : ' ||
2595: x_rnrl_rec.commitment_number_flag
2596: );
2597: fnd_log.STRING (fnd_log.level_procedure,
2598: g_module ||
2599: l_api_name,
2600: '250:x_rnrl_rec.purchase_order_flag : ' ||
2601: x_rnrl_rec.purchase_order_flag
2599: l_api_name,
2600: '250:x_rnrl_rec.purchase_order_flag : ' ||
2601: x_rnrl_rec.purchase_order_flag
2602: );
2603: fnd_log.STRING (fnd_log.level_procedure,
2604: g_module ||
2605: l_api_name,
2606: '250:x_rnrl_rec.check_flag : ' ||
2607: x_rnrl_rec.check_flag
2605: l_api_name,
2606: '250:x_rnrl_rec.check_flag : ' ||
2607: x_rnrl_rec.check_flag
2608: );
2609: fnd_log.STRING (fnd_log.level_procedure,
2610: g_module ||
2611: l_api_name,
2612: '250:x_rnrl_rec.wire_flag : ' ||
2613: x_rnrl_rec.wire_flag
2633:
2634: CLOSE csr_k_amt_curr;
2635:
2636: -- debug log
2637: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2638: fnd_log.STRING (fnd_log.level_procedure,
2639: g_module ||
2640: l_api_name,
2641: '300: l_k_amount : ' ||
2634: CLOSE csr_k_amt_curr;
2635:
2636: -- debug log
2637: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2638: fnd_log.STRING (fnd_log.level_procedure,
2639: g_module ||
2640: l_api_name,
2641: '300: l_k_amount : ' ||
2642: l_k_amount
2640: l_api_name,
2641: '300: l_k_amount : ' ||
2642: l_k_amount
2643: );
2644: fnd_log.STRING (fnd_log.level_procedure,
2645: g_module ||
2646: l_api_name,
2647: '300:l_k_curr : ' ||
2648: l_k_curr
2646: l_api_name,
2647: '300:l_k_curr : ' ||
2648: l_k_curr
2649: );
2650: fnd_log.STRING (fnd_log.level_procedure,
2651: g_module ||
2652: l_api_name,
2653: '300:l_curr_instrument : ' ||
2654: l_curr_instrument
2652: l_api_name,
2653: '300:l_curr_instrument : ' ||
2654: l_curr_instrument
2655: );
2656: fnd_log.STRING (fnd_log.level_procedure,
2657: g_module ||
2658: l_api_name,
2659: '300: x_rnrl_rec.payment_threshold_amt : ' ||
2660: x_rnrl_rec.payment_threshold_amt
2658: l_api_name,
2659: '300: x_rnrl_rec.payment_threshold_amt : ' ||
2660: x_rnrl_rec.payment_threshold_amt
2661: );
2662: fnd_log.STRING (fnd_log.level_procedure,
2663: g_module ||
2664: l_api_name,
2665: '300: x_rnrl_rec.base_currency : ' ||
2666: x_rnrl_rec.base_currency
2677:
2678: CLOSE csr_curr_payment;
2679: */
2680: -- debug log
2681: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2682: fnd_log.STRING (fnd_log.level_procedure,
2683: g_module ||
2684: l_api_name,
2685: '300: l_curr_payment : ' ||
2678: CLOSE csr_curr_payment;
2679: */
2680: -- debug log
2681: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2682: fnd_log.STRING (fnd_log.level_procedure,
2683: g_module ||
2684: l_api_name,
2685: '300: l_curr_payment : ' ||
2686: l_curr_payment
2742: END IF; -- credit card is the only payment option
2743: END IF; -- currency of K and base curr same
2744:
2745: -- debug log
2746: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2747: fnd_log.STRING (fnd_log.level_procedure,
2748: g_module ||
2749: l_api_name,
2750: '350: l_k_current_payments : ' ||
2743: END IF; -- currency of K and base curr same
2744:
2745: -- debug log
2746: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2747: fnd_log.STRING (fnd_log.level_procedure,
2748: g_module ||
2749: l_api_name,
2750: '350: l_k_current_payments : ' ||
2751: l_k_current_payments
2863: END IF;
2864:
2865:
2866: -- debug log
2867: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2868: fnd_log.STRING (fnd_log.level_procedure,
2869: g_module ||
2870: l_api_name,
2871: '500: x_valid_payments : ' ||
2864:
2865:
2866: -- debug log
2867: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2868: fnd_log.STRING (fnd_log.level_procedure,
2869: g_module ||
2870: l_api_name,
2871: '500: x_valid_payments : ' ||
2872: l_valid_payments
2870: l_api_name,
2871: '500: x_valid_payments : ' ||
2872: l_valid_payments
2873: );
2874: fnd_log.STRING (fnd_log.level_procedure,
2875: g_module ||
2876: l_api_name,
2877: '500: x_default_payment : ' ||
2878: l_default_payment
2884: x_valid_payments := l_effective_payments;
2885: x_default_payment := l_default_payment;
2886:
2887: -- end debug log
2888: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2889: fnd_log.STRING (fnd_log.level_procedure,
2890: g_module ||
2891: l_api_name,
2892: '1000: Leaving ' ||
2885: x_default_payment := l_default_payment;
2886:
2887: -- end debug log
2888: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2889: fnd_log.STRING (fnd_log.level_procedure,
2890: g_module ||
2891: l_api_name,
2892: '1000: Leaving ' ||
2893: g_pkg_name ||
2896: );
2897: END IF;
2898: EXCEPTION
2899: WHEN fnd_api.g_exc_error THEN
2900: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2901: fnd_log.STRING (fnd_log.level_procedure,
2902: g_module ||
2903: l_api_name,
2904: '2000: Leaving ' ||
2897: END IF;
2898: EXCEPTION
2899: WHEN fnd_api.g_exc_error THEN
2900: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2901: fnd_log.STRING (fnd_log.level_procedure,
2902: g_module ||
2903: l_api_name,
2904: '2000: Leaving ' ||
2905: g_pkg_name ||
2913: p_count => x_msg_count,
2914: p_data => x_msg_data
2915: );
2916: WHEN fnd_api.g_exc_unexpected_error THEN
2917: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2918: fnd_log.STRING (fnd_log.level_procedure,
2919: g_module ||
2920: l_api_name,
2921: '3000: Leaving ' ||
2914: p_data => x_msg_data
2915: );
2916: WHEN fnd_api.g_exc_unexpected_error THEN
2917: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2918: fnd_log.STRING (fnd_log.level_procedure,
2919: g_module ||
2920: l_api_name,
2921: '3000: Leaving ' ||
2922: g_pkg_name ||
2930: p_count => x_msg_count,
2931: p_data => x_msg_data
2932: );
2933: WHEN OTHERS THEN
2934: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2935: fnd_log.STRING (fnd_log.level_procedure,
2936: g_module ||
2937: l_api_name,
2938: '4000: Leaving ' ||
2931: p_data => x_msg_data
2932: );
2933: WHEN OTHERS THEN
2934: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2935: fnd_log.STRING (fnd_log.level_procedure,
2936: g_module ||
2937: l_api_name,
2938: '4000: Leaving ' ||
2939: g_pkg_name ||
2987: l_response iby_fndcpt_common_pub.result_rec_type;
2988: l_trxnextension l_trxnextension_type;
2989: BEGIN
2990: -- start debug log
2991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2992: fnd_log.STRING (fnd_log.level_procedure,
2993: g_module ||
2994: l_api_name,
2995: '100: Entered ' ||
2988: l_trxnextension l_trxnextension_type;
2989: BEGIN
2990: -- start debug log
2991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2992: fnd_log.STRING (fnd_log.level_procedure,
2993: g_module ||
2994: l_api_name,
2995: '100: Entered ' ||
2996: g_pkg_name ||
2996: g_pkg_name ||
2997: '.' ||
2998: l_api_name
2999: );
3000: fnd_log.STRING (fnd_log.level_procedure,
3001: g_module ||
3002: l_api_name,
3003: '100: ******* Parameters ********'
3004: );
3001: g_module ||
3002: l_api_name,
3003: '100: ******* Parameters ********'
3004: );
3005: fnd_log.STRING (fnd_log.level_procedure,
3006: g_module ||
3007: l_api_name,
3008: '100: p_init_msg_list : ' ||
3009: p_init_msg_list
3007: l_api_name,
3008: '100: p_init_msg_list : ' ||
3009: p_init_msg_list
3010: );
3011: fnd_log.STRING (fnd_log.level_procedure,
3012: g_module ||
3013: l_api_name,
3014: '100: p_order_id : ' ||
3015: p_order_id
3013: l_api_name,
3014: '100: p_order_id : ' ||
3015: p_order_id
3016: );
3017: fnd_log.STRING (fnd_log.level_procedure,
3018: g_module ||
3019: l_api_name,
3020: '100: p_party_id : ' ||
3021: p_party_id
3019: l_api_name,
3020: '100: p_party_id : ' ||
3021: p_party_id
3022: );
3023: fnd_log.STRING (fnd_log.level_procedure,
3024: g_module ||
3025: l_api_name,
3026: '100: p_cust_account_id : ' ||
3027: p_cust_account_id
3025: l_api_name,
3026: '100: p_cust_account_id : ' ||
3027: p_cust_account_id
3028: );
3029: fnd_log.STRING (fnd_log.level_procedure,
3030: g_module ||
3031: l_api_name,
3032: '100: p_card_number : ' ||
3033: p_card_number
3031: l_api_name,
3032: '100: p_card_number : ' ||
3033: p_card_number
3034: );
3035: fnd_log.STRING (fnd_log.level_procedure,
3036: g_module ||
3037: l_api_name,
3038: '100: p_expiration_date : ' ||
3039: TO_CHAR (p_expiration_date)
3037: l_api_name,
3038: '100: p_expiration_date : ' ||
3039: TO_CHAR (p_expiration_date)
3040: );
3041: fnd_log.STRING (fnd_log.level_procedure,
3042: g_module ||
3043: l_api_name,
3044: '100: p_billing_address_id : ' ||
3045: p_billing_address_id
3043: l_api_name,
3044: '100: p_billing_address_id : ' ||
3045: p_billing_address_id
3046: );
3047: fnd_log.STRING (fnd_log.level_procedure,
3048: g_module ||
3049: l_api_name,
3050: '100: p_cvv_code : ' ||
3051: p_cvv_code
3049: l_api_name,
3050: '100: p_cvv_code : ' ||
3051: p_cvv_code
3052: );
3053: fnd_log.STRING (fnd_log.level_procedure,
3054: g_module ||
3055: l_api_name,
3056: '100: p_instr_assignment_id : ' ||
3057: p_instr_assignment_id
3055: l_api_name,
3056: '100: p_instr_assignment_id : ' ||
3057: p_instr_assignment_id
3058: );
3059: fnd_log.STRING (fnd_log.level_procedure,
3060: g_module ||
3061: l_api_name,
3062: '100: p_old_txn_entension_id : ' ||
3063: p_old_txn_entension_id
3087:
3088: -- Delete any old transaction extension id
3089: IF (p_old_txn_entension_id IS NOT NULL) THEN
3090: -- debug log
3091: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3092: fnd_log.STRING (fnd_log.level_statement,
3093: g_module ||
3094: l_api_name,
3095: '150: Found old txn extension id : ' ||
3088: -- Delete any old transaction extension id
3089: IF (p_old_txn_entension_id IS NOT NULL) THEN
3090: -- debug log
3091: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3092: fnd_log.STRING (fnd_log.level_statement,
3093: g_module ||
3094: l_api_name,
3095: '150: Found old txn extension id : ' ||
3096: p_old_txn_entension_id
3094: l_api_name,
3095: '150: Found old txn extension id : ' ||
3096: p_old_txn_entension_id
3097: );
3098: fnd_log.STRING
3099: (fnd_log.level_statement,
3100: g_module ||
3101: l_api_name,
3102: '150: ***** Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3095: '150: Found old txn extension id : ' ||
3096: p_old_txn_entension_id
3097: );
3098: fnd_log.STRING
3099: (fnd_log.level_statement,
3100: g_module ||
3101: l_api_name,
3102: '150: ***** Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3103: );
3100: g_module ||
3101: l_api_name,
3102: '150: ***** Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3103: );
3104: fnd_log.STRING (fnd_log.level_statement,
3105: g_module ||
3106: l_api_name,
3107: '150: ***** Parameters *****'
3108: );
3105: g_module ||
3106: l_api_name,
3107: '150: ***** Parameters *****'
3108: );
3109: fnd_log.STRING (fnd_log.level_statement,
3110: g_module ||
3111: l_api_name,
3112: '150: l_payer.Payment_Function : ' ||
3113: 'CUSTOMER_PAYMENT'
3111: l_api_name,
3112: '150: l_payer.Payment_Function : ' ||
3113: 'CUSTOMER_PAYMENT'
3114: );
3115: fnd_log.STRING (fnd_log.level_statement,
3116: g_module ||
3117: l_api_name,
3118: '150: l_payer.Party_Id : ' ||
3119: l_payer.party_id
3117: l_api_name,
3118: '150: l_payer.Party_Id : ' ||
3119: l_payer.party_id
3120: );
3121: fnd_log.STRING (fnd_log.level_statement,
3122: g_module ||
3123: l_api_name,
3124: '150: l_payer.cust_account_id : ' ||
3125: l_payer.cust_account_id
3123: l_api_name,
3124: '150: l_payer.cust_account_id : ' ||
3125: l_payer.cust_account_id
3126: );
3127: fnd_log.STRING (fnd_log.level_statement,
3128: g_module ||
3129: l_api_name,
3130: '150: p_commit : ' ||
3131: p_commit
3155: dbms_output.put_line(' l_response.result_message : '|| l_response.result_message);
3156: */
3157:
3158: -- debug log
3159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3160: fnd_log.STRING
3161: (fnd_log.level_statement,
3162: g_module ||
3163: l_api_name,
3156: */
3157:
3158: -- debug log
3159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3160: fnd_log.STRING
3161: (fnd_log.level_statement,
3162: g_module ||
3163: l_api_name,
3164: '200: ***** After Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3157:
3158: -- debug log
3159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3160: fnd_log.STRING
3161: (fnd_log.level_statement,
3162: g_module ||
3163: l_api_name,
3164: '200: ***** After Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3165: );
3162: g_module ||
3163: l_api_name,
3164: '200: ***** After Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3165: );
3166: fnd_log.STRING (fnd_log.level_statement,
3167: g_module ||
3168: l_api_name,
3169: '200: x_return_status : ' ||
3170: x_return_status
3168: l_api_name,
3169: '200: x_return_status : ' ||
3170: x_return_status
3171: );
3172: fnd_log.STRING (fnd_log.level_statement,
3173: g_module ||
3174: l_api_name,
3175: '200: x_msg_count : ' ||
3176: x_msg_count
3174: l_api_name,
3175: '200: x_msg_count : ' ||
3176: x_msg_count
3177: );
3178: fnd_log.STRING (fnd_log.level_statement,
3179: g_module ||
3180: l_api_name,
3181: '200: x_response.result_code : ' ||
3182: l_response.result_code
3180: l_api_name,
3181: '200: x_response.result_code : ' ||
3182: l_response.result_code
3183: );
3184: fnd_log.STRING (fnd_log.level_statement,
3185: g_module ||
3186: l_api_name,
3187: '200: x_response.result_category : ' ||
3188: l_response.result_category
3186: l_api_name,
3187: '200: x_response.result_category : ' ||
3188: l_response.result_category
3189: );
3190: fnd_log.STRING (fnd_log.level_statement,
3191: g_module ||
3192: l_api_name,
3193: '200: x_response.result_message : ' ||
3194: l_response.result_message
3231: l_credit_card.card_number := p_card_number;
3232: l_credit_card.expiration_date := p_expiration_date;
3233:
3234: -- debug log
3235: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3236: fnd_log.STRING (fnd_log.level_statement,
3237: g_module ||
3238: l_api_name,
3239: '300: p_instr_assignment_id IS NULL'
3232: l_credit_card.expiration_date := p_expiration_date;
3233:
3234: -- debug log
3235: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3236: fnd_log.STRING (fnd_log.level_statement,
3237: g_module ||
3238: l_api_name,
3239: '300: p_instr_assignment_id IS NULL'
3240: );
3237: g_module ||
3238: l_api_name,
3239: '300: p_instr_assignment_id IS NULL'
3240: );
3241: fnd_log.STRING
3242: (fnd_log.level_statement,
3243: g_module ||
3244: l_api_name,
3245: '300: ***** Calling IBY_FNDCPT_SETUP_PUB.Process_Credit_Card *****'
3238: l_api_name,
3239: '300: p_instr_assignment_id IS NULL'
3240: );
3241: fnd_log.STRING
3242: (fnd_log.level_statement,
3243: g_module ||
3244: l_api_name,
3245: '300: ***** Calling IBY_FNDCPT_SETUP_PUB.Process_Credit_Card *****'
3246: );
3243: g_module ||
3244: l_api_name,
3245: '300: ***** Calling IBY_FNDCPT_SETUP_PUB.Process_Credit_Card *****'
3246: );
3247: fnd_log.STRING (fnd_log.level_statement,
3248: g_module ||
3249: l_api_name,
3250: '300: ***** Parameters *****'
3251: );
3248: g_module ||
3249: l_api_name,
3250: '300: ***** Parameters *****'
3251: );
3252: fnd_log.STRING (fnd_log.level_statement,
3253: g_module ||
3254: l_api_name,
3255: '300: l_credit_card.Owner_Id : ' ||
3256: l_credit_card.owner_id
3254: l_api_name,
3255: '300: l_credit_card.Owner_Id : ' ||
3256: l_credit_card.owner_id
3257: );
3258: fnd_log.STRING (fnd_log.level_statement,
3259: g_module ||
3260: l_api_name,
3261: '300: l_credit_card.Billing_Address_Id : ' ||
3262: l_credit_card.billing_address_id
3260: l_api_name,
3261: '300: l_credit_card.Billing_Address_Id : ' ||
3262: l_credit_card.billing_address_id
3263: );
3264: fnd_log.STRING (fnd_log.level_statement,
3265: g_module ||
3266: l_api_name,
3267: '300: l_credit_card.Card_Number : ' ||
3268: l_credit_card.card_number
3266: l_api_name,
3267: '300: l_credit_card.Card_Number : ' ||
3268: l_credit_card.card_number
3269: );
3270: fnd_log.STRING (fnd_log.level_statement,
3271: g_module ||
3272: l_api_name,
3273: '300: l_credit_card.Expiration_Date : ' ||
3274: l_credit_card.expiration_date
3272: l_api_name,
3273: '300: l_credit_card.Expiration_Date : ' ||
3274: l_credit_card.expiration_date
3275: );
3276: fnd_log.STRING (fnd_log.level_statement,
3277: g_module ||
3278: l_api_name,
3279: '300: l_payer.Payment_Function : ' ||
3280: 'CUSTOMER_PAYMENT'
3278: l_api_name,
3279: '300: l_payer.Payment_Function : ' ||
3280: 'CUSTOMER_PAYMENT'
3281: );
3282: fnd_log.STRING (fnd_log.level_statement,
3283: g_module ||
3284: l_api_name,
3285: '300: l_payer.Party_Id : ' ||
3286: l_payer.party_id
3284: l_api_name,
3285: '300: l_payer.Party_Id : ' ||
3286: l_payer.party_id
3287: );
3288: fnd_log.STRING (fnd_log.level_statement,
3289: g_module ||
3290: l_api_name,
3291: '300: l_payer.cust_account_id : ' ||
3292: l_payer.cust_account_id
3290: l_api_name,
3291: '300: l_payer.cust_account_id : ' ||
3292: l_payer.cust_account_id
3293: );
3294: fnd_log.STRING (fnd_log.level_statement,
3295: g_module ||
3296: l_api_name,
3297: '300: p_commit : ' ||
3298: p_commit
3323: dbms_output.put_line(' l_response.result_message : '|| l_response.result_message);
3324: */
3325:
3326: -- debug log
3327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3328: fnd_log.STRING
3329: (fnd_log.level_statement,
3330: g_module ||
3331: l_api_name,
3324: */
3325:
3326: -- debug log
3327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3328: fnd_log.STRING
3329: (fnd_log.level_statement,
3330: g_module ||
3331: l_api_name,
3332: '350: After Calling IBY_FNDCPT_SETUP_PUB.Process_Credit_Card'
3325:
3326: -- debug log
3327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3328: fnd_log.STRING
3329: (fnd_log.level_statement,
3330: g_module ||
3331: l_api_name,
3332: '350: After Calling IBY_FNDCPT_SETUP_PUB.Process_Credit_Card'
3333: );
3330: g_module ||
3331: l_api_name,
3332: '350: After Calling IBY_FNDCPT_SETUP_PUB.Process_Credit_Card'
3333: );
3334: fnd_log.STRING (fnd_log.level_statement,
3335: g_module ||
3336: l_api_name,
3337: '350: x_return_status : ' ||
3338: x_return_status
3336: l_api_name,
3337: '350: x_return_status : ' ||
3338: x_return_status
3339: );
3340: fnd_log.STRING (fnd_log.level_statement,
3341: g_module ||
3342: l_api_name,
3343: '350: l_instr_assignment_id : ' ||
3344: l_instr_assignment_id
3342: l_api_name,
3343: '350: l_instr_assignment_id : ' ||
3344: l_instr_assignment_id
3345: );
3346: fnd_log.STRING (fnd_log.level_statement,
3347: g_module ||
3348: l_api_name,
3349: '350: x_msg_count : ' ||
3350: x_msg_count
3348: l_api_name,
3349: '350: x_msg_count : ' ||
3350: x_msg_count
3351: );
3352: fnd_log.STRING (fnd_log.level_statement,
3353: g_module ||
3354: l_api_name,
3355: '350: x_response.result_code : ' ||
3356: l_response.result_code
3354: l_api_name,
3355: '350: x_response.result_code : ' ||
3356: l_response.result_code
3357: );
3358: fnd_log.STRING (fnd_log.level_statement,
3359: g_module ||
3360: l_api_name,
3361: '350: x_response.result_category : ' ||
3362: l_response.result_category
3360: l_api_name,
3361: '350: x_response.result_category : ' ||
3362: l_response.result_category
3363: );
3364: fnd_log.STRING (fnd_log.level_statement,
3365: g_module ||
3366: l_api_name,
3367: '350: x_response.result_message : ' ||
3368: l_response.result_message
3395: l_trxnextension.instrument_security_code := p_cvv_code;
3396: l_trxnextension.trxn_ref_number1 := to_char(SYSDATE,'ddmmyyyyhhmmssss');
3397:
3398: -- debug log
3399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3400: fnd_log.STRING
3401: (fnd_log.level_statement,
3402: g_module ||
3403: l_api_name,
3396: l_trxnextension.trxn_ref_number1 := to_char(SYSDATE,'ddmmyyyyhhmmssss');
3397:
3398: -- debug log
3399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3400: fnd_log.STRING
3401: (fnd_log.level_statement,
3402: g_module ||
3403: l_api_name,
3404: '500: ***** Calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension *****'
3397:
3398: -- debug log
3399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3400: fnd_log.STRING
3401: (fnd_log.level_statement,
3402: g_module ||
3403: l_api_name,
3404: '500: ***** Calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension *****'
3405: );
3402: g_module ||
3403: l_api_name,
3404: '500: ***** Calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension *****'
3405: );
3406: fnd_log.STRING (fnd_log.level_statement,
3407: g_module ||
3408: l_api_name,
3409: '500: ***** Parameters *****'
3410: );
3407: g_module ||
3408: l_api_name,
3409: '500: ***** Parameters *****'
3410: );
3411: fnd_log.STRING (fnd_log.level_statement,
3412: g_module ||
3413: l_api_name,
3414: '500: l_TrxnExtension.Originating_Application_Id : ' ||
3415: l_trxnextension.originating_application_id
3413: l_api_name,
3414: '500: l_TrxnExtension.Originating_Application_Id : ' ||
3415: l_trxnextension.originating_application_id
3416: );
3417: fnd_log.STRING (fnd_log.level_statement,
3418: g_module ||
3419: l_api_name,
3420: '500: l_TrxnExtension.Order_Id : ' ||
3421: l_trxnextension.order_id
3419: l_api_name,
3420: '500: l_TrxnExtension.Order_Id : ' ||
3421: l_trxnextension.order_id
3422: );
3423: fnd_log.STRING (fnd_log.level_statement,
3424: g_module ||
3425: l_api_name,
3426: '500: l_TrxnExtension.instrument_security_code : ' ||
3427: l_trxnextension.instrument_security_code
3425: l_api_name,
3426: '500: l_TrxnExtension.instrument_security_code : ' ||
3427: l_trxnextension.instrument_security_code
3428: );
3429: fnd_log.STRING (fnd_log.level_statement,
3430: g_module ||
3431: l_api_name,
3432: '500: l_payer.Payment_Function : ' ||
3433: 'CUSTOMER_PAYMENT'
3431: l_api_name,
3432: '500: l_payer.Payment_Function : ' ||
3433: 'CUSTOMER_PAYMENT'
3434: );
3435: fnd_log.STRING (fnd_log.level_statement,
3436: g_module ||
3437: l_api_name,
3438: '500: l_payer.Party_Id : ' ||
3439: l_payer.party_id
3437: l_api_name,
3438: '500: l_payer.Party_Id : ' ||
3439: l_payer.party_id
3440: );
3441: fnd_log.STRING (fnd_log.level_statement,
3442: g_module ||
3443: l_api_name,
3444: '500: l_payer.cust_account_id : ' ||
3445: l_payer.cust_account_id
3443: l_api_name,
3444: '500: l_payer.cust_account_id : ' ||
3445: l_payer.cust_account_id
3446: );
3447: fnd_log.STRING (fnd_log.level_statement,
3448: g_module ||
3449: l_api_name,
3450: '500: p_commit : ' ||
3451: p_commit
3449: l_api_name,
3450: '500: p_commit : ' ||
3451: p_commit
3452: );
3453: fnd_log.STRING (fnd_log.level_statement,
3454: g_module ||
3455: l_api_name,
3456: '500: p_payer_equivalency : ' ||
3457: iby_fndcpt_common_pub.g_payer_equiv_full
3455: l_api_name,
3456: '500: p_payer_equivalency : ' ||
3457: iby_fndcpt_common_pub.g_payer_equiv_full
3458: );
3459: fnd_log.STRING (fnd_log.level_statement,
3460: g_module ||
3461: l_api_name,
3462: '500: p_pmt_channel : ' ||
3463: iby_fndcpt_setup_pub.g_channel_credit_card
3461: l_api_name,
3462: '500: p_pmt_channel : ' ||
3463: iby_fndcpt_setup_pub.g_channel_credit_card
3464: );
3465: fnd_log.STRING (fnd_log.level_statement,
3466: g_module ||
3467: l_api_name,
3468: '500: p_instr_assignment : ' ||
3469: l_instr_assignment_id
3499: dbms_output.put_line(' l_response.result_message : '|| l_response.result_message);
3500: */
3501:
3502: -- debug log
3503: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3504: fnd_log.STRING
3505: (fnd_log.level_statement,
3506: g_module ||
3507: l_api_name,
3500: */
3501:
3502: -- debug log
3503: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3504: fnd_log.STRING
3505: (fnd_log.level_statement,
3506: g_module ||
3507: l_api_name,
3508: '600: After Calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
3501:
3502: -- debug log
3503: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3504: fnd_log.STRING
3505: (fnd_log.level_statement,
3506: g_module ||
3507: l_api_name,
3508: '600: After Calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
3509: );
3506: g_module ||
3507: l_api_name,
3508: '600: After Calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
3509: );
3510: fnd_log.STRING (fnd_log.level_statement,
3511: g_module ||
3512: l_api_name,
3513: '600: x_return_status : ' ||
3514: x_return_status
3512: l_api_name,
3513: '600: x_return_status : ' ||
3514: x_return_status
3515: );
3516: fnd_log.STRING (fnd_log.level_statement,
3517: g_module ||
3518: l_api_name,
3519: '600: x_new_txn_entension_id : ' ||
3520: x_new_txn_entension_id
3518: l_api_name,
3519: '600: x_new_txn_entension_id : ' ||
3520: x_new_txn_entension_id
3521: );
3522: fnd_log.STRING (fnd_log.level_statement,
3523: g_module ||
3524: l_api_name,
3525: '600: x_msg_count : ' ||
3526: x_msg_count
3524: l_api_name,
3525: '600: x_msg_count : ' ||
3526: x_msg_count
3527: );
3528: fnd_log.STRING (fnd_log.level_statement,
3529: g_module ||
3530: l_api_name,
3531: '600: x_response.result_code : ' ||
3532: l_response.result_code
3530: l_api_name,
3531: '600: x_response.result_code : ' ||
3532: l_response.result_code
3533: );
3534: fnd_log.STRING (fnd_log.level_statement,
3535: g_module ||
3536: l_api_name,
3537: '600: x_response.result_category : ' ||
3538: l_response.result_category
3536: l_api_name,
3537: '600: x_response.result_category : ' ||
3538: l_response.result_category
3539: );
3540: fnd_log.STRING (fnd_log.level_statement,
3541: g_module ||
3542: l_api_name,
3543: '600: x_response.result_message : ' ||
3544: l_response.result_message
3563: RAISE fnd_api.g_exc_error;
3564: END IF;
3565:
3566: -- end debug log
3567: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3568: fnd_log.STRING (fnd_log.level_procedure,
3569: g_module ||
3570: l_api_name,
3571: '1000: Leaving ' ||
3564: END IF;
3565:
3566: -- end debug log
3567: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3568: fnd_log.STRING (fnd_log.level_procedure,
3569: g_module ||
3570: l_api_name,
3571: '1000: Leaving ' ||
3572: g_pkg_name ||
3575: );
3576: END IF;
3577: EXCEPTION
3578: WHEN fnd_api.g_exc_error THEN
3579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3580: fnd_log.STRING (fnd_log.level_procedure,
3581: g_module ||
3582: l_api_name,
3583: '2000: Leaving ' ||
3576: END IF;
3577: EXCEPTION
3578: WHEN fnd_api.g_exc_error THEN
3579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3580: fnd_log.STRING (fnd_log.level_procedure,
3581: g_module ||
3582: l_api_name,
3583: '2000: Leaving ' ||
3584: g_pkg_name ||
3592: p_count => x_msg_count,
3593: p_data => x_msg_data
3594: );
3595: WHEN fnd_api.g_exc_unexpected_error THEN
3596: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3597: fnd_log.STRING (fnd_log.level_procedure,
3598: g_module ||
3599: l_api_name,
3600: '3000: Leaving ' ||
3593: p_data => x_msg_data
3594: );
3595: WHEN fnd_api.g_exc_unexpected_error THEN
3596: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3597: fnd_log.STRING (fnd_log.level_procedure,
3598: g_module ||
3599: l_api_name,
3600: '3000: Leaving ' ||
3601: g_pkg_name ||
3609: p_count => x_msg_count,
3610: p_data => x_msg_data
3611: );
3612: WHEN OTHERS THEN
3613: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3614: fnd_log.STRING (fnd_log.level_procedure,
3615: g_module ||
3616: l_api_name,
3617: '4000: Leaving ' ||
3610: p_data => x_msg_data
3611: );
3612: WHEN OTHERS THEN
3613: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3614: fnd_log.STRING (fnd_log.level_procedure,
3615: g_module ||
3616: l_api_name,
3617: '4000: Leaving ' ||
3618: g_pkg_name ||
3692: WHERE gcd.user_id = fnd.user_id
3693: AND gcd.cdt_type = 'MDT';
3694: BEGIN
3695: -- start debug log
3696: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3697: fnd_log.STRING (fnd_log.level_procedure,
3698: g_module ||
3699: l_api_name,
3700: '100: Entered ' ||
3693: AND gcd.cdt_type = 'MDT';
3694: BEGIN
3695: -- start debug log
3696: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3697: fnd_log.STRING (fnd_log.level_procedure,
3698: g_module ||
3699: l_api_name,
3700: '100: Entered ' ||
3701: g_pkg_name ||
3701: g_pkg_name ||
3702: '.' ||
3703: l_api_name
3704: );
3705: fnd_log.STRING (fnd_log.level_procedure,
3706: g_module ||
3707: l_api_name,
3708: '100: ******* Parameters ********'
3709: );
3706: g_module ||
3707: l_api_name,
3708: '100: ******* Parameters ********'
3709: );
3710: fnd_log.STRING (fnd_log.level_procedure,
3711: g_module ||
3712: l_api_name,
3713: '100: p_chr_id : ' ||
3714: p_chr_id
3774:
3775: CLOSE csr_global_helpdesk;
3776:
3777: -- end debug log
3778: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3779: fnd_log.STRING (fnd_log.level_procedure,
3780: g_module ||
3781: l_api_name,
3782: '1000: Leaving ' ||
3775: CLOSE csr_global_helpdesk;
3776:
3777: -- end debug log
3778: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3779: fnd_log.STRING (fnd_log.level_procedure,
3780: g_module ||
3781: l_api_name,
3782: '1000: Leaving ' ||
3783: g_pkg_name ||
3786: );
3787: END IF;
3788: EXCEPTION
3789: WHEN fnd_api.g_exc_error THEN
3790: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3791: fnd_log.STRING (fnd_log.level_procedure,
3792: g_module ||
3793: l_api_name,
3794: '2000: Leaving ' ||
3787: END IF;
3788: EXCEPTION
3789: WHEN fnd_api.g_exc_error THEN
3790: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3791: fnd_log.STRING (fnd_log.level_procedure,
3792: g_module ||
3793: l_api_name,
3794: '2000: Leaving ' ||
3795: g_pkg_name ||
3803: p_count => x_msg_count,
3804: p_data => x_msg_data
3805: );
3806: WHEN fnd_api.g_exc_unexpected_error THEN
3807: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3808: fnd_log.STRING (fnd_log.level_procedure,
3809: g_module ||
3810: l_api_name,
3811: '3000: Leaving ' ||
3804: p_data => x_msg_data
3805: );
3806: WHEN fnd_api.g_exc_unexpected_error THEN
3807: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3808: fnd_log.STRING (fnd_log.level_procedure,
3809: g_module ||
3810: l_api_name,
3811: '3000: Leaving ' ||
3812: g_pkg_name ||
3820: p_count => x_msg_count,
3821: p_data => x_msg_data
3822: );
3823: WHEN OTHERS THEN
3824: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3825: fnd_log.STRING (fnd_log.level_procedure,
3826: g_module ||
3827: l_api_name,
3828: '4000: Leaving ' ||
3821: p_data => x_msg_data
3822: );
3823: WHEN OTHERS THEN
3824: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3825: fnd_log.STRING (fnd_log.level_procedure,
3826: g_module ||
3827: l_api_name,
3828: '4000: Leaving ' ||
3829: g_pkg_name ||
3875: l_payer l_payer_type;
3876: l_response iby_fndcpt_common_pub.result_rec_type;
3877: BEGIN
3878: -- start debug log
3879: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3880: fnd_log.STRING (fnd_log.level_procedure,
3881: g_module ||
3882: l_api_name,
3883: '100: Entered ' ||
3876: l_response iby_fndcpt_common_pub.result_rec_type;
3877: BEGIN
3878: -- start debug log
3879: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3880: fnd_log.STRING (fnd_log.level_procedure,
3881: g_module ||
3882: l_api_name,
3883: '100: Entered ' ||
3884: g_pkg_name ||
3884: g_pkg_name ||
3885: '.' ||
3886: l_api_name
3887: );
3888: fnd_log.STRING (fnd_log.level_procedure,
3889: g_module ||
3890: l_api_name,
3891: '100: ******* Parameters ********'
3892: );
3889: g_module ||
3890: l_api_name,
3891: '100: ******* Parameters ********'
3892: );
3893: fnd_log.STRING (fnd_log.level_procedure,
3894: g_module ||
3895: l_api_name,
3896: '100: p_chr_id : ' ||
3897: p_chr_id
3916: l_payer.party_id := l_party_id;
3917: l_payer.cust_account_id := l_cust_account_id;
3918:
3919: -- debug log
3920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3921: fnd_log.STRING (fnd_log.level_statement,
3922: g_module ||
3923: l_api_name,
3924: '150: Found old txn extension id : ' ||
3917: l_payer.cust_account_id := l_cust_account_id;
3918:
3919: -- debug log
3920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3921: fnd_log.STRING (fnd_log.level_statement,
3922: g_module ||
3923: l_api_name,
3924: '150: Found old txn extension id : ' ||
3925: l_trxn_extension_id
3923: l_api_name,
3924: '150: Found old txn extension id : ' ||
3925: l_trxn_extension_id
3926: );
3927: fnd_log.STRING
3928: (fnd_log.level_statement,
3929: g_module ||
3930: l_api_name,
3931: '150: ***** Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3924: '150: Found old txn extension id : ' ||
3925: l_trxn_extension_id
3926: );
3927: fnd_log.STRING
3928: (fnd_log.level_statement,
3929: g_module ||
3930: l_api_name,
3931: '150: ***** Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3932: );
3929: g_module ||
3930: l_api_name,
3931: '150: ***** Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3932: );
3933: fnd_log.STRING (fnd_log.level_statement,
3934: g_module ||
3935: l_api_name,
3936: '150: ***** Parameters *****'
3937: );
3934: g_module ||
3935: l_api_name,
3936: '150: ***** Parameters *****'
3937: );
3938: fnd_log.STRING (fnd_log.level_statement,
3939: g_module ||
3940: l_api_name,
3941: '150: l_payer.Payment_Function : ' ||
3942: 'CUSTOMER_PAYMENT'
3940: l_api_name,
3941: '150: l_payer.Payment_Function : ' ||
3942: 'CUSTOMER_PAYMENT'
3943: );
3944: fnd_log.STRING (fnd_log.level_statement,
3945: g_module ||
3946: l_api_name,
3947: '150: l_payer.Party_Id : ' ||
3948: l_payer.party_id
3946: l_api_name,
3947: '150: l_payer.Party_Id : ' ||
3948: l_payer.party_id
3949: );
3950: fnd_log.STRING (fnd_log.level_statement,
3951: g_module ||
3952: l_api_name,
3953: '150: l_payer.cust_account_id : ' ||
3954: l_payer.cust_account_id
3952: l_api_name,
3953: '150: l_payer.cust_account_id : ' ||
3954: l_payer.cust_account_id
3955: );
3956: fnd_log.STRING (fnd_log.level_statement,
3957: g_module ||
3958: l_api_name,
3959: '150: l_trxn_extension_id : ' ||
3960: l_trxn_extension_id
3958: l_api_name,
3959: '150: l_trxn_extension_id : ' ||
3960: l_trxn_extension_id
3961: );
3962: fnd_log.STRING (fnd_log.level_statement,
3963: g_module ||
3964: l_api_name,
3965: '150: p_commit : ' ||
3966: p_commit
3980: x_response => l_response
3981: );
3982:
3983: -- debug log
3984: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3985: fnd_log.STRING
3986: (fnd_log.level_statement,
3987: g_module ||
3988: l_api_name,
3981: );
3982:
3983: -- debug log
3984: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3985: fnd_log.STRING
3986: (fnd_log.level_statement,
3987: g_module ||
3988: l_api_name,
3989: '200: ***** After Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3982:
3983: -- debug log
3984: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3985: fnd_log.STRING
3986: (fnd_log.level_statement,
3987: g_module ||
3988: l_api_name,
3989: '200: ***** After Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3990: );
3987: g_module ||
3988: l_api_name,
3989: '200: ***** After Calling IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension *****'
3990: );
3991: fnd_log.STRING (fnd_log.level_statement,
3992: g_module ||
3993: l_api_name,
3994: '200: x_return_status : ' ||
3995: x_return_status
3993: l_api_name,
3994: '200: x_return_status : ' ||
3995: x_return_status
3996: );
3997: fnd_log.STRING (fnd_log.level_statement,
3998: g_module ||
3999: l_api_name,
4000: '200: x_msg_count : ' ||
4001: x_msg_count
3999: l_api_name,
4000: '200: x_msg_count : ' ||
4001: x_msg_count
4002: );
4003: fnd_log.STRING (fnd_log.level_statement,
4004: g_module ||
4005: l_api_name,
4006: '200: x_response.result_code : ' ||
4007: l_response.result_code
4005: l_api_name,
4006: '200: x_response.result_code : ' ||
4007: l_response.result_code
4008: );
4009: fnd_log.STRING (fnd_log.level_statement,
4010: g_module ||
4011: l_api_name,
4012: '200: x_response.result_category : ' ||
4013: l_response.result_category
4011: l_api_name,
4012: '200: x_response.result_category : ' ||
4013: l_response.result_category
4014: );
4015: fnd_log.STRING (fnd_log.level_statement,
4016: g_module ||
4017: l_api_name,
4018: '200: x_response.result_message : ' ||
4019: l_response.result_message
4051:
4052: CLOSE csr_old_txn_id;
4053:
4054: -- end debug log
4055: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4056: fnd_log.STRING (fnd_log.level_procedure,
4057: g_module ||
4058: l_api_name,
4059: '1000: Leaving ' ||
4052: CLOSE csr_old_txn_id;
4053:
4054: -- end debug log
4055: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4056: fnd_log.STRING (fnd_log.level_procedure,
4057: g_module ||
4058: l_api_name,
4059: '1000: Leaving ' ||
4060: g_pkg_name ||
4063: );
4064: END IF;
4065: EXCEPTION
4066: WHEN fnd_api.g_exc_error THEN
4067: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4068: fnd_log.STRING (fnd_log.level_procedure,
4069: g_module ||
4070: l_api_name,
4071: '2000: Leaving ' ||
4064: END IF;
4065: EXCEPTION
4066: WHEN fnd_api.g_exc_error THEN
4067: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4068: fnd_log.STRING (fnd_log.level_procedure,
4069: g_module ||
4070: l_api_name,
4071: '2000: Leaving ' ||
4072: g_pkg_name ||
4080: p_count => x_msg_count,
4081: p_data => x_msg_data
4082: );
4083: WHEN fnd_api.g_exc_unexpected_error THEN
4084: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4085: fnd_log.STRING (fnd_log.level_procedure,
4086: g_module ||
4087: l_api_name,
4088: '3000: Leaving ' ||
4081: p_data => x_msg_data
4082: );
4083: WHEN fnd_api.g_exc_unexpected_error THEN
4084: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4085: fnd_log.STRING (fnd_log.level_procedure,
4086: g_module ||
4087: l_api_name,
4088: '3000: Leaving ' ||
4089: g_pkg_name ||
4097: p_count => x_msg_count,
4098: p_data => x_msg_data
4099: );
4100: WHEN OTHERS THEN
4101: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4102: fnd_log.STRING (fnd_log.level_procedure,
4103: g_module ||
4104: l_api_name,
4105: '4000: Leaving ' ||
4098: p_data => x_msg_data
4099: );
4100: WHEN OTHERS THEN
4101: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4102: fnd_log.STRING (fnd_log.level_procedure,
4103: g_module ||
4104: l_api_name,
4105: '4000: Leaving ' ||
4106: g_pkg_name ||