[Home] [Help]
330: where award_project_id = X_Award_Project_id
331: FOR UPDATE NOWAIT;
332:
333: IF L_DEBUG = 'Y' THEN
334: gms_error_pkg.gms_debug('After Locking Award','C');
335: END IF;
336:
337: for installment_records in Cur_installment_lock
338: loop
352: END;
353: end loop;
354:
355: IF L_DEBUG = 'Y' THEN
356: gms_error_pkg.gms_debug('After Locking Installments','C');
357: END IF;
358:
359: Exception
360:
363: Raise AWARD_DATA_LOCKED;
364:
365: When OTHERS THEN
366:
367: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
368: 'SQLCODE',
369: SQLCODE,
370: 'SQLERRM',
371: SQLERRM,
712:
713: If (f_bill_amount <> 0 or
714: f_rev_amount <> 0) then
715:
716: gms_error_pkg.gms_message ('GMS_BILLING_ROLLBACK_EVT',
717: 'PRJ',
718: f_act_project_id,
719: 'TASK',
720: f_act_task_id,
766: X_event_type VARCHAR2(10);
767: BEGIN
768:
769: IF L_DEBUG = 'Y' THEN
770: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - START', 'C');
771: END IF;
772: X_event_type := UPPER(X_calling_process);
773:
774: -- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
776:
777: If X_INVRAW_NULL_EVENT_PROCESSED then
778:
779: IF L_DEBUG = 'Y' THEN
780: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: Rollback Invoice raw events','C');
781: END IF;
782:
783: billing_rollback(X_award_project_id,
784: --X_calling_process,
786: X_Err_Code,
787: X_Err_Buff);
788:
789: IF L_DEBUG = 'Y' THEN
790: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: After Rollback Invoice raw events,X_Err_Code:'||X_Err_Code,'C');
791: END IF;
792:
793: If X_Err_Code <> 0 then
794: gms_error_pkg.gms_message('GMS_BILLING_ROLLBACK_FAILURE',
790: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: After Rollback Invoice raw events,X_Err_Code:'||X_Err_Code,'C');
791: END IF;
792:
793: If X_Err_Code <> 0 then
794: gms_error_pkg.gms_message('GMS_BILLING_ROLLBACK_FAILURE',
795: 'PRJ',
796: X_award_project_id,
797: X_Exec_Type => 'C',
798: X_Err_Code => X_Err_Code,
807:
808: If X_REVRAW_NULL_EVENT_PROCESSED then
809:
810: IF L_DEBUG = 'Y' THEN
811: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: Revenue Raw - ADL update', 'C');
812: END IF;
813:
814: Update gms_award_distributions
815: set revenue_distributed_flag = decode(revenue_distributed_flag,'Y','Z','Z','N')
824: )
825: and document_type = 'EXP';
826:
827: IF L_DEBUG = 'Y' THEN
828: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: Revenue Raw - Delete records', 'C');
829: END IF;
830:
831: Delete
832: from gms_event_intersect
844:
845: If X_event_type = 'INVOICE' then
846:
847: IF L_DEBUG = 'Y' THEN
848: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: Invoice Burden - ADL Update', 'C');
849: END IF;
850:
851: Update gms_award_distributions
852: set billed_flag = decode(billed_flag,'Y','Z','Z','N')
863:
864: ElsIf X_event_type = 'REVENUE' then
865:
866: IF L_DEBUG = 'Y' THEN
867: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: Revenue Burden - ADL Update', 'C');
868: END IF;
869:
870: Update gms_award_distributions
871: set revenue_distributed_flag = decode(revenue_distributed_flag,'Y','Z','Z','N')
882:
883: End if;
884:
885: IF L_DEBUG = 'Y' THEN
886: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - Stage: Burden - Delete records', 'C');
887: END IF;
888:
889: Delete
890: from gms_burden_components
897:
898: -- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
899: X_err_code := 0;
900: IF L_DEBUG = 'Y' THEN
901: gms_error_pkg.gms_debug('In DELETE_NULL_EVENTS - END', 'C');
902: END IF;
903: -- Not handling exceptions in this procedure .. exceptions falls to award_billing
904: End DELETE_NULL_EVENTS;
905: ***************************/
959: for update NOWAIT;
960:
961: Exception
962: When others then
963: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
964: 'SQLCODE',
965: SQLCODE,
966: 'SQLERRM',
967: SQLERRM,
970: X_Err_Buff => X_Err_Buff);
971: End;
972:
973: When others then
974: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
975: 'SQLCODE',
976: SQLCODE,
977: 'SQLERRM',
978: SQLERRM,
1040: where expenditure_item_id = Bill_Hold_Rec.expenditure_item_id;
1041:
1042: if sql%notfound then
1043:
1044: gms_error_pkg.gms_message('GMS_NO_UPD_AWD_EXP_ADL',
1045: 'AWD',
1046: Bill_Hold_Rec.award_id,
1047: 'EXP',
1048: Bill_Hold_Rec.expenditure_item_id,
1078: Begin
1079: X_Count_Rec := X_inst_amt.COUNT;
1080:
1081: IF L_DEBUG = 'Y' THEN
1082: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - X_Count_Rec:'||X_Count_Rec,'C');
1083: END IF;
1084:
1085: If nvl(X_Count_rec,0) > 0 then
1086:
1084:
1085: If nvl(X_Count_rec,0) > 0 then
1086:
1087: IF L_DEBUG = 'Y' THEN
1088: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - If nvl(X_Count_rec,0) > 0','C');
1089: END IF;
1090:
1091: for X_Rec_Count in 1..X_Count_Rec
1092: loop
1091: for X_Rec_Count in 1..X_Count_Rec
1092: loop
1093:
1094: IF L_DEBUG = 'Y' THEN
1095: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP','C');
1096: END IF;
1097:
1098: X_Counter:= X_Counter+1;
1099:
1104: X_inst_amt(X_Counter).rev_bill_amount := X_inst_amt(X_Counter).rev_bill_amount + X_Rev_Bill_Amt;
1105: X_match := 'Y';
1106:
1107: IF L_DEBUG = 'Y' THEN
1108: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF ','C');
1109: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF installment_id:'||X_inst_amt(X_Counter).installment_id,'C');
1110: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_project_id:'||X_inst_amt(X_Counter).actual_project_id,'C');
1111: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_task_id:'||X_inst_amt(X_Counter).actual_task_id,'C');
1112: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF rev_bill_amount:'||X_Rev_Bill_Amt,'C');
1105: X_match := 'Y';
1106:
1107: IF L_DEBUG = 'Y' THEN
1108: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF ','C');
1109: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF installment_id:'||X_inst_amt(X_Counter).installment_id,'C');
1110: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_project_id:'||X_inst_amt(X_Counter).actual_project_id,'C');
1111: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_task_id:'||X_inst_amt(X_Counter).actual_task_id,'C');
1112: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF rev_bill_amount:'||X_Rev_Bill_Amt,'C');
1113: END IF;
1106:
1107: IF L_DEBUG = 'Y' THEN
1108: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF ','C');
1109: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF installment_id:'||X_inst_amt(X_Counter).installment_id,'C');
1110: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_project_id:'||X_inst_amt(X_Counter).actual_project_id,'C');
1111: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_task_id:'||X_inst_amt(X_Counter).actual_task_id,'C');
1112: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF rev_bill_amount:'||X_Rev_Bill_Amt,'C');
1113: END IF;
1114:
1107: IF L_DEBUG = 'Y' THEN
1108: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF ','C');
1109: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF installment_id:'||X_inst_amt(X_Counter).installment_id,'C');
1110: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_project_id:'||X_inst_amt(X_Counter).actual_project_id,'C');
1111: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_task_id:'||X_inst_amt(X_Counter).actual_task_id,'C');
1112: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF rev_bill_amount:'||X_Rev_Bill_Amt,'C');
1113: END IF;
1114:
1115: exit;
1108: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF ','C');
1109: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF installment_id:'||X_inst_amt(X_Counter).installment_id,'C');
1110: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_project_id:'||X_inst_amt(X_Counter).actual_project_id,'C');
1111: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF actual_task_id:'||X_inst_amt(X_Counter).actual_task_id,'C');
1112: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN IF rev_bill_amount:'||X_Rev_Bill_Amt,'C');
1113: END IF;
1114:
1115: exit;
1116: end if;
1126: X_inst_amt(nvl(X_Counter,0) + 1).actual_project_id := X_Actual_Project_Id;
1127: X_inst_amt(nvl(X_Counter,0) + 1).actual_task_id := X_Task_Id;
1128:
1129: IF L_DEBUG = 'Y' THEN
1130: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO ','C');
1131: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO installment_id:'||X_Installment_id,'C');
1132: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_project_id:'||X_Actual_Project_Id,'C');
1133: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_task_id:'||X_Task_Id,'C');
1134: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO X_Rev_Bill_Amt:'||X_Rev_Bill_Amt,'C');
1127: X_inst_amt(nvl(X_Counter,0) + 1).actual_task_id := X_Task_Id;
1128:
1129: IF L_DEBUG = 'Y' THEN
1130: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO ','C');
1131: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO installment_id:'||X_Installment_id,'C');
1132: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_project_id:'||X_Actual_Project_Id,'C');
1133: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_task_id:'||X_Task_Id,'C');
1134: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO X_Rev_Bill_Amt:'||X_Rev_Bill_Amt,'C');
1135: END IF;
1128:
1129: IF L_DEBUG = 'Y' THEN
1130: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO ','C');
1131: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO installment_id:'||X_Installment_id,'C');
1132: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_project_id:'||X_Actual_Project_Id,'C');
1133: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_task_id:'||X_Task_Id,'C');
1134: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO X_Rev_Bill_Amt:'||X_Rev_Bill_Amt,'C');
1135: END IF;
1136:
1129: IF L_DEBUG = 'Y' THEN
1130: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO ','C');
1131: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO installment_id:'||X_Installment_id,'C');
1132: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_project_id:'||X_Actual_Project_Id,'C');
1133: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_task_id:'||X_Task_Id,'C');
1134: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO X_Rev_Bill_Amt:'||X_Rev_Bill_Amt,'C');
1135: END IF;
1136:
1137: end if;
1130: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO ','C');
1131: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO installment_id:'||X_Installment_id,'C');
1132: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_project_id:'||X_Actual_Project_Id,'C');
1133: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO actual_task_id:'||X_Task_Id,'C');
1134: gms_error_pkg.gms_debug('INSTALLMENT_AMOUNT - IN LOOP - IN NO X_Rev_Bill_Amt:'||X_Rev_Bill_Amt,'C');
1135: END IF;
1136:
1137: end if;
1138:
1139: X_Err_Code := 0;
1140:
1141: Exception
1142: WHEN OTHERS THEN
1143: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
1144: 'SQLCODE',
1145: SQLCODE,
1146: 'SQLERRM',
1147: SQLERRM,
1349: X_Err_Code := 0;
1350:
1351: EXCEPTION
1352: WHEN OTHERS THEN
1353: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
1354: 'SQLCODE',
1355: SQLCODE,
1356: 'SQLERRM',
1357: SQLERRM,
1440: from pa_implementations;
1441:
1442: Exception
1443: WHEN NO_DATA_FOUND THEN
1444: gms_error_pkg.gms_message('GMS_SOB_ID_NOT_FOUND',
1445: X_Exec_Type => 'C',
1446: X_Err_Code => X_Err_Code,
1447: X_Err_Buff => X_Err_Buff);
1448: --RAISE_APPLICATION_ERROR(-20504,X_Err_Buff);
1488: and ras1.status || '' = 'A';
1489:
1490: EXCEPTION
1491: WHEN NO_DATA_FOUND THEN
1492: gms_error_pkg.gms_message('GMS_NO_SITE_CUST',
1493: 'PRJ',
1494: X_Award_Project_Id,
1495: X_Exec_Type => 'C',
1496: X_Err_Code => X_Err_Code,
1498: --RAISE_APPLICATION_ERROR(-20505,X_Err_Buff);
1499: RETURN;
1500:
1501: WHEN TOO_MANY_ROWS THEN
1502: gms_error_pkg.gms_message('GMS_MORE_THAN_ONE_SITE_CUST',
1503: 'PRJ',
1504: X_Award_Project_Id,
1505: X_Exec_Type => 'C',
1506: X_Err_Code => X_Err_Code,
1508: --RAISE_APPLICATION_ERROR(-20506,X_Err_Buff);
1509: RETURN;
1510:
1511: WHEN OTHERS THEN
1512: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
1513: 'SQLCODE',
1514: SQLCODE,
1515: 'SQLERRM',
1516: SQLERRM,
1576: and output_tax_exempt_flag is null;
1577:
1578:
1579: If SQL%ROWCOUNT = 0 then
1580: gms_error_pkg.gms_message('GMS_NO_UPD_AWD_EXP',
1581: 'AWD',
1582: X_Award_Id,
1583: 'EXP',
1584: F_Expenditure_Item_Id,
1709: X_Err_Code := 0;
1710:
1711: EXCEPTION
1712: WHEN OTHERS THEN
1713: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
1714: 'SQLCODE',
1715: SQLCODE,
1716: 'SQLERRM',
1717: SQLERRM,
1790: X_Err_Code := 0;
1791:
1792: Exception
1793: WHEN OTHERS THEN
1794: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
1795: 'SQLCODE',
1796: SQLCODE,
1797: 'SQLERRM',
1798: SQLERRM,
1842: AND event_calling_process IS NULL; --Added for bug 2979125
1843:
1844: If SQL%ROWCOUNT = 0 then
1845:
1846: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_EVT',
1847: 'PRJ',
1848: X_AWARD_PROJECT_ID,
1849: 'EVT',
1850: X_EVENT_NUM,
1881: AND installment_id = X_INSTALLMENT_ID
1882: AND event_calling_process IS NULL; --Added for bug 2979125
1883:
1884: If SQL%ROWCOUNT = 0 then
1885: gms_error_pkg.gms_message('GMS_NO_DATA_PRJ_EVT_INST',
1886: 'PRJ',
1887: X_AWARD_PROJECT_ID,
1888: 'EVT',
1889: X_EVENT_NUM,
1910: l_raw_cost NUMBER:=NULL;
1911: BEGIN
1912:
1913: IF L_DEBUG = 'Y' THEN
1914: gms_error_pkg.gms_debug('IN get_total_adl_raw_cost - Start ','C');
1915: END IF;
1916:
1917: SELECT NVL(SUM(raw_cost),0)
1918: INTO l_raw_cost
1928: EXCEPTION
1929: WHEN OTHERS THEN
1930:
1931: IF L_DEBUG = 'Y' THEN
1932: gms_error_pkg.gms_debug('IN get_total_adl_raw_cost - WHEN OTHERS ','C');
1933: END IF;
1934: RETURN l_raw_cost;
1935:
1936: END get_total_adl_raw_cost;
1964:
1965: Begin
1966:
1967: IF L_DEBUG = 'Y' THEN
1968: gms_error_pkg.gms_debug('-- Start Calculation Process --','C');
1969: END IF;
1970:
1971: X_Row_Count := X_Installment_Total.COUNT;
1972:
1972:
1973: X_Diff_Amount := X_Evt_Amount;
1974:
1975: IF L_DEBUG = 'Y' THEN
1976: gms_error_pkg.gms_debug('X_Row_Count'||X_Row_Count,'C');
1977: gms_error_pkg.gms_debug('X_Diff_Amount'||X_Diff_Amount,'C');
1978: gms_error_pkg.gms_debug('X_Actual_Project_Id :'||X_Actual_Project_Id,'C');
1979: gms_error_pkg.gms_debug('X_Task_Id :'||X_Task_Id,'C');
1980: END IF;
1973: X_Diff_Amount := X_Evt_Amount;
1974:
1975: IF L_DEBUG = 'Y' THEN
1976: gms_error_pkg.gms_debug('X_Row_Count'||X_Row_Count,'C');
1977: gms_error_pkg.gms_debug('X_Diff_Amount'||X_Diff_Amount,'C');
1978: gms_error_pkg.gms_debug('X_Actual_Project_Id :'||X_Actual_Project_Id,'C');
1979: gms_error_pkg.gms_debug('X_Task_Id :'||X_Task_Id,'C');
1980: END IF;
1981:
1974:
1975: IF L_DEBUG = 'Y' THEN
1976: gms_error_pkg.gms_debug('X_Row_Count'||X_Row_Count,'C');
1977: gms_error_pkg.gms_debug('X_Diff_Amount'||X_Diff_Amount,'C');
1978: gms_error_pkg.gms_debug('X_Actual_Project_Id :'||X_Actual_Project_Id,'C');
1979: gms_error_pkg.gms_debug('X_Task_Id :'||X_Task_Id,'C');
1980: END IF;
1981:
1982: If X_Row_Count > 0 then
1975: IF L_DEBUG = 'Y' THEN
1976: gms_error_pkg.gms_debug('X_Row_Count'||X_Row_Count,'C');
1977: gms_error_pkg.gms_debug('X_Diff_Amount'||X_Diff_Amount,'C');
1978: gms_error_pkg.gms_debug('X_Actual_Project_Id :'||X_Actual_Project_Id,'C');
1979: gms_error_pkg.gms_debug('X_Task_Id :'||X_Task_Id,'C');
1980: END IF;
1981:
1982: If X_Row_Count > 0 then
1983:
1986: for Rec_Count in 1..X_Row_Count
1987: loop
1988:
1989: IF L_DEBUG = 'Y' THEN
1990: gms_error_pkg.gms_debug('PLSQL - APID:'||X_Installment_Total(Rec_Count).Actual_Project_Id,'C');
1991: gms_error_pkg.gms_debug('PLSQL - ATID:'||X_Installment_Total(Rec_Count).Actual_Task_Id,'C');
1992: gms_error_pkg.gms_debug('X_Diff_Amount:'||X_Diff_Amount,'C');
1993: gms_error_pkg.gms_debug('X_Installment_Total(Rec_Count).Rev_bill_Amount:'||X_Installment_Total(Rec_Count).Rev_bill_Amount,'C');
1994: END IF;
1987: loop
1988:
1989: IF L_DEBUG = 'Y' THEN
1990: gms_error_pkg.gms_debug('PLSQL - APID:'||X_Installment_Total(Rec_Count).Actual_Project_Id,'C');
1991: gms_error_pkg.gms_debug('PLSQL - ATID:'||X_Installment_Total(Rec_Count).Actual_Task_Id,'C');
1992: gms_error_pkg.gms_debug('X_Diff_Amount:'||X_Diff_Amount,'C');
1993: gms_error_pkg.gms_debug('X_Installment_Total(Rec_Count).Rev_bill_Amount:'||X_Installment_Total(Rec_Count).Rev_bill_Amount,'C');
1994: END IF;
1995:
1988:
1989: IF L_DEBUG = 'Y' THEN
1990: gms_error_pkg.gms_debug('PLSQL - APID:'||X_Installment_Total(Rec_Count).Actual_Project_Id,'C');
1991: gms_error_pkg.gms_debug('PLSQL - ATID:'||X_Installment_Total(Rec_Count).Actual_Task_Id,'C');
1992: gms_error_pkg.gms_debug('X_Diff_Amount:'||X_Diff_Amount,'C');
1993: gms_error_pkg.gms_debug('X_Installment_Total(Rec_Count).Rev_bill_Amount:'||X_Installment_Total(Rec_Count).Rev_bill_Amount,'C');
1994: END IF;
1995:
1996: If X_Installment_Total(Rec_Count).Actual_Project_Id = X_Actual_Project_Id and
1989: IF L_DEBUG = 'Y' THEN
1990: gms_error_pkg.gms_debug('PLSQL - APID:'||X_Installment_Total(Rec_Count).Actual_Project_Id,'C');
1991: gms_error_pkg.gms_debug('PLSQL - ATID:'||X_Installment_Total(Rec_Count).Actual_Task_Id,'C');
1992: gms_error_pkg.gms_debug('X_Diff_Amount:'||X_Diff_Amount,'C');
1993: gms_error_pkg.gms_debug('X_Installment_Total(Rec_Count).Rev_bill_Amount:'||X_Installment_Total(Rec_Count).Rev_bill_Amount,'C');
1994: END IF;
1995:
1996: If X_Installment_Total(Rec_Count).Actual_Project_Id = X_Actual_Project_Id and
1997: nvl(X_Installment_Total(Rec_Count).Actual_Task_Id,0) = X_Task_Id then
2001: x_plsql_task_id := X_Installment_Total(Rec_Count).Actual_Task_Id;
2002: x_plsql_count := rec_count;
2003:
2004: IF L_DEBUG = 'Y' THEN
2005: gms_error_pkg.gms_debug(' ---------rec_count----------- '||rec_count,'C');
2006: gms_error_pkg.gms_debug('In If APID / ATID ','C');
2007: END IF;
2008:
2009: If X_Installment_Total(Rec_Count).Rev_bill_Amount > 0 then
2002: x_plsql_count := rec_count;
2003:
2004: IF L_DEBUG = 'Y' THEN
2005: gms_error_pkg.gms_debug(' ---------rec_count----------- '||rec_count,'C');
2006: gms_error_pkg.gms_debug('In If APID / ATID ','C');
2007: END IF;
2008:
2009: If X_Installment_Total(Rec_Count).Rev_bill_Amount > 0 then
2010:
2008:
2009: If X_Installment_Total(Rec_Count).Rev_bill_Amount > 0 then
2010:
2011: IF L_DEBUG = 'Y' THEN
2012: gms_error_pkg.gms_debug('In If PLsql amt > 0','C');
2013: END IF;
2014:
2015: If X_Installment_Total(Rec_Count).Rev_bill_Amount >= X_Diff_Amount then
2016:
2014:
2015: If X_Installment_Total(Rec_Count).Rev_bill_Amount >= X_Diff_Amount then
2016:
2017: IF L_DEBUG = 'Y' THEN
2018: gms_error_pkg.gms_debug('In If Plsql amt > diff ','C');
2019: END IF;
2020:
2021: X_Installment_Total(Rec_Count).Rev_bill_Amount:=X_Installment_Total(Rec_Count).Rev_bill_Amount - X_Diff_Amount;
2022:
2030: X_Rev_Amount := X_Diff_Amount;
2031: End if;
2032:
2033: IF L_DEBUG = 'Y' THEN
2034: gms_error_pkg.gms_debug('EVENT WRAPPER - BEFORE INSERT EVENT +VE PLSQL>DIFF','C');
2035: END IF;
2036:
2037: INSERT_EVENT(X_Award_Project_Id,
2038: NULL, -- event number
2053: Raise NO_PROCESSING_OF_AWARD ;
2054: End If;
2055:
2056: IF L_DEBUG = 'Y' THEN
2057: gms_error_pkg.gms_debug('EVENT WRAPPER - AFTER INSERT EVENT +VE PLSQL>DIFF','C');
2058: END IF;
2059:
2060: /* Event Attribute Creation */
2061:
2065:
2066: else -- X_Installment_Total(Rec_Count).Rev_bill_Amount >= X_Diff_Amount
2067:
2068: IF L_DEBUG = 'Y' THEN
2069: gms_error_pkg.gms_debug('In Diff > Plsql','C');
2070: END IF;
2071:
2072: -- =============================================================================
2073: -- BUG:1714882 - GENERATE DRAFT INVOICES ON A RANGE OF AWARDS ORA-20154 CALCULATION ERROR
2105: X_Rev_Amount := X_plsql_amount;
2106: End if;
2107:
2108: IF L_DEBUG = 'Y' THEN
2109: gms_error_pkg.gms_debug('EVENT WRAPPER - BEFORE INSERT EVENT +VE PLSQL
2111:
2112: INSERT_EVENT(X_Award_Project_Id,
2113: NULL, -- event number
2130: Raise NO_PROCESSING_OF_AWARD ;
2131: End If;
2132:
2133: IF L_DEBUG = 'Y' THEN
2134: gms_error_pkg.gms_debug('EVENT WRAPPER - AFTER INSERT EVENT +VE PLSQL
2136:
2137: /* Event Attribute Creation */
2138:
2141: /* ----------------------------------------------------------------------------*/
2142: ELSIf ( X_Installment_Total(Rec_Count).Rev_bill_Amount < 0 ) then
2143:
2144: IF L_DEBUG = 'Y' THEN
2145: gms_error_pkg.gms_debug('-ve amount','C');
2146: END IF;
2147:
2148: If X_calling_Process = 'Invoice' then
2149: X_Bill_Amount := X_Diff_Amount;
2153: X_Rev_Amount := X_Diff_Amount;
2154: End if;
2155:
2156: IF L_DEBUG = 'Y' THEN
2157: gms_error_pkg.gms_debug('EVENT WRAPPER - BEFORE INSERT EVENT -VE','C');
2158: END IF;
2159:
2160: INSERT_EVENT(X_Award_Project_Id,
2161: NULL, -- event number
2176: Raise NO_PROCESSING_OF_AWARD ;
2177: End If;
2178:
2179: IF L_DEBUG = 'Y' THEN
2180: gms_error_pkg.gms_debug('EVENT WRAPPER - AFTER INSERT EVENT -VE','C');
2181: END IF;
2182:
2183: IF X_Diff_Amount>0 THEN
2184: IF L_DEBUG = 'Y' THEN
2181: END IF;
2182:
2183: IF X_Diff_Amount>0 THEN
2184: IF L_DEBUG = 'Y' THEN
2185: gms_error_pkg.gms_debug('X_diff > 0','C');
2186: END IF;
2187: X_Installment_Total(Rec_Count).Rev_bill_Amount:=
2188: X_Installment_Total(Rec_Count).Rev_bill_Amount - X_Diff_Amount;
2189: else
2187: X_Installment_Total(Rec_Count).Rev_bill_Amount:=
2188: X_Installment_Total(Rec_Count).Rev_bill_Amount - X_Diff_Amount;
2189: else
2190: IF L_DEBUG = 'Y' THEN
2191: gms_error_pkg.gms_debug('X_Diff < 0','C');
2192: END IF;
2193: X_Installment_Total(Rec_Count).Rev_bill_Amount:=
2194: X_Installment_Total(Rec_Count).Rev_bill_Amount + X_Diff_Amount;
2195:
2206: -- -----------------------------------------------------------------------------
2207: If X_INVRAW_NULL_EVENT_PROCESSED THEN
2208:
2209: IF L_DEBUG = 'Y' THEN
2210: gms_error_pkg.gms_debug('EVENT WRAPPER - BEFORE ZERO $ EVENT INSERT','C');
2211: END IF;
2212:
2213: INSERT_EVENT(X_Award_Project_Id,
2214: -1, -- event_num
2229: Raise NO_PROCESSING_OF_AWARD ;
2230: End If;
2231:
2232: IF L_DEBUG = 'Y' THEN
2233: gms_error_pkg.gms_debug('EVENT WRAPPER - AFTER ZERO $ EVENT INSERT ','C');
2234: END IF;
2235:
2236: End If;
2237: -- -----------------------------------------------------------------------------
2251: X_Rev_Amount := X_Diff_amount;
2252: End if;
2253:
2254: IF L_DEBUG = 'Y' THEN
2255: gms_error_pkg.gms_debug('EVENT WRAPPER - BEFORE INSERT EVENT DIFF <> 0','C');
2256: END IF;
2257:
2258: INSERT_EVENT(X_Award_Project_Id,
2259: NULL, -- event number
2276: Raise NO_PROCESSING_OF_AWARD ;
2277: End If;
2278:
2279: IF L_DEBUG = 'Y' THEN
2280: gms_error_pkg.gms_debug('EVENT WRAPPER - AFTER INSERT EVENT DIFF <> 0','C');
2281: END IF;
2282:
2283: X_Installment_Total(x_plsql_count).Rev_bill_Amount := X_Installment_Total(x_plsql_count).Rev_bill_Amount - X_Diff_Amount;
2284:
2287: End If;
2288:
2289: -- Step 2: Error handling
2290: IF L_DEBUG = 'Y' THEN
2291: gms_error_pkg.gms_debug('X_Diff_Amount :'||to_char(X_Diff_Amount),'C');
2292: END IF;
2293:
2294: If X_Diff_Amount <> 0 then
2295: gms_error_pkg.gms_message('GMS_CALC_ERROR',
2291: gms_error_pkg.gms_debug('X_Diff_Amount :'||to_char(X_Diff_Amount),'C');
2292: END IF;
2293:
2294: If X_Diff_Amount <> 0 then
2295: gms_error_pkg.gms_message('GMS_CALC_ERROR',
2296: X_Exec_Type => 'C',
2297: X_Err_Code => X_Err_Code,
2298: X_Err_Buff => X_Err_Buff);
2299: Raise NO_PROCESSING_OF_AWARD ;
2541: /*=======================================================*/
2542: End;
2543: EXCEPTION
2544: WHEN OTHERS THEN
2545: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2546: 'SQLCODE',
2547: SQLCODE,
2548: 'SQLERRM',
2549: SQLERRM,
2583: adl_line_num = X_Adl_Line_Num and
2584: event_type = decode(X_Calling_Process,'Invoice','INVOICE','Revenue','REVENUE');
2585: Exception
2586: When others then
2587: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2588: 'SQLCODE',
2589: SQLCODE,
2590: 'SQLERRM',
2591: SQLERRM,
2629: and burden_cost_code = X_Burden_Cost_Code
2630: and event_type = decode(X_Calling_Process,'Invoice','INVOICE','Revenue','REVENUE');
2631: Exception
2632: When others then
2633: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2634: 'SQLCODE',
2635: SQLCODE,
2636: 'SQLERRM',
2637: SQLERRM,
2852: X_Err_Num := 0;
2853: X_UPD_BILLING_FLAG := TRUE; -- Bug 3254097
2854:
2855: IF L_DEBUG = 'Y' THEN
2856: gms_error_pkg.gms_debug('Inserted into GBC, EXP/ADL:'||X_Expenditure_Item_Id||':'||X_Adl_Line_Num,'C');
2857: END IF;
2858:
2859: EXCEPTION
2860: WHEN DUP_VAL_ON_INDEX THEN
2857: END IF;
2858:
2859: EXCEPTION
2860: WHEN DUP_VAL_ON_INDEX THEN
2861: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2862: 'SQLCODE',
2863: SQLCODE,
2864: 'SQLERRM',
2865: SQLERRM,
2868: X_Err_Buff => X_Err_Buff);
2869: Raise NO_PROCESSING_OF_AWARD ;
2870:
2871: WHEN OTHERS THEN
2872: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2873: 'SQLCODE',
2874: SQLCODE,
2875: 'SQLERRM',
2876: SQLERRM,
2946: X_Err_Num := 0;
2947: X_UPD_BILLING_FLAG := TRUE; -- Bug 3254097
2948:
2949: IF L_DEBUG = 'Y' THEN
2950: gms_error_pkg.gms_debug('Inserted into GEI, EXP/ADL:'||X_Expenditure_Item_Id||':'||X_Adl_Line_Num,'C');
2951: END IF;
2952:
2953: EXCEPTION
2954: WHEN DUP_VAL_ON_INDEX THEN
2951: END IF;
2952:
2953: EXCEPTION
2954: WHEN DUP_VAL_ON_INDEX THEN
2955: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2956: 'SQLCODE',
2957: SQLCODE,
2958: 'SQLERRM',
2959: SQLERRM,
2962: X_Err_Buff => X_Err_Buff);
2963: Raise NO_PROCESSING_OF_AWARD ;
2964:
2965: WHEN OTHERS THEN
2966: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
2967: 'SQLCODE',
2968: SQLCODE,
2969: 'SQLERRM',
2970: SQLERRM,
2995: X_Err_Code Varchar2(1);
2996: X_Err_Buff Varchar2(2000);
2997: Begin
2998: IF L_DEBUG = 'Y' THEN
2999: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - START','C');
3000: END IF;
3001:
3002: update GMS_EVENT_INTERSECT gei
3003: set
3021:
3022:
3023: If SQL%NOTFOUND THEN
3024: IF L_DEBUG = 'Y' THEN
3025: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - ERROR','C');
3026: END IF;
3027: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3028: 'PRJ',
3029: X_Award_Project_Id,
3023: If SQL%NOTFOUND THEN
3024: IF L_DEBUG = 'Y' THEN
3025: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - ERROR','C');
3026: END IF;
3027: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3028: 'PRJ',
3029: X_Award_Project_Id,
3030: 'REQ',
3031: X_Request_id,
3035: Raise NO_PROCESSING_OF_AWARD ;
3036:
3037: End If;
3038: IF L_DEBUG = 'Y' THEN
3039: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - END','C');
3040: END IF;
3041:
3042: End UPDATE_GMS_EVENT_INTERSECT;
3043:
3058: X_Err_Code Varchar2(1);
3059: X_Err_Buff Varchar2(2000);
3060: Begin
3061: IF L_DEBUG = 'Y' THEN
3062: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - START','C');
3063: END IF;
3064: update /*+INDEX(GMS_BURDEN_COMPONENTS GMS_BURDEN_COMPONENTS_N3)*/ GMS_BURDEN_COMPONENTS
3065: set
3066: EVENT_NUM = X_Event_Num
3077: expenditure_org_id = X_Expenditure_Org_Id;
3078:
3079: If SQL%NOTFOUND THEN
3080: IF L_DEBUG = 'Y' THEN
3081: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - ERROR','C');
3082: END IF;
3083: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3084: 'PRJ',
3085: X_Award_Project_Id,
3079: If SQL%NOTFOUND THEN
3080: IF L_DEBUG = 'Y' THEN
3081: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - ERROR','C');
3082: END IF;
3083: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3084: 'PRJ',
3085: X_Award_Project_Id,
3086: 'REQ',
3087: X_Request_id,
3092:
3093: End If;
3094:
3095: IF L_DEBUG = 'Y' THEN
3096: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - END','C');
3097: END IF;
3098:
3099: End UPDATE_GMS_BURDEN_COMPONENTS;
3100: ---------------------------------------------------------------------------------------------
3110:
3111: Begin
3112:
3113: IF L_DEBUG = 'Y' THEN
3114: gms_error_pkg.gms_debug('IN EVENT ARRIBUTE UPDATION -- START','C');
3115: END IF;
3116:
3117: update GMS_EVENT_ATTRIBUTE
3118: set
3146:
3147: -- If SQL%NOTFOUND THEN
3148: If x_count > 0 then
3149:
3150: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3151: 'PRJ',
3152: X_Award_Project_Id,
3153: 'REQ',
3154: X_Request_id,
3162: Exception
3163:
3164: When Others then
3165: IF L_DEBUG = 'Y' THEN
3166: gms_error_pkg.gms_debug('IN EVENT ARRIBUTE WHEN OTHERS ','C');
3167: END IF;
3168: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3169: 'SQLCODE',
3170: SQLCODE,
3164: When Others then
3165: IF L_DEBUG = 'Y' THEN
3166: gms_error_pkg.gms_debug('IN EVENT ARRIBUTE WHEN OTHERS ','C');
3167: END IF;
3168: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3169: 'SQLCODE',
3170: SQLCODE,
3171: 'SQLERRM',
3172: SQLERRM,
3249:
3250: End If;
3251:
3252: If SQL%ROWCOUNT = 0 then
3253: gms_error_pkg.gms_message('GMS_NO_UPD_TASK_INST',
3254: 'TASK',
3255: X_Task_Id,
3256: 'INST',
3257: X_Installment_Id,
3339: X_Err_Code := 0;
3340:
3341: EXCEPTION
3342: WHEN OTHERS THEN
3343: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3344: 'SQLCODE',
3345: SQLCODE,
3346: 'SQLERRM',
3347: SQLERRM,
3393:
3394: End If;
3395:
3396: If SQL%ROWCOUNT = 0 then
3397: gms_error_pkg.gms_message('GMS_NO_UPD_EXP_ADL',
3398: 'EXP',
3399: X_Expenditure_Item_Id,
3400: 'ADL',
3401: X_Adl_Line_Num,
3472:
3473: BEGIN
3474:
3475: IF L_DEBUG = 'Y' THEN
3476: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - START ','C');
3477: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - X_trans_type is '||X_trans_type,'C'); -- added debug for 5413530
3478: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - G_trans_type is '||G_trans_type,'C'); -- added debug for 5413530
3479: END IF;
3480:
3473: BEGIN
3474:
3475: IF L_DEBUG = 'Y' THEN
3476: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - START ','C');
3477: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - X_trans_type is '||X_trans_type,'C'); -- added debug for 5413530
3478: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - G_trans_type is '||G_trans_type,'C'); -- added debug for 5413530
3479: END IF;
3480:
3481: IF p_calling_place = 'Revenue' THEN
3474:
3475: IF L_DEBUG = 'Y' THEN
3476: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - START ','C');
3477: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - X_trans_type is '||X_trans_type,'C'); -- added debug for 5413530
3478: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - G_trans_type is '||G_trans_type,'C'); -- added debug for 5413530
3479: END IF;
3480:
3481: IF p_calling_place = 'Revenue' THEN
3482: l_description := p_description ||'- '|| p_quantity || ' ' || p_units;
3503: AND task_id = p_task_id
3504: AND nvl(format,'X') = nvl(p_format,'X'); -- for bug 5413530
3505:
3506: IF L_DEBUG = 'Y' THEN
3507: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - After updating '||p_event_num||' in gms_events_temp_format with amount '||p_amount ,'C');
3508: END IF;
3509:
3510: ELSE
3511:
3547: p_format,
3548: l_description );
3549:
3550: IF L_DEBUG = 'Y' THEN
3551: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - After inserting event '||p_event_num||' into gms_events_temp_format for task '||p_task_id ||' with amount '||p_amount,'C');
3552: END IF;
3553:
3554: END IF;
3555: CLOSE C_event_exists_PTF;
3556:
3557: G_trans_type := X_trans_type ; /* For bug 5413530 */
3558:
3559: IF L_DEBUG = 'Y' THEN
3560: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - END ','C');
3561: END IF;
3562:
3563: EXCEPTION
3564: WHEN OTHERS THEN
3563: EXCEPTION
3564: WHEN OTHERS THEN
3565:
3566: IF L_DEBUG = 'Y' THEN
3567: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - WHEN OTHERS ','C');
3568: END IF;
3569:
3570: IF C_event_exists_F%ISOPEN THEN
3571: CLOSE C_event_exists_F;
3574: IF C_event_exists_PTF%ISOPEN THEN
3575: CLOSE C_event_exists_PTF;
3576: END IF;
3577:
3578: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3579: 'SQLCODE',
3580: SQLCODE,
3581: 'SQLERRM',
3582: SQLERRM,
3639:
3640: BEGIN
3641:
3642: IF L_DEBUG = 'Y' THEN
3643: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - START','C');
3644: END IF;
3645:
3646: FOR pa_events_rec IN C_get_temp_pa_events LOOP
3647:
3654: X_INVRAW_NULL_EVENT_PROCESSED := TRUE;
3655: END IF;
3656:
3657: IF L_DEBUG = 'Y' THEN
3658: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - Encountered NULL event- After setting NULL event flags','C');
3659: END IF;
3660: END IF;
3661:
3662: FOR gms_events_rec IN C_get_temp_gms_events(pa_events_rec.event_num,pa_events_rec.format,pa_events_rec.description) LOOP
3673: p_Err_Code,
3674: p_Err_Buff);
3675:
3676: IF L_DEBUG = 'Y' THEN
3677: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3678: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3679: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3680: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3681: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3674: p_Err_Buff);
3675:
3676: IF L_DEBUG = 'Y' THEN
3677: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3678: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3679: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3680: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3681: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3682: END IF;
3675:
3676: IF L_DEBUG = 'Y' THEN
3677: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3678: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3679: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3680: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3681: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3682: END IF;
3683:
3676: IF L_DEBUG = 'Y' THEN
3677: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3678: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3679: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3680: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3681: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3682: END IF;
3683:
3684: IF p_Err_Code <> 0 THEN
3677: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3678: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3679: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3680: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3681: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3682: END IF;
3683:
3684: IF p_Err_Code <> 0 THEN
3685: Raise NO_PROCESSING_OF_AWARD ;
3724: X_status => St_Status
3725: );
3726:
3727: IF L_DEBUG = 'Y' THEN
3728: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call for event number '||Evt_Num||' with amount '||pa_events_rec.amount,'C');
3729: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Error_Message '||St_Error_Message,'C');
3730: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Status '||St_Status,'C');
3731: END IF;
3732:
3725: );
3726:
3727: IF L_DEBUG = 'Y' THEN
3728: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call for event number '||Evt_Num||' with amount '||pa_events_rec.amount,'C');
3729: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Error_Message '||St_Error_Message,'C');
3730: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Status '||St_Status,'C');
3731: END IF;
3732:
3733: IF St_Status <> 0 THEN
3726:
3727: IF L_DEBUG = 'Y' THEN
3728: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call for event number '||Evt_Num||' with amount '||pa_events_rec.amount,'C');
3729: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Error_Message '||St_Error_Message,'C');
3730: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Status '||St_Status,'C');
3731: END IF;
3732:
3733: IF St_Status <> 0 THEN
3734: RAISE NO_PROCESSING_OF_AWARD;
3743: WHERE Event_num = pa_events_rec.event_num
3744: AND award_project_id = p_project_id; /* Added for bug 4172924*/
3745:
3746: IF L_DEBUG = 'Y' THEN
3747: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After updating GEI ','C');
3748: END IF;
3749:
3750: EVENT_ATTRIBUTE_UPDATION( Evt_Num,
3751: p_Project_Id,
3753: p_Err_Code,
3754: p_Err_Buff);
3755:
3756: IF L_DEBUG = 'Y' THEN
3757: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Code'||p_Err_Code,'C');
3758: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Buff'||p_Err_Buff,'C');
3759: END IF;
3760:
3761: IF p_Err_Code <> 0 THEN
3754: p_Err_Buff);
3755:
3756: IF L_DEBUG = 'Y' THEN
3757: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Code'||p_Err_Code,'C');
3758: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Buff'||p_Err_Buff,'C');
3759: END IF;
3760:
3761: IF p_Err_Code <> 0 THEN
3762: Raise NO_PROCESSING_OF_AWARD ;
3764:
3765: END LOOP;
3766:
3767: IF L_DEBUG = 'Y' THEN
3768: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - END','C');
3769: END IF;
3770:
3771: EXCEPTION
3772:
3772:
3773: When Others then
3774:
3775: IF L_DEBUG = 'Y' THEN
3776: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - WHEN OTHERS ','C');
3777: END IF;
3778:
3779: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3780: 'SQLCODE',
3775: IF L_DEBUG = 'Y' THEN
3776: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - WHEN OTHERS ','C');
3777: END IF;
3778:
3779: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3780: 'SQLCODE',
3781: SQLCODE,
3782: 'SQLERRM',
3783: SQLERRM,
3863:
3864: Begin
3865:
3866: IF L_DEBUG = 'Y' THEN
3867: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - START ','C');
3868: END IF;
3869:
3870: /* Building the Event Description */
3871:
3871:
3872: For j in 1..X_Count_Of_Columns LOOP
3873:
3874: -- 3120142 Start
3875: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3876:
3877: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3878:
3879: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3875: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3876:
3877: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3878:
3879: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3880: --gms_error_pkg.gms_debug('****** X_Padding_Length(j) '||X_Padding_Length(j),'C');
3881: --gms_error_pkg.gms_debug('****** length(X_Values(j)) '||length(X_Values(j)),'C');
3882:
3883: -- Grouping value ................... Start
3876:
3877: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3878:
3879: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3880: --gms_error_pkg.gms_debug('****** X_Padding_Length(j) '||X_Padding_Length(j),'C');
3881: --gms_error_pkg.gms_debug('****** length(X_Values(j)) '||length(X_Values(j)),'C');
3882:
3883: -- Grouping value ................... Start
3884:
3877: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3878:
3879: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3880: --gms_error_pkg.gms_debug('****** X_Padding_Length(j) '||X_Padding_Length(j),'C');
3881: --gms_error_pkg.gms_debug('****** length(X_Values(j)) '||length(X_Values(j)),'C');
3882:
3883: -- Grouping value ................... Start
3884:
3885: If (X_Padding_Length(j)- length(X_Values(j))) <= 0 then
3886: X_pad1 := X_Padding_Length(j);
3887: Else
3888: X_pad1 := X_Padding_Length(j) - (abs(X_Padding_Length(j)- length(X_Values(j))));
3889: End If;
3890: gms_error_pkg.gms_debug('****** X_pad1 '||X_pad1,'C');
3891:
3892: If X_Right_Jstfy_Flag_Array(j) = 'N' then
3893: Evt_Description := Evt_Description||rpad(X_Values(j),X_Pad1)||' ';
3894: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3895: Evt_Description := Evt_Description||lpad(X_Values(j),X_Pad1)||' ';
3896: End If;
3897:
3898: -- Grouping value ................... End
3899: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3900:
3901: Elsif X_Sel_Grp_Diff_Ind(j) = 'N' then -- I
3902: -- Grouping Quantity ................... Start
3903: get_run_total(X_Req_id,X_Proj_Id,x_quantity);
3905: X_pad2 := X_Padding_Length(j);
3906: Else
3907: X_pad2 := X_Padding_Length(j) - (abs(X_Padding_Length(j)- length(to_char(x_quantity ))));
3908: End If;
3909: gms_error_pkg.gms_debug('****** X_pad2 '||X_pad1,'C');
3910:
3911: If X_Right_Jstfy_Flag_Array(j) = 'N' then
3912: Evt_Description := Evt_Description||rpad(to_char(x_quantity),x_pad2)||' ';
3913: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3913: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3914: Evt_Description := Evt_Description||lpad(to_char(x_quantity),x_pad2)||' ';
3915: End If;
3916: -- Grouping Quantity ................... End
3917: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3918:
3919: Elsif X_Sel_Grp_Diff_Ind(j) = 'T' then -- I
3920:
3921: -- Grouping Text ................... Start
3924: Else
3925: X_pad3 := X_Padding_Length(j) - (abs(X_Padding_Length(j)- length(X_Text_Array(j))));
3926: End If;
3927:
3928: gms_error_pkg.gms_debug('****** X_pad3 '||X_pad3,'C');
3929:
3930: If X_Right_Jstfy_Flag_Array(j) = 'N' then
3931: Evt_Description := Evt_Description||rpad(X_Text_Array(j),x_pad3)||' ';
3932: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3933: Evt_Description := Evt_Description||lpad(X_Text_Array(j),x_pad3)||' ';
3934: End If;
3935:
3936: -- Grouping Text ................... End
3937: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3938: End If; -- I
3939:
3940: -- 3120142 End
3941:
3979:
3980: END LOOP;
3981:
3982: IF L_DEBUG = 'Y' THEN
3983: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
3984: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
3985: END IF;
3986:
3987: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
3980: END LOOP;
3981:
3982: IF L_DEBUG = 'Y' THEN
3983: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
3984: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
3985: END IF;
3986:
3987: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
3988: FOR raw_events IN GET_RAW_ROWS_FROM_INTERSECT LOOP
4000: x_err_code,
4001: x_err_buff) ;
4002:
4003: IF L_DEBUG = 'Y' THEN
4004: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4005: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4006: END IF;
4007:
4008: IF X_Err_Code <> 0 then
4001: x_err_buff) ;
4002:
4003: IF L_DEBUG = 'Y' THEN
4004: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4005: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4006: END IF;
4007:
4008: IF X_Err_Code <> 0 then
4009: Raise NO_PROCESSING_OF_AWARD ;
4015: raw_events.actual_project_id,
4016: raw_events.actual_task_id );
4017:
4018: IF L_DEBUG = 'Y' THEN
4019: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After UPDATE_GMS_EVENT_INTERSECT','C');
4020: END IF;
4021:
4022: END LOOP;
4023:
4024: EXCEPTION
4025: WHEN OTHERS THEN
4026:
4027: IF L_DEBUG = 'Y' THEN
4028: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - WHEN OTHERS ','C');
4029: END IF;
4030: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4031: 'SQLCODE',
4032: SQLCODE,
4026:
4027: IF L_DEBUG = 'Y' THEN
4028: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - WHEN OTHERS ','C');
4029: END IF;
4030: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4031: 'SQLCODE',
4032: SQLCODE,
4033: 'SQLERRM',
4034: SQLERRM,
4092:
4093: Begin
4094:
4095: IF L_DEBUG = 'Y' THEN
4096: gms_error_pkg.gms_debug('IN BURDEN EVENT - START','C');
4097: END IF;
4098:
4099: OPEN GET_BURD_ROWS_FROM_INTERSECT;
4100: LOOP
4109:
4110: If Ins_Amount <> 0 then
4111: -- DO NOT INSERT ZERO AMOUNT EVENTS
4112: IF L_DEBUG = 'Y' THEN
4113: gms_error_pkg.gms_debug('DBP - If Ins_Amount <> 0 part ..','C');
4114: END IF;
4115:
4116: /* Getting Actual Project Number, Task Number and Expenditure Organization Name */
4117: Begin
4135: --------------------------------------------------------------------------
4136: /* Get the Installment Number to be concatenated with Event Description */
4137: --------------------------------------------------------------------------
4138: IF L_DEBUG = 'Y' THEN
4139: gms_error_pkg.gms_debug('DBP - CALL EVENT WRAPPER','C');
4140: END IF;
4141: EVENT_WRAPPER(X_Project_Id,
4142: Ins_Actual_Project_Id,
4143: Ins_Actual_Task_Id,
4156: --RAISE FND_API.G_EXC_ERROR;
4157: Raise NO_PROCESSING_OF_AWARD ;
4158: End If;
4159: IF L_DEBUG = 'Y' THEN
4160: gms_error_pkg.gms_debug('DBP - AFTER EVENT WRAPPER','C');
4161: END IF;
4162:
4163: -------------------------------------------------------------------------------------
4164: /* Getting the Event Number */
4164: /* Getting the Event Number */
4165: Evt_Num := pa_billing_seq.next_eventnum(Ins_Award_Project_Id,NULL);
4166:
4167: IF L_DEBUG = 'Y' THEN
4168: gms_error_pkg.gms_debug('DBP - Evt_Num::'||Evt_Num,'C');
4169: END IF;
4170:
4171:
4172: /* Building the Event Description */
4226: );
4227: End If;
4228:
4229: IF L_DEBUG = 'Y' THEN
4230: gms_error_pkg.gms_debug('After API Event->Status Code,Message:'||St_Status||','||St_Error_Message,'C');
4231: END IF;
4232: If St_Status <> 0 then
4233:
4234: IF L_DEBUG = 'Y' THEN
4231: END IF;
4232: If St_Status <> 0 then
4233:
4234: IF L_DEBUG = 'Y' THEN
4235: gms_error_pkg.gms_debug('!!! IN Burden EVENT - API Call Exception !!! ','C');
4236: END IF;
4237: RAISE NO_PROCESSING_OF_AWARD;
4238:
4239: End If;
4238:
4239: End If;
4240:
4241: IF L_DEBUG = 'Y' THEN
4242: gms_error_pkg.gms_debug('DBP - After Event Creation','C');
4243: END IF;
4244:
4245: /* ------------------------------------------------------------------------------- */
4246: -- Updating Event Attribute
4255: Raise NO_PROCESSING_OF_AWARD ;
4256: End If;
4257:
4258: IF L_DEBUG = 'Y' THEN
4259: gms_error_pkg.gms_debug('DBP - After Event Attribute Updation','C');
4260: END IF;
4261:
4262: ElsIf Ins_Amount = 0 then
4263:
4261:
4262: ElsIf Ins_Amount = 0 then
4263:
4264: IF L_DEBUG = 'Y' THEN
4265: gms_error_pkg.gms_debug('DBP - In Ins_Amount = 0 part ...','C');
4266: END IF;
4267:
4268: -- ------------------------------------------------------------------------------------
4269: -- Event num NULL change ...
4292: Ins_Burden_Cost_Code ,
4293: Ins_Expenditure_Org_Id );
4294:
4295: IF L_DEBUG = 'Y' THEN
4296: gms_error_pkg.gms_debug('DBP - After GBC Updation','C');
4297: END IF;
4298:
4299: End LOOP;
4300:
4298:
4299: End LOOP;
4300:
4301: IF L_DEBUG = 'Y' THEN
4302: gms_error_pkg.gms_debug('IN BURDEN EVENT - END','C');
4303: END IF;
4304:
4305: Exception
4306:
4306:
4307: When Others then
4308:
4309: IF L_DEBUG = 'Y' THEN
4310: gms_error_pkg.gms_debug('IN BURDEN EVENT WHEN OTHERS ','C');
4311: END IF;
4312:
4313: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4314: 'SQLCODE',
4309: IF L_DEBUG = 'Y' THEN
4310: gms_error_pkg.gms_debug('IN BURDEN EVENT WHEN OTHERS ','C');
4311: END IF;
4312:
4313: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4314: 'SQLCODE',
4315: SQLCODE,
4316: 'SQLERRM',
4317: SQLERRM,
4386:
4387: Begin
4388:
4389: IF L_DEBUG = 'Y' THEN
4390: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - START','C');
4391: END IF;
4392:
4393: OPEN GET_RAW_ROWS_FROM_INTERSECT;
4394: FETCH GET_RAW_ROWS_FROM_INTERSECT INTO X_event_exists;
4420: ---||'- '||to_char(X_Rev_Run_Total)||' '||X_Units; -- Bug 2380344 : Removed inst_num
4421: Evt_format := X_Act_Project_Id||' - '||X_Task_Id||' - '||X_Expenditure_Type||' - '||X_Expenditure_Org_Id ; -- Bug 3235390
4422:
4423: IF L_DEBUG = 'Y' THEN
4424: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
4425: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
4426: END IF;
4427:
4428: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
4421: Evt_format := X_Act_Project_Id||' - '||X_Task_Id||' - '||X_Expenditure_Type||' - '||X_Expenditure_Org_Id ; -- Bug 3235390
4422:
4423: IF L_DEBUG = 'Y' THEN
4424: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
4425: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
4426: END IF;
4427:
4428: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
4429: PROCESS_TEMP_EVENTS (X_Act_Project_Id,
4439: x_err_code,
4440: x_err_buff) ;
4441:
4442: IF L_DEBUG = 'Y' THEN
4443: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4444: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4445: END IF;
4446:
4447: IF X_Err_Code <> 0 then
4440: x_err_buff) ;
4441:
4442: IF L_DEBUG = 'Y' THEN
4443: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4444: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4445: END IF;
4446:
4447: IF X_Err_Code <> 0 then
4448: Raise NO_PROCESSING_OF_AWARD ;
4455: X_Act_Project_Id,
4456: X_Task_Id );
4457:
4458: IF L_DEBUG = 'Y' THEN
4459: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After UPDATE_GMS_EVENT_INTERSECT','C');
4460: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - END','C');
4461: END IF;
4462:
4463: END IF;
4456: X_Task_Id );
4457:
4458: IF L_DEBUG = 'Y' THEN
4459: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After UPDATE_GMS_EVENT_INTERSECT','C');
4460: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - END','C');
4461: END IF;
4462:
4463: END IF;
4464: CLOSE GET_RAW_ROWS_FROM_INTERSECT;
4769: DBMS_SQL.COLUMN_VALUE(cur_select,X_Cnt_Of_Columns_Selected + 17,X_burdenable_raw_cost);
4770: DBMS_SQL.COLUMN_VALUE(cur_select,X_Cnt_Of_Columns_Selected + 18,X_transaction_source);
4771:
4772: IF L_DEBUG = 'Y' THEN
4773: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4774: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4775: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4776: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4777: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4770: DBMS_SQL.COLUMN_VALUE(cur_select,X_Cnt_Of_Columns_Selected + 18,X_transaction_source);
4771:
4772: IF L_DEBUG = 'Y' THEN
4773: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4774: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4775: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4776: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4777: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4778: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4771:
4772: IF L_DEBUG = 'Y' THEN
4773: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4774: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4775: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4776: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4777: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4778: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4779: END IF;
4772: IF L_DEBUG = 'Y' THEN
4773: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4774: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4775: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4776: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4777: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4778: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4779: END IF;
4780:
4773: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4774: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4775: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4776: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4777: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4778: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4779: END IF;
4780:
4781: -- Lock the Expenditure Item
4774: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4775: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4776: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4777: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4778: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4779: END IF;
4780:
4781: -- Lock the Expenditure Item
4782: select expenditure_item_id
4906: Raise NO_PROCESSING_OF_AWARD ;
4907: End If;
4908:
4909: IF L_DEBUG = 'Y' THEN
4910: gms_error_pkg.gms_debug('After INSTALLMENT_CHECK X_error_code:'||St_Err_Code,'C');
4911: END IF;
4912:
4913: /* Commented IF for bug 5349106 */
4914: -- If X_Installment_Status ='I' then
4933: End If; --If allow_burden(x_transaction_source) then
4934: End If;
4935: -----------------------------------------------------------------------------
4936: IF L_DEBUG = 'Y' THEN
4937: gms_error_pkg.gms_debug('X_Burden_Components_Count:'||X_Burden_Components_Count,'C');
4938: END IF;
4939: -----------------------------------------------------------------------------
4940: /* For each Trx fetched Get total Raw Amount for the Trx already existing in Intersect table */
4941: GET_AMOUNT_IN_INTERSECT(X_Expenditure_Item_Id,
4983:
4984: END IF;
4985:
4986: IF L_DEBUG = 'Y' THEN
4987: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
4988: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4984: END IF;
4985:
4986: IF L_DEBUG = 'Y' THEN
4987: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
4988: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4985:
4986: IF L_DEBUG = 'Y' THEN
4987: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
4988: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4986: IF L_DEBUG = 'Y' THEN
4987: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
4988: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4987: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
4988: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4995: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
4988: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4995: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
4996: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
4989: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4995: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
4996: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
4997: END IF;
4990: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4995: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
4996: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
4997: END IF;
4998:
4991: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4995: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
4996: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
4997: END IF;
4998:
4999: IF ( (
4992: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
4993: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
4994: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
4995: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
4996: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
4997: END IF;
4998:
4999: IF ( (
5000: ((X_Raw_Cost + X_Tot_Burden_Amt_In_View) - (X_Amount_In_Intersect + X_Tot_Burd_Amt_In_Tmp)
5082: Raise NO_PROCESSING_OF_AWARD ;
5083: End If;
5084:
5085: IF L_DEBUG = 'Y' THEN
5086: gms_error_pkg.gms_debug('After GET_INSTALLMENT_NUM X_error_code:'||St_Err_Code,'C');
5087: END IF;
5088:
5089: /* bug 5242484 - start */
5090: IF ( X_old_expenditure_item_id = X_expenditure_item_id ) THEN
5127: Raise NO_PROCESSING_OF_AWARD ;
5128: End If;
5129:
5130: IF L_DEBUG = 'Y' THEN
5131: gms_error_pkg.gms_debug('After UPD_GSPF_WRAPPER X_error_code:'||St_Err_Code,'C');
5132: END IF;
5133:
5134: -- Bug 3254097 : Shifted the call to UPD_ADL_BILLING_FLAG at the end of the process
5135:
5145: --dbms_output.put_line('In First Indicator True Check');
5146: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5147: DBMS_SQL.COLUMN_VALUE(cur_select,i,X_Old_Values(i));
5148: IF L_DEBUG = 'Y' THEN
5149: gms_error_pkg.gms_debug('In First Indicator X_old_values('||i||')='||X_Old_Values(i),'C');
5150: END IF;
5151: END LOOP;
5152: /* Bug 3523930 -Setting the old values for project/task */
5153: X_old_task_id := X_task_id;
5151: END LOOP;
5152: /* Bug 3523930 -Setting the old values for project/task */
5153: X_old_task_id := X_task_id;
5154: X_old_actprj_id := X_Actual_Project_Id;
5155: gms_error_pkg.gms_debug('When First Indicator X_old_task_id ='||X_old_task_id,'C');
5156: gms_error_pkg.gms_debug('When First Indicator X_old_project_id ='||X_old_actprj_id,'C');
5157: /* Bug 3523930- Changes end */
5158: ----------------------------------------------
5159: --Create Running Total For Columns not in Group By--
5152: /* Bug 3523930 -Setting the old values for project/task */
5153: X_old_task_id := X_task_id;
5154: X_old_actprj_id := X_Actual_Project_Id;
5155: gms_error_pkg.gms_debug('When First Indicator X_old_task_id ='||X_old_task_id,'C');
5156: gms_error_pkg.gms_debug('When First Indicator X_old_project_id ='||X_old_actprj_id,'C');
5157: /* Bug 3523930- Changes end */
5158: ----------------------------------------------
5159: --Create Running Total For Columns not in Group By--
5160: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5172: -- Copy Values from Cursor into New_Values Table --
5173: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5174: DBMS_SQL.COLUMN_VALUE(cur_select,i,X_New_Values(i));
5175: IF L_DEBUG = 'Y' THEN
5176: gms_error_pkg.gms_debug('When !First Indicator X_new_values('||i||')='||X_New_Values(i),'C');
5177: END IF;
5178: END LOOP;
5179: /* Bug 3523930 -Setting the new values for project/task */
5180: X_new_task_id := X_task_id;
5178: END LOOP;
5179: /* Bug 3523930 -Setting the new values for project/task */
5180: X_new_task_id := X_task_id;
5181: X_new_actprj_id := X_Actual_Project_Id;
5182: gms_error_pkg.gms_debug('When !First Indicator X_new_task_id ='||X_New_task_id,'C');
5183: gms_error_pkg.gms_debug('When !First Indicator X_new_project_id ='||X_New_actprj_id,'C');
5184: /* Bug 3523930- Changes end */
5185: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5186: null;
5179: /* Bug 3523930 -Setting the new values for project/task */
5180: X_new_task_id := X_task_id;
5181: X_new_actprj_id := X_Actual_Project_Id;
5182: gms_error_pkg.gms_debug('When !First Indicator X_new_task_id ='||X_New_task_id,'C');
5183: gms_error_pkg.gms_debug('When !First Indicator X_new_project_id ='||X_New_actprj_id,'C');
5184: /* Bug 3523930- Changes end */
5185: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5186: null;
5187: --dbms_output.put_line('NEW VALUES ARRE '||X_New_Values(i) );
5198: --Compare Old and New and accordingly create event
5199: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5200: If X_Sel_Grp_Diff_Array(i) = 'Y' then --Begin of If for 'Check_Ind' 999999999999999
5201: IF L_DEBUG = 'Y' THEN
5202: gms_error_pkg.gms_debug('Inside X_sel_grp_diff_array(i) = Y','C');
5203: END IF;
5204: /* Bug 3523930- Where condition changed */
5205: If ((X_Old_Values(i) <> X_New_Values(i) and X_invfmt_incl_task='N')
5206: or (X_invfmt_incl_task='Y'
5207: and (X_Old_Values(i) <> X_New_Values(i)
5208: or X_old_task_id <> X_new_task_id
5209: or X_old_actprj_id <> X_new_actprj_id))) then -- 888888888
5210: IF L_DEBUG = 'Y' THEN
5211: gms_error_pkg.gms_debug('Old Values are not equal to new values','C');
5212: END IF;
5213: ------------------------------------------------
5214: -- This procedure builds the Event Description, Creates the Event and Updates the --
5215: --GMS_EVENT_INTERSECT table with the corresponding Event Number --
5245: Raise NO_PROCESSING_OF_AWARD ;
5246: End If;
5247:
5248: IF L_DEBUG = 'Y' THEN
5249: gms_error_pkg.gms_debug('After DO_EVENT_PROCESSING X_error_code:'||St_Err_Code,'C');
5250: END IF;
5251:
5252: --End If;
5253: ----------------------------------------------
5251:
5252: --End If;
5253: ----------------------------------------------
5254: --Copy New_Values to Old_Values--
5255: gms_error_pkg.gms_debug('Restting old task/project with new task/projet','C');
5256: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5257: X_Old_Values(i) := X_New_Values(i);
5258: End LOOP;
5259: /* Bug 3523930 */
5331:
5332: -- Update GMS_AWARD_DISTRIBUTIONS set Billed_Flag to 'Y' indicating item has been picked for Invoicing
5333:
5334: IF L_DEBUG = 'Y' THEN
5335: gms_error_pkg.gms_debug('Format specific Billing : Calling UPD_ADL_BILLING_FLAG for expenditure '||X_Expenditure_Item_Id,'C');
5336: END IF;
5337:
5338: UPD_ADL_BILLING_FLAG(X_Expenditure_Item_Id,
5339: X_Adl_Line_Num,
5343: St_Err_Code,
5344: St_Err_Buff);
5345:
5346: IF L_DEBUG = 'Y' THEN
5347: gms_error_pkg.gms_debug('After UPD_ADL_BILLING_FLAG X_error_code:'||St_Err_Code,'C');
5348: END IF;
5349:
5350: If St_Err_Code <> 0 then
5351: Raise NO_PROCESSING_OF_AWARD ;
5422: AND ( X_expenditure_item_id = X_old_expenditure_item_id )
5423: ) THEN
5424:
5425: IF L_DEBUG = 'Y' THEN
5426: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5427: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5423: ) THEN
5424:
5425: IF L_DEBUG = 'Y' THEN
5426: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5427: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5431: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5424:
5425: IF L_DEBUG = 'Y' THEN
5426: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5427: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5431: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5432: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5425: IF L_DEBUG = 'Y' THEN
5426: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5427: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5431: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5432: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5433: END IF;
5426: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5427: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5431: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5432: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5433: END IF;
5434:
5427: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5431: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5432: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5433: END IF;
5434:
5435: ei_rollback(x_award_id,
5428: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5429: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5430: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5431: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5432: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5433: END IF;
5434:
5435: ei_rollback(x_award_id,
5436: 'INVOICE',
5441: X_Count);
5442:
5443: X_Event_Amount := X_Event_Amount - X_event_rollback_amount;
5444:
5445: gms_error_pkg.gms_debug('Rolled back EI '||X_expenditure_item_id||' ! ','C');
5446:
5447: END IF;
5448: /* bug 5242484 - end */
5449:
5468: EXCEPTION
5469: WHEN OTHERS THEN
5470: ss_text := SQLCODE||' '||SQLERRM;
5471: IF L_DEBUG = 'Y' THEN
5472: gms_error_pkg.gms_debug(ss_text ,'C');
5473: END IF;
5474: RAISE NO_PROCESSING_OF_AWARD;
5475:
5476: End FORMAT_SPECIFIC_BILLING;
5706:
5707: X_Rev_Burden_Component_Data.DELETE;
5708:
5709: IF L_DEBUG = 'Y' THEN
5710: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5711: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5712: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5713: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5714: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5707: X_Rev_Burden_Component_Data.DELETE;
5708:
5709: IF L_DEBUG = 'Y' THEN
5710: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5711: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5712: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5713: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5714: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5715: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5708:
5709: IF L_DEBUG = 'Y' THEN
5710: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5711: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5712: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5713: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5714: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5715: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5716: END IF;
5709: IF L_DEBUG = 'Y' THEN
5710: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5711: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5712: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5713: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5714: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5715: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5716: END IF;
5717:
5710: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5711: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5712: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5713: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5714: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5715: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5716: END IF;
5717:
5718: -- Lock the Expenditure Item
5711: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5712: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5713: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5714: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5715: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5716: END IF;
5717:
5718: -- Lock the Expenditure Item
5719: select expenditure_item_id
5855:
5856: End If;
5857: ----------------------------------------------------------------------------
5858: IF L_DEBUG = 'Y' THEN
5859: gms_error_pkg.gms_debug('X_Rev_Burden_Components_Count:'||X_Rev_Burden_Components_Count,'C');
5860: END IF;
5861: -----------------------------------------------------------------------------
5862: /* For each Trx fetched Get total amount for the Trx already existing in Intersect table */
5863: GET_AMOUNT_IN_INTERSECT(X_Rev_Expenditure_Item_Id,
6144: OR ((X_Rev_Amount_To_Insert = 0) AND ( X_Rev_Tot_Burd_Amt_To_Insert = 0 ) ) THEN -- added for bug 5182669
6145: --OR ((X_Rev_Expenditure_Cost + X_Rev_Tot_Burden_Amt_In_View) = (X_Rev_Amount_In_Intersect + X_Rev_Tot_Burd_Amt_In_Tmp)) then -- bug 5122434--Commented for bug 5182269
6146:
6147: IF L_DEBUG = 'Y' THEN
6148: gms_error_pkg.gms_debug('Revenue accrual : Calling UPD_ADL_BILLING_FLAG For expenditure_item_id '||X_Rev_Expenditure_Item_Id,'C');
6149: END IF;
6150:
6151: UPD_ADL_BILLING_FLAG(X_Rev_Expenditure_Item_Id,
6152: X_Rev_Adl_Line_Num,
6174: AND ( X_Rev_expenditure_item_id = X_old_expenditure_item_id )
6175: ) THEN
6176:
6177: IF L_DEBUG = 'Y' THEN
6178: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6179: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6175: ) THEN
6176:
6177: IF L_DEBUG = 'Y' THEN
6178: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6179: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6176:
6177: IF L_DEBUG = 'Y' THEN
6178: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6179: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6184: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6177: IF L_DEBUG = 'Y' THEN
6178: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6179: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6184: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6185: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6178: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6179: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6184: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6185: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6186: END IF;
6179: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6184: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6185: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6186: END IF;
6187:
6180: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6184: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6185: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6186: END IF;
6187:
6188: ei_rollback(x_Rev_award_id,
6181: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6182: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6183: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6184: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6185: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6186: END IF;
6187:
6188: ei_rollback(x_Rev_award_id,
6189: 'REVENUE',
6195:
6196: X_Rev_Run_Total := X_Rev_Run_Total - x_event_rollback_qty ;
6197: X_Rev_Event_Amount := X_Rev_Event_Amount - X_event_rollback_amount;
6198:
6199: gms_error_pkg.gms_debug('Rolled back EI '||X_Rev_expenditure_item_id||' ! ','C');
6200: /* for bug 5242484 - end */
6201:
6202: END IF;
6203:
6223:
6224: --If X_Rev_Event_Amount <> 0 then
6225: -- X_LAST_CALL_FOR_REVENUE := TRUE; -- Bug 3254097
6226: IF L_DEBUG = 'Y' THEN
6227: gms_error_pkg.gms_debug('IN REVENUE_ACCRUAL, last call ...','C');
6228: END IF;
6229: DO_REV_EVENT_PROCESSING(X_Act_Project_Id_Old,
6230: X_Task_Id_Old,
6231: X_Expenditure_Type_Old,
6458:
6459: Begin
6460:
6461: SAVEPOINT AWARD_BILLING_BEGIN; -- Added for bug 4243374
6462: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
6463:
6464: -- Code added for bug 1744641
6465: open GMS_AWARDS_CURSOR;
6466: Fetch gms_awards_cursor into X_award_number,X_award_name, x_awd_id;
6470: /* GMS INSTALLATION CHECK */
6471: If gms_install.enabled then
6472:
6473: IF L_DEBUG = 'Y' THEN
6474: gms_error_pkg.gms_debug('GMS INSTALLED -- START AWARD BILLING FOR Award Project:','C');
6475: gms_error_pkg.gms_debug('X_Project_id:'||X_Project_id,'C');
6476: END IF;
6477:
6478: -- Bug 1980810 : Added to set currency related global variables
6471: If gms_install.enabled then
6472:
6473: IF L_DEBUG = 'Y' THEN
6474: gms_error_pkg.gms_debug('GMS INSTALLED -- START AWARD BILLING FOR Award Project:','C');
6475: gms_error_pkg.gms_debug('X_Project_id:'||X_Project_id,'C');
6476: END IF;
6477:
6478: -- Bug 1980810 : Added to set currency related global variables
6479: -- Call to pa_currency.round_currency_amt function will use
6486: X_Project_id,
6487: St_Err_Code,
6488: St_Err_Buff);
6489: IF L_DEBUG = 'Y' THEN
6490: gms_error_pkg.gms_debug('After gms_bill_concurrency x_error_code :'||St_Err_Code,'C');
6491: END IF;
6492:
6493: If St_Err_Code <> 0 then
6494: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6490: gms_error_pkg.gms_debug('After gms_bill_concurrency x_error_code :'||St_Err_Code,'C');
6491: END IF;
6492:
6493: If St_Err_Code <> 0 then
6494: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6495: 'PRJ',
6496: X_Project_id,
6497: X_Exec_Type => 'C',
6498: X_Err_Code => St_Err_Code,
6516: St_Err_Code,
6517: St_Err_Buff);
6518:
6519: IF L_DEBUG = 'Y' THEN
6520: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6521: END IF;
6522:
6523: If St_Err_Code <> 0 then
6524: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6520: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6521: END IF;
6522:
6523: If St_Err_Code <> 0 then
6524: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6525: 'PRJ',
6526: X_Project_id,
6527: X_Exec_Type => 'C',
6528: X_Err_Code => St_Err_Code,
6542: St_Err_Code,
6543: St_Err_Buff);
6544:
6545: IF L_DEBUG = 'Y' THEN
6546: gms_error_pkg.gms_debug('After billing_rollback x_error_code :'||St_Err_Code,'C');
6547: END IF;
6548:
6549: If St_Err_Code <> 0 then
6550: gms_error_pkg.gms_message('GMS_BILLING_ROLLBACK_FAILURE',
6546: gms_error_pkg.gms_debug('After billing_rollback x_error_code :'||St_Err_Code,'C');
6547: END IF;
6548:
6549: If St_Err_Code <> 0 then
6550: gms_error_pkg.gms_message('GMS_BILLING_ROLLBACK_FAILURE',
6551: 'PRJ',
6552: X_Project_id,
6553: X_Exec_Type => 'C',
6554: X_Err_Code => St_Err_Code,
6563:
6564: IF NOT IS_PROCESSING_REQD(X_Calling_Process , X_Awd_Id ) THEN
6565:
6566: IF L_DEBUG = 'Y' THEN
6567: gms_error_pkg.gms_debug('No records to process - NOT IS_PROCESSING_REQD :'||St_Err_Code,'C');
6568: END IF;
6569: RAISE NO_EXP_TO_PROCESS;
6570: -- NO recored for processing, we raising an exception to cleanup GMS processing
6571:
6588: project_id = X_Project_Id;
6589:
6590: EXCEPTION
6591: WHEN OTHERS THEN
6592: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
6593: 'SQLCODE',
6594: SQLCODE,
6595: 'SQLERRM',
6596: SQLERRM,
6603:
6604: End;
6605:
6606: IF L_DEBUG = 'Y' THEN
6607: gms_error_pkg.gms_debug('Project Type is :'||X_Project_Type,'C');
6608: END IF;
6609:
6610: /* ===============================================================================
6611: || Code for period validation has been commented out.
6631: X_Class_Category := NULL;
6632: End;
6633:
6634: IF L_DEBUG = 'Y' THEN
6635: gms_error_pkg.gms_debug('After Class Category select','C');
6636: END IF;
6637:
6638: Begin
6639: select
6659: -- and a.agreement_id = ag.agreement_id; -- Bug 1841288 : Removed the join
6660: End;
6661:
6662: IF L_DEBUG = 'Y' THEN
6663: gms_error_pkg.gms_debug('Distribution Rule:Revenue:'||X_Award_Rev_Distribution_Rule,'C');
6664: gms_error_pkg.gms_debug('Distribution Rule:Invoice:'||X_Award_Bill_Distribution_Rule,'C');
6665: END IF;
6666:
6667: --------------------------------------------------------------------------------------------------------- +
6660: End;
6661:
6662: IF L_DEBUG = 'Y' THEN
6663: gms_error_pkg.gms_debug('Distribution Rule:Revenue:'||X_Award_Rev_Distribution_Rule,'C');
6664: gms_error_pkg.gms_debug('Distribution Rule:Invoice:'||X_Award_Bill_Distribution_Rule,'C');
6665: END IF;
6666:
6667: --------------------------------------------------------------------------------------------------------- +
6668: -- Bug 3143102 : Following code takes care of the scenario where the labor and/or non-labor format
6671:
6672: IF NOT Is_Invoice_Format_Valid(X_project_id,NULL,NULL,'BILLING_PROCESS') THEN
6673:
6674: IF L_DEBUG = 'Y' THEN
6675: gms_error_pkg.gms_debug('Labor/Non-Labor format is Invalid','C');
6676: END IF;
6677:
6678: RAISE INVALID_INVOICE_FORMAT;
6679:
6681:
6682: End If;
6683:
6684: IF L_DEBUG = 'Y' THEN
6685: gms_error_pkg.gms_debug('Labor/Non-Labor format is Valid','C');
6686: END IF;
6687: --------------------------------------------------------------------------------------------------------- +
6688:
6689: -- CALL TAX UPDATION PROCEDURE
6703: Raise GMS_TAX_FAILURE; --4506225
6704: End If;
6705:
6706: IF L_DEBUG = 'Y' THEN
6707: gms_error_pkg.gms_debug('After tax, x_error_code :'||St_Err_Code,'C');
6708: END IF;
6709: --For Bug 4506225 :Moved the code after gms_Tax
6710: lock_award_records(X_Project_id,
6711: St_Err_Code,
6711: St_Err_Code,
6712: St_Err_Buff);
6713:
6714: IF L_DEBUG = 'Y' THEN
6715: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6716: END IF;
6717:
6718: If St_Err_Code <> 0 then
6719: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6715: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6716: END IF;
6717:
6718: If St_Err_Code <> 0 then
6719: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6720: 'PRJ',
6721: X_Project_id,
6722: X_Exec_Type => 'C',
6723: X_Err_Code => St_Err_Code,
6774:
6775: --dbms_output.put_line('After GET_FORMAT_SELECT Proc '||'Award Id '||to_char(X_Award_Id) );
6776:
6777: IF L_DEBUG = 'Y' THEN
6778: gms_error_pkg.gms_debug('After Format Selection','C');
6779: END IF;
6780:
6781:
6782: sql_select := 'select /*+INDEX(ei PA_EXPENDITURE_ITEMS_U1)*/ ';
6890: f_dummy := f_dummy + 1;
6891:
6892:
6893: IF L_DEBUG = 'Y' THEN
6894: gms_error_pkg.gms_debug('In installment loop, Installment_Id :'||C_Installment_Id,'C');
6895: END IF;
6896:
6897: /*============================================================================================*/
6898: /* Processing Begins here for the rows which have expenditure type which are LABOR related */
6990:
6991: --dbms_output.put_line('Processing LABOR Transactions ');
6992:
6993: IF L_DEBUG = 'Y' THEN
6994: gms_error_pkg.gms_debug('Before FORMAT_SPECIFIC_BILLING call','C');
6995:
6996: END IF;
6997:
6998: /* bug 5413530 */
7162: g_process_again := 'N';
7163: END IF;
7164:
7165: IF L_DEBUG = 'Y' THEN
7166: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7167: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7168: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7169: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7170: END IF;
7163: END IF;
7164:
7165: IF L_DEBUG = 'Y' THEN
7166: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7167: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7168: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7169: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7170: END IF;
7171:
7164:
7165: IF L_DEBUG = 'Y' THEN
7166: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7167: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7168: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7169: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7170: END IF;
7171:
7172: /* Added for bug 5026657 */
7165: IF L_DEBUG = 'Y' THEN
7166: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7167: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7168: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7169: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7170: END IF;
7171:
7172: /* Added for bug 5026657 */
7173: /* Commented revenue limit flag condition and added invoice limit flag check for bug 6642901
7265: C_End_Date_Active;
7266: EXIT WHEN GET_INSTALLMENTS%NOTFOUND;
7267:
7268: IF L_DEBUG = 'Y' THEN
7269: gms_error_pkg.gms_debug('Revenue Process, In installment loop, installment :'||C_Installment_Id,'C');
7270: END IF;
7271:
7272: f_dummy := 0 ; --For Bug 5026657
7273:
7278:
7279: f_dummy := f_dummy + 1;
7280:
7281: IF L_DEBUG = 'Y' THEN
7282: gms_error_pkg.gms_debug('Entering dummy loop....f_dummy is '||f_dummy,'C');
7283: END IF;
7284:
7285: /* Processing Labor Transactions */
7286: X_Trx_Type := 'LABOR';
7337: END IF;
7338:
7339: /* Added for bug 5026657 */
7340: IF L_DEBUG = 'Y' THEN
7341: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7342: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7343: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7344: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7345: END IF;
7338:
7339: /* Added for bug 5026657 */
7340: IF L_DEBUG = 'Y' THEN
7341: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7342: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7343: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7344: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7345: END IF;
7346:
7339: /* Added for bug 5026657 */
7340: IF L_DEBUG = 'Y' THEN
7341: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7342: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7343: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7344: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7345: END IF;
7346:
7347: /* Added for bug 5026657 */
7340: IF L_DEBUG = 'Y' THEN
7341: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7342: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7343: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7344: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7345: END IF;
7346:
7347: /* Added for bug 5026657 */
7348: IF ( X_Revenue_Limit_Flag = 'N' OR
7428:
7429: Exception
7430:
7431: When Others then
7432: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
7433: 'SQLCODE',
7434: SQLCODE,
7435: 'SQLERRM',
7436: SQLERRM,
7447:
7448: End if; -- GMS INSTALLATION CHECK
7449:
7450: IF L_DEBUG = 'Y' THEN
7451: gms_error_pkg.gms_debug('End Award Billing ','C');
7452: END IF;
7453:
7454: Exception
7455: When NO_PROCESSING_OF_AWARD then
7461: -- ## which has been modified or created is rolled back thus ensuring consistency
7462: -- ## Further processing for that award is ignored.
7463: -- Added for Bug 1744641: To Generate errors when an exception occurs
7464: -- during the process of generation of invoice/Revenue.
7465: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7466: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7467: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7468: End If;
7469: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7462: -- ## Further processing for that award is ignored.
7463: -- Added for Bug 1744641: To Generate errors when an exception occurs
7464: -- during the process of generation of invoice/Revenue.
7465: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7466: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7467: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7468: End If;
7469: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7470: 'PRJ',
7463: -- Added for Bug 1744641: To Generate errors when an exception occurs
7464: -- during the process of generation of invoice/Revenue.
7465: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7466: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7467: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7468: End If;
7469: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7470: 'PRJ',
7471: x_calling_place,
7465: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7466: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7467: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7468: End If;
7469: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7470: 'PRJ',
7471: x_calling_place,
7472: x_project_id ,
7473: x_award_number ,
7474: x_award_name );
7475:
7476: -- End of the code added for bug 1744641
7477: IF L_DEBUG = 'Y' THEN
7478: gms_error_pkg.gms_debug('WHEN NO_PROCESSING_OF_AWARD - AWARD_BILLING','C');
7479: END IF;
7480: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7481: 'PRJ',
7482: X_Project_id,
7476: -- End of the code added for bug 1744641
7477: IF L_DEBUG = 'Y' THEN
7478: gms_error_pkg.gms_debug('WHEN NO_PROCESSING_OF_AWARD - AWARD_BILLING','C');
7479: END IF;
7480: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7481: 'PRJ',
7482: X_Project_id,
7483: X_Exec_Type => 'C',
7484: X_Err_Code => St_Err_Code,
7498: -- ## which has been modified or created is rolled back thus ensuring consistency
7499: -- ## Further processing for that award is ignored.
7500: -- Added for Bug 1744641: To Generate errors when an exception occurs
7501: -- during the process of generation of invoice/Revenue.
7502: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7503: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7504: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7505: End If;
7506: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7499: -- ## Further processing for that award is ignored.
7500: -- Added for Bug 1744641: To Generate errors when an exception occurs
7501: -- during the process of generation of invoice/Revenue.
7502: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7503: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7504: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7505: End If;
7506: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7507: 'PROJECT_ID',
7500: -- Added for Bug 1744641: To Generate errors when an exception occurs
7501: -- during the process of generation of invoice/Revenue.
7502: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7503: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7504: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7505: End If;
7506: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7507: 'PROJECT_ID',
7508: x_calling_place ,
7502: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7503: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7504: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7505: End If;
7506: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7507: 'PROJECT_ID',
7508: x_calling_place ,
7509: x_project_id ,
7510: x_award_number ,
7508: x_calling_place ,
7509: x_project_id ,
7510: x_award_number ,
7511: x_award_name );
7512: gms_error_pkg.gms_exception_lines_proc( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7513: 'PRJ',
7514: x_calling_place,
7515: x_project_id );
7516: -- End of the code added for bug 1744641
7514: x_calling_place,
7515: x_project_id );
7516: -- End of the code added for bug 1744641
7517: IF L_DEBUG = 'Y' THEN
7518: gms_error_pkg.gms_debug('WHEN AWARD_DATA_LOCKED - AWARD_BILLING','C');
7519: END IF;
7520: gms_error_pkg.gms_message('GMS_BILL_AWARD_LOCK',
7521: 'PROJECT_ID',
7522: X_Project_id,
7516: -- End of the code added for bug 1744641
7517: IF L_DEBUG = 'Y' THEN
7518: gms_error_pkg.gms_debug('WHEN AWARD_DATA_LOCKED - AWARD_BILLING','C');
7519: END IF;
7520: gms_error_pkg.gms_message('GMS_BILL_AWARD_LOCK',
7521: 'PROJECT_ID',
7522: X_Project_id,
7523: X_Exec_Type => 'C',
7524: X_Err_Code => St_Err_Code,
7523: X_Exec_Type => 'C',
7524: X_Err_Code => St_Err_Code,
7525: X_Err_Buff => St_Err_Buff);
7526:
7527: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7528: 'PRJ',
7529: X_Project_id,
7530: X_Exec_Type => 'C',
7531: X_Err_Code => St_Err_Code,
7536: When ROLLBACK_FAILURE then
7537:
7538: -- Added for Bug 1744641: To Generate errors when an exception occurs
7539: -- during the process of generation of invoice/Revenue.
7540: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7541: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7542: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7543: End If;
7544: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7537:
7538: -- Added for Bug 1744641: To Generate errors when an exception occurs
7539: -- during the process of generation of invoice/Revenue.
7540: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7541: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7542: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7543: End If;
7544: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7545: 'PRJ',
7538: -- Added for Bug 1744641: To Generate errors when an exception occurs
7539: -- during the process of generation of invoice/Revenue.
7540: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7541: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7542: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7543: End If;
7544: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7545: 'PRJ',
7546: x_calling_place,
7540: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7541: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7542: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7543: End If;
7544: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7545: 'PRJ',
7546: x_calling_place,
7547: x_project_id ,
7548: x_award_number ,
7548: x_award_number ,
7549: x_award_name);
7550: -- End of code added for bug 1744641.
7551: IF L_DEBUG = 'Y' THEN
7552: gms_error_pkg.gms_debug('WHEN ROLLBACK_FAILURE - AWARD_BILLING','C');
7553: END IF;
7554: rollback; -- release lock and any changes carried out.
7555: RETURN;
7556:
7584: -- ## which has been modified or created is rolled back thus ensuring consistency
7585: -- ## Further processing for that award is ignored.
7586: -- Added for Bug 3143102: QI LABOR/NON-LABOR INVOICE FORMATS NOT SUPPORTED BY GMS
7587:
7588: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7589: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7590: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7591: End If;
7592: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7585: -- ## Further processing for that award is ignored.
7586: -- Added for Bug 3143102: QI LABOR/NON-LABOR INVOICE FORMATS NOT SUPPORTED BY GMS
7587:
7588: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7589: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7590: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7591: End If;
7592: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7593: NULL,
7586: -- Added for Bug 3143102: QI LABOR/NON-LABOR INVOICE FORMATS NOT SUPPORTED BY GMS
7587:
7588: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7589: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7590: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7591: End If;
7592: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7593: NULL,
7594: x_calling_place ,
7588: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7589: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7590: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7591: End If;
7592: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7593: NULL,
7594: x_calling_place ,
7595: x_project_id ,
7596: x_award_number ,
7596: x_award_number ,
7597: x_award_name );
7598:
7599: IF L_DEBUG = 'Y' THEN
7600: gms_error_pkg.gms_debug('WHEN INVALID INVOICE FORMAT - AWARD_BILLING','C');
7601: END IF;
7602: gms_error_pkg.gms_message('GMS_INVALID_INVOICE_FORMAT',
7603: X_Exec_Type => 'C',
7604: X_Err_Code => St_Err_Code,
7598:
7599: IF L_DEBUG = 'Y' THEN
7600: gms_error_pkg.gms_debug('WHEN INVALID INVOICE FORMAT - AWARD_BILLING','C');
7601: END IF;
7602: gms_error_pkg.gms_message('GMS_INVALID_INVOICE_FORMAT',
7603: X_Exec_Type => 'C',
7604: X_Err_Code => St_Err_Code,
7605: X_Err_Buff => St_Err_Buff);
7606:
7619: -- ## This exception is raised when the call to GMS_TAX in procedure award_billing
7620: -- ## returns a non zero value.One possible cause for GMS_TAX to return a non_zero
7621: -- ## value is an inactive award sponsor.
7622: -- ## Added for bug 4243374.
7623: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7624: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7625: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7626: End If;
7627: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7620: -- ## returns a non zero value.One possible cause for GMS_TAX to return a non_zero
7621: -- ## value is an inactive award sponsor.
7622: -- ## Added for bug 4243374.
7623: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7624: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7625: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7626: End If;
7627: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7628: 'PRJ',
7621: -- ## value is an inactive award sponsor.
7622: -- ## Added for bug 4243374.
7623: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7624: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7625: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7626: End If;
7627: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7628: 'PRJ',
7629: x_calling_place,
7623: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7624: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7625: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7626: End If;
7627: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7628: 'PRJ',
7629: x_calling_place,
7630: x_project_id ,
7631: x_award_number ,
7631: x_award_number ,
7632: x_award_name );
7633:
7634: IF L_DEBUG = 'Y' THEN
7635: gms_error_pkg.gms_debug('WHEN GMS_TAX_FAILURE - AWARD_BILLING','C');
7636: END IF;
7637: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7638: 'PRJ',
7639: X_Project_id,
7633:
7634: IF L_DEBUG = 'Y' THEN
7635: gms_error_pkg.gms_debug('WHEN GMS_TAX_FAILURE - AWARD_BILLING','C');
7636: END IF;
7637: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7638: 'PRJ',
7639: X_Project_id,
7640: X_Exec_Type => 'C',
7641: X_Err_Code => St_Err_Code,
7651: --End of bug fix 4506225
7652: When Others then
7653: -- Added for Bug 1744641: To Generate errors when an exception occurs
7654: -- during the process of generation of invoice/Revenue.
7655: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7656: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7657: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7658: End If;
7659: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7652: When Others then
7653: -- Added for Bug 1744641: To Generate errors when an exception occurs
7654: -- during the process of generation of invoice/Revenue.
7655: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7656: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7657: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7658: End If;
7659: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7660: 'PRJ',
7653: -- Added for Bug 1744641: To Generate errors when an exception occurs
7654: -- during the process of generation of invoice/Revenue.
7655: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7656: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7657: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7658: End If;
7659: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7660: 'PRJ',
7661: x_calling_place,
7655: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7656: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7657: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7658: End If;
7659: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7660: 'PRJ',
7661: x_calling_place,
7662: x_project_id ,
7663: x_award_number ,
7663: x_award_number ,
7664: x_award_name,
7665: SQLCODE,
7666: SQLERRM );
7667: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7668: 'PRJ',
7669: x_calling_place ,
7670: x_project_id
7671: );
7670: x_project_id
7671: );
7672: --End of Code added for bug 1744641
7673: IF L_DEBUG = 'Y' THEN
7674: gms_error_pkg.gms_debug('WHEN OTHERS - AWARD_BILLING','C');
7675: END IF;
7676: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
7677: 'SQLCODE',
7678: SQLCODE,
7672: --End of Code added for bug 1744641
7673: IF L_DEBUG = 'Y' THEN
7674: gms_error_pkg.gms_debug('WHEN OTHERS - AWARD_BILLING','C');
7675: END IF;
7676: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
7677: 'SQLCODE',
7678: SQLCODE,
7679: 'SQLERRM',
7680: SQLERRM,
7681: X_Exec_Type => 'C',
7682: X_Err_Code => St_Err_Code,
7683: X_Err_Buff => St_Err_Buff);
7684:
7685: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7686: 'PRJ',
7687: X_Project_id,
7688: X_Exec_Type => 'C',
7689: X_Err_Code => St_Err_Code,