1: PACKAGE BODY AR_AUTOREC_API AS
2: /* $Header: ARATRECB.pls 120.133.12020000.4 2013/02/23 12:31:40 vpotti ship $ */
3:
4: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5:
6: PG_PARALLEL varchar2(1) := NVL(FND_PROFILE.value('AR_USE_PARALLEL_HINT'), 'N');
7:
8: G_ERROR varchar2(1) := 'N';
2: /* $Header: ARATRECB.pls 120.133.12020000.4 2013/02/23 12:31:40 vpotti ship $ */
3:
4: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5:
6: PG_PARALLEL varchar2(1) := NVL(FND_PROFILE.value('AR_USE_PARALLEL_HINT'), 'N');
7:
8: G_ERROR varchar2(1) := 'N';
9:
10: PROCEDURE CONTROL_CHECK ( p_batch_id ar_batches.batch_id%TYPE,p_gt_id NUMBER);
2251: IF PG_DEBUG in ('Y', 'C') THEN
2252: arp_debug.debug('SUBMIT_REPORT()+');
2253: END IF;
2254:
2255: --l_org_id := TO_NUMBER(FND_PROFILE.value('ORG_ID'));
2256: --setting the Org context before calling the conc prg Bug 5519913
2257: l_org_id := mo_global.get_current_org_id;
2258:
2259: if l_org_id is null then
2263: where batch_id = p_batch_id;
2264: EXCEPTION
2265: when others then
2266: arp_debug.debug('Submit Report ...OTHERS');
2267: l_org_id := TO_NUMBER(FND_PROFILE.value('ORG_ID'));
2268: END;
2269: end if;
2270:
2271: fnd_request.set_org_id(l_org_id);
2737: where batch_id = p_batch_id;
2738: EXCEPTION
2739: WHEN OTHERS THEN
2740: arp_debug.debug('Submit Format ...OTHERS');
2741: l_org_id := TO_NUMBER(FND_PROFILE.value('ORG_ID'));
2742: END;
2743: END IF;
2744:
2745: fnd_request.set_org_id(l_org_id);