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;
621: end if;
622: l_uom := 'DOLLARS'; -- bug 4145856
623:
624:
625: fnd_message.set_name('PJM','CONC-APINV IPV Transfer');
626: PJM_CONC.put_line(fnd_message.get || ' ...');
627: PJM_CONC.new_line(1);
628:
629: PJM_CONC.put_line('[PROJECT_ID] = ' || X_Project_Id);
622: l_uom := 'DOLLARS'; -- bug 4145856
623:
624:
625: fnd_message.set_name('PJM','CONC-APINV IPV Transfer');
626: PJM_CONC.put_line(fnd_message.get || ' ...');
627: PJM_CONC.new_line(1);
628:
629: PJM_CONC.put_line('[PROJECT_ID] = ' || X_Project_Id);
630: PJM_CONC.put_line('[START_DATE] = ' || X_Start_Date);
638:
639: PJM_CONC.put_line('[REQUEST_ID] = ' || l_request_id);
640: PJM_CONC.new_line(1);
641:
642: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
643: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
644: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
645: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
646: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
639: PJM_CONC.put_line('[REQUEST_ID] = ' || l_request_id);
640: PJM_CONC.new_line(1);
641:
642: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
643: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
644: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
645: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
646: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
647: l_Batch_Name := Batch_Name;
640: PJM_CONC.new_line(1);
641:
642: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
643: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
644: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
645: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
646: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
647: l_Batch_Name := Batch_Name;
648:
641:
642: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
643: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
644: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
645: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
646: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
647: l_Batch_Name := Batch_Name;
648:
649: PJM_CONC.put_line('Batch_Name = ' || l_batch_name);
642: l_IPV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV IPV');
643: l_ERV_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV ERV');
644: l_Freight_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV FREIGHT');
645: l_Tax_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV TAX');
646: l_Misc_Exp_Comment := fnd_message.get_string('PJM','CONC-APINV MISC');
647: l_Batch_Name := Batch_Name;
648:
649: PJM_CONC.put_line('Batch_Name = ' || l_batch_name);
650: PJM_CONC.new_line(1);
653: -- Loop for transfering Variances from Invoice_Distribution_All to
654: -- PA_Transaction_Interface_All
655: ----------------------------------------------------------------------
656:
657: fnd_message.set_name('PJM','CONC-APINV Start Loop');
658: PJM_CONC.put_line(fnd_message.get || ' ...');
659:
660: Timestamp;
661:
654: -- PA_Transaction_Interface_All
655: ----------------------------------------------------------------------
656:
657: fnd_message.set_name('PJM','CONC-APINV Start Loop');
658: PJM_CONC.put_line(fnd_message.get || ' ...');
659:
660: Timestamp;
661:
662: if (x_project_id is not null) then
790: ----------------------------------------------------------------------
791: -- Insert into PA_TRANSACTION_INTERFACES table
792: ----------------------------------------------------------------------
793:
794: fnd_message.set_name('PJM','CONC-APINV Insert');
795: PJM_CONC.put_line('... ' || fnd_message.get);
796:
797: if not ( InvRec.Dist_Code_Combination_Id is not null AND
798: nvl(nvl(InvRec.Base_Charge_Amount,
791: -- Insert into PA_TRANSACTION_INTERFACES table
792: ----------------------------------------------------------------------
793:
794: fnd_message.set_name('PJM','CONC-APINV Insert');
795: PJM_CONC.put_line('... ' || fnd_message.get);
796:
797: if not ( InvRec.Dist_Code_Combination_Id is not null AND
798: nvl(nvl(InvRec.Base_Charge_Amount,
799: InvRec.Charge_Amount) , 0) <> 0 ) then
1009: ----------------------------------------------------------------------
1010: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1011: ----------------------------------------------------------------------
1012:
1013: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1014: PJM_CONC.put_line('... ' || fnd_message.get);
1015: PJM_CONC.new_line(1);
1016:
1017: l_progress := 80;
1010: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1011: ----------------------------------------------------------------------
1012:
1013: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1014: PJM_CONC.put_line('... ' || fnd_message.get);
1015: PJM_CONC.new_line(1);
1016:
1017: l_progress := 80;
1018:
1158: ----------------------------------------------------------------------
1159: -- Insert into PA_TRANSACTION_INTERFACES table
1160: ----------------------------------------------------------------------
1161:
1162: fnd_message.set_name('PJM','CONC-APINV Insert');
1163: PJM_CONC.put_line('... ' || fnd_message.get);
1164:
1165: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1166: nvl(nvl(InvRec.Base_Charge_Amount,
1159: -- Insert into PA_TRANSACTION_INTERFACES table
1160: ----------------------------------------------------------------------
1161:
1162: fnd_message.set_name('PJM','CONC-APINV Insert');
1163: PJM_CONC.put_line('... ' || fnd_message.get);
1164:
1165: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1166: nvl(nvl(InvRec.Base_Charge_Amount,
1167: InvRec.Charge_Amount) , 0) <> 0 ) then
1377: ----------------------------------------------------------------------
1378: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1379: ----------------------------------------------------------------------
1380:
1381: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1382: PJM_CONC.put_line('... ' || fnd_message.get);
1383: PJM_CONC.new_line(1);
1384:
1385: l_progress := 88;
1378: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1379: ----------------------------------------------------------------------
1380:
1381: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1382: PJM_CONC.put_line('... ' || fnd_message.get);
1383: PJM_CONC.new_line(1);
1384:
1385: l_progress := 88;
1386:
1533: ----------------------------------------------------------------------
1534: -- Insert into PA_TRANSACTION_INTERFACES table
1535: ----------------------------------------------------------------------
1536:
1537: fnd_message.set_name('PJM','CONC-APINV Insert');
1538: PJM_CONC.put_line('... ' || fnd_message.get);
1539:
1540: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1541: nvl(nvl(InvRec.Base_Charge_Amount,
1534: -- Insert into PA_TRANSACTION_INTERFACES table
1535: ----------------------------------------------------------------------
1536:
1537: fnd_message.set_name('PJM','CONC-APINV Insert');
1538: PJM_CONC.put_line('... ' || fnd_message.get);
1539:
1540: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1541: nvl(nvl(InvRec.Base_Charge_Amount,
1542: InvRec.Charge_Amount) , 0) <> 0 ) then
1751: ----------------------------------------------------------------------
1752: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1753: ----------------------------------------------------------------------
1754:
1755: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1756: PJM_CONC.put_line('... ' || fnd_message.get);
1757: PJM_CONC.new_line(1);
1758:
1759: l_progress := 160;
1752: -- Update pa_addition_flag to 'Y' for successful invoice distributions
1753: ----------------------------------------------------------------------
1754:
1755: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
1756: PJM_CONC.put_line('... ' || fnd_message.get);
1757: PJM_CONC.new_line(1);
1758:
1759: l_progress := 160;
1760:
1898: ----------------------------------------------------------------------
1899: -- Insert into PA_TRANSACTION_INTERFACES table
1900: ----------------------------------------------------------------------
1901:
1902: fnd_message.set_name('PJM','CONC-APINV Insert');
1903: PJM_CONC.put_line('... ' || fnd_message.get);
1904:
1905: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1906: nvl(nvl(InvRec.Base_Charge_Amount,
1899: -- Insert into PA_TRANSACTION_INTERFACES table
1900: ----------------------------------------------------------------------
1901:
1902: fnd_message.set_name('PJM','CONC-APINV Insert');
1903: PJM_CONC.put_line('... ' || fnd_message.get);
1904:
1905: if not ( InvRec.Dist_Code_Combination_Id is not null AND
1906: nvl(nvl(InvRec.Base_Charge_Amount,
1907: InvRec.Charge_Amount) , 0) <> 0 ) then
2116: ----------------------------------------------------------------------
2117: -- Update pa_addition_flag to 'Y' for successful invoice distributions
2118: ----------------------------------------------------------------------
2119:
2120: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
2121: PJM_CONC.put_line('... ' || fnd_message.get);
2122: PJM_CONC.new_line(1);
2123:
2124: l_progress := 168;
2117: -- Update pa_addition_flag to 'Y' for successful invoice distributions
2118: ----------------------------------------------------------------------
2119:
2120: fnd_message.set_name('PJM','CONC-APINV Flag Comp');
2121: PJM_CONC.put_line('... ' || fnd_message.get);
2122: PJM_CONC.new_line(1);
2123:
2124: l_progress := 168;
2125:
2145:
2146: END IF; -- End of both with project specified or without conditions
2147:
2148: COMMIT;
2149: fnd_message.set_name('PJM','CONC-APINV Finish Loop');
2150: PJM_CONC.put_line(fnd_message.get || ' ...');
2151: PJM_CONC.new_line(1);
2152:
2153: Timestamp;
2146: END IF; -- End of both with project specified or without conditions
2147:
2148: COMMIT;
2149: fnd_message.set_name('PJM','CONC-APINV Finish Loop');
2150: PJM_CONC.put_line(fnd_message.get || ' ...');
2151: PJM_CONC.new_line(1);
2152:
2153: Timestamp;
2154: