139: -- SQL Trace switches and debug flags are optional
140: -- but highly recommended.
141: -- ATG mandate remove sql code trace
142: -- if upper(substrb(argument25, 1, 1)) = 'Y' then
143: -- fa_rx_util_pkg.enable_trace;
144: -- end if;
145:
146: if upper(substrb(argument22, 1, 1)) = 'Y' then
147: fa_rx_util_pkg.enable_debug;
143: -- fa_rx_util_pkg.enable_trace;
144: -- end if;
145:
146: if upper(substrb(argument22, 1, 1)) = 'Y' then
147: fa_rx_util_pkg.enable_debug;
148: end if;
149:
150: --
151: -- Assign parameters doing any necessary mappings
237:
238: commit;
239: EXCEPTION
240: WHEN OTHERS THEN
241: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
242: fa_rx_util_pkg.debug(sqlcode);
243: fa_rx_util_pkg.debug(sqlerrm);
244: retcode := 2;
245: END TRANSACTION_REGISTER;
238: commit;
239: EXCEPTION
240: WHEN OTHERS THEN
241: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
242: fa_rx_util_pkg.debug(sqlcode);
243: fa_rx_util_pkg.debug(sqlerrm);
244: retcode := 2;
245: END TRANSACTION_REGISTER;
246:
239: EXCEPTION
240: WHEN OTHERS THEN
241: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
242: fa_rx_util_pkg.debug(sqlcode);
243: fa_rx_util_pkg.debug(sqlerrm);
244: retcode := 2;
245: END TRANSACTION_REGISTER;
246:
247: PROCEDURE TRANSACTION_CHECK (
376: -- SQL Trace switches and debug flags are optional
377: -- but highly recommended.
378: -- ATG mandate remove sql trace code
379: -- if upper(substrb(argument24, 1, 1)) = 'Y' then
380: -- fa_rx_util_pkg.enable_trace;
381: -- end if;
382:
383: if upper(substrb(argument23, 1, 1)) = 'Y' then
384: fa_rx_util_pkg.enable_debug;
380: -- fa_rx_util_pkg.enable_trace;
381: -- end if;
382:
383: if upper(substrb(argument23, 1, 1)) = 'Y' then
384: fa_rx_util_pkg.enable_debug;
385: end if;
386:
387: --
388: -- Assign parameters doing any necessary mappings
449:
450: commit;
451: EXCEPTION
452: WHEN OTHERS THEN
453: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
454: fa_rx_util_pkg.debug(sqlcode);
455: fa_rx_util_pkg.debug(sqlerrm);
456: retcode := 2;
457: END TRANSACTION_CHECK;
450: commit;
451: EXCEPTION
452: WHEN OTHERS THEN
453: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
454: fa_rx_util_pkg.debug(sqlcode);
455: fa_rx_util_pkg.debug(sqlerrm);
456: retcode := 2;
457: END TRANSACTION_CHECK;
458:
451: EXCEPTION
452: WHEN OTHERS THEN
453: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
454: fa_rx_util_pkg.debug(sqlcode);
455: fa_rx_util_pkg.debug(sqlerrm);
456: retcode := 2;
457: END TRANSACTION_CHECK;
458:
459: PROCEDURE RECEIPT_FORECAST (
587: -- SQL Trace switches and debug flags are optional
588: -- but highly recommended.
589: --ATG mandate remove sql trace code
590: -- if upper(substrb(argument26, 1, 1)) = 'Y' then
591: -- fa_rx_util_pkg.enable_trace;
592: -- end if;
593:
594: if upper(substrb(argument25, 1, 1)) = 'Y' then
595: fa_rx_util_pkg.enable_debug;
591: -- fa_rx_util_pkg.enable_trace;
592: -- end if;
593:
594: if upper(substrb(argument25, 1, 1)) = 'Y' then
595: fa_rx_util_pkg.enable_debug;
596: end if;
597:
598: --
599: -- Assign parameters doing any necessary mappings
653:
654: commit;
655: EXCEPTION
656: WHEN OTHERS THEN
657: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
658: fa_rx_util_pkg.debug(sqlcode);
659: fa_rx_util_pkg.debug(sqlerrm);
660: retcode := 2;
661: END RECEIPT_FORECAST;
654: commit;
655: EXCEPTION
656: WHEN OTHERS THEN
657: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
658: fa_rx_util_pkg.debug(sqlcode);
659: fa_rx_util_pkg.debug(sqlerrm);
660: retcode := 2;
661: END RECEIPT_FORECAST;
662:
655: EXCEPTION
656: WHEN OTHERS THEN
657: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
658: fa_rx_util_pkg.debug(sqlcode);
659: fa_rx_util_pkg.debug(sqlerrm);
660: retcode := 2;
661: END RECEIPT_FORECAST;
662:
663: PROCEDURE SALES_REGISTER (
798: -- SQL Trace switches and debug flags are optional
799: -- but highly recommended.
800: --ATG mandate remove sql trace logic from files
801: -- if upper(substrb(argument28, 1, 1)) = 'Y' then
802: -- fa_rx_util_pkg.enable_trace;
803: -- end if;
804:
805: if upper(substrb(argument29, 1, 1)) = 'Y' then
806: fa_rx_util_pkg.enable_debug;
802: -- fa_rx_util_pkg.enable_trace;
803: -- end if;
804:
805: if upper(substrb(argument29, 1, 1)) = 'Y' then
806: fa_rx_util_pkg.enable_debug;
807: end if;
808:
809: --
810: -- Assign parameters doing any necessary mappings
885:
886: commit;
887: EXCEPTION
888: WHEN OTHERS THEN
889: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
890: fa_rx_util_pkg.debug(sqlcode);
891: fa_rx_util_pkg.debug(sqlerrm);
892: retcode := 2;
893: END SALES_REGISTER;
886: commit;
887: EXCEPTION
888: WHEN OTHERS THEN
889: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
890: fa_rx_util_pkg.debug(sqlcode);
891: fa_rx_util_pkg.debug(sqlerrm);
892: retcode := 2;
893: END SALES_REGISTER;
894:
887: EXCEPTION
888: WHEN OTHERS THEN
889: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
890: fa_rx_util_pkg.debug(sqlcode);
891: fa_rx_util_pkg.debug(sqlerrm);
892: retcode := 2;
893: END SALES_REGISTER;
894:
895: -- Bug 2008925. Adding new procedure for Purge API
907:
908: EXCEPTION
909: WHEN OTHERS THEN
910: p_rows_affected := 0;
911: fa_rx_util_pkg.log(sqlcode);
912: fa_rx_util_pkg.log(sqlerrm);
913: END PURGE_TRANSACTION_DATA;
914:
915: END ARRX_C_TRX;
908: EXCEPTION
909: WHEN OTHERS THEN
910: p_rows_affected := 0;
911: fa_rx_util_pkg.log(sqlcode);
912: fa_rx_util_pkg.log(sqlerrm);
913: END PURGE_TRANSACTION_DATA;
914:
915: END ARRX_C_TRX;