[Home] [Help]
212: l_pre_batch_id XTR_BATCHES.BATCH_ID%TYPE;
213:
214: CURSOR CHK_EARLY_BATCH is -- chck if the early batch id been generated journal
215: select 1
216: from XTR_BATCH_EVENTS
217: where batch_id = l_pre_batch_id
218: and EVENT_CODE = 'JRNLGN';
219: --
220: CURSOR CHK_ACCRLS_AUTH is -- check if the batch id has been authorized from accruals
218: and EVENT_CODE = 'JRNLGN';
219: --
220: CURSOR CHK_ACCRLS_AUTH is -- check if the batch id has been authorized from accruals
221: select 1
222: from XTR_BATCH_EVENTS
223: where batch_id = p_curr_batch_id
224: and event_code = 'ACCRUAL'
225: and authorized = 'Y';
226: --
225: and authorized = 'Y';
226: --
227: CURSOR CHK_JOURNAL_GEN is -- check if the batch id has been generated in journals
228: select 1
229: from XTR_BATCH_EVENTS
230: where batch_id = p_curr_batch_id
231: and event_code = 'JRNLGN';
232:
233: fnd_user_id number;
610: where batch_id = bid);
611: -- Bug 3805480 end
612:
613: Cursor EVENT_ID is
614: Select XTR_BATCH_EVENTS_S.NEXTVAL
615: From DUAL;
616:
617: --------------------------------------------------------------------------------
618: -- NOTE: Q2 will select all deal types except 'EXP' for journal generation.
2956: Close Q7;
2957:
2958:
2959: ---------------------------------------------------------------------------------------
2960: -- If entire batch was successful, insert XTR_BATCH_EVENTS to add one more row to
2961: -- indicate journal batch has been generated.
2962: ---------------------------------------------------------------------------------------
2963:
2964:
2968:
2969: -- Bug 3805480 begin
2970: -- Added condition to check for RA batch w/o jrnl entries.
2971: -- In such an event, do not create records in xtr_batches and
2972: -- xtr_batch_events table for it.
2973:
2974: If (nvl(in_source_option,'R') = 'J') then
2975: l_empty := 0;
2976: Open Entries (in_batch_id);
2989: Fetch EVENT_ID into l_event_id;
2990: Close EVENT_ID;
2991:
2992: BEGIN
2993: Insert into XTR_BATCH_EVENTS
2994: (batch_event_id,
2995: batch_id,
2996: event_code,
2997: authorized,
3321: from xtr_batches
3322: where batch_id between nvl(p_batch_id_from, batch_id) and nvl(p_batch_id_to, batch_id)
3323: and batch_id in (Select BA.batch_id
3324: from xtr_batches BA,
3325: xtr_batch_events BE
3326: where BA.batch_id = BE.batch_id
3327: and BE.event_code = 'JRNLGN'
3328: and BA.company_code = l_company_code
3329: and BA.upgrade_batch in ('I','N')
3338: from xtr_batches
3339: where period_end <= nvl(l_cutoff_date, sysdate)
3340: and batch_id in (Select BA.batch_id
3341: from xtr_batches BA,
3342: xtr_batch_events BE
3343: where BA.batch_id = BE.batch_id
3344: and BE.event_code = 'JRNLGN'
3345: and BA.company_code = l_company_code
3346: and BA.upgrade_batch in ('I','N')