[Home] [Help]
91: x_return_status := Fnd_Api.G_Ret_Sts_Success;
92: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
93: Fnd_Msg_Pub.Initialize;
94: END IF;
95: psa_utils.debug_other_string(g_state_level,l_api_name, 'BEGIN of procedure Delete_Events..' );
96: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_ledger_id '||p_ledger_id);
97: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_start_date '|| p_start_date);
98: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_end_date '|| p_end_date);
99: --setting xla security context to use table xla_transaction_entity
92: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
93: Fnd_Msg_Pub.Initialize;
94: END IF;
95: psa_utils.debug_other_string(g_state_level,l_api_name, 'BEGIN of procedure Delete_Events..' );
96: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_ledger_id '||p_ledger_id);
97: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_start_date '|| p_start_date);
98: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_end_date '|| p_end_date);
99: --setting xla security context to use table xla_transaction_entity
100:
93: Fnd_Msg_Pub.Initialize;
94: END IF;
95: psa_utils.debug_other_string(g_state_level,l_api_name, 'BEGIN of procedure Delete_Events..' );
96: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_ledger_id '||p_ledger_id);
97: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_start_date '|| p_start_date);
98: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_end_date '|| p_end_date);
99: --setting xla security context to use table xla_transaction_entity
100:
101: xla_security_pkg.set_security_context(200); --passing payables application_id
94: END IF;
95: psa_utils.debug_other_string(g_state_level,l_api_name, 'BEGIN of procedure Delete_Events..' );
96: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_ledger_id '||p_ledger_id);
97: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_start_date '|| p_start_date);
98: psa_utils.debug_other_string(g_state_level,l_api_name, 'p_end_date '|| p_end_date);
99: --setting xla security context to use table xla_transaction_entity
100:
101: xla_security_pkg.set_security_context(200); --passing payables application_id
102:
100:
101: xla_security_pkg.set_security_context(200); --passing payables application_id
102:
103: DELETE FROM XLA_EVENTS_INT_GT;
104: psa_utils.debug_other_string(g_state_level,l_api_name, '# Rows deleted from xla_events_int_gt'|| SQL%ROWCOUNT );
105:
106: l_event_count := 0;
107: FOR rec_events IN c_get_unprocessed_events
108: LOOP
122: IF l_event_count > 0 THEN
123: FORALL i IN 1..l_event_count
124: INSERT INTO XLA_EVENTS_INT_GT
125: VALUES l_events_tab(i) ;
126: psa_utils.debug_other_string(g_state_level,l_api_name,' # Rows inserted into xla_events_int_gt table:' || l_event_count);
127: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENT ');
128:
129: XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENTS(p_application_id => 200);
130:
123: FORALL i IN 1..l_event_count
124: INSERT INTO XLA_EVENTS_INT_GT
125: VALUES l_events_tab(i) ;
126: psa_utils.debug_other_string(g_state_level,l_api_name,' # Rows inserted into xla_events_int_gt table:' || l_event_count);
127: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENT ');
128:
129: XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENTS(p_application_id => 200);
130:
131: psa_utils.debug_other_string(g_state_level,l_api_name,'After Deletion of Unprocessed Events');
127: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENT ');
128:
129: XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENTS(p_application_id => 200);
130:
131: psa_utils.debug_other_string(g_state_level,l_api_name,'After Deletion of Unprocessed Events');
132: fnd_file.put_line(fnd_file.log ,'The following BC unprocessed/Error events have been deleted');
133: fnd_file.put_line(fnd_file.log ,'Event_id Event_status_code Process_status_code');
134: fnd_file.put_line(fnd_file.log ,'--------- ----------------- -------------------');
135:
138: fnd_file.put_line(fnd_file.log ,l_events_tab(i).event_id||' '||
139: l_events_tab(i).event_status_code ||' '||
140: l_events_tab(i).process_status_code);
141:
142: psa_utils.debug_other_string(g_state_level,l_api_name,'Updating bc_event_id '||l_events_tab(i).event_id ||'to NULL for related distributions.');
143: UPDATE ap_invoice_distributions_all
144: SET bc_event_id = NULL
145: WHERE bc_event_id = l_events_tab(i).event_id;
146: psa_utils.debug_other_string(g_state_level,l_api_name,'# distributions in ap_invoice_distributions_all has been updated to NULL:'||SQL%ROWCOUNT);
142: psa_utils.debug_other_string(g_state_level,l_api_name,'Updating bc_event_id '||l_events_tab(i).event_id ||'to NULL for related distributions.');
143: UPDATE ap_invoice_distributions_all
144: SET bc_event_id = NULL
145: WHERE bc_event_id = l_events_tab(i).event_id;
146: psa_utils.debug_other_string(g_state_level,l_api_name,'# distributions in ap_invoice_distributions_all has been updated to NULL:'||SQL%ROWCOUNT);
147:
148: UPDATE ap_prepay_history_all aph
149: SET aph.bc_event_id = NULL
150: WHERE aph.bc_event_id = l_events_tab(i).event_id;
147:
148: UPDATE ap_prepay_history_all aph
149: SET aph.bc_event_id = NULL
150: WHERE aph.bc_event_id = l_events_tab(i).event_id;
151: psa_utils.debug_other_string(g_state_level,l_api_name,'# distributions in ap_prepay_history_all has been updated to NULL:'||SQL%ROWCOUNT);
152:
153: UPDATE ap_prepay_app_dists apad
154: SET apad.bc_event_id = NULL
155: WHERE apad.bc_event_id = l_events_tab(i).event_id;
152:
153: UPDATE ap_prepay_app_dists apad
154: SET apad.bc_event_id = NULL
155: WHERE apad.bc_event_id = l_events_tab(i).event_id;
156: psa_utils.debug_other_string(g_state_level,l_api_name,'# distributions in ap_prepay_app_dists has been updated to NULL:'||SQL%ROWCOUNT);
157:
158: END LOOP;
159: END IF;
160: fnd_file.put_line(fnd_file.log ,'Count of BC events deleted:' || l_event_count);
158: END LOOP;
159: END IF;
160: fnd_file.put_line(fnd_file.log ,'Count of BC events deleted:' || l_event_count);
161: fnd_file.put_line(fnd_file.log ,'<< PSA_AP_BC_PVT.Delete_EVENTS');
162: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Procedure Delete_Events' );
163: EXCEPTION
164: WHEN OTHERS THEN
165: x_return_status := Fnd_Api.G_Ret_Sts_Error;
166: IF (SQLCODE <> -20001) THEN
167: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
168: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
170: END IF;
171: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
172: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Delete_Events Procedure' );
173: Fnd_Msg_Pub.Count_And_Get
174: (
175: p_count => x_msg_count,
168: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
170: END IF;
171: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
172: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Delete_Events Procedure' );
173: Fnd_Msg_Pub.Count_And_Get
174: (
175: p_count => x_msg_count,
176: p_data => x_msg_data
175: p_count => x_msg_count,
176: p_data => x_msg_data
177: );
178:
179: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Procedure Delete_Events' );
180: END Delete_Events;
181:
182: /*============================================================================
183: | PROCEDURE - CREATE_EVENTS
295: x_return_status := Fnd_Api.G_Ret_Sts_Success;
296: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
297: Fnd_Msg_Pub.Initialize;
298: END IF;
299: psa_utils.debug_other_string(g_state_level,l_api_name, 'BEGIN of procedure Create_Events..' );
300: IF p_tab_fc_dist.COUNT < 1 THEN -- no rows to be processed
301: psa_utils.debug_other_string(g_state_level,l_api_name, 'No rows to be processed..' );
302:
303: RETURN;
297: Fnd_Msg_Pub.Initialize;
298: END IF;
299: psa_utils.debug_other_string(g_state_level,l_api_name, 'BEGIN of procedure Create_Events..' );
300: IF p_tab_fc_dist.COUNT < 1 THEN -- no rows to be processed
301: psa_utils.debug_other_string(g_state_level,l_api_name, 'No rows to be processed..' );
302:
303: RETURN;
304: END IF;
305:
306: ----------------------------------------------------------------------
307: -- Bug 5160179: clear the temporary gt table before inserting any rows
308: ----------------------------------------------------------------------
309: DELETE from psa_bc_xla_events_gt;
310: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of psa_bc_xla_events_gt: ' || SQL%ROWCOUNT);
311: DELETE from xla_acct_prog_events_gt;
312: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_acct_prog_events_gt: ' || SQL%ROWCOUNT);
313: DELETE from xla_ae_headers_gt;
314: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_headers_gt: ' || SQL%ROWCOUNT);
308: ----------------------------------------------------------------------
309: DELETE from psa_bc_xla_events_gt;
310: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of psa_bc_xla_events_gt: ' || SQL%ROWCOUNT);
311: DELETE from xla_acct_prog_events_gt;
312: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_acct_prog_events_gt: ' || SQL%ROWCOUNT);
313: DELETE from xla_ae_headers_gt;
314: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_headers_gt: ' || SQL%ROWCOUNT);
315: DELETE from xla_ae_lines_gt;
316: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_lines_gt: ' || SQL%ROWCOUNT);
310: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of psa_bc_xla_events_gt: ' || SQL%ROWCOUNT);
311: DELETE from xla_acct_prog_events_gt;
312: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_acct_prog_events_gt: ' || SQL%ROWCOUNT);
313: DELETE from xla_ae_headers_gt;
314: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_headers_gt: ' || SQL%ROWCOUNT);
315: DELETE from xla_ae_lines_gt;
316: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_lines_gt: ' || SQL%ROWCOUNT);
317: DELETE from xla_validation_lines_gt;
318: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_validation_lines_gt: ' || SQL%ROWCOUNT);
312: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_acct_prog_events_gt: ' || SQL%ROWCOUNT);
313: DELETE from xla_ae_headers_gt;
314: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_headers_gt: ' || SQL%ROWCOUNT);
315: DELETE from xla_ae_lines_gt;
316: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_lines_gt: ' || SQL%ROWCOUNT);
317: DELETE from xla_validation_lines_gt;
318: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_validation_lines_gt: ' || SQL%ROWCOUNT);
319:
320: l_bc_event_count := 0;
314: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_headers_gt: ' || SQL%ROWCOUNT);
315: DELETE from xla_ae_lines_gt;
316: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_ae_lines_gt: ' || SQL%ROWCOUNT);
317: DELETE from xla_validation_lines_gt;
318: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows deleted of xla_validation_lines_gt: ' || SQL%ROWCOUNT);
319:
320: l_bc_event_count := 0;
321: l_event_status_code := xla_events_pub_pkg.c_event_unprocessed;
322: l_valuation_method := null;
327: l_federal_enabled := 'Y';
328: ELSE
329: l_federal_enabled := 'N';
330: END IF;
331: psa_utils.debug_other_string(g_state_level,l_api_name,'Federal Enabled: ' || l_federal_enabled);
332:
333: -- PREPAY APPLY/UNAPPLY NETTING LOGIC BEGIN
334: psa_utils.debug_other_string(g_state_level,l_api_name,'Setting all the table data to Y');
335: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
330: END IF;
331: psa_utils.debug_other_string(g_state_level,l_api_name,'Federal Enabled: ' || l_federal_enabled);
332:
333: -- PREPAY APPLY/UNAPPLY NETTING LOGIC BEGIN
334: psa_utils.debug_other_string(g_state_level,l_api_name,'Setting all the table data to Y');
335: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
336: l_PrepayProcessTab(i).process_flag := 'Y';
337: END LOOP;
338: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
335: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
336: l_PrepayProcessTab(i).process_flag := 'Y';
337: END LOOP;
338: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
339: psa_utils.debug_other_string(g_state_level,l_api_name,'distribution_type='||p_tab_fc_dist(i).distribution_type);
340: psa_utils.debug_other_string(g_state_level,l_api_name,'distribution_amount='||p_tab_fc_dist(i).distribution_amount);
341: IF ( isprepaydist( p_tab_fc_dist(i).inv_distribution_id
342: ,p_tab_fc_dist(i).invoice_id
343: ,p_tab_fc_dist(i).distribution_type)='Y' AND
336: l_PrepayProcessTab(i).process_flag := 'Y';
337: END LOOP;
338: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
339: psa_utils.debug_other_string(g_state_level,l_api_name,'distribution_type='||p_tab_fc_dist(i).distribution_type);
340: psa_utils.debug_other_string(g_state_level,l_api_name,'distribution_amount='||p_tab_fc_dist(i).distribution_amount);
341: IF ( isprepaydist( p_tab_fc_dist(i).inv_distribution_id
342: ,p_tab_fc_dist(i).invoice_id
343: ,p_tab_fc_dist(i).distribution_type)='Y' AND
344: p_tab_fc_dist(i).distribution_amount > 0) THEN
341: IF ( isprepaydist( p_tab_fc_dist(i).inv_distribution_id
342: ,p_tab_fc_dist(i).invoice_id
343: ,p_tab_fc_dist(i).distribution_type)='Y' AND
344: p_tab_fc_dist(i).distribution_amount > 0) THEN
345: psa_utils.debug_other_string(g_state_level,l_api_name,'inv_distribution_id='||p_tab_fc_dist(i).inv_distribution_id);
346: OPEN c_get_dist_info(p_tab_fc_dist(i).inv_distribution_id);
347: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
348: CLOSE c_get_dist_info;
349: psa_utils.debug_other_string(g_state_level,l_api_name,'l_parent_reversal_id='||l_parent_reversal_id);
345: psa_utils.debug_other_string(g_state_level,l_api_name,'inv_distribution_id='||p_tab_fc_dist(i).inv_distribution_id);
346: OPEN c_get_dist_info(p_tab_fc_dist(i).inv_distribution_id);
347: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
348: CLOSE c_get_dist_info;
349: psa_utils.debug_other_string(g_state_level,l_api_name,'l_parent_reversal_id='||l_parent_reversal_id);
350: l_parent_prepayapply_processed :='N';
351: IF (l_parent_reversal_id IS NOT NULL) THEN
352: OPEN c_parent_prepayapply_processed(l_parent_reversal_id);
353: FETCH c_parent_prepayapply_processed INTO l_parent_prepayapply_processed;
351: IF (l_parent_reversal_id IS NOT NULL) THEN
352: OPEN c_parent_prepayapply_processed(l_parent_reversal_id);
353: FETCH c_parent_prepayapply_processed INTO l_parent_prepayapply_processed;
354: CLOSE c_parent_prepayapply_processed;
355: psa_utils.debug_other_string(g_state_level,l_api_name,
356: 'l_parent_prepayapply_processed ='||l_parent_prepayapply_processed);
357: --if above cursor returns y , it means unapply dist need to process as
358: --parent apply dist has been already processed.
359: IF l_parent_prepayapply_processed = 'N' THEN
357: --if above cursor returns y , it means unapply dist need to process as
358: --parent apply dist has been already processed.
359: IF l_parent_prepayapply_processed = 'N' THEN
360: FOR j IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
361: psa_utils.debug_other_string(g_state_level,l_api_name,'inv_distribution_id(j)='||p_tab_fc_dist(j).inv_distribution_id);
362: IF (p_tab_fc_dist(j).inv_distribution_id = l_parent_reversal_id) THEN
363: l_PrepayProcessTab(i).process_flag := 'N';
364: l_PrepayProcessTab(j).process_flag := 'N';
365: END IF;
368: END IF;
369: END IF;
370: END LOOP;
371: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
372: psa_utils.debug_other_string(g_state_level,l_api_name,'l_PrepayProcessTab('||i||').process_flag='||l_PrepayProcessTab(i).process_flag);
373: END LOOP;
374:
375: -- PREPAY APPLY/UNAPPLY NETTING LOGIC END
376:
381: l_po_accrue_flag := 'N';
382: OPEN c_chk_accrue_flag(p_tab_fc_dist(i).inv_distribution_id);
383: FETCH c_chk_accrue_flag INTO l_po_accrue_flag;
384: CLOSE c_chk_accrue_flag;
385: psa_utils.debug_other_string(g_state_level,l_api_name,'Accrue on Receipt Option for distribution: '|| p_tab_fc_dist(i).distribution_type ||
386: ' IS: ' || l_po_accrue_flag);
387:
388: --Bug 5532835
389: OPEN c_chk_prepayment_match_po (p_tab_fc_dist(i).inv_distribution_id);
390: FETCH c_chk_prepayment_match_po INTO l_po_dist_id;
391: CLOSE c_chk_prepayment_match_po;
392:
393: If l_po_dist_id is NULL Then
394: psa_utils.debug_other_string(g_state_level,l_api_name,'Prepayment is not matched to PO hence Federal Accounting will be created.' );
395: else
396: psa_utils.debug_other_string(g_state_level,l_api_name,'Prepayment is matched to PO hence Federal Accounting will not be created.' );
397: End If;
398:
392:
393: If l_po_dist_id is NULL Then
394: psa_utils.debug_other_string(g_state_level,l_api_name,'Prepayment is not matched to PO hence Federal Accounting will be created.' );
395: else
396: psa_utils.debug_other_string(g_state_level,l_api_name,'Prepayment is matched to PO hence Federal Accounting will not be created.' );
397: End If;
398:
399: -- bug 5476181
400: -- not to create events for federal prepayment invoices
400: -- not to create events for federal prepayment invoices
401: -- bug 5646026 - no bc event for federal prepay
402:
403: /* If (l_federal_enabled = 'Y' AND (p_tab_fc_dist(i).invoice_type_code = 'PREPAYMENT' OR p_tab_fc_dist(i).distribution_type = 'PREPAY')) THEN
404: psa_utils.debug_other_string(g_state_level,l_api_name,'Event not created for Federal prepayments');
405: */
406: --Bug 5532835
407: If (l_federal_enabled = 'Y' AND
408: (p_tab_fc_dist(i).invoice_type_code = 'PREPAYMENT' OR p_tab_fc_dist(i).distribution_type = 'PREPAY') AND
406: --Bug 5532835
407: If (l_federal_enabled = 'Y' AND
408: (p_tab_fc_dist(i).invoice_type_code = 'PREPAYMENT' OR p_tab_fc_dist(i).distribution_type = 'PREPAY') AND
409: l_po_dist_id <> NULL ) THEN
410: psa_utils.debug_other_string(g_state_level,l_api_name,'Event not created for Federal prepayments');
411:
412:
413: elsif (l_federal_enabled = 'N' AND NVL(l_po_accrue_flag, 'N') = 'Y' AND
414: p_tab_fc_dist(i).distribution_type IN ('ITEM', 'PREPAY',
412:
413: elsif (l_federal_enabled = 'N' AND NVL(l_po_accrue_flag, 'N') = 'Y' AND
414: p_tab_fc_dist(i).distribution_type IN ('ITEM', 'PREPAY',
415: 'QV', 'AV', 'NONREC_TAX' ) ) THEN
416: psa_utils.debug_other_string(g_state_level,l_api_name,'Event not created for Invoice/Prepayment distribution: '
417: || p_tab_fc_dist(i).distribution_type || ' matched to PO with Accrue on Receipt on');
418:
419: -- PREPAY APPLY/UNAPPLY NETTING LOGIC BEGIN
420: elsif (l_PrepayProcessTab(i).process_flag = 'N') THEN
417: || p_tab_fc_dist(i).distribution_type || ' matched to PO with Accrue on Receipt on');
418:
419: -- PREPAY APPLY/UNAPPLY NETTING LOGIC BEGIN
420: elsif (l_PrepayProcessTab(i).process_flag = 'N') THEN
421: psa_utils.debug_other_string(g_state_level,l_api_name,'Event not created for Invoice/Prepayment distribution: '
422: || p_tab_fc_dist(i).distribution_type || 'Apply/Unapply that is hapenning simultaneously');
423: -- PREPAY APPLY/UNAPPLY NETTING LOGIC END
424:
425: else
433: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
434: CLOSE c_get_dist_info;
435: IF (l_parent_reversal_id IS NULL AND NVL(l_encum_flag, 'N') = 'N') THEN
436: l_process_dist := FALSE;
437: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered distribution :'||p_tab_fc_dist(i).inv_distribution_id);
438: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
439:
440: ELSIF (l_parent_reversal_id IS NOT NULL) THEN
441: OPEN c_get_dist_info(l_parent_reversal_id);
434: CLOSE c_get_dist_info;
435: IF (l_parent_reversal_id IS NULL AND NVL(l_encum_flag, 'N') = 'N') THEN
436: l_process_dist := FALSE;
437: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered distribution :'||p_tab_fc_dist(i).inv_distribution_id);
438: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
439:
440: ELSIF (l_parent_reversal_id IS NOT NULL) THEN
441: OPEN c_get_dist_info(l_parent_reversal_id);
442: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
442: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
443: CLOSE c_get_dist_info;
444: IF (NVL(l_encum_flag, 'N') = 'N') THEN
445: l_process_dist := FALSE;
446: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered distribution :'||p_tab_fc_dist(i).inv_distribution_id);
447: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
448: END IF;
449: END IF;
450: END IF;
443: CLOSE c_get_dist_info;
444: IF (NVL(l_encum_flag, 'N') = 'N') THEN
445: l_process_dist := FALSE;
446: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered distribution :'||p_tab_fc_dist(i).inv_distribution_id);
447: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
448: END IF;
449: END IF;
450: END IF;
451:
457: --FOR j IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST LOOP
458: --replaced above FOR loop with below, no need to loop for all dists
459: --now it will loop upto current dist counter (i) only
460: FOR j IN 1..i LOOP
461: psa_utils.debug_other_string(g_state_level,l_api_name,'checking for event exists '||p_tab_fc_dist(i).bc_event_id);
462: IF p_tab_fc_dist(j).bc_event_id = p_tab_fc_dist(i).bc_event_id and i<>j THEN
463: l_event_check := false;
464: psa_utils.debug_other_string(g_state_level,l_api_name,'Event has already checked for existence ' ||p_tab_fc_dist(i).bc_event_id);
465: EXIT;
460: FOR j IN 1..i LOOP
461: psa_utils.debug_other_string(g_state_level,l_api_name,'checking for event exists '||p_tab_fc_dist(i).bc_event_id);
462: IF p_tab_fc_dist(j).bc_event_id = p_tab_fc_dist(i).bc_event_id and i<>j THEN
463: l_event_check := false;
464: psa_utils.debug_other_string(g_state_level,l_api_name,'Event has already checked for existence ' ||p_tab_fc_dist(i).bc_event_id);
465: EXIT;
466: END IF;
467: END LOOP;
468: END IF;
501: p_org_id => p_tab_fc_dist(i).org_id,
502: p_calling_sequence => l_curr_calling_sequence);
503:
504: IF p_tab_fc_dist(i).bc_event_id IS NOT NULL THEN
505: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Id : p_tab_fc_dist(i).bc_event_id = '||p_tab_fc_dist(i).bc_event_id);
506:
507: -- Check for encumbered lines
508: psa_utils.debug_other_string(g_state_level,l_api_name,'Checking for encumbered_flag Lines');
509: OPEN c_exists_encumline(p_tab_fc_dist(i).bc_event_id,
504: IF p_tab_fc_dist(i).bc_event_id IS NOT NULL THEN
505: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Id : p_tab_fc_dist(i).bc_event_id = '||p_tab_fc_dist(i).bc_event_id);
506:
507: -- Check for encumbered lines
508: psa_utils.debug_other_string(g_state_level,l_api_name,'Checking for encumbered_flag Lines');
509: OPEN c_exists_encumline(p_tab_fc_dist(i).bc_event_id,
510: p_tab_fc_dist(i).invoice_id);
511: FETCH c_exists_encumline INTO dummy;
512: IF c_exists_encumline%FOUND THEN
510: p_tab_fc_dist(i).invoice_id);
511: FETCH c_exists_encumline INTO dummy;
512: IF c_exists_encumline%FOUND THEN
513: CLOSE c_exists_encumline;
514: psa_utils.debug_other_string(g_state_level,l_api_name,'Found encumbered distribution with this event:'||p_tab_fc_dist(i).bc_event_id);
515: psa_utils.debug_other_string(g_state_level,l_api_name,'Budgetary Control API will not delete this event:'||p_tab_fc_dist(i) .bc_event_id);
516: ELSE
517: CLOSE c_exists_encumline;
518:
511: FETCH c_exists_encumline INTO dummy;
512: IF c_exists_encumline%FOUND THEN
513: CLOSE c_exists_encumline;
514: psa_utils.debug_other_string(g_state_level,l_api_name,'Found encumbered distribution with this event:'||p_tab_fc_dist(i).bc_event_id);
515: psa_utils.debug_other_string(g_state_level,l_api_name,'Budgetary Control API will not delete this event:'||p_tab_fc_dist(i) .bc_event_id);
516: ELSE
517: CLOSE c_exists_encumline;
518:
519: IF XLA_EVENTS_PUB_PKG.event_exists
524: ,p_valuation_method => l_valuation_method
525: ,p_security_context => l_security_context
526: ) THEN
527:
528: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Id for the event that exists:'||p_tab_fc_dist(i).bc_event_id);
529: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling XLA_EVENTS_PUB_PKG.DELETE_EVENT to delete Event Id :'||p_tab_fc_dist(i).bc_event_id);
530: XLA_EVENTS_PUB_PKG.DELETE_EVENT(
531: p_event_source_info => l_event_source_info,
532: p_event_id => p_tab_fc_dist(i).bc_event_id,
525: ,p_security_context => l_security_context
526: ) THEN
527:
528: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Id for the event that exists:'||p_tab_fc_dist(i).bc_event_id);
529: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling XLA_EVENTS_PUB_PKG.DELETE_EVENT to delete Event Id :'||p_tab_fc_dist(i).bc_event_id);
530: XLA_EVENTS_PUB_PKG.DELETE_EVENT(
531: p_event_source_info => l_event_source_info,
532: p_event_id => p_tab_fc_dist(i).bc_event_id,
533: p_valuation_method => l_valuation_method,
532: p_event_id => p_tab_fc_dist(i).bc_event_id,
533: p_valuation_method => l_valuation_method,
534: p_security_context => l_security_context);
535:
536: psa_utils.debug_other_string(g_state_level,l_api_name,'After Delete of Event: '||p_tab_fc_dist(i).bc_event_id);
537:
538: -- commenting this IF condition as it should mark bc_event_id to null always if it has deleted
539: --IF p_bc_mode = 'C' THEN
540:
537:
538: -- commenting this IF condition as it should mark bc_event_id to null always if it has deleted
539: --IF p_bc_mode = 'C' THEN
540:
541: psa_utils.debug_other_string(g_state_level,l_api_name,'Updating bc_event_id to NULL for other distributions.');
542:
543: UPDATE ap_invoice_distributions_all
544: SET bc_event_id = NULL
545: WHERE bc_event_id = p_tab_fc_dist(i).bc_event_id
545: WHERE bc_event_id = p_tab_fc_dist(i).bc_event_id
546: AND invoice_id = p_tab_fc_dist(i).invoice_id
547: AND invoice_distribution_id <> p_tab_fc_dist(i).inv_distribution_id;
548:
549: psa_utils.debug_other_string(g_state_level,l_api_name,'Updated bc_event_id of '||SQL%ROWCOUNT||' distributions to NULL.');
550: --END IF;
551: END IF;
552: END IF;
553: END IF;
580: p_budgetary_control_flag => 'Y' );
581:
582:
583: IF l_event_id IS NULL THEN
584: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Id is null');
585:
586: RETURN;
587: END IF;
588:
623: aph.bc_event_id = p_tab_fc_dist(i).bc_event_id)
624: AND aph.prepay_history_id = (select max(prepay_history_id)
625: from ap_prepay_app_dists apd
626: where prepay_app_distribution_id = p_tab_fc_dist(i).inv_distribution_id);
627: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows updated of ap_prepay_history_all: ' || SQL%ROWCOUNT);
628:
629: UPDATE ap_prepay_app_dists apad
630: SET apad.bc_event_id = l_event_id
631: WHERE apad.PREPAY_APP_DISTRIBUTION_ID = p_tab_fc_dist(i).inv_distribution_id
630: SET apad.bc_event_id = l_event_id
631: WHERE apad.PREPAY_APP_DISTRIBUTION_ID = p_tab_fc_dist(i).inv_distribution_id
632: AND (apad.bc_event_id IS NULL or
633: apad.bc_event_id = p_tab_fc_dist(i).bc_event_id);
634: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows updated of ap_prepay_app_dists: ' || SQL%ROWCOUNT);
635: END IF;
636: IF nvl(p_tab_fc_dist(i).SELF_ASSESSED_FLAG , 'N') = 'N' THEN
637: UPDATE ap_invoice_distributions_all aid
638: SET bc_event_id = l_event_id
638: SET bc_event_id = l_event_id
639: WHERE aid.invoice_id = p_tab_fc_dist(i).invoice_id
640: AND aid.invoice_line_number = p_tab_fc_dist(i).inv_line_num
641: AND aid.invoice_distribution_id = p_tab_fc_dist(i).inv_distribution_id;
642: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows updated of ap_invoice_distributions_all: ' || SQL%ROWCOUNT);
643: ELSE -- added by KS
644:
645: UPDATE ap_self_assessed_tax_dist_all sad
646: SET bc_event_id = l_event_id
646: SET bc_event_id = l_event_id
647: WHERE sad.invoice_id = p_tab_fc_dist(i).invoice_id
648: AND sad.invoice_line_number = p_tab_fc_dist(i).inv_line_num
649: AND sad.invoice_distribution_id = p_tab_fc_dist(i).inv_distribution_id;
650: psa_utils.debug_other_string(g_state_level,l_api_name
651: ,'Number o f rows updated of ap_self_assesed_tax_dist_all: '
652: || SQL%ROWCOUNT);
653: END IF;
654:
656: END IF;
657: END LOOP;
658:
659: IF l_bc_event_count = 0 THEN
660: psa_utils.debug_other_string(g_state_level,l_api_name,'No events have been generated');
661: RETURN;
662: END IF;
663:
664: -- Bug 4884872 : Commit is introduced to retain bc_event_id
665: -- COMMIT; -- Removed for Bug 5139632
666:
667: FOR i IN 1..l_bc_event_count LOOP
668:
669: psa_utils.debug_other_string(g_state_level,l_api_name,'Loop Index i = '||i||' Event id = '||l_bc_event_tab(i).event_id);
670: INSERT into psa_bc_xla_events_gt(event_id,result_code)
671: VALUES (l_bc_event_tab(i).event_id,'XLA_UNPROCESSED');
672: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows inserted in psa_bc_xla_events_gt: ' || SQL%ROWCOUNT);
673: END LOOP;
668:
669: psa_utils.debug_other_string(g_state_level,l_api_name,'Loop Index i = '||i||' Event id = '||l_bc_event_tab(i).event_id);
670: INSERT into psa_bc_xla_events_gt(event_id,result_code)
671: VALUES (l_bc_event_tab(i).event_id,'XLA_UNPROCESSED');
672: psa_utils.debug_other_string(g_state_level,l_api_name,'Number of rows inserted in psa_bc_xla_events_gt: ' || SQL%ROWCOUNT);
673: END LOOP;
674:
675: -- Checking for if prepay and non-prepay distributions are sharing the same bc event BEGIN
676: -- AP poupulates the distributions for only one invoice at a time
676: -- AP poupulates the distributions for only one invoice at a time
677: --Hence using p_tab_fc_dist(1).invoice_id to join on invoice id
678:
679: BEGIN
680: psa_utils.debug_other_string(g_state_level,l_api_name,
681: 'Checking - Same bc_event_id stamped for prepay as well non-prepay distributions');
682:
683: SELECT 'Same bc_event_id stamped for prepay as well non-prepay distributions'
684: INTO l_sameBCevent
694: ,aid2.invoice_id
695: ,aid2.line_type_lookup_code)='N');
696:
697: x_return_status := Fnd_Api.G_Ret_Sts_Error;
698: psa_utils.debug_other_string(g_error_level,l_api_name, ' PSA_AP_BC_PVT.CREATE_EVENT Failed ');
699: psa_utils.debug_other_string(g_error_level,l_api_name,
700: 'ERROR: Wrong BC event stamped on distributions for invoice id: '
701: || p_tab_fc_dist(1).invoice_id );
702: RETURN;
695: ,aid2.line_type_lookup_code)='N');
696:
697: x_return_status := Fnd_Api.G_Ret_Sts_Error;
698: psa_utils.debug_other_string(g_error_level,l_api_name, ' PSA_AP_BC_PVT.CREATE_EVENT Failed ');
699: psa_utils.debug_other_string(g_error_level,l_api_name,
700: 'ERROR: Wrong BC event stamped on distributions for invoice id: '
701: || p_tab_fc_dist(1).invoice_id );
702: RETURN;
703: EXCEPTION
701: || p_tab_fc_dist(1).invoice_id );
702: RETURN;
703: EXCEPTION
704: when no_data_found then
705: psa_utils.debug_other_string(g_state_level,l_api_name, ' Sucussful - NO duplicate stamping');
706: END;
707:
708: -- Checking wrong bc event stamped on item/prepay distribution END
709:
717: FND_MESSAGE.SET_TOKEN('PARAMETERS',
718: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
719: ||',Calling_Mode = '|| p_calling_mode);
720: END IF;
721: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
722: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Create_Events Procedure' );
723: Fnd_Msg_Pub.Count_And_Get
724: (
725: p_count => x_msg_count,
718: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
719: ||',Calling_Mode = '|| p_calling_mode);
720: END IF;
721: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
722: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Create_Events Procedure' );
723: Fnd_Msg_Pub.Count_And_Get
724: (
725: p_count => x_msg_count,
726: p_data => x_msg_data
726: p_data => x_msg_data
727: );
728:
729: --APP_EXCEPTION.RAISE_EXCEPTION; --Bug 5149493
730: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Procedure Create_Events' );
731: END Create_Events;
732:
733: ---------------------------------------------------------------------------
734:
749:
750: BEGIN
751: l_api_name := g_full_path || '.Get_Detailed_Results';
752: x_return_status := Fnd_Api.G_Ret_Sts_Success;
753: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of Procedure Get_Detailed_Results' );
754: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
755:
756: Fnd_Msg_Pub.Initialize;
757:
806: GROUP BY p.source_distribution_id_num_1;
807:
808: END IF;
809:
810: psa_utils.debug_other_string(g_state_level
811: ,l_api_name
812: ,' Distribution ID:'|| p_tab_fc_dist(i).inv_distribution_id||
813: ', Result Code: '||p_tab_fc_dist(i).result_code||
814: ', Status Code: '||p_tab_fc_dist(i).status_code );
825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
826: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
827: END IF;
828:
829: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
830: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Get_Detailed_Results Procedure' );
831: Fnd_Msg_Pub.Count_And_Get
832: (
833: p_count => x_msg_count,
826: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
827: END IF;
828:
829: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
830: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Get_Detailed_Results Procedure' );
831: Fnd_Msg_Pub.Count_And_Get
832: (
833: p_count => x_msg_count,
834: p_data => x_msg_data
834: p_data => x_msg_data
835: );
836:
837: --APP_EXCEPTION.RAISE_EXCEPTION; --Bug 5149493
838: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Procedure Get_Detailed_Results' );
839: END Get_Detailed_Results;
840:
841:
842: /*============================================================================
873:
874: BEGIN
875: l_api_name := g_full_path || '.get_event_security_context';
876:
877: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of Procedure get_event_security_context' );
878:
879: l_event_security_context.security_id_int_1 := p_org_id;
880: psa_utils.debug_other_string(g_state_level,l_api_name,'security_id_int_1:' ||l_event_security_context.security_id_int_1 );
881:
876:
877: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of Procedure get_event_security_context' );
878:
879: l_event_security_context.security_id_int_1 := p_org_id;
880: psa_utils.debug_other_string(g_state_level,l_api_name,'security_id_int_1:' ||l_event_security_context.security_id_int_1 );
881:
882: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Procedure get_event_security_context' );
883:
884: RETURN l_event_security_context;
878:
879: l_event_security_context.security_id_int_1 := p_org_id;
880: psa_utils.debug_other_string(g_state_level,l_api_name,'security_id_int_1:' ||l_event_security_context.security_id_int_1 );
881:
882: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Procedure get_event_security_context' );
883:
884: RETURN l_event_security_context;
885:
886: END get_event_security_context;
913: l_debug_info VARCHAR2(100);
914:
915: BEGIN
916: l_api_name := g_full_path || '.Get_GL_FundsChk_Result_Code';
917: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of Procedure Get_GL_FundsChk_Result_Code' );
918:
919: ---------------------------------------------------------------
920: -- Retrieve GL Fundschecker Failure Result Code --
921: ---------------------------------------------------------------
918:
919: ---------------------------------------------------------------
920: -- Retrieve GL Fundschecker Failure Result Code --
921: ---------------------------------------------------------------
922: psa_utils.debug_other_string(g_state_level,l_api_name,'Retrieving GL Fundschecker Failure Result Code ');
923:
924: IF (g_debug_mode = 'Y') THEN
925: l_debug_info := l_debug_loc || ' - Retrieve GL Fundschecker ' ||
926: 'Failure Result Code ';
940: AND bc.result_code = l.lookup_code
941: )
942: AND rownum = 1;
943:
944: psa_utils.debug_other_string(g_state_level,l_api_name,'Result code:' ||p_fc_result_code );
945:
946: EXCEPTION
947: WHEN OTHERS THEN
948: NULL;
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
957: END IF;
958: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
959: APP_EXCEPTION.RAISE_EXCEPTION;
960: END Get_GL_FundsChk_Result_Code;
961:
962:
1010:
1011: -----------------------------------------------------------
1012: -- Retrieve the failure result_code from gl fundschecker --
1013: -----------------------------------------------------------
1014: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure Process_Fundschk_Failure_Code');
1015:
1016: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Get_GL_Fundschk_Result_Code');
1017:
1018: Get_GL_Fundschk_Result_Code(l_fc_result_code);
1012: -- Retrieve the failure result_code from gl fundschecker --
1013: -----------------------------------------------------------
1014: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure Process_Fundschk_Failure_Code');
1015:
1016: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Get_GL_Fundschk_Result_Code');
1017:
1018: Get_GL_Fundschk_Result_Code(l_fc_result_code);
1019:
1020: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Get_GL_Fundschk_Result_Code');
1016: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Get_GL_Fundschk_Result_Code');
1017:
1018: Get_GL_Fundschk_Result_Code(l_fc_result_code);
1019:
1020: psa_utils.debug_other_string(g_state_level,l_api_name,'End of Get_GL_Fundschk_Result_Code');
1021:
1022: ------------------------------------------------------------
1023: -- Process gl fundscheck failure result code to determine --
1024: -- which failure message to return to the user --
1039: ---------------------------------------------------------------
1040: -- return generic failure message
1041: ---------------------------------------------------------------
1042: p_return_message_name := 'AP_FCK_FAILED_FUNDSCHECKER';
1043: psa_utils.debug_other_string(g_error_level,l_api_name,'No Data Found');
1044:
1045: END;
1046:
1047: EXCEPTION
1054: 'Invoice_id = '|| to_char(p_invoice_id)
1055: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1056: END IF;
1057:
1058: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Process_Fundschk_Failure_Code Procedure');
1059: APP_EXCEPTION.RAISE_EXCEPTION;
1060:
1061: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure Process_Fundschk_Failure_Code');
1062:
1057:
1058: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Process_Fundschk_Failure_Code Procedure');
1059: APP_EXCEPTION.RAISE_EXCEPTION;
1060:
1061: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure Process_Fundschk_Failure_Code');
1062:
1063: END Process_Fundschk_Failure_Code;
1064:
1065: ---------------------------------------------------------------------------
1095: BEGIN
1096:
1097: l_api_name := g_full_path || '.get_event_type_code';
1098:
1099: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure get_event_type_code');
1100: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: ' ||p_inv_dist_id);
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1096:
1097: l_api_name := g_full_path || '.get_event_type_code';
1098:
1099: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure get_event_type_code');
1100: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: ' ||p_inv_dist_id);
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1104: psa_utils.debug_other_string(g_state_level,l_api_name,'p_calling_mode: '||p_calling_mode);
1097: l_api_name := g_full_path || '.get_event_type_code';
1098:
1099: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure get_event_type_code');
1100: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: ' ||p_inv_dist_id);
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1104: psa_utils.debug_other_string(g_state_level,l_api_name,'p_calling_mode: '||p_calling_mode);
1105: psa_utils.debug_other_string(g_state_level,l_api_name,'p_bc_mode: '||p_bc_mode);
1098:
1099: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure get_event_type_code');
1100: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: ' ||p_inv_dist_id);
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1104: psa_utils.debug_other_string(g_state_level,l_api_name,'p_calling_mode: '||p_calling_mode);
1105: psa_utils.debug_other_string(g_state_level,l_api_name,'p_bc_mode: '||p_bc_mode);
1106:
1099: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure get_event_type_code');
1100: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: ' ||p_inv_dist_id);
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1104: psa_utils.debug_other_string(g_state_level,l_api_name,'p_calling_mode: '||p_calling_mode);
1105: psa_utils.debug_other_string(g_state_level,l_api_name,'p_bc_mode: '||p_bc_mode);
1106:
1107: -- Initialize Distribution Type
1100: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: ' ||p_inv_dist_id);
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1104: psa_utils.debug_other_string(g_state_level,l_api_name,'p_calling_mode: '||p_calling_mode);
1105: psa_utils.debug_other_string(g_state_level,l_api_name,'p_bc_mode: '||p_bc_mode);
1106:
1107: -- Initialize Distribution Type
1108: l_distribution_type := p_distribution_type;
1101: psa_utils.debug_other_string(g_state_level,l_api_name,'p_invoice_type_code: '||p_invoice_type_code);
1102: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_type: '||p_distribution_type);
1103: psa_utils.debug_other_string(g_state_level,l_api_name,'p_distribution_amount: '||p_distribution_amount);
1104: psa_utils.debug_other_string(g_state_level,l_api_name,'p_calling_mode: '||p_calling_mode);
1105: psa_utils.debug_other_string(g_state_level,l_api_name,'p_bc_mode: '||p_bc_mode);
1106:
1107: -- Initialize Distribution Type
1108: l_distribution_type := p_distribution_type;
1109:
1140: INTO l_event_type_code
1141: FROM dual;
1142: END IF;
1143:
1144: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Type Code:'||l_event_type_code );
1145: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure get_event_type_code');
1146: RETURN l_event_type_code;
1147:
1148: END get_event_type_code;
1141: FROM dual;
1142: END IF;
1143:
1144: psa_utils.debug_other_string(g_state_level,l_api_name,'Event Type Code:'||l_event_type_code );
1145: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure get_event_type_code');
1146: RETURN l_event_type_code;
1147:
1148: END get_event_type_code;
1149:
1357:
1358: l_calling_sequence := substr('Reinstate_PO_Enc'||'<-'||p_calling_sequence,1,100);
1359: l_api_name := g_full_path || '.Reinstate_PO_Encumbrance';
1360:
1361: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of procedure Reinstate_PO_Encumbrance');
1362: -- Initiliaze the local variables
1363: l_match_rows := 0;
1364: l_process_dist := TRUE;
1365:
1365:
1366: -- Start process
1367: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST
1368: LOOP --PLSQL table loop
1369: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Id = '||p_tab_fc_dist(i).invoice_id);
1370: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Distribution id = '||p_tab_fc_dist(i).inv_distribution_id);
1371: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Line Number = '||p_tab_fc_dist(i).inv_line_num);
1372: psa_utils.debug_other_string(g_state_level,l_api_name,'Org id = '||p_tab_fc_dist(i).org_id);
1373: psa_utils.debug_other_string(g_state_level,l_api_name,'Set of Books id = '||p_tab_fc_dist(i).set_of_books_id);
1366: -- Start process
1367: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST
1368: LOOP --PLSQL table loop
1369: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Id = '||p_tab_fc_dist(i).invoice_id);
1370: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Distribution id = '||p_tab_fc_dist(i).inv_distribution_id);
1371: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Line Number = '||p_tab_fc_dist(i).inv_line_num);
1372: psa_utils.debug_other_string(g_state_level,l_api_name,'Org id = '||p_tab_fc_dist(i).org_id);
1373: psa_utils.debug_other_string(g_state_level,l_api_name,'Set of Books id = '||p_tab_fc_dist(i).set_of_books_id);
1374:
1367: FOR i IN p_tab_fc_dist.FIRST..p_tab_fc_dist.LAST
1368: LOOP --PLSQL table loop
1369: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Id = '||p_tab_fc_dist(i).invoice_id);
1370: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Distribution id = '||p_tab_fc_dist(i).inv_distribution_id);
1371: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Line Number = '||p_tab_fc_dist(i).inv_line_num);
1372: psa_utils.debug_other_string(g_state_level,l_api_name,'Org id = '||p_tab_fc_dist(i).org_id);
1373: psa_utils.debug_other_string(g_state_level,l_api_name,'Set of Books id = '||p_tab_fc_dist(i).set_of_books_id);
1374:
1375: /* Check for Invoice CANCEL event, we will not pick the distribution
1368: LOOP --PLSQL table loop
1369: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Id = '||p_tab_fc_dist(i).invoice_id);
1370: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Distribution id = '||p_tab_fc_dist(i).inv_distribution_id);
1371: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Line Number = '||p_tab_fc_dist(i).inv_line_num);
1372: psa_utils.debug_other_string(g_state_level,l_api_name,'Org id = '||p_tab_fc_dist(i).org_id);
1373: psa_utils.debug_other_string(g_state_level,l_api_name,'Set of Books id = '||p_tab_fc_dist(i).set_of_books_id);
1374:
1375: /* Check for Invoice CANCEL event, we will not pick the distribution
1376: which are not encumbered and their related cancel line bind by
1369: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Id = '||p_tab_fc_dist(i).invoice_id);
1370: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Distribution id = '||p_tab_fc_dist(i).inv_distribution_id);
1371: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Line Number = '||p_tab_fc_dist(i).inv_line_num);
1372: psa_utils.debug_other_string(g_state_level,l_api_name,'Org id = '||p_tab_fc_dist(i).org_id);
1373: psa_utils.debug_other_string(g_state_level,l_api_name,'Set of Books id = '||p_tab_fc_dist(i).set_of_books_id);
1374:
1375: /* Check for Invoice CANCEL event, we will not pick the distribution
1376: which are not encumbered and their related cancel line bind by
1377: parent_reversal_id */
1381: OPEN c_get_dist_info(p_tab_fc_dist(i).inv_distribution_id);
1382: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
1383: CLOSE c_get_dist_info;
1384:
1385: psa_utils.debug_other_string(g_state_level,l_api_name, 'l_parent_reversal_id = '||l_parent_reversal_id);
1386: psa_utils.debug_other_string(g_state_level,l_api_name, 'l_encum_flag = '||l_encum_flag);
1387:
1388: IF (l_parent_reversal_id IS NULL AND NVL(l_encum_flag, 'N') = 'N') THEN
1389: l_process_dist := FALSE;
1382: FETCH c_get_dist_info INTO l_parent_reversal_id, l_encum_flag;
1383: CLOSE c_get_dist_info;
1384:
1385: psa_utils.debug_other_string(g_state_level,l_api_name, 'l_parent_reversal_id = '||l_parent_reversal_id);
1386: psa_utils.debug_other_string(g_state_level,l_api_name, 'l_encum_flag = '||l_encum_flag);
1387:
1388: IF (l_parent_reversal_id IS NULL AND NVL(l_encum_flag, 'N') = 'N') THEN
1389: l_process_dist := FALSE;
1390:
1387:
1388: IF (l_parent_reversal_id IS NULL AND NVL(l_encum_flag, 'N') = 'N') THEN
1389: l_process_dist := FALSE;
1390:
1391: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1392: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1393:
1394: ELSIF (l_parent_reversal_id IS NOT NULL) THEN
1395:
1388: IF (l_parent_reversal_id IS NULL AND NVL(l_encum_flag, 'N') = 'N') THEN
1389: l_process_dist := FALSE;
1390:
1391: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1392: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1393:
1394: ELSIF (l_parent_reversal_id IS NOT NULL) THEN
1395:
1396: OPEN c_get_bc_event_id(l_parent_reversal_id);
1406: l_process_dist := TRUE;
1407:
1408: ELSIF (NVL(l_encum_flag, 'N') = 'N') THEN
1409: l_process_dist := FALSE;
1410: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered reversal distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1411: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1412: END IF;
1413: END IF;
1414:
1407:
1408: ELSIF (NVL(l_encum_flag, 'N') = 'N') THEN
1409: l_process_dist := FALSE;
1410: psa_utils.debug_other_string(g_state_level,l_api_name,'Found non-encumbered reversal distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1411: psa_utils.debug_other_string(g_state_level,l_api_name,'We will not process this distribution :'||p_tab_fc_dist(i).inv_distribution_id);
1412: END IF;
1413: END IF;
1414:
1415: IF l_process_dist THEN
1454: ,l_po_rate
1455: ,l_po_price;
1456:
1457: IF cur_process_fc_dists%NOTFOUND THEN
1458: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice distribution not matched to PO ');
1459:
1460: CLOSE cur_process_fc_dists;
1461: EXIT;
1462: END IF;
1462: END IF;
1463:
1464: IF l_po_dist_id is not null Then
1465:
1466: psa_utils.debug_other_string(g_state_level,l_api_name,'Matced PO distribution id ');
1467:
1468: l_po_api_counter := l_po_api_counter +1;
1469:
1470: --convert quantity invoiced to PO uom
1472: l_uom_conv_rate := po_uom_s.po_uom_convert(l_rtxn_uom
1473: ,l_po_uom
1474: ,l_rtxn_item_id);
1475:
1476: psa_utils.debug_other_string(g_state_level,l_api_name,'UOM Conversion Rate = '||l_uom_conv_rate);
1477:
1478: END IF;
1479:
1480: --Not a Tax Distribution Line
1478: END IF;
1479:
1480: --Not a Tax Distribution Line
1481: IF l_dist_line_type <>'TAX' THEN
1482: psa_utils.debug_other_string(g_state_level,l_api_name,'Distribution line Type = '||l_dist_line_type);
1483: psa_utils.debug_other_string(g_state_level,l_api_name,'Match Basis = '||l_match_basis);
1484:
1485: IF l_match_basis = 'QUANTITY' THEN
1486:
1479:
1480: --Not a Tax Distribution Line
1481: IF l_dist_line_type <>'TAX' THEN
1482: psa_utils.debug_other_string(g_state_level,l_api_name,'Distribution line Type = '||l_dist_line_type);
1483: psa_utils.debug_other_string(g_state_level,l_api_name,'Match Basis = '||l_match_basis);
1484:
1485: IF l_match_basis = 'QUANTITY' THEN
1486:
1487: if l_po_uom <> l_rtxn_uom then
1489: else
1490: l_inv_qty := l_qty_invoiced;
1491: end if;
1492:
1493: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice Quantity = '||l_inv_qty);
1494:
1495: l_po_erv := AP_UTILITIES_PKG.ap_round_currency(
1496: ((l_inv_rate - l_po_rate) *
1497: (l_inv_qty * l_po_price)),
1495: l_po_erv := AP_UTILITIES_PKG.ap_round_currency(
1496: ((l_inv_rate - l_po_rate) *
1497: (l_inv_qty * l_po_price)),
1498: l_inv_currency_code);
1499: psa_utils.debug_other_string(g_state_level,l_api_name,'PO erv = '||l_po_erv);
1500:
1501: IF l_match_option ='P' THEN /* match option starts */
1502: l_base_reverse_po_enc_amt := l_base_dist_line_amt -
1503: (l_bqv + l_bipv + l_erv);
1505: l_base_reverse_po_enc_amt := l_base_dist_line_amt -
1506: (l_bqv + l_bipv + l_po_erv);
1507: END IF; /* match option ends*/
1508:
1509: psa_utils.debug_other_string(g_state_level,l_api_name,'Base Reverse PO enc amount = '||l_base_reverse_po_enc_amt);
1510:
1511: ELSE
1512: l_po_erv := AP_UTILITIES_PKG.ap_round_currency(
1513: ((l_inv_rate - l_po_rate) *
1513: ((l_inv_rate - l_po_rate) *
1514: l_dist_line_amt),
1515: l_inv_currency_code);
1516:
1517: psa_utils.debug_other_string(g_state_level,l_api_name,'PO erv = '||l_po_erv);
1518:
1519: IF l_match_option ='P' THEN /* match option starts */
1520: l_base_reverse_po_enc_amt := l_base_dist_line_amt -
1521: (l_bav + l_bipv + l_erv);
1524: (l_bav + l_bipv + l_po_erv);
1525:
1526: END IF; /* match option ends */
1527:
1528: psa_utils.debug_other_string(g_state_level,l_api_name,'Base Reverse PO enc amount = '||l_base_reverse_po_enc_amt);
1529:
1530: END IF; /* match basis 'QUANTITY' */
1531:
1532: po_api_table_t(l_po_api_counter).l_api_rev_po_enc_amt :=
1540: end if;
1541:
1542: END IF; /* l_dist_line_type <>'TAX' */
1543:
1544: psa_utils.debug_other_string(g_state_level,l_api_name,'Distribution line Type = '||l_dist_line_type);
1545:
1546: --Tax distribution line
1547: IF l_dist_line_type IN ('TAX','NONREC_TAX') THEN
1548:
1551: * (nvl(l_po_rate/100,0)
1552: *(100-nvl(l_po_recov_rate,0))/100),
1553: l_inv_currency_code);
1554:
1555: psa_utils.debug_other_string(g_state_level,l_api_name,'Tax Unencumberance Amount = '||l_tax_unencumber_amt);
1556:
1557: po_api_table_t(l_po_api_counter).l_api_rev_po_enc_amt :=
1558: l_tax_unencumber_amt * (-1);
1559: po_api_table_t(l_po_api_counter).l_api_tax_flag := 'Y';
1569: po_api_table_t(l_po_api_counter).l_api_period_year := l_period_year;
1570: po_api_table_t(l_po_api_counter).l_api_period_num := l_period_num;
1571: po_api_table_t(l_po_api_counter).l_api_quarter_num := l_quarter_num;
1572: ELSE -- not matched po case
1573: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoice distribution not matched to PO ');
1574:
1575:
1576: END IF; -- close for matched case
1577:
1582: END LOOP; --PLSQL end loop
1583:
1584: x_return_status := Fnd_Api.G_Ret_Sts_Success;
1585: IF po_api_table_t.count > 0 THEN
1586: psa_utils.debug_other_string(g_state_level,l_api_name,'po_api_table_t.count '||po_api_table_t.count);
1587: FOR i IN po_api_table_t.FIRST..po_api_table_t.LAST
1588: LOOP
1589:
1590: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoking PO_INTG_DOCUMENT_FUNDS_GRP.Reinstate_PO_Encumbrance ');
1586: psa_utils.debug_other_string(g_state_level,l_api_name,'po_api_table_t.count '||po_api_table_t.count);
1587: FOR i IN po_api_table_t.FIRST..po_api_table_t.LAST
1588: LOOP
1589:
1590: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoking PO_INTG_DOCUMENT_FUNDS_GRP.Reinstate_PO_Encumbrance ');
1591:
1592:
1593: PO_INTG_DOCUMENT_FUNDS_GRP.reinstate_po_encumbrance(
1594: p_api_version => 1.0,
1610: p_tax_line_flag => po_api_table_t(i).l_api_tax_flag);
1611:
1612: --return status
1613: IF l_return_status <> 'S' THEN
1614: psa_utils.debug_other_string(g_state_level,l_api_name,'Failed for PO distribution '||po_api_table_t(i).l_api_po_dist_id );
1615: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1616: Exit;
1617: END IF;
1618:
1620:
1621: po_api_table_t.DELETE;
1622: ELSE
1623:
1624: psa_utils.debug_other_string(g_state_level,l_api_name,'Success - zero PO matched rows ' );
1625:
1626:
1627: END IF;
1628:
1636: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1637: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1638: ||',Calling_Mode = CANCEL ');
1639: END IF;
1640: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Reinstate_PO_Encumbrance Procedure');
1641: Fnd_Msg_Pub.Count_And_Get
1642: (
1643: p_count => x_msg_count,
1644: p_data => x_msg_data
1709:
1710: l_calling_sequence := 'PSA_AP_BC_PVT.Get_PO_Reversed_Encumb_Amount -> '
1711: ||substr(p_calling_sequence,1,100);
1712:
1713: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Sequence : ' || l_calling_sequence );
1714: psa_utils.debug_other_string(g_state_level,l_api_name,'PO Distribution Id : ' || P_Po_Distribution_Id );
1715: psa_utils.debug_other_string(g_state_level,l_api_name,'Start GL Date :' || P_Start_gl_Date );
1716: psa_utils.debug_other_string(g_state_level,l_api_name,'End GL Date :' || P_End_gl_Date );
1717:
1710: l_calling_sequence := 'PSA_AP_BC_PVT.Get_PO_Reversed_Encumb_Amount -> '
1711: ||substr(p_calling_sequence,1,100);
1712:
1713: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Sequence : ' || l_calling_sequence );
1714: psa_utils.debug_other_string(g_state_level,l_api_name,'PO Distribution Id : ' || P_Po_Distribution_Id );
1715: psa_utils.debug_other_string(g_state_level,l_api_name,'Start GL Date :' || P_Start_gl_Date );
1716: psa_utils.debug_other_string(g_state_level,l_api_name,'End GL Date :' || P_End_gl_Date );
1717:
1718: -- fetch the profile value
1711: ||substr(p_calling_sequence,1,100);
1712:
1713: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Sequence : ' || l_calling_sequence );
1714: psa_utils.debug_other_string(g_state_level,l_api_name,'PO Distribution Id : ' || P_Po_Distribution_Id );
1715: psa_utils.debug_other_string(g_state_level,l_api_name,'Start GL Date :' || P_Start_gl_Date );
1716: psa_utils.debug_other_string(g_state_level,l_api_name,'End GL Date :' || P_End_gl_Date );
1717:
1718: -- fetch the profile value
1719: l_r12_upgrade_date :=to_date( Fnd_Profile.Value_Wnps
1712:
1713: psa_utils.debug_other_string(g_state_level,l_api_name,'Calling Sequence : ' || l_calling_sequence );
1714: psa_utils.debug_other_string(g_state_level,l_api_name,'PO Distribution Id : ' || P_Po_Distribution_Id );
1715: psa_utils.debug_other_string(g_state_level,l_api_name,'Start GL Date :' || P_Start_gl_Date );
1716: psa_utils.debug_other_string(g_state_level,l_api_name,'End GL Date :' || P_End_gl_Date );
1717:
1718: -- fetch the profile value
1719: l_r12_upgrade_date :=to_date( Fnd_Profile.Value_Wnps
1720: ('PSA_R12_UPGRADE_DATE'), 'MM/DD/RRRR HH24:MI:SS');
1718: -- fetch the profile value
1719: l_r12_upgrade_date :=to_date( Fnd_Profile.Value_Wnps
1720: ('PSA_R12_UPGRADE_DATE'), 'MM/DD/RRRR HH24:MI:SS');
1721:
1722: psa_utils.debug_other_string(g_state_level,l_api_name,'PSA_R12_UPGRADE_DATE :' || l_r12_upgrade_date );
1723:
1724:
1725: OPEN cur_dist_creation_date(p_po_distribution_id);
1726: FETCH cur_dist_creation_date INTO l_dist_creation_date;
1725: OPEN cur_dist_creation_date(p_po_distribution_id);
1726: FETCH cur_dist_creation_date INTO l_dist_creation_date;
1727: CLOSE cur_dist_creation_date;
1728:
1729: psa_utils.debug_other_string(g_state_level,l_api_name,'Distribution creation Date :' || l_dist_creation_date );
1730:
1731: OPEN cur_get_po_encum_rev_amt;
1732: FETCH cur_get_po_encum_rev_amt INTO l_r12_unencumbered_amount;
1733: CLOSE cur_get_po_encum_rev_amt;
1731: OPEN cur_get_po_encum_rev_amt;
1732: FETCH cur_get_po_encum_rev_amt INTO l_r12_unencumbered_amount;
1733: CLOSE cur_get_po_encum_rev_amt;
1734:
1735: psa_utils.debug_other_string(g_state_level,l_api_name,'R12 Unencumbered Amount from AP distributions: ' || l_r12_unencumbered_amount);
1736:
1737: -- IF l_dist_creation_date <= l_r12_upgrade_date THEN
1738:
1739: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoking AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount' );
1735: psa_utils.debug_other_string(g_state_level,l_api_name,'R12 Unencumbered Amount from AP distributions: ' || l_r12_unencumbered_amount);
1736:
1737: -- IF l_dist_creation_date <= l_r12_upgrade_date THEN
1738:
1739: psa_utils.debug_other_string(g_state_level,l_api_name,'Invoking AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount' );
1740:
1741:
1742: l_unencumbered_amount:= AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount
1743: (P_po_distribution_id
1748:
1749: --dbms_output.put_line (' p_po_dist_id ' || p_po_distribution_id || ' 11i amt' || l_unencumbered_amount);
1750:
1751:
1752: psa_utils.debug_other_string(g_state_level,l_api_name,'End of AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount' );
1753: psa_utils.debug_other_string(g_state_level,l_api_name,'Unencumbered Amount from AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount' || l_unencumbered_amount);
1754:
1755:
1756: l_unencumbered_amount := NVL(l_unencumbered_amount, 0) + NVL(l_r12_unencumbered_amount,0);
1749: --dbms_output.put_line (' p_po_dist_id ' || p_po_distribution_id || ' 11i amt' || l_unencumbered_amount);
1750:
1751:
1752: psa_utils.debug_other_string(g_state_level,l_api_name,'End of AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount' );
1753: psa_utils.debug_other_string(g_state_level,l_api_name,'Unencumbered Amount from AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount' || l_unencumbered_amount);
1754:
1755:
1756: l_unencumbered_amount := NVL(l_unencumbered_amount, 0) + NVL(l_r12_unencumbered_amount,0);
1757:
1758:
1759: -- ELSIF l_dist_creation_date > l_r12_upgrade_date THEN
1760: -- l_unencumbered_amount := l_r12_unencumbered_amount;
1761:
1762: --psa_utils.debug_other_string(g_state_level,l_api_name,'Unencumbered Amount from AP distributions: ' || l_unencumbered_amount);
1763:
1764: --ELSE
1765: -- IF l_r12_upgrade_date IS NULL THEN
1766: -- l_unencumbered_amount:= AP_UTILITIES_PKG.Get_PO_Reversed_Encumb_Amount
1771: -- l_unencumbered_amount := NVL(l_unencumbered_amount, 0) + NVL(l_r12_unencumbered_amount,0);
1772: -- END IF;
1773: --END IF;
1774:
1775: psa_utils.debug_other_string(g_state_level,l_api_name,'Unencumbered Amount : ' || l_unencumbered_amount);
1776:
1777:
1778: RETURN l_unencumbered_amount;
1779:
1779:
1780: EXCEPTION
1781: WHEN OTHERS THEN
1782:
1783: psa_utils.debug_other_string(g_excep_level,l_api_name,'ERROR: ' || SQLERRM(sqlcode));
1784: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Get_PO_Reversed_Encumb_Amount Procedure');
1785:
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END Get_PO_Reversed_Encumb_Amount;
1780: EXCEPTION
1781: WHEN OTHERS THEN
1782:
1783: psa_utils.debug_other_string(g_excep_level,l_api_name,'ERROR: ' || SQLERRM(sqlcode));
1784: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Get_PO_Reversed_Encumb_Amount Procedure');
1785:
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END Get_PO_Reversed_Encumb_Amount;
1788: -------------------------------------------------------------
1811: BEGIN
1812:
1813: l_api_name := g_full_path || '.isprepaydist';
1814:
1815: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of function isprepaydist');
1816: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: '||p_inv_dist_id);
1817: psa_utils.debug_other_string(g_state_level,l_api_name,'p_dist_type:'||p_dist_type);
1818:
1819: -- Initialize Distribution Type
1812:
1813: l_api_name := g_full_path || '.isprepaydist';
1814:
1815: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of function isprepaydist');
1816: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: '||p_inv_dist_id);
1817: psa_utils.debug_other_string(g_state_level,l_api_name,'p_dist_type:'||p_dist_type);
1818:
1819: -- Initialize Distribution Type
1820: l_distribution_type := p_dist_type;
1813: l_api_name := g_full_path || '.isprepaydist';
1814:
1815: psa_utils.debug_other_string(g_state_level,l_api_name,'Begin of function isprepaydist');
1816: psa_utils.debug_other_string(g_state_level,l_api_name,'p_inv_dist_id: '||p_inv_dist_id);
1817: psa_utils.debug_other_string(g_state_level,l_api_name,'p_dist_type:'||p_dist_type);
1818:
1819: -- Initialize Distribution Type
1820: l_distribution_type := p_dist_type;
1821:
1832: FETCH c_get_parent_dist_type INTO l_distribution_type;
1833: CLOSE c_get_parent_dist_type;
1834: END IF;
1835:
1836: psa_utils.debug_other_string(g_state_level,l_api_name,'l_distribution_ype:'||l_distribution_type);
1837: IF l_distribution_type <> 'PREPAY' THEN
1838: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure isprepaydist');
1839: RETURN 'N';
1840: END IF;
1834: END IF;
1835:
1836: psa_utils.debug_other_string(g_state_level,l_api_name,'l_distribution_ype:'||l_distribution_type);
1837: IF l_distribution_type <> 'PREPAY' THEN
1838: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure isprepaydist');
1839: RETURN 'N';
1840: END IF;
1841: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure isprepaydist');
1842: RETURN 'Y';
1837: IF l_distribution_type <> 'PREPAY' THEN
1838: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure isprepaydist');
1839: RETURN 'N';
1840: END IF;
1841: psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure isprepaydist');
1842: RETURN 'Y';
1843: END isprepaydist;
1844: -------------------------------------------------------------
1845: END PSA_AP_BC_PVT;