[Home] [Help]
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH; G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
20:
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
20:
21:
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
20:
21:
22: /*=============================================================================
94: --
95: current_calling_sequence := 'init<-'||P_calling_sequence;
96:
97: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
98: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(+)');
99: END IF;
100:
101: -- Bug 5048503 : starts
102: -------------------------------------------------
194: l_vendor_num_list.DELETE;
195: l_vendor_name_list.DELETE;
196:
197: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
198: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(-)');
199: END IF;
200:
201:
202:
218: END IF;
219:
220: debug_info := 'In Others Exception';
221: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
222: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
223: END IF;
224: --
225: -- Bug 5048503. changed vendor to vendor_cur
226: IF ( vendor_cur%ISOPEN ) THEN
328:
329: current_calling_sequence := 'insert_ap_inv_lines_interface<-'||P_calling_sequence;
330:
331: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
333: 'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(+)');
334: END IF;
335: -----------------------------------------------
336: debug_info := 'Step 5a. build shipment list';
427: l_release_num_list.DELETE;
428: l_po_shipment_num_list.DELETE;
429:
430: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
431: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(-)');
432: END IF;
433:
434:
435: EXCEPTION
451: END IF;
452:
453: debug_info := 'In Others Exception';
454: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
455: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
456: END IF;
457: --
458: IF ( shipment%ISOPEN ) THEN
459: CLOSE shipment;
550: --
551: current_calling_sequence := 'CADIP<-'||P_calling_sequence ;
552:
553: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
554: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(+)');
555: END IF;
556:
557: -----------------------------------------------------------------
558: debug_info := 'Step 1. Generate a Group Id(Invoice Gateway Batch';
706: END IF;
707: --
708:
709: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
710: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(-)');
711: END IF;
712:
713: RETURN(TRUE);
714: --
717:
718: FND_FILE.PUT_LINE(FND_FILE.LOG, fnd_message.GET);
719: debug_info := 'In Allow_paid_Invoice_Adjust Exception';
720: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
722: END IF;
723:
724:
725: RETURN TRUE;
740: ||',p_resubmit_flag: '||p_resubmit_flag);
741:
742: debug_info := 'In request_submission_failure Exception';
743: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
744: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
745: END IF;
746:
747: RETURN FALSE;
748:
763: END IF;
764:
765: debug_info := 'In Others Exception';
766: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
767: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
768: END IF;
769:
770: APP_EXCEPTION.RAISE_EXCEPTION;
771: RETURN FALSE;
927: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'
928: ||P_Calling_Sequence;
929:
930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');
932: END IF;
933:
934: ---------------------------------------------------------------------------
935: debug_info := 'Reverse_Existing_Ppa_Dists Step 1. Open cursor '
1011: l_existing_ppa_dist_list.DELETE;
1012: l_ppa_invoice_dists_list.DELETE;
1013:
1014: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1015: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(-)');
1016: END IF;
1017: --
1018: RETURN(TRUE);
1019: --
1023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1024: debug_info);
1025: debug_info := 'In Others Exception';
1026: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1027: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
1028: END IF;
1029: END IF;
1030: --
1031: IF (SQLCODE < 0) then
3020: current_calling_sequence :=
3021: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;
3022:
3023: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3024: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');
3025: END IF;
3026: --
3027: ---------------------------------------------------------------------------
3028: debug_info := 'Create_Po_Price_Adjustments Step 1. Compute Po Price Adj '
3216: l_ppa_invoice_dists_list.DELETE;
3217: l_item_dists_list.DELETE;
3218:
3219: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3220: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(-)');
3221: END IF;
3222: --
3223: RETURN(TRUE);
3224: --
3316: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'
3317: ||P_calling_sequence;
3318:
3319: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');
3321: END IF;
3322:
3323: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3324:
3992: l_qc_lines_list.DELETE;
3993: l_tax_lines_list.DELETE;
3994:
3995: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3996: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(-)');
3997: END IF;
3998: --
3999: RETURN(TRUE);
4000: --
5008: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'
5009: ||P_calling_sequence;
5010:
5011: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');
5013: END IF;
5014: --
5015: ---------------------------------------------------------------------------
5016: debug_info := 'Validate_Temp_Ppa_Invoices Step 1. Open Invoice_Header';
5166: l_invoice_header_list.DELETE;
5167: l_invoice_lines_list.DELETE;
5168:
5169: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5170: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(-)');
5171: END IF;
5172:
5173: RETURN(TRUE);
5174: --
5289: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'
5290: ||P_calling_sequence;
5291:
5292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5293: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');
5294: END IF;
5295: --
5296: i := 1;
5297: l_ppa_invoices_count := 0;
5304: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5305: END IF;
5306:
5307: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5308: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5309: END IF;
5310:
5311: -----------------------------------------------------------------------
5312: OPEN ppa_invoices;
5340: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5341: END IF;
5342:
5343: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5344: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5345: END IF;
5346: -------------------------------------------------------------------
5347: IF (l_invoice_currency_code <> l_payment_currency_code) AND
5348: (l_payment_cross_rate is NOT NULL) THEN
5379: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5380: END IF;
5381:
5382: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5383: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5384: END IF;
5385: ------------------------------------------------------------------------
5386: INSERT INTO ap_invoices_All(
5387: accts_pay_code_combination_id,
5672: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5673: END IF;
5674:
5675: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5677: END IF;
5678:
5679: -------------------------------------------------------------------
5680: AP_CREATE_PAY_SCHEDS_PKG.AP_Create_From_Terms(
5703: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5704: END IF;
5705:
5706: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5708: END IF;
5709:
5710: ------------------------------------------------------------------------
5711: INSERT INTO AP_INVOICE_LINES_ALL(
5992: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5993: END IF;
5994:
5995: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5996: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5997: END IF;
5998: ------------------------------------------------------------------------
5999: INSERT INTO ap_invoice_distributions_all(
6000: accounting_date,
6223: p_ppa_invoices_count := l_ppa_invoices_count;
6224: p_ppa_invoices_total := l_ppa_invoices_total;
6225:
6226: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6227: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(-)');
6228: END IF;
6229: --
6230: RETURN(TRUE);
6231: --
6416: current_calling_sequence :=
6417: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;
6418:
6419: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');
6421: END IF;
6422: ---------------------------------------------------------------------------
6423: -- Step 1.Check if the base matched Invoices affected by retropricing are
6424: -- Valid. Also all the Price Corrections and Quantity corrections on the
6993:
6994: END IF;
6995:
6996: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(-)');
6998: END IF;
6999: --
7000: RETURN (TRUE);
7001: --
7006: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7007:
7008: debug_info := 'In Others Exception';
7009: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
7011: END IF;
7012:
7013: END IF;
7014: