224: PROCEDURE Timestamp IS
225: Current_Time DATE;
226: BEGIN
227: Current_Time := sysdate;
228: fnd_message_cache.set_name('FND' , 'UTIL-CURRENT TIME');
229: fnd_message_cache.set_token('DATE' , fnd_date.date_to_displaydate(Current_Time));
230: fnd_message_cache.set_token('TIME' , to_char(Current_Time , 'HH24:MI:SS'));
231: PJM_CONC.put_line(fnd_message_cache.get);
232: PJM_CONC.new_line(1);
225: Current_Time DATE;
226: BEGIN
227: Current_Time := sysdate;
228: fnd_message_cache.set_name('FND' , 'UTIL-CURRENT TIME');
229: fnd_message_cache.set_token('DATE' , fnd_date.date_to_displaydate(Current_Time));
230: fnd_message_cache.set_token('TIME' , to_char(Current_Time , 'HH24:MI:SS'));
231: PJM_CONC.put_line(fnd_message_cache.get);
232: PJM_CONC.new_line(1);
233: EXCEPTION
226: BEGIN
227: Current_Time := sysdate;
228: fnd_message_cache.set_name('FND' , 'UTIL-CURRENT TIME');
229: fnd_message_cache.set_token('DATE' , fnd_date.date_to_displaydate(Current_Time));
230: fnd_message_cache.set_token('TIME' , to_char(Current_Time , 'HH24:MI:SS'));
231: PJM_CONC.put_line(fnd_message_cache.get);
232: PJM_CONC.new_line(1);
233: EXCEPTION
234: WHEN OTHERS THEN
227: Current_Time := sysdate;
228: fnd_message_cache.set_name('FND' , 'UTIL-CURRENT TIME');
229: fnd_message_cache.set_token('DATE' , fnd_date.date_to_displaydate(Current_Time));
230: fnd_message_cache.set_token('TIME' , to_char(Current_Time , 'HH24:MI:SS'));
231: PJM_CONC.put_line(fnd_message_cache.get);
232: PJM_CONC.new_line(1);
233: EXCEPTION
234: WHEN OTHERS THEN
235: NULL;
636: end if;
637: l_uom := 'DOLLARS'; -- bug 4145856
638:
639:
640: fnd_message.set_name('PJM','CONC-APINV IPV Transfer');
641: PJM_CONC.put_line(fnd_message.get || ' ...');
642: PJM_CONC.new_line(1);
643:
644: PJM_CONC.put_line('[PROJECT_ID] = ' || X_Project_Id);
637: l_uom := 'DOLLARS'; -- bug 4145856
638:
639:
640: fnd_message.set_name('PJM','CONC-APINV IPV Transfer');
641: PJM_CONC.put_line(fnd_message.get || ' ...');
642: PJM_CONC.new_line(1);
643:
644: PJM_CONC.put_line('[PROJECT_ID] = ' || X_Project_Id);
645: PJM_CONC.put_line('[START_DATE] = ' || X_Start_Date);
654:
655: PJM_CONC.put_line('[REQUEST_ID] = ' || l_request_id);
656: PJM_CONC.new_line(1);
657:
658: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
659: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
660: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
661: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
662: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
655: PJM_CONC.put_line('[REQUEST_ID] = ' || l_request_id);
656: PJM_CONC.new_line(1);
657:
658: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
659: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
660: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
661: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
662: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
663: l_Batch_Name := Batch_Name;
656: PJM_CONC.new_line(1);
657:
658: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
659: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
660: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
661: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
662: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
663: l_Batch_Name := Batch_Name;
664:
657:
658: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
659: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
660: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
661: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
662: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
663: l_Batch_Name := Batch_Name;
664:
665: PJM_CONC.put_line('Batch_Name = ' || l_batch_name);
658: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
659: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
660: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
661: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
662: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
663: l_Batch_Name := Batch_Name;
664:
665: PJM_CONC.put_line('Batch_Name = ' || l_batch_name);
666: PJM_CONC.new_line(1);
669: -- Loop for transfering Variances from Invoice_Distribution_All to
670: -- PA_Transaction_Interface_All
671: ----------------------------------------------------------------------
672:
673: fnd_message.set_name('PJM','CONC-APINV Start Loop');
674: PJM_CONC.put_line(fnd_message.get || ' ...');
675:
676: Timestamp;
677:
670: -- PA_Transaction_Interface_All
671: ----------------------------------------------------------------------
672:
673: fnd_message.set_name('PJM','CONC-APINV Start Loop');
674: PJM_CONC.put_line(fnd_message.get || ' ...');
675:
676: Timestamp;
677:
678: if (x_project_id is not null) then
862: ----------------------------------------------------------------------
863: -- Insert into PA_TRANSACTION_INTERFACES table
864: ----------------------------------------------------------------------
865:
866: fnd_message.set_name('PJM','CONC-APINV Insert');
867: PJM_CONC.put_line('... ' || fnd_message.get);
868:
869: if not ( InvRec.Dist_Code_Combination_Id is not null AND
870: nvl(nvl(InvRec.Base_Charge_Amount,
863: -- Insert into PA_TRANSACTION_INTERFACES table
864: ----------------------------------------------------------------------
865:
866: fnd_message.set_name('PJM','CONC-APINV Insert');
867: PJM_CONC.put_line('... ' || fnd_message.get);
868:
869: if not ( InvRec.Dist_Code_Combination_Id is not null AND
870: nvl(nvl(InvRec.Base_Charge_Amount,
871: InvRec.Charge_Amount) , 0) <> 0 ) then
1088: ----------------------------------------------------------------------
1089: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1090: ----------------------------------------------------------------------
1091:
1092: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1093: PJM_CONC.put_line('... ' || fnd_message.get);
1094: PJM_CONC.new_line(1);
1095:
1096: l_progress := 80;
1089: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1090: ----------------------------------------------------------------------
1091:
1092: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1093: PJM_CONC.put_line('... ' || fnd_message.get);
1094: PJM_CONC.new_line(1);
1095:
1096: l_progress := 80;
1097:
1296: ----------------------------------------------------------------------
1297: -- Insert into PA_TRANSACTION_INTERFACES table
1298: ----------------------------------------------------------------------
1299:
1300: fnd_message.set_name('PJM','CONC-APINV Insert');
1301: PJM_CONC.put_line('... ' || fnd_message.get);
1302:
1303: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1304: nvl(nvl(InvRec.Base_Charge_Amount,
1297: -- Insert into PA_TRANSACTION_INTERFACES table
1298: ----------------------------------------------------------------------
1299:
1300: fnd_message.set_name('PJM','CONC-APINV Insert');
1301: PJM_CONC.put_line('... ' || fnd_message.get);
1302:
1303: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1304: nvl(nvl(InvRec.Base_Charge_Amount,
1305: InvRec.Charge_Amount) , 0) <> 0 ) then
1521: ----------------------------------------------------------------------
1522: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1523: ----------------------------------------------------------------------
1524:
1525: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1526: PJM_CONC.put_line('... ' || fnd_message.get);
1527: PJM_CONC.new_line(1);
1528:
1529: l_progress := 88;
1522: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1523: ----------------------------------------------------------------------
1524:
1525: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1526: PJM_CONC.put_line('... ' || fnd_message.get);
1527: PJM_CONC.new_line(1);
1528:
1529: l_progress := 88;
1530:
1735: ----------------------------------------------------------------------
1736: -- Insert into PA_TRANSACTION_INTERFACES table
1737: ----------------------------------------------------------------------
1738:
1739: fnd_message.set_name('PJM','CONC-APINV Insert');
1740: PJM_CONC.put_line('... ' || fnd_message.get);
1741:
1742: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1743: nvl(nvl(InvRec.Base_Charge_Amount,
1736: -- Insert into PA_TRANSACTION_INTERFACES table
1737: ----------------------------------------------------------------------
1738:
1739: fnd_message.set_name('PJM','CONC-APINV Insert');
1740: PJM_CONC.put_line('... ' || fnd_message.get);
1741:
1742: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1743: nvl(nvl(InvRec.Base_Charge_Amount,
1744: InvRec.Charge_Amount) , 0) <> 0 ) then
1960: ----------------------------------------------------------------------
1961: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1962: ----------------------------------------------------------------------
1963:
1964: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1965: PJM_CONC.put_line('... ' || fnd_message.get);
1966: PJM_CONC.new_line(1);
1967:
1968: l_progress := 160;
1961: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1962: ----------------------------------------------------------------------
1963:
1964: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1965: PJM_CONC.put_line('... ' || fnd_message.get);
1966: PJM_CONC.new_line(1);
1967:
1968: l_progress := 160;
1969:
2163: ----------------------------------------------------------------------
2164: -- Insert into PA_TRANSACTION_INTERFACES table
2165: ----------------------------------------------------------------------
2166:
2167: fnd_message.set_name('PJM','CONC-APINV Insert');
2168: PJM_CONC.put_line('... ' || fnd_message.get);
2169:
2170: if not ( InvRec.Dist_Code_Combination_Id is not null AND
2171: nvl(nvl(InvRec.Base_Charge_Amount,
2164: -- Insert into PA_TRANSACTION_INTERFACES table
2165: ----------------------------------------------------------------------
2166:
2167: fnd_message.set_name('PJM','CONC-APINV Insert');
2168: PJM_CONC.put_line('... ' || fnd_message.get);
2169:
2170: if not ( InvRec.Dist_Code_Combination_Id is not null AND
2171: nvl(nvl(InvRec.Base_Charge_Amount,
2172: InvRec.Charge_Amount) , 0) <> 0 ) then
2389: ----------------------------------------------------------------------
2390: -- Update pa_addition_flag to 'Y' for successful invoice distributions
2391: ----------------------------------------------------------------------
2392:
2393: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
2394: PJM_CONC.put_line('... ' || fnd_message.get);
2395: PJM_CONC.new_line(1);
2396:
2397: l_progress := 168;
2390: -- Update pa_addition_flag to 'Y' for successful invoice distributions
2391: ----------------------------------------------------------------------
2392:
2393: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
2394: PJM_CONC.put_line('... ' || fnd_message.get);
2395: PJM_CONC.new_line(1);
2396:
2397: l_progress := 168;
2398:
2418:
2419: END IF; -- End of both with project specified or without conditions
2420:
2421: COMMIT;
2422: fnd_message.set_name('PJM','CONC-APINV Finish Loop');
2423: PJM_CONC.put_line(fnd_message.get || ' ...');
2424: PJM_CONC.new_line(1);
2425:
2426: Timestamp;
2419: END IF; -- End of both with project specified or without conditions
2420:
2421: COMMIT;
2422: fnd_message.set_name('PJM','CONC-APINV Finish Loop');
2423: PJM_CONC.put_line(fnd_message.get || ' ...');
2424: PJM_CONC.new_line(1);
2425:
2426: Timestamp;
2427: