145: -- SQL Trace switches and debug flags are optional
146: -- but highly recommended.
147: --ATG mandate remove sql trace code from files
148: -- if upper(substrb(argument29, 1, 1)) = 'Y' then
149: -- fa_rx_util_pkg.enable_trace;
150: -- end if;
151:
152: if upper(substrb(argument28, 1, 1)) = 'Y' then
153: fa_rx_util_pkg.enable_debug;
149: -- fa_rx_util_pkg.enable_trace;
150: -- end if;
151:
152: if upper(substrb(argument28, 1, 1)) = 'Y' then
153: fa_rx_util_pkg.enable_debug;
154: end if;
155:
156: fa_rx_util_pkg.debug('RECEIPT_REGISTER called with parameters
157: Reporting Level : '||argument1||'
152: if upper(substrb(argument28, 1, 1)) = 'Y' then
153: fa_rx_util_pkg.enable_debug;
154: end if;
155:
156: fa_rx_util_pkg.debug('RECEIPT_REGISTER called with parameters
157: Reporting Level : '||argument1||'
158: Reporting Entity ID : '||argument2||'
159: Set of Books ID : '||argument3||'
160: Chart of Accounts ID : '||argument4||'
244:
245: commit;
246: EXCEPTION
247: WHEN OTHERS THEN
248: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
249: fa_rx_util_pkg.debug(sqlcode);
250: fa_rx_util_pkg.debug(sqlerrm);
251: retcode := 2;
252: END RECEIPT_REGISTER;
245: commit;
246: EXCEPTION
247: WHEN OTHERS THEN
248: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
249: fa_rx_util_pkg.debug(sqlcode);
250: fa_rx_util_pkg.debug(sqlerrm);
251: retcode := 2;
252: END RECEIPT_REGISTER;
253:
246: EXCEPTION
247: WHEN OTHERS THEN
248: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
249: fa_rx_util_pkg.debug(sqlcode);
250: fa_rx_util_pkg.debug(sqlerrm);
251: retcode := 2;
252: END RECEIPT_REGISTER;
253:
254: ----------------------------
387: -- SQL Trace switches and debug flags are optional
388: -- but highly recommended.
389: --ATG mandate remove sql trace code from files
390: -- if upper(substrb(argument20, 1, 1)) = 'Y' then
391: -- fa_rx_util_pkg.enable_trace;
392: -- end if;
393:
394: if upper(substrb(argument23, 1, 1)) = 'Y' then
395: fa_rx_util_pkg.enable_debug;
391: -- fa_rx_util_pkg.enable_trace;
392: -- end if;
393:
394: if upper(substrb(argument23, 1, 1)) = 'Y' then
395: fa_rx_util_pkg.enable_debug;
396: end if;
397:
398: --
399: -- Assign parameters doing any necessary mappings
452:
453: commit;
454: EXCEPTION
455: WHEN OTHERS THEN
456: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
457: fa_rx_util_pkg.debug(sqlcode);
458: fa_rx_util_pkg.debug(sqlerrm);
459: retcode := 2;
460: END ACTUAL_RECEIPT;
453: commit;
454: EXCEPTION
455: WHEN OTHERS THEN
456: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
457: fa_rx_util_pkg.debug(sqlcode);
458: fa_rx_util_pkg.debug(sqlerrm);
459: retcode := 2;
460: END ACTUAL_RECEIPT;
461:
454: EXCEPTION
455: WHEN OTHERS THEN
456: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
457: fa_rx_util_pkg.debug(sqlcode);
458: fa_rx_util_pkg.debug(sqlerrm);
459: retcode := 2;
460: END ACTUAL_RECEIPT;
461:
462: -----------------------------
603: l_client_info_rsob_id := NULL;
604: l_sob_type := 'P';
605:
606: IF upper(argument24) LIKE 'Y%' then
607: fa_rx_util_pkg.enable_debug;
608: END IF;
609:
610: --ATG mandate remove sql trace from code
611: --IF Upper(argument22) LIKE 'Y%' then
608: END IF;
609:
610: --ATG mandate remove sql trace from code
611: --IF Upper(argument22) LIKE 'Y%' then
612: -- fa_rx_util_pkg.enable_trace;
613:
614: --END IF;
615:
616: --
706:
707: commit;
708: EXCEPTION
709: WHEN OTHERS THEN
710: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
711: fa_rx_util_pkg.debug(sqlcode);
712: fa_rx_util_pkg.debug(sqlerrm);
713: retcode := 2;
714: END AR_APPL_REC_REGISTER;
707: commit;
708: EXCEPTION
709: WHEN OTHERS THEN
710: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
711: fa_rx_util_pkg.debug(sqlcode);
712: fa_rx_util_pkg.debug(sqlerrm);
713: retcode := 2;
714: END AR_APPL_REC_REGISTER;
715:
708: EXCEPTION
709: WHEN OTHERS THEN
710: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
711: fa_rx_util_pkg.debug(sqlcode);
712: fa_rx_util_pkg.debug(sqlerrm);
713: retcode := 2;
714: END AR_APPL_REC_REGISTER;
715:
716: ---------------------------------------
847: -- SQL Trace switches and debug flags are optional
848: -- but highly recommended.
849: --ATG mandate remove sql trace logic from files
850: -- if upper(substrb(argument13, 1, 1)) = 'Y' then
851: -- fa_rx_util_pkg.enable_trace;
852: -- end if;
853:
854: if upper(substrb(argument19, 1, 1)) = 'Y' then
855: fa_rx_util_pkg.enable_debug;
851: -- fa_rx_util_pkg.enable_trace;
852: -- end if;
853:
854: if upper(substrb(argument19, 1, 1)) = 'Y' then
855: fa_rx_util_pkg.enable_debug;
856: end if;
857:
858: fa_rx_util_pkg.debug('AR_MISC_TRX_REGISTER called with parameters
859: Reporting Level : '||argument1||'
854: if upper(substrb(argument19, 1, 1)) = 'Y' then
855: fa_rx_util_pkg.enable_debug;
856: end if;
857:
858: fa_rx_util_pkg.debug('AR_MISC_TRX_REGISTER called with parameters
859: Reporting Level : '||argument1||'
860: Reporting Entity ID : '||argument2||'
861: Set of Books ID : '||argument3||'
862: Chart of Accounts ID : '||argument4||'
922:
923: commit;
924: EXCEPTION
925: WHEN OTHERS THEN
926: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
927: fa_rx_util_pkg.debug(sqlcode);
928: fa_rx_util_pkg.debug(sqlerrm);
929: retcode := 2;
930:
923: commit;
924: EXCEPTION
925: WHEN OTHERS THEN
926: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
927: fa_rx_util_pkg.debug(sqlcode);
928: fa_rx_util_pkg.debug(sqlerrm);
929: retcode := 2;
930:
931: END AR_MISC_TRX_REGISTER;
924: EXCEPTION
925: WHEN OTHERS THEN
926: fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
927: fa_rx_util_pkg.debug(sqlcode);
928: fa_rx_util_pkg.debug(sqlerrm);
929: retcode := 2;
930:
931: END AR_MISC_TRX_REGISTER;
932: