[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.
2957: Close Q7;
2958:
2959:
2960: ---------------------------------------------------------------------------------------
2961: -- If entire batch was successful, insert XTR_BATCH_EVENTS to add one more row to
2962: -- indicate journal batch has been generated.
2963: ---------------------------------------------------------------------------------------
2964:
2965:
2969:
2970: -- Bug 3805480 begin
2971: -- Added condition to check for RA batch w/o jrnl entries.
2972: -- In such an event, do not create records in xtr_batches and
2973: -- xtr_batch_events table for it.
2974:
2975: If (nvl(in_source_option,'R') = 'J') then
2976: l_empty := 0;
2977: Open Entries (in_batch_id);
2990: Fetch EVENT_ID into l_event_id;
2991: Close EVENT_ID;
2992:
2993: BEGIN
2994: Insert into XTR_BATCH_EVENTS
2995: (batch_event_id,
2996: batch_id,
2997: event_code,
2998: authorized,
3322: from xtr_batches
3323: where batch_id between nvl(p_batch_id_from, batch_id) and nvl(p_batch_id_to, batch_id)
3324: and batch_id in (Select BA.batch_id
3325: from xtr_batches BA,
3326: xtr_batch_events BE
3327: where BA.batch_id = BE.batch_id
3328: and BE.event_code = 'JRNLGN'
3329: and BA.company_code = l_company_code
3330: and BA.upgrade_batch in ('I','N')
3339: from xtr_batches
3340: where period_end <= nvl(l_cutoff_date, sysdate)
3341: and batch_id in (Select BA.batch_id
3342: from xtr_batches BA,
3343: xtr_batch_events BE
3344: where BA.batch_id = BE.batch_id
3345: and BE.event_code = 'JRNLGN'
3346: and BA.company_code = l_company_code
3347: and BA.upgrade_batch in ('I','N')