144: l_packet_id GL_BC_PACKETS.PACKET_ID%TYPE;
145:
146: BEGIN
147:
148: FND_FILE.PUT_LINE(FND_FILE.LOG,'Start with FV_BE_XLA_PKG.Budgetary_Control');
149:
150: l_calling_sequence := p_calling_sequence ||
151: ' -> FV_BE_XLA_PKG.BUDGETARY_CONTROL';
152:
186: g_ledger_id := p_ledger_id;
187: g_accounting_date:= p_accounting_date;
188: l_bc_mode := p_bc_mode;
189:
190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Input Parameter values...');
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_application_id -->'||g_application_id);
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
187: g_accounting_date:= p_accounting_date;
188: l_bc_mode := p_bc_mode;
189:
190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Input Parameter values...');
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_application_id -->'||g_application_id);
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
188: l_bc_mode := p_bc_mode;
189:
190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Input Parameter values...');
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_application_id -->'||g_application_id);
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_accounting_date -->'||g_accounting_date);
189:
190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Input Parameter values...');
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_application_id -->'||g_application_id);
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_accounting_date -->'||g_accounting_date);
197: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_bc_mode -->'||l_bc_mode);
190: FND_FILE.PUT_LINE(FND_FILE.LOG,'Input Parameter values...');
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_application_id -->'||g_application_id);
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_accounting_date -->'||g_accounting_date);
197: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_bc_mode -->'||l_bc_mode);
198:
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_application_id -->'||g_application_id);
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_accounting_date -->'||g_accounting_date);
197: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_bc_mode -->'||l_bc_mode);
198:
199:
192: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_type -->'||g_doc_type);
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_accounting_date -->'||g_accounting_date);
197: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_bc_mode -->'||l_bc_mode);
198:
199:
200: IF l_bc_mode ='C' THEN
193: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_event_type -->'||g_event_type);
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_doc_id -->'||g_doc_id);
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ledger_id -->'||g_ledger_id);
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'g_accounting_date -->'||g_accounting_date);
197: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_bc_mode -->'||l_bc_mode);
198:
199:
200: IF l_bc_mode ='C' THEN
201: l_init_msg_list := FND_API.G_TRUE;
218: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,
219: 'call Create_be_acct_event');
220: END IF;
221: -- Invoke Create_be_acct_event
222: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoke Create_BE_Acct_Event() ');
223:
224: l_event_id := create_be_acct_event(p_calling_sequence => l_calling_sequence);
225:
226: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_event_id -->'||l_event_id);
222: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoke Create_BE_Acct_Event() ');
223:
224: l_event_id := create_be_acct_event(p_calling_sequence => l_calling_sequence);
225:
226: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_event_id -->'||l_event_id);
227: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
228: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,'l_event_id -> '||
229: l_event_id);
230: END IF;
234: 'call populate_bc_events_tab');
235: END IF;
236:
237: -- Insert into psa_bc_xla_events_gt
238: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoke populate_bc_events() ');
239: populate_bc_events_tab;
240:
241:
242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
244: END IF;
245:
246:
247: -- call PSA Budgetary Control API
248: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoke PSA_BC_XLA_PUB.Budgetary_Control() ');
249:
250: PSA_BC_XLA_PUB.Budgetary_Control (p_api_version => 1.0
251: ,p_init_msg_list => l_init_msg_list
252: ,x_return_status => l_return_status
260: ,x_status_code => l_status_code
261: ,x_packet_id => l_packet_id);
262:
263: IF l_status_code IN ('SUCCESS','PARTIAL','ADVISORY') THEN
264: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA Budgetary Control API Success');
265: ELSIF l_status_code = 'XLA_ERROR' THEN
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with XLA_ERROR');
267: ELSIF l_status_code IN ('FAIL','RFAIL','FATAL') THEN
268: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with some technical problem');
262:
263: IF l_status_code IN ('SUCCESS','PARTIAL','ADVISORY') THEN
264: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA Budgetary Control API Success');
265: ELSIF l_status_code = 'XLA_ERROR' THEN
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with XLA_ERROR');
267: ELSIF l_status_code IN ('FAIL','RFAIL','FATAL') THEN
268: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with some technical problem');
269: ELSIF l_status_code = 'XLA_NO_JOURNAL' THEN
270: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API success but with NO SLA Journal ');
264: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA Budgetary Control API Success');
265: ELSIF l_status_code = 'XLA_ERROR' THEN
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with XLA_ERROR');
267: ELSIF l_status_code IN ('FAIL','RFAIL','FATAL') THEN
268: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with some technical problem');
269: ELSIF l_status_code = 'XLA_NO_JOURNAL' THEN
270: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API success but with NO SLA Journal ');
271: ELSE
272: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with unknown error');
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with XLA_ERROR');
267: ELSIF l_status_code IN ('FAIL','RFAIL','FATAL') THEN
268: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with some technical problem');
269: ELSIF l_status_code = 'XLA_NO_JOURNAL' THEN
270: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API success but with NO SLA Journal ');
271: ELSE
272: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with unknown error');
273: END IF;
274:
268: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with some technical problem');
269: ELSIF l_status_code = 'XLA_NO_JOURNAL' THEN
270: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API success but with NO SLA Journal ');
271: ELSE
272: FND_FILE.PUT_LINE(FND_FILE.LOG,'PSA BC API failed with unknown error');
273: END IF;
274:
275: -- Assign the local status values to the return variables
276: x_status_code := l_status_code;
359:
360: l_entity_deleted INTEGER;
361:
362: BEGIN
363: FND_FILE.PUT_LINE(FND_FILE.LOG,'Begin Create_BE_Acct_event function');
364:
365: l_module_name := G_MODULE_NAME ||'CREATE_BE_ACCT_EVENTS';
366:
367: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
475: END IF;
476:
477: IF(l_event_id IS NOT NULL) THEN
478: -- Stamp Event in FV_BE_TRX_DTLS/FV_BE_RPR_TRANSACTIONS table
479: FND_FILE.PUT_LINE(FND_FILE.LOG,'Invoke Stamp_Event()');
480: stamp_event(l_event_id);
481: END IF;
482: END LOOP;
483: END;
480: stamp_event(l_event_id);
481: END IF;
482: END LOOP;
483: END;
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'End of Create_BE_Acct_Event');
485:
486: return l_event_id;
487:
488: END CREATE_BE_ACCT_EVENT;
514: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
515: l_module_name VARCHAR2(1000);
516:
517: BEGIN
518: FND_FILE.PUT_LINE(FND_FILE.LOG,'Begin Get_Event_Source_Info');
519:
520: l_module_name := G_MODULE_NAME ||'GET_EVENT_SOURCE_INFO';
521:
522: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
550: l_event_source_info.application_id := g_application_id;
551: l_event_source_info.ledger_id := g_ledger_id;
552: l_event_source_info.source_id_int_1 := g_doc_id;
553:
554: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Get_Event_Source_Info');
555:
556: RETURN l_event_source_info;
557:
558: END get_event_source_info;
575: PROCEDURE populate_bc_events_tab
576: IS
577: BEGIN
578:
579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Begin Populate_BC_Events_Tab');
580:
581: IF g_doc_id is null THEN
582: RETURN;
583: ELSE
592: INSERT INTO psa_bc_xla_events_gt(event_id,result_code)
593: SELECT distinct event_id,'XLA_ERROR' FROM FV_BE_RPR_TRANSACTIONS WHERE transaction_id = g_doc_id;
594: END IF;
595: END IF;
596: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Populate_BC_Events_Tab');
597: END populate_bc_events_tab;
598:
599: /*=========================================================================
600: | PROCEDURE - STAMP_EVENT(PRIVATE)
614:
615: PROCEDURE stamp_event(p_event_id XLA_EVENTS.EVENT_ID%TYPE)
616: IS
617: BEGIN
618: FND_FILE.PUT_LINE(FND_FILE.LOG,'Begin Stamp_Event');
619:
620: IF g_doc_type = BE_ENTITY THEN
621: UPDATE FV_BE_TRX_DTLS
622: SET EVENT_ID = p_event_id
630: SET EVENT_ID = p_event_id
631: WHERE transaction_id = g_doc_id
632: AND gl_date = g_accounting_date;
633: END IF;
634: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows ->'||SQL%ROWCOUNT||' updated with event_id ->'||p_event_id);
635:
636: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Stamp_Event');
637:
638: END stamp_event;
632: AND gl_date = g_accounting_date;
633: END IF;
634: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows ->'||SQL%ROWCOUNT||' updated with event_id ->'||p_event_id);
635:
636: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Stamp_Event');
637:
638: END stamp_event;
639:
640: /*============================================================================
654:
655: PROCEDURE reset_event(p_event_id XLA_EVENTS.EVENT_ID%TYPE)
656: IS
657: BEGIN
658: FND_FILE.PUT_LINE(FND_FILE.LOG,'Begin Reset_Event');
659:
660: IF g_doc_type = BE_ENTITY THEN
661: UPDATE FV_BE_TRX_DTLS
662: SET EVENT_ID = null
668: SET EVENT_ID = null
669: WHERE transaction_id = g_doc_id
670: AND event_id = p_event_id;
671: END IF;
672: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows ->'||SQL%ROWCOUNT||' updated with null event_id ');
673:
674: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Reset_Event');
675:
676: END reset_event;
670: AND event_id = p_event_id;
671: END IF;
672: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows ->'||SQL%ROWCOUNT||' updated with null event_id ');
673:
674: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Reset_Event');
675:
676: END reset_event;
677:
678: Function GET_CCID(application_short_name IN Varchar2