9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
21:
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
21:
22:
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
21:
22:
23: /*=============================================================================
95: --
96: current_calling_sequence := 'init<-'||P_calling_sequence;
97:
98: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(+)');
100: END IF;
101:
102: -- Bug 5048503 : starts
103: -------------------------------------------------
195: l_vendor_num_list.DELETE;
196: l_vendor_name_list.DELETE;
197:
198: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
199: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(-)');
200: END IF;
201:
202:
203:
219: END IF;
220:
221: debug_info := 'In Others Exception';
222: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
224: END IF;
225: --
226: -- Bug 5048503. changed vendor to vendor_cur
227: IF ( vendor_cur%ISOPEN ) THEN
329:
330: current_calling_sequence := 'insert_ap_inv_lines_interface<-'||P_calling_sequence;
331:
332: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
333: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
334: 'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(+)');
335: END IF;
336: -----------------------------------------------
337: debug_info := 'Step 5a. build shipment list';
437: l_release_num_list.DELETE;
438: l_po_shipment_num_list.DELETE;
439:
440: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
441: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(-)');
442: END IF;
443:
444:
445: EXCEPTION
461: END IF;
462:
463: debug_info := 'In Others Exception';
464: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
465: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
466: END IF;
467: --
468: IF ( shipment%ISOPEN ) THEN
469: CLOSE shipment;
560: --
561: current_calling_sequence := 'CADIP<-'||P_calling_sequence ;
562:
563: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(+)');
565: END IF;
566:
567: -----------------------------------------------------------------
568: debug_info := 'Step 1. Generate a Group Id(Invoice Gateway Batch';
720: END IF;
721: --
722:
723: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
724: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(-)');
725: END IF;
726:
727: RETURN(TRUE);
728: --
731:
732: FND_FILE.PUT_LINE(FND_FILE.LOG, fnd_message.GET);
733: debug_info := 'In Allow_paid_Invoice_Adjust Exception';
734: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
735: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
736: END IF;
737:
738:
739: RETURN TRUE;
754: ||',p_resubmit_flag: '||p_resubmit_flag);
755:
756: debug_info := 'In request_submission_failure Exception';
757: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
758: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
759: END IF;
760:
761: RETURN FALSE;
762:
777: END IF;
778:
779: debug_info := 'In Others Exception';
780: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
782: END IF;
783:
784: APP_EXCEPTION.RAISE_EXCEPTION;
785: RETURN FALSE;
944: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'
945: ||P_Calling_Sequence;
946:
947: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
948: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');
949: END IF;
950:
951: ---------------------------------------------------------------------------
952: debug_info := 'Reverse_Existing_Ppa_Dists Step 1. Open cursor '
1045: l_existing_ppa_dist_list.DELETE;
1046: l_ppa_invoice_dists_list.DELETE;
1047:
1048: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(-)');
1050: END IF;
1051: --
1052: RETURN(TRUE);
1053: --
1057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1058: debug_info);
1059: debug_info := 'In Others Exception';
1060: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
1062: END IF;
1063: END IF;
1064: --
1065: IF (SQLCODE < 0) then
3269: current_calling_sequence :=
3270: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;
3271:
3272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');
3274: END IF;
3275: --
3276: ---------------------------------------------------------------------------
3277: debug_info := 'Create_Po_Price_Adjustments Step 1. Compute Po Price Adj '
3466: l_ppa_invoice_dists_list.DELETE;
3467: l_item_dists_list.DELETE;
3468:
3469: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3470: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(-)');
3471: END IF;
3472: --
3473: RETURN(TRUE);
3474: --
3566: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'
3567: ||P_calling_sequence;
3568:
3569: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3570: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');
3571: END IF;
3572:
3573: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3574:
4246: l_qc_lines_list.DELETE;
4247: l_tax_lines_list.DELETE;
4248:
4249: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4250: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(-)');
4251: END IF;
4252: --
4253: RETURN(TRUE);
4254: --
5345: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'
5346: ||P_calling_sequence;
5347:
5348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');
5350: END IF;
5351: --
5352: ---------------------------------------------------------------------------
5353: debug_info := 'Validate_Temp_Ppa_Invoices Step 1. Open Invoice_Header';
5520: l_invoice_header_list.DELETE;
5521: l_invoice_lines_list.DELETE;
5522:
5523: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5524: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(-)');
5525: END IF;
5526:
5527: RETURN(TRUE);
5528: --
5653: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'
5654: ||P_calling_sequence;
5655:
5656: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5657: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');
5658: END IF;
5659: --
5660: i := 1;
5661: l_ppa_invoices_count := 0;
5668: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5669: END IF;
5670:
5671: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5672: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5673: END IF;
5674:
5675: -----------------------------------------------------------------------
5676: OPEN ppa_invoices;
5705: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5706: END IF;
5707:
5708: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5709: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5710: END IF;
5711: -------------------------------------------------------------------
5712: IF (l_invoice_currency_code <> l_payment_currency_code) AND
5713: (l_payment_cross_rate is NOT NULL) THEN
5805: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5806: END IF;
5807:
5808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5809: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5810: END IF;
5811:
5812:
5813: EXCEPTION
5831: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5832: END IF;
5833:
5834: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5835: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5836: END IF;
5837: ------------------------------------------------------------------------
5838: INSERT INTO ap_invoices_All(
5839: accts_pay_code_combination_id,
6130: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6131: END IF;
6132:
6133: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6135: END IF;
6136:
6137: -------------------------------------------------------------------
6138: AP_CREATE_PAY_SCHEDS_PKG.AP_Create_From_Terms(
6161: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6162: END IF;
6163:
6164: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6166: END IF;
6167:
6168: ------------------------------------------------------------------------
6169: INSERT INTO AP_INVOICE_LINES_ALL(
6451: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6452: END IF;
6453:
6454: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6455: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6456: END IF;
6457: ------------------------------------------------------------------------
6458: INSERT INTO ap_invoice_distributions_all(
6459: accounting_date,
6694: p_ppa_invoices_count := l_ppa_invoices_count;
6695: p_ppa_invoices_total := l_ppa_invoices_total;
6696:
6697: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6698: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(-)');
6699: END IF;
6700: --
6701: RETURN(TRUE);
6702: --
6907: current_calling_sequence :=
6908: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;
6909:
6910: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6911: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');
6912: END IF;
6913: ---------------------------------------------------------------------------
6914: -- Step 1.Check if the base matched Invoices affected by retropricing are
6915: -- Valid. Also all the Price Corrections and Quantity corrections on the
7870:
7871: END IF;
7872:
7873: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7874: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(-)');
7875: END IF;
7876: --
7877: RETURN (TRUE);
7878: --
7883: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7884:
7885: debug_info := 'In Others Exception';
7886: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7887: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
7888: END IF;
7889:
7890: END IF;
7891: