180: PROCEDURE log(p_level IN VARCHAR2,
181: p_module IN VARCHAR2,
182: p_message IN VARCHAR2) IS
183: BEGIN
184: IF (p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
185: fnd_log.STRING(LOG_LEVEL => p_level,
186: MODULE => p_module,
187: MESSAGE => p_message);
188: END IF;
181: p_module IN VARCHAR2,
182: p_message IN VARCHAR2) IS
183: BEGIN
184: IF (p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
185: fnd_log.STRING(LOG_LEVEL => p_level,
186: MODULE => p_module,
187: MESSAGE => p_message);
188: END IF;
189: END;
218: l_procedure_name VARCHAR2(30) := 'transfer_AR_to_GTA';
219: l_gta_trx_tbl_4ar jmf_gta_trx_util.trx_tbl_type := jmf_gta_trx_util.trx_tbl_type();
220: l_gta_trx_tbl_4gta jmf_gta_trx_util.trx_tbl_type := jmf_gta_trx_util.trx_tbl_type();
221: BEGIN
222: FND_LOG.G_CURRENT_RUNTIME_LEVEL := FND_LOG.LEVEL_STATEMENT;
223:
224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
225: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
226: G_MODULE_PREFIX || l_procedure_name,
220: l_gta_trx_tbl_4gta jmf_gta_trx_util.trx_tbl_type := jmf_gta_trx_util.trx_tbl_type();
221: BEGIN
222: FND_LOG.G_CURRENT_RUNTIME_LEVEL := FND_LOG.LEVEL_STATEMENT;
223:
224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
225: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
226: G_MODULE_PREFIX || l_procedure_name,
227: 'Begin Procedure. ');
228: END IF;
221: BEGIN
222: FND_LOG.G_CURRENT_RUNTIME_LEVEL := FND_LOG.LEVEL_STATEMENT;
223:
224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
225: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
226: G_MODULE_PREFIX || l_procedure_name,
227: 'Begin Procedure. ');
228: END IF;
229:
231: p_transfer_id => p_transfer_id,
232: p_conc_parameters => p_conc_parameters,
233: x_GTA_TRX_Tbl => l_GTA_trx_tbl_4AR);
234:
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236: log(FND_LOG.LEVEL_PROCEDURE,
237: G_MODULE_PREFIX || l_procedure_name,
238: 'End Retrive_valid_ar_trx......');
239: log(FND_LOG.LEVEL_PROCEDURE,
232: p_conc_parameters => p_conc_parameters,
233: x_GTA_TRX_Tbl => l_GTA_trx_tbl_4AR);
234:
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236: log(FND_LOG.LEVEL_PROCEDURE,
237: G_MODULE_PREFIX || l_procedure_name,
238: 'End Retrive_valid_ar_trx......');
239: log(FND_LOG.LEVEL_PROCEDURE,
240: G_MODULE_PREFIX || l_procedure_name,
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236: log(FND_LOG.LEVEL_PROCEDURE,
237: G_MODULE_PREFIX || l_procedure_name,
238: 'End Retrive_valid_ar_trx......');
239: log(FND_LOG.LEVEL_PROCEDURE,
240: G_MODULE_PREFIX || l_procedure_name,
241: 'l_gta_trx_tbl_4ar.count:' || l_GTA_trx_tbl_4AR.COUNT);
242: END IF;
243:
244: jmf_gta_split_trx_proc.split_Transactions(p_org_id => p_org_id,
245: p_transfer_id => p_transfer_id,
246: p_gta_trx_tbl => l_gta_trx_tbl_4ar,
247: x_gta_trx_tbl => l_gta_trx_tbl_4gta);
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
249: log(FND_LOG.LEVEL_PROCEDURE,
250: G_MODULE_PREFIX || l_procedure_name,
251: 'End Split_transactions......' || l_gta_trx_tbl_4gta.COUNT);
252: END IF;
245: p_transfer_id => p_transfer_id,
246: p_gta_trx_tbl => l_gta_trx_tbl_4ar,
247: x_gta_trx_tbl => l_gta_trx_tbl_4gta);
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
249: log(FND_LOG.LEVEL_PROCEDURE,
250: G_MODULE_PREFIX || l_procedure_name,
251: 'End Split_transactions......' || l_gta_trx_tbl_4gta.COUNT);
252: END IF;
253:
252: END IF;
253:
254: jmf_gta_trx_util.create_TRXs(p_gta_trxs => l_gta_trx_tbl_4gta);
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: log(FND_LOG.LEVEL_PROCEDURE,
258: G_MODULE_PREFIX || l_procedure_name,
259: 'End Create_trxs......');
260: END IF;
253:
254: jmf_gta_trx_util.create_TRXs(p_gta_trxs => l_gta_trx_tbl_4gta);
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: log(FND_LOG.LEVEL_PROCEDURE,
258: G_MODULE_PREFIX || l_procedure_name,
259: 'End Create_trxs......');
260: END IF;
261:
264: generate_XML_output(p_org_id => p_org_id,
265: p_transfer_id => p_transfer_id,
266: p_conc_parameters => p_conc_parameters);
267:
268: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: log(FND_LOG.LEVEL_PROCEDURE,
270: G_MODULE_PREFIX || l_procedure_name,
271: 'End generate_XML_output......');
272: END IF;
265: p_transfer_id => p_transfer_id,
266: p_conc_parameters => p_conc_parameters);
267:
268: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: log(FND_LOG.LEVEL_PROCEDURE,
270: G_MODULE_PREFIX || l_procedure_name,
271: 'End generate_XML_output......');
272: END IF;
273:
270: G_MODULE_PREFIX || l_procedure_name,
271: 'End generate_XML_output......');
272: END IF;
273:
274: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
275: FND_LOG.String(fnd_log.LEVEL_PROCEDURE,
276: G_MODULE_PREFIX || l_procedure_name,
277: 'END procedure. ');
278: END IF;
271: 'End generate_XML_output......');
272: END IF;
273:
274: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
275: FND_LOG.String(fnd_log.LEVEL_PROCEDURE,
276: G_MODULE_PREFIX || l_procedure_name,
277: 'END procedure. ');
278: END IF;
279:
278: END IF;
279:
280: EXCEPTION
281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
284: G_MODULE_PREFIX || l_procedure_name ||
285: '. UNEXPECTED_ERROR',
286: 'Unexpected error' || SQLCODE || SQLERRM);
279:
280: EXCEPTION
281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
284: G_MODULE_PREFIX || l_procedure_name ||
285: '. UNEXPECTED_ERROR',
286: 'Unexpected error' || SQLCODE || SQLERRM);
287: END IF;
287: END IF;
288: RAISE;
289:
290: WHEN OTHERS THEN
291: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
292: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
293: G_MODULE_PREFIX || l_procedure_name ||
294: '. OTHER_EXCEPTION ',
295: 'Unknown error' || SQLCODE || SQLERRM);
288: RAISE;
289:
290: WHEN OTHERS THEN
291: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
292: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
293: G_MODULE_PREFIX || l_procedure_name ||
294: '. OTHER_EXCEPTION ',
295: 'Unknown error' || SQLCODE || SQLERRM);
296:
446: --12/04/2006 Jogen Hu bug 5144561
447:
448: BEGIN
449:
450: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
451: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
452: G_MODULE_PREFIX || l_procedure_name,
453: 'Begin Procedure. ');
454: END IF;
447:
448: BEGIN
449:
450: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
451: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
452: G_MODULE_PREFIX || l_procedure_name,
453: 'Begin Procedure. ');
454: END IF;
455:
466: WHERE rule.rule_header_id = p_transfer_id;
467: EXCEPTION
468: WHEN no_data_found THEN
469:
470: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
471: fnd_log.String(fnd_log.LEVEL_EXCEPTION,
472: G_MODULE_PREFIX || l_procedure_name,
473: 'No data found ');
474: END IF;
467: EXCEPTION
468: WHEN no_data_found THEN
469:
470: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
471: fnd_log.String(fnd_log.LEVEL_EXCEPTION,
472: G_MODULE_PREFIX || l_procedure_name,
473: 'No data found ');
474: END IF;
475: RAISE;
486:
487: EXCEPTION
488: WHEN no_data_found THEN
489:
490: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
491: fnd_log.String(fnd_log.LEVEL_EXCEPTION,
492: G_MODULE_PREFIX || l_procedure_name,
493: 'No data found ');
494: END IF;
487: EXCEPTION
488: WHEN no_data_found THEN
489:
490: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
491: fnd_log.String(fnd_log.LEVEL_EXCEPTION,
492: G_MODULE_PREFIX || l_procedure_name,
493: 'No data found ');
494: END IF;
495: RAISE;
551: EXCEPTION
552: WHEN OTHERS THEN
553: fnd_file.PUT_LINE(fnd_file.log,'|||----333----||'||l_transaction_id);
554:
555: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
556: THEN
557: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
558: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
559: , 'Unknown error'||SQLCODE||SQLERRM);
553: fnd_file.PUT_LINE(fnd_file.log,'|||----333----||'||l_transaction_id);
554:
555: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
556: THEN
557: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
558: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
559: , 'Unknown error'||SQLCODE||SQLERRM);
560:
561: END IF;
701:
702: -- concurrent output
703: JMF_GTA_TRX_UTIL.output_conc(l_report_XML.Getclobval);
704:
705: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
706: JMF_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
707: END IF;
708:
709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
706: JMF_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
707: END IF;
708:
709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
710: fnd_log.String(fnd_log.LEVEL_PROCEDURE,
711: G_MODULE_PREFIX || l_procedure_name,
712: 'END procedure. ');
713: END IF;
706: JMF_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
707: END IF;
708:
709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
710: fnd_log.String(fnd_log.LEVEL_PROCEDURE,
711: G_MODULE_PREFIX || l_procedure_name,
712: 'END procedure. ');
713: END IF;
714:
713: END IF;
714:
715: EXCEPTION
716: WHEN OTHERS THEN
717: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
719: G_MODULE_PREFIX || l_procedure_name ||
720: '. OTHER_EXCEPTION ',
721: 'Unknown error' || SQLCODE || SQLERRM);
714:
715: EXCEPTION
716: WHEN OTHERS THEN
717: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
719: G_MODULE_PREFIX || l_procedure_name ||
720: '. OTHER_EXCEPTION ',
721: 'Unknown error' || SQLCODE || SQLERRM);
722:
758: l_gta_trx_tbl jmf_gta_trx_util.trx_tbl_type:= jmf_gta_trx_util.trx_tbl_type();
759: l_invoice_type_code VARCHAR2(1);
760: BEGIN
761:
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.STRING(fnd_log.LEVEL_PROCEDURE,
764: G_MODULE_PREFIX || l_procedure_name,
765: 'Begin Procedure. ');
766: END IF;
759: l_invoice_type_code VARCHAR2(1);
760: BEGIN
761:
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.STRING(fnd_log.LEVEL_PROCEDURE,
764: G_MODULE_PREFIX || l_procedure_name,
765: 'Begin Procedure. ');
766: END IF;
767:
764: G_MODULE_PREFIX || l_procedure_name,
765: 'Begin Procedure. ');
766: END IF;
767:
768: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
769: log(FND_LOG.LEVEL_PROCEDURE,
770: G_MODULE_PREFIX || l_procedure_name,
771: 'Begin Retrive_valid_ar_trx......');
772: END IF;
765: 'Begin Procedure. ');
766: END IF;
767:
768: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
769: log(FND_LOG.LEVEL_PROCEDURE,
770: G_MODULE_PREFIX || l_procedure_name,
771: 'Begin Retrive_valid_ar_trx......');
772: END IF;
773:
779: x_flex_parameter => l_flex_parameter,
780: x_other_parameter => l_other_parameter,
781: x_currency_code => l_currency_code);
782:
783: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
784: log(FND_LOG.LEVEL_PROCEDURE,
785: G_MODULE_PREFIX || l_procedure_name,
786: 'End get AR sql......');
787: END IF;
780: x_other_parameter => l_other_parameter,
781: x_currency_code => l_currency_code);
782:
783: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
784: log(FND_LOG.LEVEL_PROCEDURE,
785: G_MODULE_PREFIX || l_procedure_name,
786: 'End get AR sql......');
787: END IF;
788:
794: p_other_query_para => l_other_parameter,
795: p_currency_code => l_currency_code,
796: x_GTA_TRX_TBL => x_GTA_TRX_Tbl);
797:
798: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
799: log(FND_LOG.LEVEL_PROCEDURE,
800: G_MODULE_PREFIX || l_procedure_name,
801: 'End retrieve_ar_trxs......');
802: log(FND_LOG.LEVEL_PROCEDURE,
795: p_currency_code => l_currency_code,
796: x_GTA_TRX_TBL => x_GTA_TRX_Tbl);
797:
798: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
799: log(FND_LOG.LEVEL_PROCEDURE,
800: G_MODULE_PREFIX || l_procedure_name,
801: 'End retrieve_ar_trxs......');
802: log(FND_LOG.LEVEL_PROCEDURE,
803: G_MODULE_PREFIX || l_procedure_name,
798: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
799: log(FND_LOG.LEVEL_PROCEDURE,
800: G_MODULE_PREFIX || l_procedure_name,
801: 'End retrieve_ar_trxs......');
802: log(FND_LOG.LEVEL_PROCEDURE,
803: G_MODULE_PREFIX || l_procedure_name,
804: 'l_GTA_TRX_Tbl:' || x_GTA_TRX_Tbl.COUNT);
805: END IF;
806:
813: , p_gta_trx_tbl => l_gta_Trx_tbl
814: , x_gta_Trx_tbl => x_gta_trx_tbl
815: );
816: -- recovered by Yao Zhang for bug 7644235 end
817: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
818: log(FND_LOG.LEVEL_PROCEDURE,
819: G_MODULE_PREFIX || l_procedure_name,
820: 'End filter_credit_memo......');
821: END IF;
814: , x_gta_Trx_tbl => x_gta_trx_tbl
815: );
816: -- recovered by Yao Zhang for bug 7644235 end
817: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
818: log(FND_LOG.LEVEL_PROCEDURE,
819: G_MODULE_PREFIX || l_procedure_name,
820: 'End filter_credit_memo......');
821: END IF;
822:
819: G_MODULE_PREFIX || l_procedure_name,
820: 'End filter_credit_memo......');
821: END IF;
822:
823: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
824: FND_LOG.STRING(fnd_log.LEVEL_PROCEDURE,
825: G_MODULE_PREFIX || l_procedure_name,
826: 'END procedure. ');
827: END IF;
820: 'End filter_credit_memo......');
821: END IF;
822:
823: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
824: FND_LOG.STRING(fnd_log.LEVEL_PROCEDURE,
825: G_MODULE_PREFIX || l_procedure_name,
826: 'END procedure. ');
827: END IF;
828:
827: END IF;
828:
829: EXCEPTION
830: WHEN OTHERS THEN
831: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
832: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
833: G_MODULE_PREFIX || l_procedure_name ||
834: '. OTHER_EXCEPTION ',
835: 'Unknown error' || SQLCODE || SQLERRM);
828:
829: EXCEPTION
830: WHEN OTHERS THEN
831: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
832: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
833: G_MODULE_PREFIX || l_procedure_name ||
834: '. OTHER_EXCEPTION ',
835: 'Unknown error' || SQLCODE || SQLERRM);
836: END IF;
885: l_procedure_name VARCHAR2(30) := 'Get_AR_SQL';
886:
887: BEGIN
888:
889: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
890: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
891: G_MODULE_PREFIX || l_procedure_name,
892: 'Begin Procedure. ');
893: END IF;
886:
887: BEGIN
888:
889: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
890: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
891: G_MODULE_PREFIX || l_procedure_name,
892: 'Begin Procedure. ');
893: END IF;
894:
891: G_MODULE_PREFIX || l_procedure_name,
892: 'Begin Procedure. ');
893: END IF;
894:
895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
896: log(FND_LOG.LEVEL_PROCEDURE,
897: G_MODULE_PREFIX || l_procedure_name,
898: 'Begin get AR sql......');
899: log(FND_LOG.LEVEL_PROCEDURE,
892: 'Begin Procedure. ');
893: END IF;
894:
895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
896: log(FND_LOG.LEVEL_PROCEDURE,
897: G_MODULE_PREFIX || l_procedure_name,
898: 'Begin get AR sql......');
899: log(FND_LOG.LEVEL_PROCEDURE,
900: G_MODULE_PREFIX || l_procedure_name,
895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
896: log(FND_LOG.LEVEL_PROCEDURE,
897: G_MODULE_PREFIX || l_procedure_name,
898: 'Begin get AR sql......');
899: log(FND_LOG.LEVEL_PROCEDURE,
900: G_MODULE_PREFIX || l_procedure_name,
901: 'P_ORG_ID: ' || P_ORG_ID);
902: log(FND_LOG.LEVEL_PROCEDURE,
903: G_MODULE_PREFIX || l_procedure_name,
898: 'Begin get AR sql......');
899: log(FND_LOG.LEVEL_PROCEDURE,
900: G_MODULE_PREFIX || l_procedure_name,
901: 'P_ORG_ID: ' || P_ORG_ID);
902: log(FND_LOG.LEVEL_PROCEDURE,
903: G_MODULE_PREFIX || l_procedure_name,
904: 'p_transfer_id: ' || p_transfer_id);
905: END IF;
906:
940: p_transfer_id => p_transfer_id,
941: x_condition_sql => l_TRX_TYPE_condition,
942: x_query_parameter => x_trxtype_parameter);
943:
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: log(FND_LOG.LEVEL_PROCEDURE,
946: G_MODULE_PREFIX || l_procedure_name,
947: 'End GET_AR_TRXTYPE_COND......');
948: log(FND_LOG.LEVEL_PROCEDURE,
941: x_condition_sql => l_TRX_TYPE_condition,
942: x_query_parameter => x_trxtype_parameter);
943:
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: log(FND_LOG.LEVEL_PROCEDURE,
946: G_MODULE_PREFIX || l_procedure_name,
947: 'End GET_AR_TRXTYPE_COND......');
948: log(FND_LOG.LEVEL_PROCEDURE,
949: G_MODULE_PREFIX || l_procedure_name,
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: log(FND_LOG.LEVEL_PROCEDURE,
946: G_MODULE_PREFIX || l_procedure_name,
947: 'End GET_AR_TRXTYPE_COND......');
948: log(FND_LOG.LEVEL_PROCEDURE,
949: G_MODULE_PREFIX || l_procedure_name,
950: 'l_TRX_TYPE_condition:' || l_TRX_TYPE_condition);
951: END IF;
952:
955: p_transfer_id => p_transfer_id,
956: x_condition_sql => l_flex_condition,
957: x_query_parameter => x_flex_parameter);
958:
959: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
960: log(FND_LOG.LEVEL_PROCEDURE,
961: G_MODULE_PREFIX || l_procedure_name,
962: 'End GET_AR_FLEX_COND......');
963: log(FND_LOG.LEVEL_PROCEDURE,
956: x_condition_sql => l_flex_condition,
957: x_query_parameter => x_flex_parameter);
958:
959: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
960: log(FND_LOG.LEVEL_PROCEDURE,
961: G_MODULE_PREFIX || l_procedure_name,
962: 'End GET_AR_FLEX_COND......');
963: log(FND_LOG.LEVEL_PROCEDURE,
964: G_MODULE_PREFIX || l_procedure_name,
959: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
960: log(FND_LOG.LEVEL_PROCEDURE,
961: G_MODULE_PREFIX || l_procedure_name,
962: 'End GET_AR_FLEX_COND......');
963: log(FND_LOG.LEVEL_PROCEDURE,
964: G_MODULE_PREFIX || l_procedure_name,
965: 'l_flex_condition:' || l_flex_condition);
966: END IF;
967:
971: p_conc_parameters => p_conc_parameters,
972: x_condition_sql => l_other_condition,
973: x_query_parameter => x_other_parameter);
974:
975: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: log(FND_LOG.LEVEL_PROCEDURE,
977: G_MODULE_PREFIX || l_procedure_name,
978: 'End GET_param_COND......');
979: log(FND_LOG.LEVEL_PROCEDURE,
972: x_condition_sql => l_other_condition,
973: x_query_parameter => x_other_parameter);
974:
975: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: log(FND_LOG.LEVEL_PROCEDURE,
977: G_MODULE_PREFIX || l_procedure_name,
978: 'End GET_param_COND......');
979: log(FND_LOG.LEVEL_PROCEDURE,
980: G_MODULE_PREFIX || l_procedure_name,
975: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: log(FND_LOG.LEVEL_PROCEDURE,
977: G_MODULE_PREFIX || l_procedure_name,
978: 'End GET_param_COND......');
979: log(FND_LOG.LEVEL_PROCEDURE,
980: G_MODULE_PREFIX || l_procedure_name,
981: 'l_other_condition:' || l_other_condition);
982: END IF;
983:
986: p_transfer_id => p_transfer_id,
987: x_condition_sql => l_currency_condition,
988: x_currency_code => x_currency_code);
989:
990: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: log(FND_LOG.LEVEL_PROCEDURE,
992: G_MODULE_PREFIX || l_procedure_name,
993: 'End Get_AR_Currency_Cond......');
994: log(FND_LOG.LEVEL_PROCEDURE,
987: x_condition_sql => l_currency_condition,
988: x_currency_code => x_currency_code);
989:
990: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: log(FND_LOG.LEVEL_PROCEDURE,
992: G_MODULE_PREFIX || l_procedure_name,
993: 'End Get_AR_Currency_Cond......');
994: log(FND_LOG.LEVEL_PROCEDURE,
995: G_MODULE_PREFIX || l_procedure_name,
990: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: log(FND_LOG.LEVEL_PROCEDURE,
992: G_MODULE_PREFIX || l_procedure_name,
993: 'End Get_AR_Currency_Cond......');
994: log(FND_LOG.LEVEL_PROCEDURE,
995: G_MODULE_PREFIX || l_procedure_name,
996: 'l_currency_condition:' || l_currency_condition);
997: END IF;
998:
1001: Get_Invoice_Type(p_ORG_ID => p_org_id,
1002: p_transfer_id => p_transfer_id,
1003: x_condition_sql => l_invoice_type_condition);
1004:
1005: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1006: log(FND_LOG.LEVEL_PROCEDURE,
1007: G_MODULE_PREFIX || l_procedure_name,
1008: 'End Get_Invoice_Type......');
1009: log(FND_LOG.LEVEL_PROCEDURE,
1002: p_transfer_id => p_transfer_id,
1003: x_condition_sql => l_invoice_type_condition);
1004:
1005: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1006: log(FND_LOG.LEVEL_PROCEDURE,
1007: G_MODULE_PREFIX || l_procedure_name,
1008: 'End Get_Invoice_Type......');
1009: log(FND_LOG.LEVEL_PROCEDURE,
1010: G_MODULE_PREFIX || l_procedure_name,
1005: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1006: log(FND_LOG.LEVEL_PROCEDURE,
1007: G_MODULE_PREFIX || l_procedure_name,
1008: 'End Get_Invoice_Type......');
1009: log(FND_LOG.LEVEL_PROCEDURE,
1010: G_MODULE_PREFIX || l_procedure_name,
1011: 'l_invoice_type_condition:' || l_invoice_type_condition);
1012: END IF;
1013:
1038: END IF;
1039:
1040: x_query_sql := l_select_sql;
1041:
1042: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1043: log(FND_LOG.LEVEL_PROCEDURE,
1044: G_MODULE_PREFIX || l_procedure_name,
1045: 'l_select_sql:' || l_select_sql);
1046: END IF;
1039:
1040: x_query_sql := l_select_sql;
1041:
1042: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1043: log(FND_LOG.LEVEL_PROCEDURE,
1044: G_MODULE_PREFIX || l_procedure_name,
1045: 'l_select_sql:' || l_select_sql);
1046: END IF;
1047:
1045: 'l_select_sql:' || l_select_sql);
1046: END IF;
1047:
1048: -- log output the ar sql
1049: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1050: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1051: G_MODULE_PREFIX || l_procedure_name,
1052: l_select_sql);
1053: END IF;
1046: END IF;
1047:
1048: -- log output the ar sql
1049: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1050: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1051: G_MODULE_PREFIX || l_procedure_name,
1052: l_select_sql);
1053: END IF;
1054:
1051: G_MODULE_PREFIX || l_procedure_name,
1052: l_select_sql);
1053: END IF;
1054:
1055: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1057: G_MODULE_PREFIX || l_procedure_name,
1058: 'END procedure. ');
1059: END IF;
1052: l_select_sql);
1053: END IF;
1054:
1055: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1057: G_MODULE_PREFIX || l_procedure_name,
1058: 'END procedure. ');
1059: END IF;
1060:
1059: END IF;
1060:
1061: EXCEPTION
1062: WHEN OTHERS THEN
1063: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1065: G_MODULE_PREFIX || l_procedure_name ||
1066: '. OTHER_EXCEPTION ',
1067: 'Unknown error' || SQLCODE || SQLERRM);
1060:
1061: EXCEPTION
1062: WHEN OTHERS THEN
1063: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1065: G_MODULE_PREFIX || l_procedure_name ||
1066: '. OTHER_EXCEPTION ',
1067: 'Unknown error' || SQLCODE || SQLERRM);
1068:
1099: l_transaction_type_cnt NUMBER;
1100:
1101: BEGIN
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1104: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1105: G_MODULE_PREFIX || l_procedure_name,
1106: 'Begin Procedure. ');
1107: END IF;
1100:
1101: BEGIN
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1104: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1105: G_MODULE_PREFIX || l_procedure_name,
1106: 'Begin Procedure. ');
1107: END IF;
1108:
1105: G_MODULE_PREFIX || l_procedure_name,
1106: 'Begin Procedure. ');
1107: END IF;
1108:
1109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1110: log(FND_LOG.LEVEL_PROCEDURE,
1111: G_MODULE_PREFIX || l_procedure_name,
1112: 'Begin Get_Invoice_Type......');
1113: log(FND_LOG.LEVEL_PROCEDURE,
1106: 'Begin Procedure. ');
1107: END IF;
1108:
1109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1110: log(FND_LOG.LEVEL_PROCEDURE,
1111: G_MODULE_PREFIX || l_procedure_name,
1112: 'Begin Get_Invoice_Type......');
1113: log(FND_LOG.LEVEL_PROCEDURE,
1114: G_MODULE_PREFIX || l_procedure_name,
1109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1110: log(FND_LOG.LEVEL_PROCEDURE,
1111: G_MODULE_PREFIX || l_procedure_name,
1112: 'Begin Get_Invoice_Type......');
1113: log(FND_LOG.LEVEL_PROCEDURE,
1114: G_MODULE_PREFIX || l_procedure_name,
1115: 'p_org_id:' || p_org_id || ' ' || 'p_transfer_id:' ||
1116: p_transfer_id);
1117: END IF;
1137:
1138: ||'
1139:
1140:
1141: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1142: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
1143: ,G_MODULE_PREFIX || l_procedure_name
1144: , 'no data found when select invoice_type.');
1145: END IF;
1138: ||'
1139:
1140:
1141: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1142: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
1143: ,G_MODULE_PREFIX || l_procedure_name
1144: , 'no data found when select invoice_type.');
1145: END IF;
1146: RAISE;
1182: '
1183: ');--Modified by Yao Zhang for bug 7667709
1184:
1185:
1186: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1187: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
1188: G_MODULE_PREFIX || l_procedure_name,
1189: 'no data found when select invoice_type.');
1190: END IF;
1183: ');--Modified by Yao Zhang for bug 7667709
1184:
1185:
1186: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1187: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
1188: G_MODULE_PREFIX || l_procedure_name,
1189: 'no data found when select invoice_type.');
1190: END IF;
1191: RAISE;
1206: END IF; /*l_invoice_type_code = 'A'*/
1207:
1208: END IF; /*l_invoice_type_code IS NOT NULL*/
1209:
1210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1211: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1212: G_MODULE_PREFIX || l_procedure_name,
1213: 'END procedure. ');
1214: END IF;
1207:
1208: END IF; /*l_invoice_type_code IS NOT NULL*/
1209:
1210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1211: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1212: G_MODULE_PREFIX || l_procedure_name,
1213: 'END procedure. ');
1214: END IF;
1215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1211: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1212: G_MODULE_PREFIX || l_procedure_name,
1213: 'END procedure. ');
1214: END IF;
1215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1216: log(FND_LOG.LEVEL_PROCEDURE,
1217: G_MODULE_PREFIX || l_procedure_name,
1218: 'End Get_Invoice_Type......');
1219: END IF;
1212: G_MODULE_PREFIX || l_procedure_name,
1213: 'END procedure. ');
1214: END IF;
1215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1216: log(FND_LOG.LEVEL_PROCEDURE,
1217: G_MODULE_PREFIX || l_procedure_name,
1218: 'End Get_Invoice_Type......');
1219: END IF;
1220: EXCEPTION
1218: 'End Get_Invoice_Type......');
1219: END IF;
1220: EXCEPTION
1221: WHEN OTHERS THEN
1222: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1224: G_MODULE_PREFIX || l_procedure_name ||
1225: '. OTHER_EXCEPTION ',
1226: 'Unknown error' || SQLCODE || SQLERRM);
1219: END IF;
1220: EXCEPTION
1221: WHEN OTHERS THEN
1222: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1224: G_MODULE_PREFIX || l_procedure_name ||
1225: '. OTHER_EXCEPTION ',
1226: 'Unknown error' || SQLCODE || SQLERRM);
1227:
1273: AND l.condition_rule = 'E';
1274:
1275: BEGIN
1276:
1277: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1278: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1279: G_MODULE_PREFIX || l_procedure_name,
1280: 'Begin Procedure. ');
1281: END IF;
1274:
1275: BEGIN
1276:
1277: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1278: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1279: G_MODULE_PREFIX || l_procedure_name,
1280: 'Begin Procedure. ');
1281: END IF;
1282:
1279: G_MODULE_PREFIX || l_procedure_name,
1280: 'Begin Procedure. ');
1281: END IF;
1282:
1283: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1284: log(FND_LOG.LEVEL_PROCEDURE,
1285: G_MODULE_PREFIX || l_procedure_name,
1286: 'Begin Get_AR_TrxType_Cond......');
1287: END IF;
1280: 'Begin Procedure. ');
1281: END IF;
1282:
1283: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1284: log(FND_LOG.LEVEL_PROCEDURE,
1285: G_MODULE_PREFIX || l_procedure_name,
1286: 'Begin Get_AR_TrxType_Cond......');
1287: END IF;
1288:
1324: END IF;
1325:
1326: CLOSE trx_type_cond_i;
1327:
1328: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: log(FND_LOG.LEVEL_PROCEDURE,
1330: G_MODULE_PREFIX || l_procedure_name,
1331: 'End trx_type_cond_i......');
1332: END IF;
1325:
1326: CLOSE trx_type_cond_i;
1327:
1328: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: log(FND_LOG.LEVEL_PROCEDURE,
1330: G_MODULE_PREFIX || l_procedure_name,
1331: 'End trx_type_cond_i......');
1332: END IF;
1333:
1345: l_parameter_suffix := l_parameter_suffix + 1;
1346: END LOOP;
1347: CLOSE trx_type_cond_e;
1348:
1349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1350: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1351: G_MODULE_PREFIX || l_procedure_name,
1352: 'END procedure. ');
1353: END IF;
1346: END LOOP;
1347: CLOSE trx_type_cond_e;
1348:
1349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1350: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1351: G_MODULE_PREFIX || l_procedure_name,
1352: 'END procedure. ');
1353: END IF;
1354:
1353: END IF;
1354:
1355: EXCEPTION
1356: WHEN OTHERS THEN
1357: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1359: G_MODULE_PREFIX || l_procedure_name ||
1360: '. OTHER_EXCEPTION ',
1361: 'Unknown error' || SQLCODE || SQLERRM);
1354:
1355: EXCEPTION
1356: WHEN OTHERS THEN
1357: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1359: G_MODULE_PREFIX || l_procedure_name ||
1360: '. OTHER_EXCEPTION ',
1361: 'Unknown error' || SQLCODE || SQLERRM);
1362:
1414: AND l.condition_rule = 'E';
1415:
1416: BEGIN
1417:
1418: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1419: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1420: G_MODULE_PREFIX || l_procedure_name,
1421: 'Begin Procedure. ');
1422: END IF;
1415:
1416: BEGIN
1417:
1418: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1419: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1420: G_MODULE_PREFIX || l_procedure_name,
1421: 'Begin Procedure. ');
1422: END IF;
1423:
1420: G_MODULE_PREFIX || l_procedure_name,
1421: 'Begin Procedure. ');
1422: END IF;
1423:
1424: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1425: log(FND_LOG.LEVEL_PROCEDURE,
1426: G_MODULE_PREFIX || l_procedure_name,
1427: 'begin get_ar_flex......');
1428: END IF;
1421: 'Begin Procedure. ');
1422: END IF;
1423:
1424: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1425: log(FND_LOG.LEVEL_PROCEDURE,
1426: G_MODULE_PREFIX || l_procedure_name,
1427: 'begin get_ar_flex......');
1428: END IF;
1429:
1497: END LOOP;
1498:
1499: CLOSE flex_cond_e;
1500:
1501: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1502: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1503: G_MODULE_PREFIX || l_procedure_name,
1504: 'END procedure. ');
1505: END IF;
1498:
1499: CLOSE flex_cond_e;
1500:
1501: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1502: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1503: G_MODULE_PREFIX || l_procedure_name,
1504: 'END procedure. ');
1505: END IF;
1506:
1503: G_MODULE_PREFIX || l_procedure_name,
1504: 'END procedure. ');
1505: END IF;
1506:
1507: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1508: log(FND_LOG.LEVEL_PROCEDURE,
1509: G_MODULE_PREFIX || l_procedure_name,
1510: 'End get_ar_flex......');
1511: END IF;
1504: 'END procedure. ');
1505: END IF;
1506:
1507: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1508: log(FND_LOG.LEVEL_PROCEDURE,
1509: G_MODULE_PREFIX || l_procedure_name,
1510: 'End get_ar_flex......');
1511: END IF;
1512:
1511: END IF;
1512:
1513: EXCEPTION
1514: WHEN OTHERS THEN
1515: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1516: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1517: G_MODULE_PREFIX || l_procedure_name ||
1518: '. OTHER_EXCEPTION ',
1519: 'Unknown error');
1512:
1513: EXCEPTION
1514: WHEN OTHERS THEN
1515: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1516: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1517: G_MODULE_PREFIX || l_procedure_name ||
1518: '. OTHER_EXCEPTION ',
1519: 'Unknown error');
1520:
1556: l_parameter_suffix NUMBER;
1557:
1558: BEGIN
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1562: G_MODULE_PREFIX || l_procedure_name,
1563: 'Begin Procedure. ');
1564: END IF;
1557:
1558: BEGIN
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1562: G_MODULE_PREFIX || l_procedure_name,
1563: 'Begin Procedure. ');
1564: END IF;
1565:
1562: G_MODULE_PREFIX || l_procedure_name,
1563: 'Begin Procedure. ');
1564: END IF;
1565:
1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1567: log(FND_LOG.LEVEL_PROCEDURE,
1568: G_MODULE_PREFIX || l_procedure_name,
1569: 'begin get_param_cond......');
1570: END IF;
1563: 'Begin Procedure. ');
1564: END IF;
1565:
1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1567: log(FND_LOG.LEVEL_PROCEDURE,
1568: G_MODULE_PREFIX || l_procedure_name,
1569: 'begin get_param_cond......');
1570: END IF;
1571:
1708: (l_parameter_suffix + 2);
1709:
1710: END IF;
1711:
1712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1713: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1714: G_MODULE_PREFIX || l_procedure_name,
1715: 'END procedure. ');
1716: END IF;
1709:
1710: END IF;
1711:
1712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1713: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1714: G_MODULE_PREFIX || l_procedure_name,
1715: 'END procedure. ');
1716: END IF;
1717:
1714: G_MODULE_PREFIX || l_procedure_name,
1715: 'END procedure. ');
1716: END IF;
1717:
1718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1719: log(FND_LOG.LEVEL_PROCEDURE,
1720: G_MODULE_PREFIX || l_procedure_name,
1721: 'End get_ar_flex......');
1722: END IF;
1715: 'END procedure. ');
1716: END IF;
1717:
1718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1719: log(FND_LOG.LEVEL_PROCEDURE,
1720: G_MODULE_PREFIX || l_procedure_name,
1721: 'End get_ar_flex......');
1722: END IF;
1723:
1722: END IF;
1723:
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1727:
1728: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1729: G_MODULE_PREFIX || l_procedure_name ||
1730: '.OTHER_EXCEPTION.',
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1727:
1728: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1729: G_MODULE_PREFIX || l_procedure_name ||
1730: '.OTHER_EXCEPTION.',
1731: '.Unknown .error.' || SQLCODE || SQLERRM);
1732:
1779: -- then the rule is transfer AR trx which currency code is specific.
1780: l_gta_currency_option jmf_gta_rule_headers_all.currency_option%TYPE;
1781: BEGIN
1782:
1783: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1784: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1785: G_MODULE_PREFIX || l_procedure_name,
1786: 'Begin Procedure. ');
1787: END IF;
1780: l_gta_currency_option jmf_gta_rule_headers_all.currency_option%TYPE;
1781: BEGIN
1782:
1783: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1784: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1785: G_MODULE_PREFIX || l_procedure_name,
1786: 'Begin Procedure. ');
1787: END IF;
1788:
1785: G_MODULE_PREFIX || l_procedure_name,
1786: 'Begin Procedure. ');
1787: END IF;
1788:
1789: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1790: log(FND_LOG.LEVEL_PROCEDURE,
1791: G_MODULE_PREFIX || l_procedure_name,
1792: 'Begin Get_AR_Currency_Cond......');
1793: log(FND_LOG.LEVEL_PROCEDURE,
1786: 'Begin Procedure. ');
1787: END IF;
1788:
1789: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1790: log(FND_LOG.LEVEL_PROCEDURE,
1791: G_MODULE_PREFIX || l_procedure_name,
1792: 'Begin Get_AR_Currency_Cond......');
1793: log(FND_LOG.LEVEL_PROCEDURE,
1794: G_MODULE_PREFIX || l_procedure_name,
1789: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1790: log(FND_LOG.LEVEL_PROCEDURE,
1791: G_MODULE_PREFIX || l_procedure_name,
1792: 'Begin Get_AR_Currency_Cond......');
1793: log(FND_LOG.LEVEL_PROCEDURE,
1794: G_MODULE_PREFIX || l_procedure_name,
1795: 'p_org_id:' || p_org_id || ' ' || 'p_transfer_id:' ||
1796: p_transfer_id);
1797: END IF;
1817: l_error_string ||
1818: '
1819: ');--Modified by Yao Zhang for bug 7667709
1820:
1821: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1822: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
1823: G_MODULE_PREFIX || l_procedure_name,
1824: 'no data found when select sales_list_flag.');
1825: END IF;
1818: '
1819: ');--Modified by Yao Zhang for bug 7667709
1820:
1821: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1822: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
1823: G_MODULE_PREFIX || l_procedure_name,
1824: 'no data found when select sales_list_flag.');
1825: END IF;
1826:
1849: l_error_string ||
1850: '
1851: ');--Modified By Yao Zhang for bug 7667709
1852:
1853: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1854: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
1855: G_MODULE_PREFIX || l_procedure_name,
1856: 'no data found when select sales_list_flag.');
1857: END IF;
1850: '
1851: ');--Modified By Yao Zhang for bug 7667709
1852:
1853: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1854: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
1855: G_MODULE_PREFIX || l_procedure_name,
1856: 'no data found when select sales_list_flag.');
1857: END IF;
1858:
1876: x_currency_code := l_specific_currency_code;
1877: END IF;
1878: END IF;
1879:
1880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1881: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1882: G_MODULE_PREFIX || l_procedure_name,
1883: 'END procedure. ');
1884: END IF;
1877: END IF;
1878: END IF;
1879:
1880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1881: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
1882: G_MODULE_PREFIX || l_procedure_name,
1883: 'END procedure. ');
1884: END IF;
1885:
1882: G_MODULE_PREFIX || l_procedure_name,
1883: 'END procedure. ');
1884: END IF;
1885:
1886: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1887: log(FND_LOG.LEVEL_PROCEDURE,
1888: G_MODULE_PREFIX || l_procedure_name,
1889: 'End Get_AR_Currency_Cond......');
1890: END IF;
1883: 'END procedure. ');
1884: END IF;
1885:
1886: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1887: log(FND_LOG.LEVEL_PROCEDURE,
1888: G_MODULE_PREFIX || l_procedure_name,
1889: 'End Get_AR_Currency_Cond......');
1890: END IF;
1891:
1890: END IF;
1891:
1892: EXCEPTION
1893: WHEN OTHERS THEN
1894: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1895: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1896: G_MODULE_PREFIX || l_procedure_name ||
1897: '. OTHER_EXCEPTION ',
1898: 'Unknown error' || SQLCODE || SQLERRM);
1891:
1892: EXCEPTION
1893: WHEN OTHERS THEN
1894: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1895: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
1896: G_MODULE_PREFIX || l_procedure_name ||
1897: '. OTHER_EXCEPTION ',
1898: 'Unknown error' || SQLCODE || SQLERRM);
1899:
2112: AND l.customer_trx_id = l_header_id;
2113:
2114: BEGIN
2115:
2116: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2117: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
2118: G_MODULE_PREFIX || l_procedure_name,
2119: 'Begin Procedure. ');
2120: END IF;
2113:
2114: BEGIN
2115:
2116: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2117: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
2118: G_MODULE_PREFIX || l_procedure_name,
2119: 'Begin Procedure. ');
2120: END IF;
2121:
2122: -- init x_GTA_TRX_TBL
2123: x_GTA_TRX_TBL := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();
2124:
2125: l_log_str := p_query_sql;
2126: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2127: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2128: G_MODULE_PREFIX || l_procedure_name || '.DYNAMIC SQL ',
2129: l_log_str);
2130: END IF;
2123: x_GTA_TRX_TBL := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();
2124:
2125: l_log_str := p_query_sql;
2126: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2127: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2128: G_MODULE_PREFIX || l_procedure_name || '.DYNAMIC SQL ',
2129: l_log_str);
2130: END IF;
2131:
2128: G_MODULE_PREFIX || l_procedure_name || '.DYNAMIC SQL ',
2129: l_log_str);
2130: END IF;
2131:
2132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2133: log(FND_LOG.LEVEL_PROCEDURE,
2134: G_MODULE_PREFIX || l_procedure_name,
2135: 'Begin Retrieve_AR_TRXs......');
2136: END IF;
2129: l_log_str);
2130: END IF;
2131:
2132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2133: log(FND_LOG.LEVEL_PROCEDURE,
2134: G_MODULE_PREFIX || l_procedure_name,
2135: 'Begin Retrieve_AR_TRXs......');
2136: END IF;
2137:
2184: l_error_string ||
2185: '
2186: ');--Modified By Yao Zhang for bug 7667709
2187:
2188: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2189: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
2190: G_MODULE_PREFIX || l_procedure_name,
2191: l_error_string);
2192: END IF;
2185: '
2186: ');--Modified By Yao Zhang for bug 7667709
2187:
2188: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2189: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
2190: G_MODULE_PREFIX || l_procedure_name,
2191: l_error_string);
2192: END IF;
2193:
2216: l_error_string ||
2217: '
2218: ');--Modified By Yao Zhang for bug 7667709
2219:
2220: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
2222: G_MODULE_PREFIX || l_procedure_name,
2223: 'no data found when select sales_list_flag.');
2224: END IF;
2217: '
2218: ');--Modified By Yao Zhang for bug 7667709
2219:
2220: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
2222: G_MODULE_PREFIX || l_procedure_name,
2223: 'no data found when select sales_list_flag.');
2224: END IF;
2225: RAISE;
2273:
2274: --EXECUTE!
2275: l_sql_exec_ret := dbms_sql.EXECUTE(l_cursor);
2276:
2277: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2278: log(FND_LOG.LEVEL_PROCEDURE,
2279: G_MODULE_PREFIX || l_procedure_name,
2280: 'Begin cursor loop......');
2281: END IF;
2274: --EXECUTE!
2275: l_sql_exec_ret := dbms_sql.EXECUTE(l_cursor);
2276:
2277: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2278: log(FND_LOG.LEVEL_PROCEDURE,
2279: G_MODULE_PREFIX || l_procedure_name,
2280: 'Begin cursor loop......');
2281: END IF;
2282:
2306:
2307: -- get customer_trx_id of the AR_trx_header
2308: dbms_sql.column_value(l_cursor, 1, l_customer_trx_id);
2309:
2310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2311: log(FND_LOG.LEVEL_PROCEDURE,
2312: G_MODULE_PREFIX || l_procedure_name,
2313: '****************************************');
2314: log(FND_LOG.LEVEL_PROCEDURE,
2307: -- get customer_trx_id of the AR_trx_header
2308: dbms_sql.column_value(l_cursor, 1, l_customer_trx_id);
2309:
2310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2311: log(FND_LOG.LEVEL_PROCEDURE,
2312: G_MODULE_PREFIX || l_procedure_name,
2313: '****************************************');
2314: log(FND_LOG.LEVEL_PROCEDURE,
2315: G_MODULE_PREFIX || l_procedure_name,
2310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2311: log(FND_LOG.LEVEL_PROCEDURE,
2312: G_MODULE_PREFIX || l_procedure_name,
2313: '****************************************');
2314: log(FND_LOG.LEVEL_PROCEDURE,
2315: G_MODULE_PREFIX || l_procedure_name,
2316: 'l_customer_trx_id : ' || l_customer_trx_id);
2317: log(FND_LOG.LEVEL_PROCEDURE,
2318: G_MODULE_PREFIX || l_procedure_name,
2313: '****************************************');
2314: log(FND_LOG.LEVEL_PROCEDURE,
2315: G_MODULE_PREFIX || l_procedure_name,
2316: 'l_customer_trx_id : ' || l_customer_trx_id);
2317: log(FND_LOG.LEVEL_PROCEDURE,
2318: G_MODULE_PREFIX || l_procedure_name,
2319: '****************************************');
2320: END IF;
2321:
2421: AND h.customer_trx_id = l_customer_trx_id;
2422:
2423: EXCEPTION
2424: WHEN no_data_found THEN
2425: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2426: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2427: G_MODULE_PREFIX || l_procedure_name,
2428: 'no date found when select header info');
2429: END IF;
2422:
2423: EXCEPTION
2424: WHEN no_data_found THEN
2425: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2426: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2427: G_MODULE_PREFIX || l_procedure_name,
2428: 'no date found when select header info');
2429: END IF;
2430: RAISE;
2460: AND RAA_BILL_LOC.COUNTRY = FT_BILL.TERRITORY_CODE(+)
2461: AND h.customer_trx_id = l_customer_trx_id;
2462: EXCEPTION
2463: WHEN no_data_found THEN
2464: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2465: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2466: G_MODULE_PREFIX || l_procedure_name,
2467: 'no date found when select l_raa_bill_to_concat_address');
2468: END IF;
2461: AND h.customer_trx_id = l_customer_trx_id;
2462: EXCEPTION
2463: WHEN no_data_found THEN
2464: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2465: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2466: G_MODULE_PREFIX || l_procedure_name,
2467: 'no date found when select l_raa_bill_to_concat_address');
2468: END IF;
2469: --modified by subba for R12.1
2504: AND h.customer_trx_id = l_customer_trx_id;
2505:
2506: EXCEPTION
2507: WHEN no_data_found THEN
2508: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2509: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2510: G_MODULE_PREFIX || l_procedure_name,
2511: 'no date found when select phone number');
2512: END IF;
2505:
2506: EXCEPTION
2507: WHEN no_data_found THEN
2508: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2509: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2510: G_MODULE_PREFIX || l_procedure_name,
2511: 'no date found when select phone number');
2512: END IF;
2513:
2532: AND rac_bill.party_id = RAC_BILL_PARTY.Party_Id;
2533:
2534: EXCEPTION
2535: WHEN no_data_found THEN
2536: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2537: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2538: G_MODULE_PREFIX || l_procedure_name,
2539: 'no data found when select rac information');
2540: END IF;
2533:
2534: EXCEPTION
2535: WHEN no_data_found THEN
2536: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2537: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2538: G_MODULE_PREFIX || l_procedure_name,
2539: 'no data found when select rac information');
2540: END IF;
2541: RAISE;
2550:
2551: -- Modified by brian for bug 7591365
2552: /*IF l_ctt_class = 'CM' THEN
2553:
2554: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2555: THEN
2556: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2557: || l_procedure_name,
2558: '****************************************');
2552: /*IF l_ctt_class = 'CM' THEN
2553:
2554: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2555: THEN
2556: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2557: || l_procedure_name,
2558: '****************************************');
2559: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2560: || l_procedure_name,
2555: THEN
2556: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2557: || l_procedure_name,
2558: '****************************************');
2559: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2560: || l_procedure_name,
2561: 'is CM');
2562: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2563: || l_procedure_name,
2558: '****************************************');
2559: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2560: || l_procedure_name,
2561: 'is CM');
2562: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX
2563: || l_procedure_name,
2564: '****************************************');
2565: END IF;
2566: --checking whether CM is associated with AR invoice or not
2754: --fnd_message.set_token('NUM', l_customer_trx_line_id);
2755: l_error_string := fnd_message.GET();
2756:
2757: -- begin log
2758: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2759: THEN
2760: log(FND_LOG.LEVEL_PROCEDURE,
2761: G_MODULE_PREFIX || l_procedure_name,
2762: 'JMF_GTA_MISSING_FIELD');
2756:
2757: -- begin log
2758: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2759: THEN
2760: log(FND_LOG.LEVEL_PROCEDURE,
2761: G_MODULE_PREFIX || l_procedure_name,
2762: 'JMF_GTA_MISSING_FIELD');
2763: END IF;
2764: -- end log
2762: 'JMF_GTA_MISSING_FIELD');
2763: END IF;
2764: -- end log
2765:
2766: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2767: THEN
2768: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2769: G_MODULE_PREFIX || l_procedure_name,
2770: l_error_string);
2764: -- end log
2765:
2766: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2767: THEN
2768: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2769: G_MODULE_PREFIX || l_procedure_name,
2770: l_error_string);
2771: END IF;
2772: CLOSE l_ra_lines;
2789:
2790: BEGIN
2791:
2792: -- begin log
2793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2794: log(FND_LOG.LEVEL_PROCEDURE,
2795: G_MODULE_PREFIX || l_procedure_name,
2796: '************************************');
2797: log(FND_LOG.LEVEL_PROCEDURE,
2790: BEGIN
2791:
2792: -- begin log
2793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2794: log(FND_LOG.LEVEL_PROCEDURE,
2795: G_MODULE_PREFIX || l_procedure_name,
2796: '************************************');
2797: log(FND_LOG.LEVEL_PROCEDURE,
2798: G_MODULE_PREFIX || l_procedure_name,
2793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2794: log(FND_LOG.LEVEL_PROCEDURE,
2795: G_MODULE_PREFIX || l_procedure_name,
2796: '************************************');
2797: log(FND_LOG.LEVEL_PROCEDURE,
2798: G_MODULE_PREFIX || l_procedure_name,
2799: 'l_customer_trx_line_id:' || l_customer_trx_line_id); --exception 05
2800: log(FND_LOG.LEVEL_PROCEDURE,
2801: G_MODULE_PREFIX || l_procedure_name,
2796: '************************************');
2797: log(FND_LOG.LEVEL_PROCEDURE,
2798: G_MODULE_PREFIX || l_procedure_name,
2799: 'l_customer_trx_line_id:' || l_customer_trx_line_id); --exception 05
2800: log(FND_LOG.LEVEL_PROCEDURE,
2801: G_MODULE_PREFIX || l_procedure_name,
2802: '************************************');
2803: END IF;
2804: -- end log
2823: x_status => l_status,
2824: x_error_buffer => l_proce_error_buffer);
2825:
2826: -- begin log
2827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2828: log(FND_LOG.LEVEL_PROCEDURE,
2829: G_MODULE_PREFIX || l_procedure_name,
2830: 'ebtax p_org_id:' || p_org_id);
2831: log(FND_LOG.LEVEL_PROCEDURE,
2824: x_error_buffer => l_proce_error_buffer);
2825:
2826: -- begin log
2827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2828: log(FND_LOG.LEVEL_PROCEDURE,
2829: G_MODULE_PREFIX || l_procedure_name,
2830: 'ebtax p_org_id:' || p_org_id);
2831: log(FND_LOG.LEVEL_PROCEDURE,
2832: G_MODULE_PREFIX || l_procedure_name,
2827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2828: log(FND_LOG.LEVEL_PROCEDURE,
2829: G_MODULE_PREFIX || l_procedure_name,
2830: 'ebtax p_org_id:' || p_org_id);
2831: log(FND_LOG.LEVEL_PROCEDURE,
2832: G_MODULE_PREFIX || l_procedure_name,
2833: 'ebtax l_customer_trx_id:' || l_customer_trx_id);
2834: log(FND_LOG.LEVEL_PROCEDURE,
2835: G_MODULE_PREFIX || l_procedure_name,
2830: 'ebtax p_org_id:' || p_org_id);
2831: log(FND_LOG.LEVEL_PROCEDURE,
2832: G_MODULE_PREFIX || l_procedure_name,
2833: 'ebtax l_customer_trx_id:' || l_customer_trx_id);
2834: log(FND_LOG.LEVEL_PROCEDURE,
2835: G_MODULE_PREFIX || l_procedure_name,
2836: 'ebtax l_customer_trx_line_id:' || l_customer_trx_line_id);
2837: log(FND_LOG.LEVEL_PROCEDURE,
2838: G_MODULE_PREFIX || l_procedure_name,
2833: 'ebtax l_customer_trx_id:' || l_customer_trx_id);
2834: log(FND_LOG.LEVEL_PROCEDURE,
2835: G_MODULE_PREFIX || l_procedure_name,
2836: 'ebtax l_customer_trx_line_id:' || l_customer_trx_line_id);
2837: log(FND_LOG.LEVEL_PROCEDURE,
2838: G_MODULE_PREFIX || l_procedure_name,
2839: 'ebtax l_vat_tax_type:' || l_vat_tax_type);
2840: log(FND_LOG.LEVEL_PROCEDURE,
2841: G_MODULE_PREFIX || l_procedure_name,
2836: 'ebtax l_customer_trx_line_id:' || l_customer_trx_line_id);
2837: log(FND_LOG.LEVEL_PROCEDURE,
2838: G_MODULE_PREFIX || l_procedure_name,
2839: 'ebtax l_vat_tax_type:' || l_vat_tax_type);
2840: log(FND_LOG.LEVEL_PROCEDURE,
2841: G_MODULE_PREFIX || l_procedure_name,
2842: 'ebtax l_tax_amount_func_curr:' || l_tax_amount_func_curr);
2843: log(FND_LOG.LEVEL_PROCEDURE,
2844: G_MODULE_PREFIX || l_procedure_name,
2839: 'ebtax l_vat_tax_type:' || l_vat_tax_type);
2840: log(FND_LOG.LEVEL_PROCEDURE,
2841: G_MODULE_PREFIX || l_procedure_name,
2842: 'ebtax l_tax_amount_func_curr:' || l_tax_amount_func_curr);
2843: log(FND_LOG.LEVEL_PROCEDURE,
2844: G_MODULE_PREFIX || l_procedure_name,
2845: 'ebtax l_taxable_amount_func_curr:' ||
2846: l_taxable_amount_func_curr);
2847: log(FND_LOG.LEVEL_PROCEDURE,
2843: log(FND_LOG.LEVEL_PROCEDURE,
2844: G_MODULE_PREFIX || l_procedure_name,
2845: 'ebtax l_taxable_amount_func_curr:' ||
2846: l_taxable_amount_func_curr);
2847: log(FND_LOG.LEVEL_PROCEDURE,
2848: G_MODULE_PREFIX || l_procedure_name,
2849: 'ebtax l_line_quantity:' || l_line_quantity);
2850: log(FND_LOG.LEVEL_PROCEDURE,
2851: G_MODULE_PREFIX || l_procedure_name,
2846: l_taxable_amount_func_curr);
2847: log(FND_LOG.LEVEL_PROCEDURE,
2848: G_MODULE_PREFIX || l_procedure_name,
2849: 'ebtax l_line_quantity:' || l_line_quantity);
2850: log(FND_LOG.LEVEL_PROCEDURE,
2851: G_MODULE_PREFIX || l_procedure_name,
2852: 'ebtax l_tax_rate:' || l_tax_rate);
2853: log(FND_LOG.LEVEL_PROCEDURE,
2854: G_MODULE_PREFIX || l_procedure_name,
2849: 'ebtax l_line_quantity:' || l_line_quantity);
2850: log(FND_LOG.LEVEL_PROCEDURE,
2851: G_MODULE_PREFIX || l_procedure_name,
2852: 'ebtax l_tax_rate:' || l_tax_rate);
2853: log(FND_LOG.LEVEL_PROCEDURE,
2854: G_MODULE_PREFIX || l_procedure_name,
2855: 'ebtax l_unit_price:' || l_unit_price);
2856: log(FND_LOG.LEVEL_PROCEDURE,
2857: G_MODULE_PREFIX || l_procedure_name,
2852: 'ebtax l_tax_rate:' || l_tax_rate);
2853: log(FND_LOG.LEVEL_PROCEDURE,
2854: G_MODULE_PREFIX || l_procedure_name,
2855: 'ebtax l_unit_price:' || l_unit_price);
2856: log(FND_LOG.LEVEL_PROCEDURE,
2857: G_MODULE_PREFIX || l_procedure_name,
2858: 'ebtax l_fp_registration_number:' ||
2859: l_fp_registration_number);
2860: log(FND_LOG.LEVEL_PROCEDURE,
2856: log(FND_LOG.LEVEL_PROCEDURE,
2857: G_MODULE_PREFIX || l_procedure_name,
2858: 'ebtax l_fp_registration_number:' ||
2859: l_fp_registration_number);
2860: log(FND_LOG.LEVEL_PROCEDURE,
2861: G_MODULE_PREFIX || l_procedure_name,
2862: 'ebtax l_tp_registration_number:' ||
2863: l_tp_registration_number);
2864: log(FND_LOG.LEVEL_PROCEDURE,
2860: log(FND_LOG.LEVEL_PROCEDURE,
2861: G_MODULE_PREFIX || l_procedure_name,
2862: 'ebtax l_tp_registration_number:' ||
2863: l_tp_registration_number);
2864: log(FND_LOG.LEVEL_PROCEDURE,
2865: G_MODULE_PREFIX || l_procedure_name,
2866: 'ebtax l_status:' || l_status);
2867: log(FND_LOG.LEVEL_PROCEDURE,
2868: G_MODULE_PREFIX || l_procedure_name,
2863: l_tp_registration_number);
2864: log(FND_LOG.LEVEL_PROCEDURE,
2865: G_MODULE_PREFIX || l_procedure_name,
2866: 'ebtax l_status:' || l_status);
2867: log(FND_LOG.LEVEL_PROCEDURE,
2868: G_MODULE_PREFIX || l_procedure_name,
2869: 'ebtax l_proce_error_buffer:' || l_proce_error_buffer);
2870: END IF;
2871: -- end log
2880: l_cm_warn := false;
2881: l_pre_cus_trxid := null;
2882: l_ar_invoice_count := 0;
2883: l_gt_invoice_count := 0;
2884: IF (FND_LOG.LEVEL_EXCEPTION >=
2885: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2886: log(FND_LOG.LEVEL_PROCEDURE,
2887: G_MODULE_PREFIX || l_procedure_name,
2888: '****************************************');
2881: l_pre_cus_trxid := null;
2882: l_ar_invoice_count := 0;
2883: l_gt_invoice_count := 0;
2884: IF (FND_LOG.LEVEL_EXCEPTION >=
2885: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2886: log(FND_LOG.LEVEL_PROCEDURE,
2887: G_MODULE_PREFIX || l_procedure_name,
2888: '****************************************');
2889: log(FND_LOG.LEVEL_PROCEDURE,
2882: l_ar_invoice_count := 0;
2883: l_gt_invoice_count := 0;
2884: IF (FND_LOG.LEVEL_EXCEPTION >=
2885: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2886: log(FND_LOG.LEVEL_PROCEDURE,
2887: G_MODULE_PREFIX || l_procedure_name,
2888: '****************************************');
2889: log(FND_LOG.LEVEL_PROCEDURE,
2890: G_MODULE_PREFIX || l_procedure_name,
2885: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2886: log(FND_LOG.LEVEL_PROCEDURE,
2887: G_MODULE_PREFIX || l_procedure_name,
2888: '****************************************');
2889: log(FND_LOG.LEVEL_PROCEDURE,
2890: G_MODULE_PREFIX || l_procedure_name,
2891: 'is CM');
2892: log(FND_LOG.LEVEL_PROCEDURE,
2893: G_MODULE_PREFIX || l_procedure_name,
2888: '****************************************');
2889: log(FND_LOG.LEVEL_PROCEDURE,
2890: G_MODULE_PREFIX || l_procedure_name,
2891: 'is CM');
2892: log(FND_LOG.LEVEL_PROCEDURE,
2893: G_MODULE_PREFIX || l_procedure_name,
2894: '****************************************');
2895: END IF;
2896: --checking whether CM is associated with AR invoice or not
2955: --if credit memo not associated with any AR inv or associated with multi AR inv
2956:
2957: fnd_message.SET_NAME('JMF', 'JMF_GTA_CRMEMO_DES_NULL');
2958: l_error_string := fnd_message.GET();
2959: IF (FND_LOG.LEVEL_UNEXPECTED >=
2960: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2961: log(FND_LOG.LEVEL_PROCEDURE,
2962: G_MODULE_PREFIX || l_procedure_name,
2963: 'JMF_GTA_CRMEMO_DES_NULL');
2956:
2957: fnd_message.SET_NAME('JMF', 'JMF_GTA_CRMEMO_DES_NULL');
2958: l_error_string := fnd_message.GET();
2959: IF (FND_LOG.LEVEL_UNEXPECTED >=
2960: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2961: log(FND_LOG.LEVEL_PROCEDURE,
2962: G_MODULE_PREFIX || l_procedure_name,
2963: 'JMF_GTA_CRMEMO_DES_NULL');
2964: END IF;
2957: fnd_message.SET_NAME('JMF', 'JMF_GTA_CRMEMO_DES_NULL');
2958: l_error_string := fnd_message.GET();
2959: IF (FND_LOG.LEVEL_UNEXPECTED >=
2960: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2961: log(FND_LOG.LEVEL_PROCEDURE,
2962: G_MODULE_PREFIX || l_procedure_name,
2963: 'JMF_GTA_CRMEMO_DES_NULL');
2964: END IF;
2965: IF (FND_LOG.LEVEL_EXCEPTION >=
2961: log(FND_LOG.LEVEL_PROCEDURE,
2962: G_MODULE_PREFIX || l_procedure_name,
2963: 'JMF_GTA_CRMEMO_DES_NULL');
2964: END IF;
2965: IF (FND_LOG.LEVEL_EXCEPTION >=
2966: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2967: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2968: G_MODULE_PREFIX || l_procedure_name,
2969: l_error_string);
2962: G_MODULE_PREFIX || l_procedure_name,
2963: 'JMF_GTA_CRMEMO_DES_NULL');
2964: END IF;
2965: IF (FND_LOG.LEVEL_EXCEPTION >=
2966: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2967: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2968: G_MODULE_PREFIX || l_procedure_name,
2969: l_error_string);
2970: END IF;
2963: 'JMF_GTA_CRMEMO_DES_NULL');
2964: END IF;
2965: IF (FND_LOG.LEVEL_EXCEPTION >=
2966: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2967: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
2968: G_MODULE_PREFIX || l_procedure_name,
2969: l_error_string);
2970: END IF;
2971:
3007: --if credit memo associated with AR and in GTA but not VAT generated for non-common VAT
3008: --rasie correspoding AR transation not in GT warning.
3009: fnd_message.SET_NAME('JMF', 'JMF_GTA_CRMEMO_MISSING_GTINV');
3010: l_error_string := fnd_message.GET();
3011: IF (FND_LOG.LEVEL_UNEXPECTED >=
3012: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3013: log(FND_LOG.LEVEL_PROCEDURE,
3014: G_MODULE_PREFIX || l_procedure_name,
3015: 'JMF_GTA_CRMEMO_MISSING_GTINV');
3008: --rasie correspoding AR transation not in GT warning.
3009: fnd_message.SET_NAME('JMF', 'JMF_GTA_CRMEMO_MISSING_GTINV');
3010: l_error_string := fnd_message.GET();
3011: IF (FND_LOG.LEVEL_UNEXPECTED >=
3012: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3013: log(FND_LOG.LEVEL_PROCEDURE,
3014: G_MODULE_PREFIX || l_procedure_name,
3015: 'JMF_GTA_CRMEMO_MISSING_GTINV');
3016: END IF;
3009: fnd_message.SET_NAME('JMF', 'JMF_GTA_CRMEMO_MISSING_GTINV');
3010: l_error_string := fnd_message.GET();
3011: IF (FND_LOG.LEVEL_UNEXPECTED >=
3012: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3013: log(FND_LOG.LEVEL_PROCEDURE,
3014: G_MODULE_PREFIX || l_procedure_name,
3015: 'JMF_GTA_CRMEMO_MISSING_GTINV');
3016: END IF;
3017: IF (FND_LOG.LEVEL_EXCEPTION >=
3013: log(FND_LOG.LEVEL_PROCEDURE,
3014: G_MODULE_PREFIX || l_procedure_name,
3015: 'JMF_GTA_CRMEMO_MISSING_GTINV');
3016: END IF;
3017: IF (FND_LOG.LEVEL_EXCEPTION >=
3018: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3019: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3020: G_MODULE_PREFIX || l_procedure_name,
3021: l_error_string);
3014: G_MODULE_PREFIX || l_procedure_name,
3015: 'JMF_GTA_CRMEMO_MISSING_GTINV');
3016: END IF;
3017: IF (FND_LOG.LEVEL_EXCEPTION >=
3018: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3019: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3020: G_MODULE_PREFIX || l_procedure_name,
3021: l_error_string);
3022: END IF;
3015: 'JMF_GTA_CRMEMO_MISSING_GTINV');
3016: END IF;
3017: IF (FND_LOG.LEVEL_EXCEPTION >=
3018: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3019: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3020: G_MODULE_PREFIX || l_procedure_name,
3021: l_error_string);
3022: END IF;
3023: CLOSE l_ra_lines;
3035:
3036: IF (l_cust_addr_excep = 'true') THEN
3037: --if customer address is null
3038:
3039: IF (FND_LOG.LEVEL_EXCEPTION >=
3040: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3042: G_MODULE_PREFIX || l_procedure_name,
3043: 'no data found when select cust address for non-common VAT invoice');
3036: IF (l_cust_addr_excep = 'true') THEN
3037: --if customer address is null
3038:
3039: IF (FND_LOG.LEVEL_EXCEPTION >=
3040: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3042: G_MODULE_PREFIX || l_procedure_name,
3043: 'no data found when select cust address for non-common VAT invoice');
3044: END IF;
3037: --if customer address is null
3038:
3039: IF (FND_LOG.LEVEL_EXCEPTION >=
3040: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3042: G_MODULE_PREFIX || l_procedure_name,
3043: 'no data found when select cust address for non-common VAT invoice');
3044: END IF;
3045: l_error_string := 'no data found when select cust address for non-common VAT invoice';
3050:
3051: IF (l_cust_phone_exp = 'true') THEN
3052: --if customer phone is null
3053:
3054: IF (FND_LOG.LEVEL_EXCEPTION >=
3055: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3056: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3057: G_MODULE_PREFIX || l_procedure_name,
3058: 'no data found when select customer phone number for non-common VAT invoice');
3051: IF (l_cust_phone_exp = 'true') THEN
3052: --if customer phone is null
3053:
3054: IF (FND_LOG.LEVEL_EXCEPTION >=
3055: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3056: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3057: G_MODULE_PREFIX || l_procedure_name,
3058: 'no data found when select customer phone number for non-common VAT invoice');
3059: END IF;
3052: --if customer phone is null
3053:
3054: IF (FND_LOG.LEVEL_EXCEPTION >=
3055: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3056: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3057: G_MODULE_PREFIX || l_procedure_name,
3058: 'no data found when select customer phone number for non-common VAT invoice');
3059: END IF;
3060: l_error_string := 'no data found when select customer phone number for non-common VAT invoice';
3064: END IF; /*IF (l_cust_phone_exp = 'true')*/
3065: --Yao Zhang Commented for bug 7629877 there is no necessary to check cm for non-common invoice
3066: /*IF (l_ar_inv_excep = 'true') THEN --if credit memo not associated with any AR inv for NON-Common VAT
3067:
3068: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3069: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
3070: , G_MODULE_PREFIX || l_procedure_name
3071: , l_error_string);
3072: END IF;
3065: --Yao Zhang Commented for bug 7629877 there is no necessary to check cm for non-common invoice
3066: /*IF (l_ar_inv_excep = 'true') THEN --if credit memo not associated with any AR inv for NON-Common VAT
3067:
3068: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3069: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
3070: , G_MODULE_PREFIX || l_procedure_name
3071: , l_error_string);
3072: END IF;
3073:
3082:
3083:
3084: l_error_string := 'There is no corresponding VAT invoice in workbench to process this credit memo';
3085: -- begin log
3086: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3087: THEN
3088: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX ||
3089: l_procedure_name,
3090: 'JMF_GTA_CRMEMO_MISSING_GTAINV');
3084: l_error_string := 'There is no corresponding VAT invoice in workbench to process this credit memo';
3085: -- begin log
3086: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3087: THEN
3088: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX ||
3089: l_procedure_name,
3090: 'JMF_GTA_CRMEMO_MISSING_GTAINV');
3091: END IF;
3092: -- end log
3090: 'JMF_GTA_CRMEMO_MISSING_GTAINV');
3091: END IF;
3092: -- end log
3093:
3094: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3095: THEN
3096: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
3097: , G_MODULE_PREFIX || l_procedure_name
3098: , l_error_string);
3092: -- end log
3093:
3094: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3095: THEN
3096: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
3097: , G_MODULE_PREFIX || l_procedure_name
3098: , l_error_string);
3099: END IF;
3100:
3135: l_fp_registration_number);
3136: l_error_string := fnd_message.GET();
3137:
3138: -- begin log
3139: IF (FND_LOG.LEVEL_PROCEDURE >=
3140: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3141: log(FND_LOG.LEVEL_PROCEDURE,
3142: G_MODULE_PREFIX || l_procedure_name,
3143: 'exception missing transaction type association' ||
3136: l_error_string := fnd_message.GET();
3137:
3138: -- begin log
3139: IF (FND_LOG.LEVEL_PROCEDURE >=
3140: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3141: log(FND_LOG.LEVEL_PROCEDURE,
3142: G_MODULE_PREFIX || l_procedure_name,
3143: 'exception missing transaction type association' ||
3144: l_proce_error_buffer);
3137:
3138: -- begin log
3139: IF (FND_LOG.LEVEL_PROCEDURE >=
3140: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3141: log(FND_LOG.LEVEL_PROCEDURE,
3142: G_MODULE_PREFIX || l_procedure_name,
3143: 'exception missing transaction type association' ||
3144: l_proce_error_buffer);
3145: END IF;
3150: fnd_message.SET_NAME('JMF', l_proce_error_buffer);
3151: l_error_string := fnd_message.GET();
3152:
3153: -- begin log
3154: IF (FND_LOG.LEVEL_PROCEDURE >=
3155: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3156: log(FND_LOG.LEVEL_PROCEDURE,
3157: G_MODULE_PREFIX || l_procedure_name,
3158: 'exception tax rate and tax amount for Recycle Invoice Type' ||
3151: l_error_string := fnd_message.GET();
3152:
3153: -- begin log
3154: IF (FND_LOG.LEVEL_PROCEDURE >=
3155: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3156: log(FND_LOG.LEVEL_PROCEDURE,
3157: G_MODULE_PREFIX || l_procedure_name,
3158: 'exception tax rate and tax amount for Recycle Invoice Type' ||
3159: l_proce_error_buffer);
3152:
3153: -- begin log
3154: IF (FND_LOG.LEVEL_PROCEDURE >=
3155: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3156: log(FND_LOG.LEVEL_PROCEDURE,
3157: G_MODULE_PREFIX || l_procedure_name,
3158: 'exception tax rate and tax amount for Recycle Invoice Type' ||
3159: l_proce_error_buffer);
3160: END IF;
3166: fnd_message.set_token('TAXTYPE', l_vat_tax_type);
3167: l_error_string := fnd_message.GET();
3168:
3169: -- begin log
3170: IF (FND_LOG.LEVEL_PROCEDURE >=
3171: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3172: log(FND_LOG.LEVEL_PROCEDURE,
3173: G_MODULE_PREFIX || l_procedure_name,
3174: 'exception registration number' ||
3167: l_error_string := fnd_message.GET();
3168:
3169: -- begin log
3170: IF (FND_LOG.LEVEL_PROCEDURE >=
3171: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3172: log(FND_LOG.LEVEL_PROCEDURE,
3173: G_MODULE_PREFIX || l_procedure_name,
3174: 'exception registration number' ||
3175: l_proce_error_buffer);
3168:
3169: -- begin log
3170: IF (FND_LOG.LEVEL_PROCEDURE >=
3171: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3172: log(FND_LOG.LEVEL_PROCEDURE,
3173: G_MODULE_PREFIX || l_procedure_name,
3174: 'exception registration number' ||
3175: l_proce_error_buffer);
3176: END IF;
3176: END IF;
3177: -- end log
3178: END IF;
3179:
3180: IF (FND_LOG.LEVEL_EXCEPTION >=
3181: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3182: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3183: G_MODULE_PREFIX || l_procedure_name,
3184: l_error_string);
3177: -- end log
3178: END IF;
3179:
3180: IF (FND_LOG.LEVEL_EXCEPTION >=
3181: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3182: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3183: G_MODULE_PREFIX || l_procedure_name,
3184: l_error_string);
3185: END IF;
3178: END IF;
3179:
3180: IF (FND_LOG.LEVEL_EXCEPTION >=
3181: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3182: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3183: G_MODULE_PREFIX || l_procedure_name,
3184: l_error_string);
3185: END IF;
3186: CLOSE l_ra_lines;
3191: l_fp_registration_number);
3192: l_error_string := fnd_message.get();
3193:
3194: -- begin log
3195: IF (FND_LOG.LEVEL_PROCEDURE >=
3196: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: log(FND_LOG.LEVEL_PROCEDURE,
3198: G_MODULE_PREFIX || l_procedure_name,
3199: 'JMF_GTA_SYS_CONFIG_MISSING');
3192: l_error_string := fnd_message.get();
3193:
3194: -- begin log
3195: IF (FND_LOG.LEVEL_PROCEDURE >=
3196: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: log(FND_LOG.LEVEL_PROCEDURE,
3198: G_MODULE_PREFIX || l_procedure_name,
3199: 'JMF_GTA_SYS_CONFIG_MISSING');
3200: log(FND_LOG.LEVEL_PROCEDURE,
3193:
3194: -- begin log
3195: IF (FND_LOG.LEVEL_PROCEDURE >=
3196: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: log(FND_LOG.LEVEL_PROCEDURE,
3198: G_MODULE_PREFIX || l_procedure_name,
3199: 'JMF_GTA_SYS_CONFIG_MISSING');
3200: log(FND_LOG.LEVEL_PROCEDURE,
3201: G_MODULE_PREFIX || l_procedure_name,
3196: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: log(FND_LOG.LEVEL_PROCEDURE,
3198: G_MODULE_PREFIX || l_procedure_name,
3199: 'JMF_GTA_SYS_CONFIG_MISSING');
3200: log(FND_LOG.LEVEL_PROCEDURE,
3201: G_MODULE_PREFIX || l_procedure_name,
3202: 'First Party tax registartion number is not exist in System Option');
3203: END IF;
3204: -- end log
3237: fnd_message.set_token('NUM', l_customer_trx_line_number);
3238: l_error_string := fnd_message.GET();
3239:
3240: -- begin log
3241: IF (FND_LOG.LEVEL_PROCEDURE >=
3242: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3243: log(FND_LOG.LEVEL_PROCEDURE,
3244: G_MODULE_PREFIX || l_procedure_name,
3245: 'JMF_GTA_UNITPRICE_EXCEED');
3238: l_error_string := fnd_message.GET();
3239:
3240: -- begin log
3241: IF (FND_LOG.LEVEL_PROCEDURE >=
3242: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3243: log(FND_LOG.LEVEL_PROCEDURE,
3244: G_MODULE_PREFIX || l_procedure_name,
3245: 'JMF_GTA_UNITPRICE_EXCEED');
3246: END IF;
3239:
3240: -- begin log
3241: IF (FND_LOG.LEVEL_PROCEDURE >=
3242: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3243: log(FND_LOG.LEVEL_PROCEDURE,
3244: G_MODULE_PREFIX || l_procedure_name,
3245: 'JMF_GTA_UNITPRICE_EXCEED');
3246: END IF;
3247: -- end log
3245: 'JMF_GTA_UNITPRICE_EXCEED');
3246: END IF;
3247: -- end log
3248:
3249: IF (FND_LOG.LEVEL_EXCEPTION >=
3250: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3251: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3252: G_MODULE_PREFIX || l_procedure_name,
3253: l_error_string);
3246: END IF;
3247: -- end log
3248:
3249: IF (FND_LOG.LEVEL_EXCEPTION >=
3250: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3251: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3252: G_MODULE_PREFIX || l_procedure_name,
3253: l_error_string);
3254: END IF;
3247: -- end log
3248:
3249: IF (FND_LOG.LEVEL_EXCEPTION >=
3250: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3251: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3252: G_MODULE_PREFIX || l_procedure_name,
3253: l_error_string);
3254: END IF;
3255: CLOSE l_ra_lines;
3256: RAISE l_normal_exception;
3257: END IF; /*(l_unit_price IS NOT NULL) AND l_unit_price > l_max_amount*/
3258: EXCEPTION
3259: WHEN no_data_found THEN
3260: IF (FND_LOG.LEVEL_UNEXPECTED >=
3261: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3262: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3263: G_MODULE_PREFIX || l_procedure_name,
3264: 'no data found');
3257: END IF; /*(l_unit_price IS NOT NULL) AND l_unit_price > l_max_amount*/
3258: EXCEPTION
3259: WHEN no_data_found THEN
3260: IF (FND_LOG.LEVEL_UNEXPECTED >=
3261: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3262: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3263: G_MODULE_PREFIX || l_procedure_name,
3264: 'no data found');
3265: END IF;
3258: EXCEPTION
3259: WHEN no_data_found THEN
3260: IF (FND_LOG.LEVEL_UNEXPECTED >=
3261: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3262: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3263: G_MODULE_PREFIX || l_procedure_name,
3264: 'no data found');
3265: END IF;
3266: fnd_message.set_name('JMF', 'JMF_GTA_SYS_CONFIG_MISSING');
3264: 'no data found');
3265: END IF;
3266: fnd_message.set_name('JMF', 'JMF_GTA_SYS_CONFIG_MISSING');
3267:
3268: IF (FND_LOG.LEVEL_UNEXPECTED >=
3269: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3270: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3271: G_MODULE_PREFIX || l_procedure_name,
3272: fnd_message.get());
3265: END IF;
3266: fnd_message.set_name('JMF', 'JMF_GTA_SYS_CONFIG_MISSING');
3267:
3268: IF (FND_LOG.LEVEL_UNEXPECTED >=
3269: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3270: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3271: G_MODULE_PREFIX || l_procedure_name,
3272: fnd_message.get());
3273:
3266: fnd_message.set_name('JMF', 'JMF_GTA_SYS_CONFIG_MISSING');
3267:
3268: IF (FND_LOG.LEVEL_UNEXPECTED >=
3269: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3270: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3271: G_MODULE_PREFIX || l_procedure_name,
3272: fnd_message.get());
3273:
3274: END IF;
3290: l_trx_header.gta_trx_header_id);
3291: l_error_string := fnd_message.get();
3292:
3293: -- begin log
3294: IF (FND_LOG.LEVEL_PROCEDURE >=
3295: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3296: log(FND_LOG.LEVEL_PROCEDURE,
3297: G_MODULE_PREFIX || l_procedure_name,
3298: 'JMF_GTA_MISSING_FIELD');
3291: l_error_string := fnd_message.get();
3292:
3293: -- begin log
3294: IF (FND_LOG.LEVEL_PROCEDURE >=
3295: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3296: log(FND_LOG.LEVEL_PROCEDURE,
3297: G_MODULE_PREFIX || l_procedure_name,
3298: 'JMF_GTA_MISSING_FIELD');
3299: END IF;
3292:
3293: -- begin log
3294: IF (FND_LOG.LEVEL_PROCEDURE >=
3295: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3296: log(FND_LOG.LEVEL_PROCEDURE,
3297: G_MODULE_PREFIX || l_procedure_name,
3298: 'JMF_GTA_MISSING_FIELD');
3299: END IF;
3300: -- end log
3298: 'JMF_GTA_MISSING_FIELD');
3299: END IF;
3300: -- end log
3301:
3302: IF (FND_LOG.LEVEL_EXCEPTION >=
3303: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3305: G_MODULE_PREFIX || l_procedure_name,
3306: l_error_string);
3299: END IF;
3300: -- end log
3301:
3302: IF (FND_LOG.LEVEL_EXCEPTION >=
3303: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3305: G_MODULE_PREFIX || l_procedure_name,
3306: l_error_string);
3307: END IF;
3300: -- end log
3301:
3302: IF (FND_LOG.LEVEL_EXCEPTION >=
3303: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3305: G_MODULE_PREFIX || l_procedure_name,
3306: l_error_string);
3307: END IF;
3308:
3334: fnd_message.set_token('NUM', l_customer_trx_line_number);
3335: l_error_string := fnd_message.get();
3336:
3337: -- log
3338: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3339: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3340: G_MODULE_PREFIX || l_procedure_name,
3341: l_error_string);
3342: END IF;
3335: l_error_string := fnd_message.get();
3336:
3337: -- log
3338: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3339: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3340: G_MODULE_PREFIX || l_procedure_name,
3341: l_error_string);
3342: END IF;
3343:
3392: l_customer_trx_line_number);
3393: l_error_string := fnd_message.get();
3394:
3395: -- log
3396: IF (FND_LOG.LEVEL_EXCEPTION >=
3397: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3398: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3399: G_MODULE_PREFIX || l_procedure_name,
3400: l_error_string);
3393: l_error_string := fnd_message.get();
3394:
3395: -- log
3396: IF (FND_LOG.LEVEL_EXCEPTION >=
3397: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3398: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3399: G_MODULE_PREFIX || l_procedure_name,
3400: l_error_string);
3401: END IF;
3394:
3395: -- log
3396: IF (FND_LOG.LEVEL_EXCEPTION >=
3397: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3398: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3399: G_MODULE_PREFIX || l_procedure_name,
3400: l_error_string);
3401: END IF;
3402:
3410: fnd_message.SET_TOKEN('NUM', l_customer_trx_line_number);
3411: l_error_string := fnd_message.get();
3412:
3413: -- log
3414: IF (FND_LOG.LEVEL_EXCEPTION >=
3415: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3416: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3417: G_MODULE_PREFIX || l_procedure_name,
3418: l_error_string);
3411: l_error_string := fnd_message.get();
3412:
3413: -- log
3414: IF (FND_LOG.LEVEL_EXCEPTION >=
3415: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3416: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3417: G_MODULE_PREFIX || l_procedure_name,
3418: l_error_string);
3419: END IF;
3412:
3413: -- log
3414: IF (FND_LOG.LEVEL_EXCEPTION >=
3415: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3416: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3417: G_MODULE_PREFIX || l_procedure_name,
3418: l_error_string);
3419: END IF;
3420: CLOSE l_ra_lines;
3436: l_customer_trx_line_number);
3437: l_error_string := fnd_message.get();
3438:
3439: -- log
3440: IF (FND_LOG.LEVEL_EXCEPTION >=
3441: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3442: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3443: G_MODULE_PREFIX || l_procedure_name,
3444: l_error_string);
3437: l_error_string := fnd_message.get();
3438:
3439: -- log
3440: IF (FND_LOG.LEVEL_EXCEPTION >=
3441: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3442: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3443: G_MODULE_PREFIX || l_procedure_name,
3444: l_error_string);
3445: END IF;
3438:
3439: -- log
3440: IF (FND_LOG.LEVEL_EXCEPTION >=
3441: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3442: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3443: G_MODULE_PREFIX || l_procedure_name,
3444: l_error_string);
3445: END IF;
3446: CLOSE l_ra_lines;
3462: fnd_message.set_token('NUM', l_customer_trx_line_number);
3463: l_error_string := fnd_message.get;
3464:
3465: -- log
3466: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3467: THEN
3468: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
3469: , G_MODULE_PREFIX || l_procedure_name
3470: , l_error_string);
3464:
3465: -- log
3466: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3467: THEN
3468: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
3469: , G_MODULE_PREFIX || l_procedure_name
3470: , l_error_string);
3471: END IF;
3472:
3490: fnd_message.set_token('ITEM', l_inventory_item_name);
3491: l_error_string := fnd_message.get();
3492:
3493: -- log
3494: IF (FND_LOG.LEVEL_EXCEPTION >=
3495: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3496: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3497: G_MODULE_PREFIX || l_procedure_name,
3498: l_error_string);
3491: l_error_string := fnd_message.get();
3492:
3493: -- log
3494: IF (FND_LOG.LEVEL_EXCEPTION >=
3495: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3496: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3497: G_MODULE_PREFIX || l_procedure_name,
3498: l_error_string);
3499: END IF;
3492:
3493: -- log
3494: IF (FND_LOG.LEVEL_EXCEPTION >=
3495: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3496: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3497: G_MODULE_PREFIX || l_procedure_name,
3498: l_error_string);
3499: END IF;
3500:
3508: fnd_message.set_token('ITEM', l_inventory_item_name);
3509: l_error_string := fnd_message.get;
3510:
3511: -- log
3512: IF (FND_LOG.LEVEL_EXCEPTION >=
3513: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3514: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3515: G_MODULE_PREFIX || l_procedure_name,
3516: l_error_string);
3509: l_error_string := fnd_message.get;
3510:
3511: -- log
3512: IF (FND_LOG.LEVEL_EXCEPTION >=
3513: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3514: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3515: G_MODULE_PREFIX || l_procedure_name,
3516: l_error_string);
3517: END IF;
3510:
3511: -- log
3512: IF (FND_LOG.LEVEL_EXCEPTION >=
3513: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3514: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3515: G_MODULE_PREFIX || l_procedure_name,
3516: l_error_string);
3517: END IF;
3518:
3532: fnd_message.set_token('NUM', l_customer_trx_line_number);
3533: fnd_message.set_token('ITEM', l_inventory_item_name);
3534: l_error_string := fnd_message.get();
3535: -- log
3536: IF (FND_LOG.LEVEL_PROCEDURE >=
3537: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3538: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3539: G_MODULE_PREFIX || l_procedure_name,
3540: l_error_string);
3533: fnd_message.set_token('ITEM', l_inventory_item_name);
3534: l_error_string := fnd_message.get();
3535: -- log
3536: IF (FND_LOG.LEVEL_PROCEDURE >=
3537: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3538: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3539: G_MODULE_PREFIX || l_procedure_name,
3540: l_error_string);
3541: END IF;
3534: l_error_string := fnd_message.get();
3535: -- log
3536: IF (FND_LOG.LEVEL_PROCEDURE >=
3537: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3538: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3539: G_MODULE_PREFIX || l_procedure_name,
3540: l_error_string);
3541: END IF;
3542: CLOSE l_ra_lines;
3558: p_attribute_column => l_ra_model_attribute_column,
3559: x_attribute_value => l_trx_line.item_model);
3560:
3561: -- begin log
3562: IF (FND_LOG.LEVEL_PROCEDURE >=
3563: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3564: log(FND_LOG.LEVEL_PROCEDURE,
3565: G_MODULE_PREFIX || l_procedure_name,
3566: 'item_model:' || l_trx_line.item_model);
3559: x_attribute_value => l_trx_line.item_model);
3560:
3561: -- begin log
3562: IF (FND_LOG.LEVEL_PROCEDURE >=
3563: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3564: log(FND_LOG.LEVEL_PROCEDURE,
3565: G_MODULE_PREFIX || l_procedure_name,
3566: 'item_model:' || l_trx_line.item_model);
3567: END IF;
3560:
3561: -- begin log
3562: IF (FND_LOG.LEVEL_PROCEDURE >=
3563: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3564: log(FND_LOG.LEVEL_PROCEDURE,
3565: G_MODULE_PREFIX || l_procedure_name,
3566: 'item_model:' || l_trx_line.item_model);
3567: END IF;
3568: -- end log
3575: fnd_message.set_token('ITEM', l_inventory_item_name);
3576: l_error_string := fnd_message.get();
3577:
3578: -- log
3579: IF (FND_LOG.LEVEL_EXCEPTION >=
3580: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3581: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3582: G_MODULE_PREFIX || l_procedure_name,
3583: l_error_string);
3576: l_error_string := fnd_message.get();
3577:
3578: -- log
3579: IF (FND_LOG.LEVEL_EXCEPTION >=
3580: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3581: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3582: G_MODULE_PREFIX || l_procedure_name,
3583: l_error_string);
3584: END IF;
3577:
3578: -- log
3579: IF (FND_LOG.LEVEL_EXCEPTION >=
3580: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3581: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3582: G_MODULE_PREFIX || l_procedure_name,
3583: l_error_string);
3584: END IF;
3585: CLOSE l_ra_lines;
3600: p_attribute_column => l_ra_tax_attribute_column,
3601: x_attribute_value => l_trx_line.item_tax_denomination);
3602:
3603: -- begin log
3604: IF (FND_LOG.LEVEL_PROCEDURE >=
3605: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3606: log(FND_LOG.LEVEL_PROCEDURE,
3607: G_MODULE_PREFIX || l_procedure_name,
3608: 'item_tax_denomination:' ||
3601: x_attribute_value => l_trx_line.item_tax_denomination);
3602:
3603: -- begin log
3604: IF (FND_LOG.LEVEL_PROCEDURE >=
3605: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3606: log(FND_LOG.LEVEL_PROCEDURE,
3607: G_MODULE_PREFIX || l_procedure_name,
3608: 'item_tax_denomination:' ||
3609: l_trx_line.item_tax_denomination);
3602:
3603: -- begin log
3604: IF (FND_LOG.LEVEL_PROCEDURE >=
3605: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3606: log(FND_LOG.LEVEL_PROCEDURE,
3607: G_MODULE_PREFIX || l_procedure_name,
3608: 'item_tax_denomination:' ||
3609: l_trx_line.item_tax_denomination);
3610: END IF;
3621:
3622: l_error_string := fnd_message.get();
3623:
3624: -- log
3625: IF (FND_LOG.LEVEL_EXCEPTION >=
3626: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3627: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3628: G_MODULE_PREFIX || l_procedure_name,
3629: l_error_string);
3622: l_error_string := fnd_message.get();
3623:
3624: -- log
3625: IF (FND_LOG.LEVEL_EXCEPTION >=
3626: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3627: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3628: G_MODULE_PREFIX || l_procedure_name,
3629: l_error_string);
3630: END IF;
3623:
3624: -- log
3625: IF (FND_LOG.LEVEL_EXCEPTION >=
3626: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3627: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3628: G_MODULE_PREFIX || l_procedure_name,
3629: l_error_string);
3630: END IF;
3631: CLOSE l_ra_lines;
3652: fnd_message.set_token('NUM', l_customer_trx_line_number);
3653: fnd_message.set_token('ITEM', l_inventory_item_name);
3654: l_error_string := fnd_message.get();
3655: -- log
3656: IF (FND_LOG.LEVEL_UNEXPECTED >=
3657: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3658: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3659: G_MODULE_PREFIX || l_procedure_name,
3660: l_error_string);
3653: fnd_message.set_token('ITEM', l_inventory_item_name);
3654: l_error_string := fnd_message.get();
3655: -- log
3656: IF (FND_LOG.LEVEL_UNEXPECTED >=
3657: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3658: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3659: G_MODULE_PREFIX || l_procedure_name,
3660: l_error_string);
3661: END IF;
3654: l_error_string := fnd_message.get();
3655: -- log
3656: IF (FND_LOG.LEVEL_UNEXPECTED >=
3657: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3658: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3659: G_MODULE_PREFIX || l_procedure_name,
3660: l_error_string);
3661: END IF;
3662: CLOSE l_ra_lines;
3668: fnd_message.SET_NAME('JMF', 'JMF_GTA_MISSING_CROSS_REF');
3669: fnd_message.set_token('NUM', l_customer_trx_line_number);
3670: l_error_string := fnd_message.get();
3671: -- log
3672: IF (FND_LOG.LEVEL_UNEXPECTED >=
3673: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3674: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3675: G_MODULE_PREFIX || l_procedure_name,
3676: l_error_string);
3669: fnd_message.set_token('NUM', l_customer_trx_line_number);
3670: l_error_string := fnd_message.get();
3671: -- log
3672: IF (FND_LOG.LEVEL_UNEXPECTED >=
3673: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3674: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3675: G_MODULE_PREFIX || l_procedure_name,
3676: l_error_string);
3677: END IF;
3670: l_error_string := fnd_message.get();
3671: -- log
3672: IF (FND_LOG.LEVEL_UNEXPECTED >=
3673: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3674: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3675: G_MODULE_PREFIX || l_procedure_name,
3676: l_error_string);
3677: END IF;
3678: CLOSE l_ra_lines;
3686: p_item_master_org_id => l_master_org,--yao zhang changed fix bug 7829039
3687: x_inventory_item_code => l_trx_line.item_number);
3688:
3689: -- begin log
3690: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3691: log(FND_LOG.LEVEL_PROCEDURE,
3692: G_MODULE_PREFIX || l_procedure_name,
3693: 'get_inventory_item_number end ');
3694: END IF;
3687: x_inventory_item_code => l_trx_line.item_number);
3688:
3689: -- begin log
3690: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3691: log(FND_LOG.LEVEL_PROCEDURE,
3692: G_MODULE_PREFIX || l_procedure_name,
3693: 'get_inventory_item_number end ');
3694: END IF;
3695: -- end log
3743: l_trx_line.last_updated_by := fnd_global.LOGIN_ID();
3744: l_trx_line.last_update_login := fnd_global.CONC_LOGIN_ID();
3745:
3746: -- begin log
3747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3748: log(FND_LOG.LEVEL_PROCEDURE,
3749: G_MODULE_PREFIX || l_procedure_name,
3750: 'Add a new line !!' || l_customer_trx_line_id);
3751: END IF;
3744: l_trx_line.last_update_login := fnd_global.CONC_LOGIN_ID();
3745:
3746: -- begin log
3747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3748: log(FND_LOG.LEVEL_PROCEDURE,
3749: G_MODULE_PREFIX || l_procedure_name,
3750: 'Add a new line !!' || l_customer_trx_line_id);
3751: END IF;
3752: -- end log
3756: -- end insert data into trx_line
3757:
3758: EXCEPTION
3759: WHEN l_no_tax_line_exception THEN
3760: IF (FND_LOG.LEVEL_UNEXPECTED >=
3761: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3762: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3763: G_MODULE_PREFIX || l_procedure_name,
3764: 'this line' || l_customer_trx_line_id ||
3757:
3758: EXCEPTION
3759: WHEN l_no_tax_line_exception THEN
3760: IF (FND_LOG.LEVEL_UNEXPECTED >=
3761: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3762: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3763: G_MODULE_PREFIX || l_procedure_name,
3764: 'this line' || l_customer_trx_line_id ||
3765: 'have not one tax line');
3758: EXCEPTION
3759: WHEN l_no_tax_line_exception THEN
3760: IF (FND_LOG.LEVEL_UNEXPECTED >=
3761: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3762: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3763: G_MODULE_PREFIX || l_procedure_name,
3764: 'this line' || l_customer_trx_line_id ||
3765: 'have not one tax line');
3766: log(FND_LOG.LEVEL_PROCEDURE,
3762: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3763: G_MODULE_PREFIX || l_procedure_name,
3764: 'this line' || l_customer_trx_line_id ||
3765: 'have not one tax line');
3766: log(FND_LOG.LEVEL_PROCEDURE,
3767: G_MODULE_PREFIX || l_procedure_name,
3768: 'This line have not one tax line');
3769: END IF;
3770:
3842: l_error_string,
3843: NULL
3844: FROM dual;
3845: WHEN l_repeat_exception THEN
3846: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3847: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3848: G_MODULE_PREFIX || l_procedure_name,
3849: '. REPEAT_EXCEPTION ' || l_customer_trx_id);
3850: END IF;
3843: NULL
3844: FROM dual;
3845: WHEN l_repeat_exception THEN
3846: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3847: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3848: G_MODULE_PREFIX || l_procedure_name,
3849: '. REPEAT_EXCEPTION ' || l_customer_trx_id);
3850: END IF;
3851:
3859:
3860: -- close dynamic sql cursor
3861: dbms_sql.close_cursor(l_cursor);
3862:
3863: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3864: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3865: G_MODULE_PREFIX || l_procedure_name,
3866: 'END procedure. ');
3867: END IF;
3860: -- close dynamic sql cursor
3861: dbms_sql.close_cursor(l_cursor);
3862:
3863: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3864: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3865: G_MODULE_PREFIX || l_procedure_name,
3866: 'END procedure. ');
3867: END IF;
3868:
3867: END IF;
3868:
3869: EXCEPTION
3870: WHEN OTHERS THEN
3871: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3872: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3873: G_MODULE_PREFIX || l_procedure_name ||
3874: '. OTHER_EXCEPTION',
3875: Sqlcode || Sqlerrm);
3868:
3869: EXCEPTION
3870: WHEN OTHERS THEN
3871: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3872: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
3873: G_MODULE_PREFIX || l_procedure_name ||
3874: '. OTHER_EXCEPTION',
3875: Sqlcode || Sqlerrm);
3876: END IF;
3936: l_inventory_attribute30 mtl_system_items_b.attribute15%TYPE;
3937:
3938: BEGIN
3939:
3940: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3941: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3942: G_MODULE_PREFIX || l_procedure_name,
3943: 'Begin Procedure. ');
3944: END IF;
3937:
3938: BEGIN
3939:
3940: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3941: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3942: G_MODULE_PREFIX || l_procedure_name,
3943: 'Begin Procedure. ');
3944: END IF;
3945:
3943: 'Begin Procedure. ');
3944: END IF;
3945:
3946: -- begin log
3947: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3948: log(FND_LOG.LEVEL_PROCEDURE,
3949: G_MODULE_PREFIX || l_procedure_name,
3950: 'Begin get_inv_item_model');
3951: log(FND_LOG.LEVEL_PROCEDURE,
3944: END IF;
3945:
3946: -- begin log
3947: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3948: log(FND_LOG.LEVEL_PROCEDURE,
3949: G_MODULE_PREFIX || l_procedure_name,
3950: 'Begin get_inv_item_model');
3951: log(FND_LOG.LEVEL_PROCEDURE,
3952: G_MODULE_PREFIX || l_procedure_name,
3947: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3948: log(FND_LOG.LEVEL_PROCEDURE,
3949: G_MODULE_PREFIX || l_procedure_name,
3950: 'Begin get_inv_item_model');
3951: log(FND_LOG.LEVEL_PROCEDURE,
3952: G_MODULE_PREFIX || l_procedure_name,
3953: 'p_item_master_org_id:' || p_item_master_org_id);
3954: log(FND_LOG.LEVEL_PROCEDURE,
3955: G_MODULE_PREFIX || l_procedure_name,
3950: 'Begin get_inv_item_model');
3951: log(FND_LOG.LEVEL_PROCEDURE,
3952: G_MODULE_PREFIX || l_procedure_name,
3953: 'p_item_master_org_id:' || p_item_master_org_id);
3954: log(FND_LOG.LEVEL_PROCEDURE,
3955: G_MODULE_PREFIX || l_procedure_name,
3956: 'p_inventory_item_id:' || p_inventory_item_id);
3957: log(FND_LOG.LEVEL_PROCEDURE,
3958: G_MODULE_PREFIX || l_procedure_name,
3953: 'p_item_master_org_id:' || p_item_master_org_id);
3954: log(FND_LOG.LEVEL_PROCEDURE,
3955: G_MODULE_PREFIX || l_procedure_name,
3956: 'p_inventory_item_id:' || p_inventory_item_id);
3957: log(FND_LOG.LEVEL_PROCEDURE,
3958: G_MODULE_PREFIX || l_procedure_name,
3959: 'p_attribute_column:' || p_attribute_column);
3960: END IF;
3961: -- end log
4027: WHERE organization_id = p_item_master_org_id--yao zhang modified for bug 7829039
4028: AND inventory_item_id = p_inventory_item_id;
4029: EXCEPTION
4030: WHEN no_data_found THEN
4031: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4032: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
4033: G_MODULE_PREFIX || l_procedure_name,
4034: 'no date found ');
4035: END IF;
4028: AND inventory_item_id = p_inventory_item_id;
4029: EXCEPTION
4030: WHEN no_data_found THEN
4031: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4032: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
4033: G_MODULE_PREFIX || l_procedure_name,
4034: 'no date found ');
4035: END IF;
4036: RAISE;
4037: END;
4038:
4039: ELSE
4040: -- return null
4041: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4043: G_MODULE_PREFIX || l_procedure_name,
4044: 'The item id is null ');
4045: log(FND_LOG.LEVEL_PROCEDURE,
4038:
4039: ELSE
4040: -- return null
4041: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4043: G_MODULE_PREFIX || l_procedure_name,
4044: 'The item id is null ');
4045: log(FND_LOG.LEVEL_PROCEDURE,
4046: G_MODULE_PREFIX || l_procedure_name,
4041: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4043: G_MODULE_PREFIX || l_procedure_name,
4044: 'The item id is null ');
4045: log(FND_LOG.LEVEL_PROCEDURE,
4046: G_MODULE_PREFIX || l_procedure_name,
4047: l_procedure_name || ' The item id is null');
4048: END IF;
4049:
4110: ELSIF p_attribute_column = 'ATTRIBUTE30' THEN
4111: x_attribute_value := l_inventory_attribute30;
4112: ELSE
4113:
4114: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4115: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
4116: G_MODULE_PREFIX || l_procedure_name,
4117: 'not found data in get_inv_item_model');
4118: END IF;
4111: x_attribute_value := l_inventory_attribute30;
4112: ELSE
4113:
4114: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4115: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
4116: G_MODULE_PREFIX || l_procedure_name,
4117: 'not found data in get_inv_item_model');
4118: END IF;
4119: END IF;
4118: END IF;
4119: END IF;
4120:
4121: -- begin log
4122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4123: log(FND_LOG.LEVEL_PROCEDURE,
4124: G_MODULE_PREFIX || l_procedure_name,
4125: 'x_attribute_value:' || x_attribute_value);
4126: log(FND_LOG.LEVEL_PROCEDURE,
4119: END IF;
4120:
4121: -- begin log
4122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4123: log(FND_LOG.LEVEL_PROCEDURE,
4124: G_MODULE_PREFIX || l_procedure_name,
4125: 'x_attribute_value:' || x_attribute_value);
4126: log(FND_LOG.LEVEL_PROCEDURE,
4127: G_MODULE_PREFIX || l_procedure_name,
4122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4123: log(FND_LOG.LEVEL_PROCEDURE,
4124: G_MODULE_PREFIX || l_procedure_name,
4125: 'x_attribute_value:' || x_attribute_value);
4126: log(FND_LOG.LEVEL_PROCEDURE,
4127: G_MODULE_PREFIX || l_procedure_name,
4128: 'End get_inv_item_model');
4129: END IF;
4130: -- end log
4128: 'End get_inv_item_model');
4129: END IF;
4130: -- end log
4131:
4132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4133: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4134: G_MODULE_PREFIX || l_procedure_name,
4135: 'END procedure. ');
4136: END IF;
4129: END IF;
4130: -- end log
4131:
4132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4133: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4134: G_MODULE_PREFIX || l_procedure_name,
4135: 'END procedure. ');
4136: END IF;
4137:
4136: END IF;
4137:
4138: EXCEPTION
4139: WHEN OTHERS THEN
4140: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4141: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4142: G_MODULE_PREFIX || l_procedure_name ||
4143: '. OTHER_EXCEPTION ',
4144: Sqlcode || Sqlerrm);
4137:
4138: EXCEPTION
4139: WHEN OTHERS THEN
4140: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4141: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4142: G_MODULE_PREFIX || l_procedure_name ||
4143: '. OTHER_EXCEPTION ',
4144: Sqlcode || Sqlerrm);
4145: END IF;
4188: l_attribute15 ra_customer_trx_lines_all.Interface_Line_Attribute15%TYPE;
4189:
4190: BEGIN
4191:
4192: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4193: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4194: G_MODULE_PREFIX || l_procedure_name,
4195: 'Begin Procedure. ');
4196: END IF;
4189:
4190: BEGIN
4191:
4192: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4193: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4194: G_MODULE_PREFIX || l_procedure_name,
4195: 'Begin Procedure. ');
4196: END IF;
4197:
4195: 'Begin Procedure. ');
4196: END IF;
4197:
4198: -- begin log
4199: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4200: log(FND_LOG.LEVEL_PROCEDURE,
4201: G_MODULE_PREFIX || l_procedure_name,
4202: 'Begin Get_Ra_Item_Model');
4203: log(FND_LOG.LEVEL_PROCEDURE,
4196: END IF;
4197:
4198: -- begin log
4199: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4200: log(FND_LOG.LEVEL_PROCEDURE,
4201: G_MODULE_PREFIX || l_procedure_name,
4202: 'Begin Get_Ra_Item_Model');
4203: log(FND_LOG.LEVEL_PROCEDURE,
4204: G_MODULE_PREFIX || l_procedure_name,
4199: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4200: log(FND_LOG.LEVEL_PROCEDURE,
4201: G_MODULE_PREFIX || l_procedure_name,
4202: 'Begin Get_Ra_Item_Model');
4203: log(FND_LOG.LEVEL_PROCEDURE,
4204: G_MODULE_PREFIX || l_procedure_name,
4205: 'p_ra_line_id:' || p_ra_line_id);
4206: log(FND_LOG.LEVEL_PROCEDURE,
4207: G_MODULE_PREFIX || l_procedure_name,
4202: 'Begin Get_Ra_Item_Model');
4203: log(FND_LOG.LEVEL_PROCEDURE,
4204: G_MODULE_PREFIX || l_procedure_name,
4205: 'p_ra_line_id:' || p_ra_line_id);
4206: log(FND_LOG.LEVEL_PROCEDURE,
4207: G_MODULE_PREFIX || l_procedure_name,
4208: 'p_attribute_column:' || p_attribute_column);
4209: END IF;
4210: -- end log
4244: WHERE l.customer_trx_line_id = p_ra_line_id;
4245:
4246: EXCEPTION
4247: WHEN no_data_found THEN
4248: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4249: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
4250: G_MODULE_PREFIX || l_procedure_name,
4251: 'no date found ');
4252: END IF;
4245:
4246: EXCEPTION
4247: WHEN no_data_found THEN
4248: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4249: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
4250: G_MODULE_PREFIX || l_procedure_name,
4251: 'no date found ');
4252: END IF;
4253: RAISE;
4286: ELSE
4287: -- report a error
4288: x_attribute_value := NULL;
4289:
4290: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4291: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
4292: G_MODULE_PREFIX || l_procedure_name,
4293: 'no data found in get_ra_item_model');
4294: END IF;
4287: -- report a error
4288: x_attribute_value := NULL;
4289:
4290: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4291: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
4292: G_MODULE_PREFIX || l_procedure_name,
4293: 'no data found in get_ra_item_model');
4294: END IF;
4295: END IF;
4293: 'no data found in get_ra_item_model');
4294: END IF;
4295: END IF;
4296:
4297: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4298: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4299: G_MODULE_PREFIX || l_procedure_name,
4300: 'END procedure. ');
4301: END IF;
4294: END IF;
4295: END IF;
4296:
4297: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4298: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4299: G_MODULE_PREFIX || l_procedure_name,
4300: 'END procedure. ');
4301: END IF;
4302:
4300: 'END procedure. ');
4301: END IF;
4302:
4303: -- begin log
4304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4305: log(FND_LOG.LEVEL_PROCEDURE,
4306: G_MODULE_PREFIX || l_procedure_name,
4307: 'End Get_Ra_Item_Model');
4308: END IF;
4301: END IF;
4302:
4303: -- begin log
4304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4305: log(FND_LOG.LEVEL_PROCEDURE,
4306: G_MODULE_PREFIX || l_procedure_name,
4307: 'End Get_Ra_Item_Model');
4308: END IF;
4309: -- end log
4309: -- end log
4310:
4311: EXCEPTION
4312: WHEN OTHERS THEN
4313: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4314: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4315: G_MODULE_PREFIX || l_procedure_name ||
4316: '. OTHER_EXCEPTION ',
4317: Sqlcode || Sqlerrm);
4310:
4311: EXCEPTION
4312: WHEN OTHERS THEN
4313: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4314: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4315: G_MODULE_PREFIX || l_procedure_name ||
4316: '. OTHER_EXCEPTION ',
4317: Sqlcode || Sqlerrm);
4318: END IF;
4344: l_inventory_item_code MTL_SYSTEM_ITEMS_B_KFV.concatenated_segments%TYPE;
4345: l_procedure_name VARCHAR2(50) := 'get_inventory_item_number';
4346: BEGIN
4347:
4348: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4349: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4350: G_MODULE_PREFIX || l_procedure_name,
4351: 'Begin procedure. ');
4352: END IF;
4345: l_procedure_name VARCHAR2(50) := 'get_inventory_item_number';
4346: BEGIN
4347:
4348: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4349: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4350: G_MODULE_PREFIX || l_procedure_name,
4351: 'Begin procedure. ');
4352: END IF;
4353:
4351: 'Begin procedure. ');
4352: END IF;
4353:
4354: -- begin log
4355: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4356: log(FND_LOG.LEVEL_PROCEDURE,
4357: G_MODULE_PREFIX || l_procedure_name,
4358: 'Begin get_inventory_item_number');
4359: END IF;
4352: END IF;
4353:
4354: -- begin log
4355: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4356: log(FND_LOG.LEVEL_PROCEDURE,
4357: G_MODULE_PREFIX || l_procedure_name,
4358: 'Begin get_inventory_item_number');
4359: END IF;
4360: -- end log
4368: WHERE msv.inventory_item_id = p_inventory_item_id--yao zhang changed fix bug 7829039
4369: AND msv.organization_id = p_item_master_org_id;
4370:
4371: -- begin log
4372: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4373: log(FND_LOG.LEVEL_PROCEDURE,
4374: G_MODULE_PREFIX || l_procedure_name,
4375: 'l_inventory_item_code:' || l_inventory_item_code);
4376: END IF;
4369: AND msv.organization_id = p_item_master_org_id;
4370:
4371: -- begin log
4372: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4373: log(FND_LOG.LEVEL_PROCEDURE,
4374: G_MODULE_PREFIX || l_procedure_name,
4375: 'l_inventory_item_code:' || l_inventory_item_code);
4376: END IF;
4377: -- end log
4378:
4379: x_inventory_item_code := l_inventory_item_code;
4380: END IF;
4381:
4382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4383: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4384: G_MODULE_PREFIX || l_procedure_name,
4385: 'END procedure. ');
4386: END IF;
4379: x_inventory_item_code := l_inventory_item_code;
4380: END IF;
4381:
4382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4383: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4384: G_MODULE_PREFIX || l_procedure_name,
4385: 'END procedure. ');
4386: END IF;
4387:
4385: 'END procedure. ');
4386: END IF;
4387:
4388: -- begin log
4389: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4390: log(FND_LOG.LEVEL_PROCEDURE,
4391: G_MODULE_PREFIX || l_procedure_name,
4392: 'End get_inventory_item_number');
4393: END IF;
4386: END IF;
4387:
4388: -- begin log
4389: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4390: log(FND_LOG.LEVEL_PROCEDURE,
4391: G_MODULE_PREFIX || l_procedure_name,
4392: 'End get_inventory_item_number');
4393: END IF;
4394: -- end log
4394: -- end log
4395:
4396: EXCEPTION
4397: WHEN no_data_found THEN
4398: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4399: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4400: G_MODULE_PREFIX || l_procedure_name ||
4401: '. OTHER_EXCEPTION ',
4402: 'item_code not be found ' || Sqlcode || Sqlerrm);
4395:
4396: EXCEPTION
4397: WHEN no_data_found THEN
4398: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4399: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4400: G_MODULE_PREFIX || l_procedure_name ||
4401: '. OTHER_EXCEPTION ',
4402: 'item_code not be found ' || Sqlcode || Sqlerrm);
4403: END IF;
4401: '. OTHER_EXCEPTION ',
4402: 'item_code not be found ' || Sqlcode || Sqlerrm);
4403: END IF;
4404: WHEN OTHERS THEN
4405: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4406: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4407: G_MODULE_PREFIX || l_procedure_name ||
4408: '. OTHER_EXCEPTION ',
4409: Sqlcode || Sqlerrm);
4402: 'item_code not be found ' || Sqlcode || Sqlerrm);
4403: END IF;
4404: WHEN OTHERS THEN
4405: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4406: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4407: G_MODULE_PREFIX || l_procedure_name ||
4408: '. OTHER_EXCEPTION ',
4409: Sqlcode || Sqlerrm);
4410: END IF;
4433: x_uom_name OUT NOCOPY VARCHAR2) IS
4434: l_unit_of_measure mtl_units_of_measure_tl.unit_of_measure%TYPE;
4435: l_procedure_name VARCHAR2(30) := 'get_uom_name';
4436: BEGIN
4437: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4438: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4439: G_MODULE_PREFIX || l_procedure_name,
4440: 'Begin procedure. ');
4441: END IF;
4434: l_unit_of_measure mtl_units_of_measure_tl.unit_of_measure%TYPE;
4435: l_procedure_name VARCHAR2(30) := 'get_uom_name';
4436: BEGIN
4437: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4438: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4439: G_MODULE_PREFIX || l_procedure_name,
4440: 'Begin procedure. ');
4441: END IF;
4442:
4448: AND uom.LANGUAGE = userenv('LANG');
4449:
4450: EXCEPTION
4451: WHEN no_data_found THEN
4452: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4453: fnd_log.STRING(FND_LOG.LEVEL_EXCEPTION,
4454: G_MODULE_PREFIX || l_procedure_name,
4455: 'no data found when select receiving_routing_id by line_location_id' ||
4456: SQLCODE || SQLERRM);
4449:
4450: EXCEPTION
4451: WHEN no_data_found THEN
4452: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4453: fnd_log.STRING(FND_LOG.LEVEL_EXCEPTION,
4454: G_MODULE_PREFIX || l_procedure_name,
4455: 'no data found when select receiving_routing_id by line_location_id' ||
4456: SQLCODE || SQLERRM);
4457: END IF;
4459: END;
4460:
4461: x_uom_name := l_unit_of_measure;
4462:
4463: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4464: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4465: G_MODULE_PREFIX || l_procedure_name,
4466: 'END procedure. ');
4467: END IF;
4460:
4461: x_uom_name := l_unit_of_measure;
4462:
4463: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4464: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4465: G_MODULE_PREFIX || l_procedure_name,
4466: 'END procedure. ');
4467: END IF;
4468:
4468:
4469: EXCEPTION
4470:
4471: WHEN OTHERS THEN
4472: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4473: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4474: G_MODULE_PREFIX || l_procedure_name ||
4475: '. OTHER_EXCEPTION ',
4476: Sqlcode || Sqlerrm);
4469: EXCEPTION
4470:
4471: WHEN OTHERS THEN
4472: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4473: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
4474: G_MODULE_PREFIX || l_procedure_name ||
4475: '. OTHER_EXCEPTION ',
4476: Sqlcode || Sqlerrm);
4477: END IF;