[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: /* commented for bug bug 9852339
3003: update GMS_EVENT_INTERSECT gei
3046:
3047:
3048: If SQL%NOTFOUND THEN
3049: IF L_DEBUG = 'Y' THEN
3050: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - ERROR','C');
3051: END IF;
3052: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3053: 'PRJ',
3054: X_Award_Project_Id,
3048: If SQL%NOTFOUND THEN
3049: IF L_DEBUG = 'Y' THEN
3050: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - ERROR','C');
3051: END IF;
3052: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3053: 'PRJ',
3054: X_Award_Project_Id,
3055: 'REQ',
3056: X_Request_id,
3060: Raise NO_PROCESSING_OF_AWARD ;
3061:
3062: End If;
3063: IF L_DEBUG = 'Y' THEN
3064: gms_error_pkg.gms_debug('IN EVENT INTERSECT Updation - END','C');
3065: END IF;
3066:
3067: End UPDATE_GMS_EVENT_INTERSECT;
3068:
3083: X_Err_Code Varchar2(1);
3084: X_Err_Buff Varchar2(2000);
3085: Begin
3086: IF L_DEBUG = 'Y' THEN
3087: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - START','C');
3088: END IF;
3089: update /*+INDEX(GMS_BURDEN_COMPONENTS GMS_BURDEN_COMPONENTS_N3)*/ GMS_BURDEN_COMPONENTS
3090: set
3091: EVENT_NUM = X_Event_Num
3102: expenditure_org_id = X_Expenditure_Org_Id;
3103:
3104: If SQL%NOTFOUND THEN
3105: IF L_DEBUG = 'Y' THEN
3106: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - ERROR','C');
3107: END IF;
3108: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3109: 'PRJ',
3110: X_Award_Project_Id,
3104: If SQL%NOTFOUND THEN
3105: IF L_DEBUG = 'Y' THEN
3106: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - ERROR','C');
3107: END IF;
3108: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3109: 'PRJ',
3110: X_Award_Project_Id,
3111: 'REQ',
3112: X_Request_id,
3117:
3118: End If;
3119:
3120: IF L_DEBUG = 'Y' THEN
3121: gms_error_pkg.gms_debug('IN BURDEN COMPONENTS Updation - END','C');
3122: END IF;
3123:
3124: End UPDATE_GMS_BURDEN_COMPONENTS;
3125: ---------------------------------------------------------------------------------------------
3135:
3136: Begin
3137:
3138: IF L_DEBUG = 'Y' THEN
3139: gms_error_pkg.gms_debug('IN EVENT ARRIBUTE UPDATION -- START','C');
3140: END IF;
3141:
3142: update GMS_EVENT_ATTRIBUTE
3143: set
3171:
3172: -- If SQL%NOTFOUND THEN
3173: If x_count > 0 then
3174:
3175: gms_error_pkg.gms_message('GMS_NO_UPD_PRJ_REQ',
3176: 'PRJ',
3177: X_Award_Project_Id,
3178: 'REQ',
3179: X_Request_id,
3187: Exception
3188:
3189: When Others then
3190: IF L_DEBUG = 'Y' THEN
3191: gms_error_pkg.gms_debug('IN EVENT ARRIBUTE WHEN OTHERS ','C');
3192: END IF;
3193: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3194: 'SQLCODE',
3195: SQLCODE,
3189: When Others then
3190: IF L_DEBUG = 'Y' THEN
3191: gms_error_pkg.gms_debug('IN EVENT ARRIBUTE WHEN OTHERS ','C');
3192: END IF;
3193: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3194: 'SQLCODE',
3195: SQLCODE,
3196: 'SQLERRM',
3197: SQLERRM,
3274:
3275: End If;
3276:
3277: If SQL%ROWCOUNT = 0 then
3278: gms_error_pkg.gms_message('GMS_NO_UPD_TASK_INST',
3279: 'TASK',
3280: X_Task_Id,
3281: 'INST',
3282: X_Installment_Id,
3364: X_Err_Code := 0;
3365:
3366: EXCEPTION
3367: WHEN OTHERS THEN
3368: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3369: 'SQLCODE',
3370: SQLCODE,
3371: 'SQLERRM',
3372: SQLERRM,
3418:
3419: End If;
3420:
3421: If SQL%ROWCOUNT = 0 then
3422: gms_error_pkg.gms_message('GMS_NO_UPD_EXP_ADL',
3423: 'EXP',
3424: X_Expenditure_Item_Id,
3425: 'ADL',
3426: X_Adl_Line_Num,
3497:
3498: BEGIN
3499:
3500: IF L_DEBUG = 'Y' THEN
3501: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - START ','C');
3502: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - X_trans_type is '||X_trans_type,'C'); -- added debug for 5413530
3503: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - G_trans_type is '||G_trans_type,'C'); -- added debug for 5413530
3504: END IF;
3505:
3498: BEGIN
3499:
3500: IF L_DEBUG = 'Y' THEN
3501: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - START ','C');
3502: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - X_trans_type is '||X_trans_type,'C'); -- added debug for 5413530
3503: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - G_trans_type is '||G_trans_type,'C'); -- added debug for 5413530
3504: END IF;
3505:
3506: IF p_calling_place = 'Revenue' THEN
3499:
3500: IF L_DEBUG = 'Y' THEN
3501: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - START ','C');
3502: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - X_trans_type is '||X_trans_type,'C'); -- added debug for 5413530
3503: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - G_trans_type is '||G_trans_type,'C'); -- added debug for 5413530
3504: END IF;
3505:
3506: IF p_calling_place = 'Revenue' THEN
3507: l_description := p_description ||'- '|| p_quantity || ' ' || p_units;
3528: AND task_id = p_task_id
3529: AND nvl(format,'X') = nvl(p_format,'X'); -- for bug 5413530
3530:
3531: IF L_DEBUG = 'Y' THEN
3532: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - After updating '||p_event_num||' in gms_events_temp_format with amount '||p_amount ,'C');
3533: END IF;
3534:
3535: ELSE
3536:
3572: p_format,
3573: l_description );
3574:
3575: IF L_DEBUG = 'Y' THEN
3576: 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');
3577: END IF;
3578:
3579: END IF;
3580: CLOSE C_event_exists_PTF;
3581:
3582: G_trans_type := X_trans_type ; /* For bug 5413530 */
3583:
3584: IF L_DEBUG = 'Y' THEN
3585: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - END ','C');
3586: END IF;
3587:
3588: EXCEPTION
3589: WHEN OTHERS THEN
3588: EXCEPTION
3589: WHEN OTHERS THEN
3590:
3591: IF L_DEBUG = 'Y' THEN
3592: gms_error_pkg.gms_debug('IN PROCESS_TEMP_EVENTS - WHEN OTHERS ','C');
3593: END IF;
3594:
3595: IF C_event_exists_F%ISOPEN THEN
3596: CLOSE C_event_exists_F;
3599: IF C_event_exists_PTF%ISOPEN THEN
3600: CLOSE C_event_exists_PTF;
3601: END IF;
3602:
3603: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3604: 'SQLCODE',
3605: SQLCODE,
3606: 'SQLERRM',
3607: SQLERRM,
3664:
3665: BEGIN
3666:
3667: IF L_DEBUG = 'Y' THEN
3668: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - START','C');
3669: END IF;
3670:
3671: FOR pa_events_rec IN C_get_temp_pa_events LOOP
3672:
3679: X_INVRAW_NULL_EVENT_PROCESSED := TRUE;
3680: END IF;
3681:
3682: IF L_DEBUG = 'Y' THEN
3683: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - Encountered NULL event- After setting NULL event flags','C');
3684: END IF;
3685: END IF;
3686:
3687: FOR gms_events_rec IN C_get_temp_gms_events(pa_events_rec.event_num,pa_events_rec.format,pa_events_rec.description) LOOP
3698: p_Err_Code,
3699: p_Err_Buff);
3700:
3701: IF L_DEBUG = 'Y' THEN
3702: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3703: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3704: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3705: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3706: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3699: p_Err_Buff);
3700:
3701: IF L_DEBUG = 'Y' THEN
3702: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3703: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3704: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3705: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3706: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3707: END IF;
3700:
3701: IF L_DEBUG = 'Y' THEN
3702: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3703: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3704: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3705: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3706: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3707: END IF;
3708:
3701: IF L_DEBUG = 'Y' THEN
3702: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3703: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3704: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3705: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3706: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3707: END IF;
3708:
3709: IF p_Err_Code <> 0 THEN
3702: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for event '||pa_events_rec.event_num,'C');
3703: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for project_id '||gms_events_rec.act_project_id,'C');
3704: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call for task_id '||gms_events_rec.task_id,'C');
3705: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Code '||p_Err_Code,'C');
3706: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_WRAPPER call value of p_Err_Buff '||p_Err_Buff,'C');
3707: END IF;
3708:
3709: IF p_Err_Code <> 0 THEN
3710: Raise NO_PROCESSING_OF_AWARD ;
3749: X_status => St_Status
3750: );
3751:
3752: IF L_DEBUG = 'Y' THEN
3753: 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');
3754: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Error_Message '||St_Error_Message,'C');
3755: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Status '||St_Status,'C');
3756: END IF;
3757:
3750: );
3751:
3752: IF L_DEBUG = 'Y' THEN
3753: 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');
3754: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Error_Message '||St_Error_Message,'C');
3755: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Status '||St_Status,'C');
3756: END IF;
3757:
3758: IF St_Status <> 0 THEN
3751:
3752: IF L_DEBUG = 'Y' THEN
3753: 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');
3754: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Error_Message '||St_Error_Message,'C');
3755: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After insert_event call value of St_Status '||St_Status,'C');
3756: END IF;
3757:
3758: IF St_Status <> 0 THEN
3759: RAISE NO_PROCESSING_OF_AWARD;
3768: WHERE Event_num = pa_events_rec.event_num
3769: AND award_project_id = p_project_id; /* Added for bug 4172924*/
3770:
3771: IF L_DEBUG = 'Y' THEN
3772: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After updating GEI ','C');
3773: END IF;
3774:
3775: EVENT_ATTRIBUTE_UPDATION( Evt_Num,
3776: p_Project_Id,
3778: p_Err_Code,
3779: p_Err_Buff);
3780:
3781: IF L_DEBUG = 'Y' THEN
3782: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Code'||p_Err_Code,'C');
3783: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Buff'||p_Err_Buff,'C');
3784: END IF;
3785:
3786: IF p_Err_Code <> 0 THEN
3779: p_Err_Buff);
3780:
3781: IF L_DEBUG = 'Y' THEN
3782: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Code'||p_Err_Code,'C');
3783: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - After EVENT_ATTRIBUTE_UPDATION value of p_Err_Buff'||p_Err_Buff,'C');
3784: END IF;
3785:
3786: IF p_Err_Code <> 0 THEN
3787: Raise NO_PROCESSING_OF_AWARD ;
3789:
3790: END LOOP;
3791:
3792: IF L_DEBUG = 'Y' THEN
3793: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - END','C');
3794: END IF;
3795:
3796: EXCEPTION
3797:
3797:
3798: When Others then
3799:
3800: IF L_DEBUG = 'Y' THEN
3801: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - WHEN OTHERS ','C');
3802: END IF;
3803:
3804: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3805: 'SQLCODE',
3800: IF L_DEBUG = 'Y' THEN
3801: gms_error_pkg.gms_debug('IN CREATE_PA_EVENTS - WHEN OTHERS ','C');
3802: END IF;
3803:
3804: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
3805: 'SQLCODE',
3806: SQLCODE,
3807: 'SQLERRM',
3808: SQLERRM,
3888:
3889: Begin
3890:
3891: IF L_DEBUG = 'Y' THEN
3892: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - START ','C');
3893: END IF;
3894:
3895: /* Building the Event Description */
3896:
3896:
3897: For j in 1..X_Count_Of_Columns LOOP
3898:
3899: -- 3120142 Start
3900: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3901:
3902: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3903:
3904: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3900: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3901:
3902: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3903:
3904: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3905: --gms_error_pkg.gms_debug('****** X_Padding_Length(j) '||X_Padding_Length(j),'C');
3906: --gms_error_pkg.gms_debug('****** length(X_Values(j)) '||length(X_Values(j)),'C');
3907:
3908: -- Grouping value ................... Start
3901:
3902: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3903:
3904: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3905: --gms_error_pkg.gms_debug('****** X_Padding_Length(j) '||X_Padding_Length(j),'C');
3906: --gms_error_pkg.gms_debug('****** length(X_Values(j)) '||length(X_Values(j)),'C');
3907:
3908: -- Grouping value ................... Start
3909:
3902: If X_Sel_Grp_Diff_Ind(j) = 'Y' then -- I
3903:
3904: --gms_error_pkg.gms_debug('****** X_Values(j) '||X_Values(j),'C');
3905: --gms_error_pkg.gms_debug('****** X_Padding_Length(j) '||X_Padding_Length(j),'C');
3906: --gms_error_pkg.gms_debug('****** length(X_Values(j)) '||length(X_Values(j)),'C');
3907:
3908: -- Grouping value ................... Start
3909:
3910: If (X_Padding_Length(j)- length(X_Values(j))) <= 0 then
3911: X_pad1 := X_Padding_Length(j);
3912: Else
3913: X_pad1 := X_Padding_Length(j) - (abs(X_Padding_Length(j)- length(X_Values(j))));
3914: End If;
3915: gms_error_pkg.gms_debug('****** X_pad1 '||X_pad1,'C');
3916:
3917: If X_Right_Jstfy_Flag_Array(j) = 'N' then
3918: Evt_Description := Evt_Description||rpad(X_Values(j),X_Pad1)||' ';
3919: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3920: Evt_Description := Evt_Description||lpad(X_Values(j),X_Pad1)||' ';
3921: End If;
3922:
3923: -- Grouping value ................... End
3924: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3925:
3926: Elsif X_Sel_Grp_Diff_Ind(j) = 'N' then -- I
3927: -- Grouping Quantity ................... Start
3928: get_run_total(X_Req_id,X_Proj_Id,x_quantity);
3930: X_pad2 := X_Padding_Length(j);
3931: Else
3932: X_pad2 := X_Padding_Length(j) - (abs(X_Padding_Length(j)- length(to_char(x_quantity ))));
3933: End If;
3934: gms_error_pkg.gms_debug('****** X_pad2 '||X_pad1,'C');
3935:
3936: If X_Right_Jstfy_Flag_Array(j) = 'N' then
3937: Evt_Description := Evt_Description||rpad(to_char(x_quantity),x_pad2)||' ';
3938: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3938: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3939: Evt_Description := Evt_Description||lpad(to_char(x_quantity),x_pad2)||' ';
3940: End If;
3941: -- Grouping Quantity ................... End
3942: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3943:
3944: Elsif X_Sel_Grp_Diff_Ind(j) = 'T' then -- I
3945:
3946: -- Grouping Text ................... Start
3949: Else
3950: X_pad3 := X_Padding_Length(j) - (abs(X_Padding_Length(j)- length(X_Text_Array(j))));
3951: End If;
3952:
3953: gms_error_pkg.gms_debug('****** X_pad3 '||X_pad3,'C');
3954:
3955: If X_Right_Jstfy_Flag_Array(j) = 'N' then
3956: Evt_Description := Evt_Description||rpad(X_Text_Array(j),x_pad3)||' ';
3957: Elsif X_Right_Jstfy_Flag_Array(j) = 'Y' then
3958: Evt_Description := Evt_Description||lpad(X_Text_Array(j),x_pad3)||' ';
3959: End If;
3960:
3961: -- Grouping Text ................... End
3962: gms_error_pkg.gms_debug('****** Evt_Description '||Evt_Description,'C');
3963: End If; -- I
3964:
3965: -- 3120142 End
3966:
4004:
4005: END LOOP;
4006:
4007: IF L_DEBUG = 'Y' THEN
4008: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
4009: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
4010: END IF;
4011:
4012: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
4005: END LOOP;
4006:
4007: IF L_DEBUG = 'Y' THEN
4008: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
4009: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
4010: END IF;
4011:
4012: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
4013: FOR raw_events IN GET_RAW_ROWS_FROM_INTERSECT LOOP
4025: x_err_code,
4026: x_err_buff) ;
4027:
4028: IF L_DEBUG = 'Y' THEN
4029: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4030: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4031: END IF;
4032:
4033: IF X_Err_Code <> 0 then
4026: x_err_buff) ;
4027:
4028: IF L_DEBUG = 'Y' THEN
4029: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4030: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4031: END IF;
4032:
4033: IF X_Err_Code <> 0 then
4034: Raise NO_PROCESSING_OF_AWARD ;
4040: raw_events.actual_project_id,
4041: raw_events.actual_task_id );
4042:
4043: IF L_DEBUG = 'Y' THEN
4044: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - After UPDATE_GMS_EVENT_INTERSECT','C');
4045: END IF;
4046:
4047: END LOOP;
4048:
4049: EXCEPTION
4050: WHEN OTHERS THEN
4051:
4052: IF L_DEBUG = 'Y' THEN
4053: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - WHEN OTHERS ','C');
4054: END IF;
4055: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4056: 'SQLCODE',
4057: SQLCODE,
4051:
4052: IF L_DEBUG = 'Y' THEN
4053: gms_error_pkg.gms_debug('IN DO_EVENT_PROCESSING - WHEN OTHERS ','C');
4054: END IF;
4055: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4056: 'SQLCODE',
4057: SQLCODE,
4058: 'SQLERRM',
4059: SQLERRM,
4117:
4118: Begin
4119:
4120: IF L_DEBUG = 'Y' THEN
4121: gms_error_pkg.gms_debug('IN BURDEN EVENT - START','C');
4122: END IF;
4123:
4124: OPEN GET_BURD_ROWS_FROM_INTERSECT;
4125: LOOP
4134:
4135: If Ins_Amount <> 0 then
4136: -- DO NOT INSERT ZERO AMOUNT EVENTS
4137: IF L_DEBUG = 'Y' THEN
4138: gms_error_pkg.gms_debug('DBP - If Ins_Amount <> 0 part ..','C');
4139: END IF;
4140:
4141: /* Getting Actual Project Number, Task Number and Expenditure Organization Name */
4142: Begin
4160: --------------------------------------------------------------------------
4161: /* Get the Installment Number to be concatenated with Event Description */
4162: --------------------------------------------------------------------------
4163: IF L_DEBUG = 'Y' THEN
4164: gms_error_pkg.gms_debug('DBP - CALL EVENT WRAPPER','C');
4165: END IF;
4166: EVENT_WRAPPER(X_Project_Id,
4167: Ins_Actual_Project_Id,
4168: Ins_Actual_Task_Id,
4181: --RAISE FND_API.G_EXC_ERROR;
4182: Raise NO_PROCESSING_OF_AWARD ;
4183: End If;
4184: IF L_DEBUG = 'Y' THEN
4185: gms_error_pkg.gms_debug('DBP - AFTER EVENT WRAPPER','C');
4186: END IF;
4187:
4188: -------------------------------------------------------------------------------------
4189: /* Getting the Event Number */
4189: /* Getting the Event Number */
4190: Evt_Num := pa_billing_seq.next_eventnum(Ins_Award_Project_Id,NULL);
4191:
4192: IF L_DEBUG = 'Y' THEN
4193: gms_error_pkg.gms_debug('DBP - Evt_Num::'||Evt_Num,'C');
4194: END IF;
4195:
4196:
4197: /* Building the Event Description */
4251: );
4252: End If;
4253:
4254: IF L_DEBUG = 'Y' THEN
4255: gms_error_pkg.gms_debug('After API Event->Status Code,Message:'||St_Status||','||St_Error_Message,'C');
4256: END IF;
4257: If St_Status <> 0 then
4258:
4259: IF L_DEBUG = 'Y' THEN
4256: END IF;
4257: If St_Status <> 0 then
4258:
4259: IF L_DEBUG = 'Y' THEN
4260: gms_error_pkg.gms_debug('!!! IN Burden EVENT - API Call Exception !!! ','C');
4261: END IF;
4262: RAISE NO_PROCESSING_OF_AWARD;
4263:
4264: End If;
4263:
4264: End If;
4265:
4266: IF L_DEBUG = 'Y' THEN
4267: gms_error_pkg.gms_debug('DBP - After Event Creation','C');
4268: END IF;
4269:
4270: /* ------------------------------------------------------------------------------- */
4271: -- Updating Event Attribute
4280: Raise NO_PROCESSING_OF_AWARD ;
4281: End If;
4282:
4283: IF L_DEBUG = 'Y' THEN
4284: gms_error_pkg.gms_debug('DBP - After Event Attribute Updation','C');
4285: END IF;
4286:
4287: ElsIf Ins_Amount = 0 then
4288:
4286:
4287: ElsIf Ins_Amount = 0 then
4288:
4289: IF L_DEBUG = 'Y' THEN
4290: gms_error_pkg.gms_debug('DBP - In Ins_Amount = 0 part ...','C');
4291: END IF;
4292:
4293: -- ------------------------------------------------------------------------------------
4294: -- Event num NULL change ...
4317: Ins_Burden_Cost_Code ,
4318: Ins_Expenditure_Org_Id );
4319:
4320: IF L_DEBUG = 'Y' THEN
4321: gms_error_pkg.gms_debug('DBP - After GBC Updation','C');
4322: END IF;
4323:
4324: End LOOP;
4325:
4323:
4324: End LOOP;
4325:
4326: IF L_DEBUG = 'Y' THEN
4327: gms_error_pkg.gms_debug('IN BURDEN EVENT - END','C');
4328: END IF;
4329:
4330: Exception
4331:
4331:
4332: When Others then
4333:
4334: IF L_DEBUG = 'Y' THEN
4335: gms_error_pkg.gms_debug('IN BURDEN EVENT WHEN OTHERS ','C');
4336: END IF;
4337:
4338: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4339: 'SQLCODE',
4334: IF L_DEBUG = 'Y' THEN
4335: gms_error_pkg.gms_debug('IN BURDEN EVENT WHEN OTHERS ','C');
4336: END IF;
4337:
4338: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
4339: 'SQLCODE',
4340: SQLCODE,
4341: 'SQLERRM',
4342: SQLERRM,
4411:
4412: Begin
4413:
4414: IF L_DEBUG = 'Y' THEN
4415: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - START','C');
4416: END IF;
4417:
4418: OPEN GET_RAW_ROWS_FROM_INTERSECT;
4419: FETCH GET_RAW_ROWS_FROM_INTERSECT INTO X_event_exists;
4445: ---||'- '||to_char(X_Rev_Run_Total)||' '||X_Units; -- Bug 2380344 : Removed inst_num
4446: Evt_format := X_Act_Project_Id||' - '||X_Task_Id||' - '||X_Expenditure_Type||' - '||X_Expenditure_Org_Id ; -- Bug 3235390
4447:
4448: IF L_DEBUG = 'Y' THEN
4449: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
4450: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
4451: END IF;
4452:
4453: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
4446: Evt_format := X_Act_Project_Id||' - '||X_Task_Id||' - '||X_Expenditure_Type||' - '||X_Expenditure_Org_Id ; -- Bug 3235390
4447:
4448: IF L_DEBUG = 'Y' THEN
4449: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_Description '||Evt_Description,'C');
4450: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - Value of Evt_format '||Evt_format,'C');
4451: END IF;
4452:
4453: /*x_temp_negative_evt_num := x_temp_negative_evt_num - 1 ; Bug 3523930 - Moved this into process tempevents*/
4454: PROCESS_TEMP_EVENTS (X_Act_Project_Id,
4464: x_err_code,
4465: x_err_buff) ;
4466:
4467: IF L_DEBUG = 'Y' THEN
4468: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4469: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4470: END IF;
4471:
4472: IF X_Err_Code <> 0 then
4465: x_err_buff) ;
4466:
4467: IF L_DEBUG = 'Y' THEN
4468: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of X_Err_Code '||X_Err_Code,'C');
4469: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After PROCESS_TEMP_EVENTS value of x_err_buff '||x_err_buff,'C');
4470: END IF;
4471:
4472: IF X_Err_Code <> 0 then
4473: Raise NO_PROCESSING_OF_AWARD ;
4480: X_Act_Project_Id,
4481: X_Task_Id );
4482:
4483: IF L_DEBUG = 'Y' THEN
4484: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After UPDATE_GMS_EVENT_INTERSECT','C');
4485: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - END','C');
4486: END IF;
4487:
4488: END IF;
4481: X_Task_Id );
4482:
4483: IF L_DEBUG = 'Y' THEN
4484: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - After UPDATE_GMS_EVENT_INTERSECT','C');
4485: gms_error_pkg.gms_debug('IN DO_REV_EVENT_PROCESSING - END','C');
4486: END IF;
4487:
4488: END IF;
4489: CLOSE GET_RAW_ROWS_FROM_INTERSECT;
4797: DBMS_SQL.COLUMN_VALUE(cur_select,X_Cnt_Of_Columns_Selected + 17,X_burdenable_raw_cost);
4798: DBMS_SQL.COLUMN_VALUE(cur_select,X_Cnt_Of_Columns_Selected + 18,X_transaction_source);
4799:
4800: IF L_DEBUG = 'Y' THEN
4801: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4802: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4803: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4804: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4805: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4798: DBMS_SQL.COLUMN_VALUE(cur_select,X_Cnt_Of_Columns_Selected + 18,X_transaction_source);
4799:
4800: IF L_DEBUG = 'Y' THEN
4801: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4802: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4803: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4804: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4805: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4806: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4799:
4800: IF L_DEBUG = 'Y' THEN
4801: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4802: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4803: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4804: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4805: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4806: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4807: END IF;
4800: IF L_DEBUG = 'Y' THEN
4801: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4802: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4803: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4804: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4805: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4806: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4807: END IF;
4808:
4801: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Expenditure_Item_Id,'C');
4802: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4803: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4804: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4805: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4806: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4807: END IF;
4808:
4809: -- Lock the Expenditure Item
4802: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Adl_Line_Num,'C');
4803: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Cdl_Line_Num,'C'); --bug 2909746
4804: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Expenditure_Item_Date,'C');
4805: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Raw_Cost,'C');
4806: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Bill_Hold_Flag,'C');
4807: END IF;
4808:
4809: -- Lock the Expenditure Item
4810: select expenditure_item_id
4934: Raise NO_PROCESSING_OF_AWARD ;
4935: End If;
4936:
4937: IF L_DEBUG = 'Y' THEN
4938: gms_error_pkg.gms_debug('After INSTALLMENT_CHECK X_error_code:'||St_Err_Code,'C');
4939: END IF;
4940:
4941: /* Commented IF for bug 5349106 */
4942: -- If X_Installment_Status ='I' then
4961: End If; --If allow_burden(x_transaction_source) then
4962: End If;
4963: -----------------------------------------------------------------------------
4964: IF L_DEBUG = 'Y' THEN
4965: gms_error_pkg.gms_debug('X_Burden_Components_Count:'||X_Burden_Components_Count,'C');
4966: END IF;
4967: -----------------------------------------------------------------------------
4968: /* For each Trx fetched Get total Raw Amount for the Trx already existing in Intersect table */
4969: GET_AMOUNT_IN_INTERSECT(X_Expenditure_Item_Id,
5011:
5012: END IF;
5013:
5014: IF L_DEBUG = 'Y' THEN
5015: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
5016: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5012: END IF;
5013:
5014: IF L_DEBUG = 'Y' THEN
5015: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
5016: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5013:
5014: IF L_DEBUG = 'Y' THEN
5015: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
5016: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5014: IF L_DEBUG = 'Y' THEN
5015: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
5016: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5015: gms_error_pkg.gms_debug('X_Tot_Burden_Amt_In_View '||X_Tot_Burden_Amt_In_View,'C');
5016: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5023: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
5016: gms_error_pkg.gms_debug('X_Raw_Cost '||X_Raw_Cost,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5023: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
5024: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
5017: gms_error_pkg.gms_debug('X_Amount_In_Intersect '||X_Amount_In_Intersect,'C');
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5023: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
5024: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
5025: END IF;
5018: gms_error_pkg.gms_debug('X_Tot_Burd_Amt_In_Tmp '||X_Tot_Burd_Amt_In_Tmp,'C');
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5023: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
5024: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
5025: END IF;
5026:
5019: gms_error_pkg.gms_debug('X_Money_Left_In_Inst '||X_Money_Left_In_Inst,'C');
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5023: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
5024: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
5025: END IF;
5026:
5027: IF ( (
5020: gms_error_pkg.gms_debug('C_Inst_Task_Run_Total '||C_Inst_Task_Run_Total,'C');
5021: gms_error_pkg.gms_debug('g_labor_exp_to_process '||g_labor_exp_to_process,'C');
5022: -- gms_error_pkg.gms_debug('X_Revenue_Limit_Flag '||X_Revenue_Limit_Flag,'C'); commented and added below line for the bug 6642901
5023: gms_error_pkg.gms_debug('X_Invoice_Limit_Flag '||X_Invoice_Limit_Flag,'C');
5024: gms_error_pkg.gms_debug('g_mode '||g_mode,'C');
5025: END IF;
5026:
5027: IF ( (
5028: ((X_Raw_Cost + X_Tot_Burden_Amt_In_View) - (X_Amount_In_Intersect + X_Tot_Burd_Amt_In_Tmp)
5111: Raise NO_PROCESSING_OF_AWARD ;
5112: End If;
5113:
5114: IF L_DEBUG = 'Y' THEN
5115: gms_error_pkg.gms_debug('After GET_INSTALLMENT_NUM X_error_code:'||St_Err_Code,'C');
5116: END IF;
5117:
5118: /* bug 5242484 - start */
5119: IF ( X_old_expenditure_item_id = X_expenditure_item_id ) THEN
5156: Raise NO_PROCESSING_OF_AWARD ;
5157: End If;
5158:
5159: IF L_DEBUG = 'Y' THEN
5160: gms_error_pkg.gms_debug('After UPD_GSPF_WRAPPER X_error_code:'||St_Err_Code,'C');
5161: END IF;
5162:
5163: -- Bug 3254097 : Shifted the call to UPD_ADL_BILLING_FLAG at the end of the process
5164:
5174: --dbms_output.put_line('In First Indicator True Check');
5175: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5176: DBMS_SQL.COLUMN_VALUE(cur_select,i,X_Old_Values(i));
5177: IF L_DEBUG = 'Y' THEN
5178: gms_error_pkg.gms_debug('In First Indicator X_old_values('||i||')='||X_Old_Values(i),'C');
5179: END IF;
5180: END LOOP;
5181: /* Bug 3523930 -Setting the old values for project/task */
5182: X_old_task_id := X_task_id;
5180: END LOOP;
5181: /* Bug 3523930 -Setting the old values for project/task */
5182: X_old_task_id := X_task_id;
5183: X_old_actprj_id := X_Actual_Project_Id;
5184: gms_error_pkg.gms_debug('When First Indicator X_old_task_id ='||X_old_task_id,'C');
5185: gms_error_pkg.gms_debug('When First Indicator X_old_project_id ='||X_old_actprj_id,'C');
5186: /* Bug 3523930- Changes end */
5187: ----------------------------------------------
5188: --Create Running Total For Columns not in Group By--
5181: /* Bug 3523930 -Setting the old values for project/task */
5182: X_old_task_id := X_task_id;
5183: X_old_actprj_id := X_Actual_Project_Id;
5184: gms_error_pkg.gms_debug('When First Indicator X_old_task_id ='||X_old_task_id,'C');
5185: gms_error_pkg.gms_debug('When First Indicator X_old_project_id ='||X_old_actprj_id,'C');
5186: /* Bug 3523930- Changes end */
5187: ----------------------------------------------
5188: --Create Running Total For Columns not in Group By--
5189: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5201: -- Copy Values from Cursor into New_Values Table --
5202: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5203: DBMS_SQL.COLUMN_VALUE(cur_select,i,X_New_Values(i));
5204: IF L_DEBUG = 'Y' THEN
5205: gms_error_pkg.gms_debug('When !First Indicator X_new_values('||i||')='||X_New_Values(i),'C');
5206: END IF;
5207: END LOOP;
5208: /* Bug 3523930 -Setting the new values for project/task */
5209: X_new_task_id := X_task_id;
5207: END LOOP;
5208: /* Bug 3523930 -Setting the new values for project/task */
5209: X_new_task_id := X_task_id;
5210: X_new_actprj_id := X_Actual_Project_Id;
5211: gms_error_pkg.gms_debug('When !First Indicator X_new_task_id ='||X_New_task_id,'C');
5212: gms_error_pkg.gms_debug('When !First Indicator X_new_project_id ='||X_New_actprj_id,'C');
5213: /* Bug 3523930- Changes end */
5214: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5215: null;
5208: /* Bug 3523930 -Setting the new values for project/task */
5209: X_new_task_id := X_task_id;
5210: X_new_actprj_id := X_Actual_Project_Id;
5211: gms_error_pkg.gms_debug('When !First Indicator X_new_task_id ='||X_New_task_id,'C');
5212: gms_error_pkg.gms_debug('When !First Indicator X_new_project_id ='||X_New_actprj_id,'C');
5213: /* Bug 3523930- Changes end */
5214: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5215: null;
5216: --dbms_output.put_line('NEW VALUES ARRE '||X_New_Values(i) );
5227: --Compare Old and New and accordingly create event
5228: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5229: If X_Sel_Grp_Diff_Array(i) = 'Y' then --Begin of If for 'Check_Ind' 999999999999999
5230: IF L_DEBUG = 'Y' THEN
5231: gms_error_pkg.gms_debug('Inside X_sel_grp_diff_array(i) = Y','C');
5232: END IF;
5233: /* Bug 3523930- Where condition changed */
5234: If ((X_Old_Values(i) <> X_New_Values(i) and X_invfmt_incl_task='N')
5235: or (X_invfmt_incl_task='Y'
5236: and (X_Old_Values(i) <> X_New_Values(i)
5237: or X_old_task_id <> X_new_task_id
5238: or X_old_actprj_id <> X_new_actprj_id))) then -- 888888888
5239: IF L_DEBUG = 'Y' THEN
5240: gms_error_pkg.gms_debug('Old Values are not equal to new values','C');
5241: END IF;
5242: ------------------------------------------------
5243: -- This procedure builds the Event Description, Creates the Event and Updates the --
5244: --GMS_EVENT_INTERSECT table with the corresponding Event Number --
5274: Raise NO_PROCESSING_OF_AWARD ;
5275: End If;
5276:
5277: IF L_DEBUG = 'Y' THEN
5278: gms_error_pkg.gms_debug('After DO_EVENT_PROCESSING X_error_code:'||St_Err_Code,'C');
5279: END IF;
5280:
5281: --End If;
5282: ----------------------------------------------
5280:
5281: --End If;
5282: ----------------------------------------------
5283: --Copy New_Values to Old_Values--
5284: gms_error_pkg.gms_debug('Restting old task/project with new task/projet','C');
5285: For i in 1..X_Cnt_Of_Columns_Selected LOOP
5286: X_Old_Values(i) := X_New_Values(i);
5287: End LOOP;
5288: /* Bug 3523930 */
5360:
5361: -- Update GMS_AWARD_DISTRIBUTIONS set Billed_Flag to 'Y' indicating item has been picked for Invoicing
5362:
5363: IF L_DEBUG = 'Y' THEN
5364: gms_error_pkg.gms_debug('Format specific Billing : Calling UPD_ADL_BILLING_FLAG for expenditure '||X_Expenditure_Item_Id,'C');
5365: END IF;
5366:
5367: UPD_ADL_BILLING_FLAG(X_Expenditure_Item_Id,
5368: X_Adl_Line_Num,
5372: St_Err_Code,
5373: St_Err_Buff);
5374:
5375: IF L_DEBUG = 'Y' THEN
5376: gms_error_pkg.gms_debug('After UPD_ADL_BILLING_FLAG X_error_code:'||St_Err_Code,'C');
5377: END IF;
5378:
5379: If St_Err_Code <> 0 then
5380: Raise NO_PROCESSING_OF_AWARD ;
5451: AND ( X_expenditure_item_id = X_old_expenditure_item_id )
5452: ) THEN
5453:
5454: IF L_DEBUG = 'Y' THEN
5455: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5456: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5452: ) THEN
5453:
5454: IF L_DEBUG = 'Y' THEN
5455: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5456: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5460: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5453:
5454: IF L_DEBUG = 'Y' THEN
5455: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5456: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5460: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5461: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5454: IF L_DEBUG = 'Y' THEN
5455: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5456: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5460: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5461: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5462: END IF;
5455: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
5456: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5460: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5461: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5462: END IF;
5463:
5456: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_expenditure_item_id,'C');
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5460: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5461: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5462: END IF;
5463:
5464: ei_rollback(x_award_id,
5457: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_adl_line_num,'C');
5458: gms_error_pkg.gms_debug('EI rollback : Project id is '||X_old_actprj_id,'C');
5459: gms_error_pkg.gms_debug('EI rollback : Task id is '||X_old_task_id,'C');
5460: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
5461: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Count,'C');
5462: END IF;
5463:
5464: ei_rollback(x_award_id,
5465: 'INVOICE',
5470: X_Count);
5471:
5472: X_Event_Amount := X_Event_Amount - X_event_rollback_amount;
5473:
5474: gms_error_pkg.gms_debug('Rolled back EI '||X_expenditure_item_id||' ! ','C');
5475:
5476: END IF;
5477: /* bug 5242484 - end */
5478:
5497: EXCEPTION
5498: WHEN OTHERS THEN
5499: ss_text := SQLCODE||' '||SQLERRM;
5500: IF L_DEBUG = 'Y' THEN
5501: gms_error_pkg.gms_debug(ss_text ,'C');
5502: END IF;
5503: RAISE NO_PROCESSING_OF_AWARD;
5504:
5505: End FORMAT_SPECIFIC_BILLING;
5735:
5736: X_Rev_Burden_Component_Data.DELETE;
5737:
5738: IF L_DEBUG = 'Y' THEN
5739: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5740: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5741: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5742: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5743: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5736: X_Rev_Burden_Component_Data.DELETE;
5737:
5738: IF L_DEBUG = 'Y' THEN
5739: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5740: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5741: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5742: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5743: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5744: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5737:
5738: IF L_DEBUG = 'Y' THEN
5739: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5740: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5741: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5742: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5743: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5744: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5745: END IF;
5738: IF L_DEBUG = 'Y' THEN
5739: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5740: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5741: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5742: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5743: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5744: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5745: END IF;
5746:
5739: gms_error_pkg.gms_debug('Expenditure Item Id :'||X_Rev_Expenditure_Item_Id,'C');
5740: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5741: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5742: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5743: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5744: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5745: END IF;
5746:
5747: -- Lock the Expenditure Item
5740: gms_error_pkg.gms_debug('X_Adl_Line_Num:'||X_Rev_Adl_Line_Num,'C');
5741: gms_error_pkg.gms_debug('X_Cdl_Line_Num:'||X_Rev_Cdl_Line_Num,'C'); -- Bug 2909746
5742: gms_error_pkg.gms_debug('X_Expenditure_Item_Date:'||X_Rev_Expenditure_Item_Date,'C');
5743: gms_error_pkg.gms_debug('X_Raw_Cost:'||X_Rev_Expenditure_Cost,'C');
5744: gms_error_pkg.gms_debug('X_Bill_Hold_Flag:'||X_Rev_Bill_Hold_Flag,'C');
5745: END IF;
5746:
5747: -- Lock the Expenditure Item
5748: select expenditure_item_id
5884:
5885: End If;
5886: ----------------------------------------------------------------------------
5887: IF L_DEBUG = 'Y' THEN
5888: gms_error_pkg.gms_debug('X_Rev_Burden_Components_Count:'||X_Rev_Burden_Components_Count,'C');
5889: END IF;
5890: -----------------------------------------------------------------------------
5891: /* For each Trx fetched Get total amount for the Trx already existing in Intersect table */
5892: GET_AMOUNT_IN_INTERSECT(X_Rev_Expenditure_Item_Id,
6175: OR ((X_Rev_Amount_To_Insert = 0) AND ( X_Rev_Tot_Burd_Amt_To_Insert = 0 ) ) THEN -- added for bug 5182669
6176: --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
6177:
6178: IF L_DEBUG = 'Y' THEN
6179: gms_error_pkg.gms_debug('Revenue accrual : Calling UPD_ADL_BILLING_FLAG For expenditure_item_id '||X_Rev_Expenditure_Item_Id,'C');
6180: END IF;
6181:
6182: UPD_ADL_BILLING_FLAG(X_Rev_Expenditure_Item_Id,
6183: X_Rev_Adl_Line_Num,
6205: AND ( X_Rev_expenditure_item_id = X_old_expenditure_item_id )
6206: ) THEN
6207:
6208: IF L_DEBUG = 'Y' THEN
6209: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6210: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6206: ) THEN
6207:
6208: IF L_DEBUG = 'Y' THEN
6209: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6210: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6207:
6208: IF L_DEBUG = 'Y' THEN
6209: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6210: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6215: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6208: IF L_DEBUG = 'Y' THEN
6209: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6210: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6215: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6216: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6209: gms_error_pkg.gms_debug('Calling Procedure EI rollback with parameters :- ','C');
6210: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6215: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6216: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6217: END IF;
6210: gms_error_pkg.gms_debug('EI rollback : Expenditure_item_id is '||x_Rev_expenditure_item_id,'C');
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6215: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6216: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6217: END IF;
6218:
6211: gms_error_pkg.gms_debug('EI rollback : Adl_line_num is '||x_Rev_adl_line_num,'C');
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6215: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6216: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6217: END IF;
6218:
6219: ei_rollback(x_Rev_award_id,
6212: gms_error_pkg.gms_debug('EI rollback : Project id is '||x_act_project_id_old,'C');
6213: gms_error_pkg.gms_debug('EI rollback : Task id is '||x_task_id_old,'C');
6214: gms_error_pkg.gms_debug('EI rollback : Rollback amt is '||x_event_rollback_amount,'C');
6215: gms_error_pkg.gms_debug('EI rollback : Rollback qty is '||x_event_rollback_qty,'C');
6216: gms_error_pkg.gms_debug('EI rollback : Installment Count is '||x_Rev_Count,'C');
6217: END IF;
6218:
6219: ei_rollback(x_Rev_award_id,
6220: 'REVENUE',
6226:
6227: X_Rev_Run_Total := X_Rev_Run_Total - x_event_rollback_qty ;
6228: X_Rev_Event_Amount := X_Rev_Event_Amount - X_event_rollback_amount;
6229:
6230: gms_error_pkg.gms_debug('Rolled back EI '||X_Rev_expenditure_item_id||' ! ','C');
6231: /* for bug 5242484 - end */
6232:
6233: END IF;
6234:
6254:
6255: --If X_Rev_Event_Amount <> 0 then
6256: -- X_LAST_CALL_FOR_REVENUE := TRUE; -- Bug 3254097
6257: IF L_DEBUG = 'Y' THEN
6258: gms_error_pkg.gms_debug('IN REVENUE_ACCRUAL, last call ...','C');
6259: END IF;
6260: DO_REV_EVENT_PROCESSING(X_Act_Project_Id_Old,
6261: X_Task_Id_Old,
6262: X_Expenditure_Type_Old,
6489:
6490: Begin
6491:
6492: SAVEPOINT AWARD_BILLING_BEGIN; -- Added for bug 4243374
6493: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
6494:
6495: -- Code added for bug 1744641
6496: open GMS_AWARDS_CURSOR;
6497: Fetch gms_awards_cursor into X_award_number,X_award_name, x_awd_id;
6501: /* GMS INSTALLATION CHECK */
6502: If gms_install.enabled then
6503:
6504: IF L_DEBUG = 'Y' THEN
6505: gms_error_pkg.gms_debug('GMS INSTALLED -- START AWARD BILLING FOR Award Project:','C');
6506: gms_error_pkg.gms_debug('X_Project_id:'||X_Project_id,'C');
6507: END IF;
6508:
6509: -- Bug 1980810 : Added to set currency related global variables
6502: If gms_install.enabled then
6503:
6504: IF L_DEBUG = 'Y' THEN
6505: gms_error_pkg.gms_debug('GMS INSTALLED -- START AWARD BILLING FOR Award Project:','C');
6506: gms_error_pkg.gms_debug('X_Project_id:'||X_Project_id,'C');
6507: END IF;
6508:
6509: -- Bug 1980810 : Added to set currency related global variables
6510: -- Call to pa_currency.round_currency_amt function will use
6517: X_Project_id,
6518: St_Err_Code,
6519: St_Err_Buff);
6520: IF L_DEBUG = 'Y' THEN
6521: gms_error_pkg.gms_debug('After gms_bill_concurrency x_error_code :'||St_Err_Code,'C');
6522: END IF;
6523:
6524: If St_Err_Code <> 0 then
6525: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6521: gms_error_pkg.gms_debug('After gms_bill_concurrency x_error_code :'||St_Err_Code,'C');
6522: END IF;
6523:
6524: If St_Err_Code <> 0 then
6525: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6526: 'PRJ',
6527: X_Project_id,
6528: X_Exec_Type => 'C',
6529: X_Err_Code => St_Err_Code,
6547: St_Err_Code,
6548: St_Err_Buff);
6549:
6550: IF L_DEBUG = 'Y' THEN
6551: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6552: END IF;
6553:
6554: If St_Err_Code <> 0 then
6555: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6551: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6552: END IF;
6553:
6554: If St_Err_Code <> 0 then
6555: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6556: 'PRJ',
6557: X_Project_id,
6558: X_Exec_Type => 'C',
6559: X_Err_Code => St_Err_Code,
6573: St_Err_Code,
6574: St_Err_Buff);
6575:
6576: IF L_DEBUG = 'Y' THEN
6577: gms_error_pkg.gms_debug('After billing_rollback x_error_code :'||St_Err_Code,'C');
6578: END IF;
6579:
6580: If St_Err_Code <> 0 then
6581: gms_error_pkg.gms_message('GMS_BILLING_ROLLBACK_FAILURE',
6577: gms_error_pkg.gms_debug('After billing_rollback x_error_code :'||St_Err_Code,'C');
6578: END IF;
6579:
6580: If St_Err_Code <> 0 then
6581: gms_error_pkg.gms_message('GMS_BILLING_ROLLBACK_FAILURE',
6582: 'PRJ',
6583: X_Project_id,
6584: X_Exec_Type => 'C',
6585: X_Err_Code => St_Err_Code,
6594:
6595: IF NOT IS_PROCESSING_REQD(X_Calling_Process , X_Awd_Id ) THEN
6596:
6597: IF L_DEBUG = 'Y' THEN
6598: gms_error_pkg.gms_debug('No records to process - NOT IS_PROCESSING_REQD :'||St_Err_Code,'C');
6599: END IF;
6600: RAISE NO_EXP_TO_PROCESS;
6601: -- NO recored for processing, we raising an exception to cleanup GMS processing
6602:
6619: project_id = X_Project_Id;
6620:
6621: EXCEPTION
6622: WHEN OTHERS THEN
6623: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
6624: 'SQLCODE',
6625: SQLCODE,
6626: 'SQLERRM',
6627: SQLERRM,
6634:
6635: End;
6636:
6637: IF L_DEBUG = 'Y' THEN
6638: gms_error_pkg.gms_debug('Project Type is :'||X_Project_Type,'C');
6639: END IF;
6640:
6641: /* ===============================================================================
6642: || Code for period validation has been commented out.
6662: X_Class_Category := NULL;
6663: End;
6664:
6665: IF L_DEBUG = 'Y' THEN
6666: gms_error_pkg.gms_debug('After Class Category select','C');
6667: END IF;
6668:
6669: Begin
6670: select
6690: -- and a.agreement_id = ag.agreement_id; -- Bug 1841288 : Removed the join
6691: End;
6692:
6693: IF L_DEBUG = 'Y' THEN
6694: gms_error_pkg.gms_debug('Distribution Rule:Revenue:'||X_Award_Rev_Distribution_Rule,'C');
6695: gms_error_pkg.gms_debug('Distribution Rule:Invoice:'||X_Award_Bill_Distribution_Rule,'C');
6696: END IF;
6697:
6698: --------------------------------------------------------------------------------------------------------- +
6691: End;
6692:
6693: IF L_DEBUG = 'Y' THEN
6694: gms_error_pkg.gms_debug('Distribution Rule:Revenue:'||X_Award_Rev_Distribution_Rule,'C');
6695: gms_error_pkg.gms_debug('Distribution Rule:Invoice:'||X_Award_Bill_Distribution_Rule,'C');
6696: END IF;
6697:
6698: --------------------------------------------------------------------------------------------------------- +
6699: -- Bug 3143102 : Following code takes care of the scenario where the labor and/or non-labor format
6702:
6703: IF NOT Is_Invoice_Format_Valid(X_project_id,NULL,NULL,'BILLING_PROCESS') THEN
6704:
6705: IF L_DEBUG = 'Y' THEN
6706: gms_error_pkg.gms_debug('Labor/Non-Labor format is Invalid','C');
6707: END IF;
6708:
6709: RAISE INVALID_INVOICE_FORMAT;
6710:
6712:
6713: End If;
6714:
6715: IF L_DEBUG = 'Y' THEN
6716: gms_error_pkg.gms_debug('Labor/Non-Labor format is Valid','C');
6717: END IF;
6718: --------------------------------------------------------------------------------------------------------- +
6719:
6720: -- CALL TAX UPDATION PROCEDURE
6734: Raise GMS_TAX_FAILURE; --4506225
6735: End If;
6736:
6737: IF L_DEBUG = 'Y' THEN
6738: gms_error_pkg.gms_debug('After tax, x_error_code :'||St_Err_Code,'C');
6739: END IF;
6740: --For Bug 4506225 :Moved the code after gms_Tax
6741: lock_award_records(X_Project_id,
6742: St_Err_Code,
6742: St_Err_Code,
6743: St_Err_Buff);
6744:
6745: IF L_DEBUG = 'Y' THEN
6746: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6747: END IF;
6748:
6749: If St_Err_Code <> 0 then
6750: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6746: gms_error_pkg.gms_debug('After lock_award_records St_Err_Code :'||St_Err_Code,'C');
6747: END IF;
6748:
6749: If St_Err_Code <> 0 then
6750: gms_error_pkg.gms_message('GMS_BILLING_CONCURRENCY',
6751: 'PRJ',
6752: X_Project_id,
6753: X_Exec_Type => 'C',
6754: X_Err_Code => St_Err_Code,
6805:
6806: --dbms_output.put_line('After GET_FORMAT_SELECT Proc '||'Award Id '||to_char(X_Award_Id) );
6807:
6808: IF L_DEBUG = 'Y' THEN
6809: gms_error_pkg.gms_debug('After Format Selection','C');
6810: END IF;
6811:
6812:
6813: sql_select := 'select /*+INDEX(ei PA_EXPENDITURE_ITEMS_U1)*/ ';
6921: f_dummy := f_dummy + 1;
6922:
6923:
6924: IF L_DEBUG = 'Y' THEN
6925: gms_error_pkg.gms_debug('In installment loop, Installment_Id :'||C_Installment_Id,'C');
6926: END IF;
6927:
6928: /*============================================================================================*/
6929: /* Processing Begins here for the rows which have expenditure type which are LABOR related */
7021:
7022: --dbms_output.put_line('Processing LABOR Transactions ');
7023:
7024: IF L_DEBUG = 'Y' THEN
7025: gms_error_pkg.gms_debug('Before FORMAT_SPECIFIC_BILLING call','C');
7026:
7027: END IF;
7028:
7029: /* bug 5413530 */
7193: g_process_again := 'N';
7194: END IF;
7195:
7196: IF L_DEBUG = 'Y' THEN
7197: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7198: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7199: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7200: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7201: END IF;
7194: END IF;
7195:
7196: IF L_DEBUG = 'Y' THEN
7197: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7198: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7199: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7200: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7201: END IF;
7202:
7195:
7196: IF L_DEBUG = 'Y' THEN
7197: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7198: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7199: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7200: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7201: END IF;
7202:
7203: /* Added for bug 5026657 */
7196: IF L_DEBUG = 'Y' THEN
7197: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7198: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7199: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7200: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7201: END IF;
7202:
7203: /* Added for bug 5026657 */
7204: /* Commented revenue limit flag condition and added invoice limit flag check for bug 6642901
7296: C_End_Date_Active;
7297: EXIT WHEN GET_INSTALLMENTS%NOTFOUND;
7298:
7299: IF L_DEBUG = 'Y' THEN
7300: gms_error_pkg.gms_debug('Revenue Process, In installment loop, installment :'||C_Installment_Id,'C');
7301: END IF;
7302:
7303: f_dummy := 0 ; --For Bug 5026657
7304:
7309:
7310: f_dummy := f_dummy + 1;
7311:
7312: IF L_DEBUG = 'Y' THEN
7313: gms_error_pkg.gms_debug('Entering dummy loop....f_dummy is '||f_dummy,'C');
7314: END IF;
7315:
7316: /* Processing Labor Transactions */
7317: X_Trx_Type := 'LABOR';
7368: END IF;
7369:
7370: /* Added for bug 5026657 */
7371: IF L_DEBUG = 'Y' THEN
7372: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7373: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7374: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7375: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7376: END IF;
7369:
7370: /* Added for bug 5026657 */
7371: IF L_DEBUG = 'Y' THEN
7372: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7373: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7374: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7375: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7376: END IF;
7377:
7370: /* Added for bug 5026657 */
7371: IF L_DEBUG = 'Y' THEN
7372: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7373: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7374: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7375: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7376: END IF;
7377:
7378: /* Added for bug 5026657 */
7371: IF L_DEBUG = 'Y' THEN
7372: gms_error_pkg.gms_debug('f_dummy is '||f_dummy,'C');
7373: gms_error_pkg.gms_debug('g_process_again is '||g_process_again,'C');
7374: gms_error_pkg.gms_debug('g_labor_exp_to_process is '||g_labor_exp_to_process,'C');
7375: gms_error_pkg.gms_debug('g_non_labor_neg_exp_processed is '||g_non_labor_neg_exp_processed,'C');
7376: END IF;
7377:
7378: /* Added for bug 5026657 */
7379: IF ( X_Revenue_Limit_Flag = 'N' OR
7459:
7460: Exception
7461:
7462: When Others then
7463: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
7464: 'SQLCODE',
7465: SQLCODE,
7466: 'SQLERRM',
7467: SQLERRM,
7478:
7479: End if; -- GMS INSTALLATION CHECK
7480:
7481: IF L_DEBUG = 'Y' THEN
7482: gms_error_pkg.gms_debug('End Award Billing ','C');
7483: END IF;
7484:
7485: Exception
7486: When NO_PROCESSING_OF_AWARD then
7492: -- ## which has been modified or created is rolled back thus ensuring consistency
7493: -- ## Further processing for that award is ignored.
7494: -- Added for Bug 1744641: To Generate errors when an exception occurs
7495: -- during the process of generation of invoice/Revenue.
7496: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7497: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7498: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7499: End If;
7500: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7493: -- ## Further processing for that award is ignored.
7494: -- Added for Bug 1744641: To Generate errors when an exception occurs
7495: -- during the process of generation of invoice/Revenue.
7496: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7497: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7498: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7499: End If;
7500: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7501: 'PRJ',
7494: -- Added for Bug 1744641: To Generate errors when an exception occurs
7495: -- during the process of generation of invoice/Revenue.
7496: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7497: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7498: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7499: End If;
7500: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7501: 'PRJ',
7502: x_calling_place,
7496: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7497: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7498: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7499: End If;
7500: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7501: 'PRJ',
7502: x_calling_place,
7503: x_project_id ,
7504: x_award_number ,
7505: x_award_name );
7506:
7507: -- End of the code added for bug 1744641
7508: IF L_DEBUG = 'Y' THEN
7509: gms_error_pkg.gms_debug('WHEN NO_PROCESSING_OF_AWARD - AWARD_BILLING','C');
7510: END IF;
7511: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7512: 'PRJ',
7513: X_Project_id,
7507: -- End of the code added for bug 1744641
7508: IF L_DEBUG = 'Y' THEN
7509: gms_error_pkg.gms_debug('WHEN NO_PROCESSING_OF_AWARD - AWARD_BILLING','C');
7510: END IF;
7511: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7512: 'PRJ',
7513: X_Project_id,
7514: X_Exec_Type => 'C',
7515: X_Err_Code => St_Err_Code,
7529: -- ## which has been modified or created is rolled back thus ensuring consistency
7530: -- ## Further processing for that award is ignored.
7531: -- Added for Bug 1744641: To Generate errors when an exception occurs
7532: -- during the process of generation of invoice/Revenue.
7533: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7534: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7535: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7536: End If;
7537: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7530: -- ## Further processing for that award is ignored.
7531: -- Added for Bug 1744641: To Generate errors when an exception occurs
7532: -- during the process of generation of invoice/Revenue.
7533: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7534: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7535: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7536: End If;
7537: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7538: 'PROJECT_ID',
7531: -- Added for Bug 1744641: To Generate errors when an exception occurs
7532: -- during the process of generation of invoice/Revenue.
7533: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7534: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7535: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7536: End If;
7537: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7538: 'PROJECT_ID',
7539: x_calling_place ,
7533: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7534: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7535: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7536: End If;
7537: gms_error_pkg.gms_exception_lines_proc( 'GMS_BILL_AWARD_LOCK' ,
7538: 'PROJECT_ID',
7539: x_calling_place ,
7540: x_project_id ,
7541: x_award_number ,
7539: x_calling_place ,
7540: x_project_id ,
7541: x_award_number ,
7542: x_award_name );
7543: gms_error_pkg.gms_exception_lines_proc( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7544: 'PRJ',
7545: x_calling_place,
7546: x_project_id );
7547: -- End of the code added for bug 1744641
7545: x_calling_place,
7546: x_project_id );
7547: -- End of the code added for bug 1744641
7548: IF L_DEBUG = 'Y' THEN
7549: gms_error_pkg.gms_debug('WHEN AWARD_DATA_LOCKED - AWARD_BILLING','C');
7550: END IF;
7551: gms_error_pkg.gms_message('GMS_BILL_AWARD_LOCK',
7552: 'PROJECT_ID',
7553: X_Project_id,
7547: -- End of the code added for bug 1744641
7548: IF L_DEBUG = 'Y' THEN
7549: gms_error_pkg.gms_debug('WHEN AWARD_DATA_LOCKED - AWARD_BILLING','C');
7550: END IF;
7551: gms_error_pkg.gms_message('GMS_BILL_AWARD_LOCK',
7552: 'PROJECT_ID',
7553: X_Project_id,
7554: X_Exec_Type => 'C',
7555: X_Err_Code => St_Err_Code,
7554: X_Exec_Type => 'C',
7555: X_Err_Code => St_Err_Code,
7556: X_Err_Buff => St_Err_Buff);
7557:
7558: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7559: 'PRJ',
7560: X_Project_id,
7561: X_Exec_Type => 'C',
7562: X_Err_Code => St_Err_Code,
7567: When ROLLBACK_FAILURE then
7568:
7569: -- Added for Bug 1744641: To Generate errors when an exception occurs
7570: -- during the process of generation of invoice/Revenue.
7571: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7572: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7573: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7574: End If;
7575: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7568:
7569: -- Added for Bug 1744641: To Generate errors when an exception occurs
7570: -- during the process of generation of invoice/Revenue.
7571: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7572: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7573: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7574: End If;
7575: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7576: 'PRJ',
7569: -- Added for Bug 1744641: To Generate errors when an exception occurs
7570: -- during the process of generation of invoice/Revenue.
7571: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7572: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7573: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7574: End If;
7575: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7576: 'PRJ',
7577: x_calling_place,
7571: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7572: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7573: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7574: End If;
7575: gms_error_pkg.gms_exception_lines_proc('GMS_BILLING_ROLLBACK_FAILURE' ,
7576: 'PRJ',
7577: x_calling_place,
7578: x_project_id ,
7579: x_award_number ,
7579: x_award_number ,
7580: x_award_name);
7581: -- End of code added for bug 1744641.
7582: IF L_DEBUG = 'Y' THEN
7583: gms_error_pkg.gms_debug('WHEN ROLLBACK_FAILURE - AWARD_BILLING','C');
7584: END IF;
7585: rollback; -- release lock and any changes carried out.
7586: RETURN;
7587:
7615: -- ## which has been modified or created is rolled back thus ensuring consistency
7616: -- ## Further processing for that award is ignored.
7617: -- Added for Bug 3143102: QI LABOR/NON-LABOR INVOICE FORMATS NOT SUPPORTED BY GMS
7618:
7619: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7620: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7621: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7622: End If;
7623: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7616: -- ## Further processing for that award is ignored.
7617: -- Added for Bug 3143102: QI LABOR/NON-LABOR INVOICE FORMATS NOT SUPPORTED BY GMS
7618:
7619: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7620: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7621: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7622: End If;
7623: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7624: NULL,
7617: -- Added for Bug 3143102: QI LABOR/NON-LABOR INVOICE FORMATS NOT SUPPORTED BY GMS
7618:
7619: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7620: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7621: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7622: End If;
7623: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7624: NULL,
7625: x_calling_place ,
7619: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7620: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7621: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7622: End If;
7623: gms_error_pkg.gms_exception_lines_proc('GMS_INVALID_INVOICE_FORMAT' ,
7624: NULL,
7625: x_calling_place ,
7626: x_project_id ,
7627: x_award_number ,
7627: x_award_number ,
7628: x_award_name );
7629:
7630: IF L_DEBUG = 'Y' THEN
7631: gms_error_pkg.gms_debug('WHEN INVALID INVOICE FORMAT - AWARD_BILLING','C');
7632: END IF;
7633: gms_error_pkg.gms_message('GMS_INVALID_INVOICE_FORMAT',
7634: X_Exec_Type => 'C',
7635: X_Err_Code => St_Err_Code,
7629:
7630: IF L_DEBUG = 'Y' THEN
7631: gms_error_pkg.gms_debug('WHEN INVALID INVOICE FORMAT - AWARD_BILLING','C');
7632: END IF;
7633: gms_error_pkg.gms_message('GMS_INVALID_INVOICE_FORMAT',
7634: X_Exec_Type => 'C',
7635: X_Err_Code => St_Err_Code,
7636: X_Err_Buff => St_Err_Buff);
7637:
7650: -- ## This exception is raised when the call to GMS_TAX in procedure award_billing
7651: -- ## returns a non zero value.One possible cause for GMS_TAX to return a non_zero
7652: -- ## value is an inactive award sponsor.
7653: -- ## Added for bug 4243374.
7654: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7655: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7656: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7657: End If;
7658: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7651: -- ## returns a non zero value.One possible cause for GMS_TAX to return a non_zero
7652: -- ## value is an inactive award sponsor.
7653: -- ## Added for bug 4243374.
7654: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7655: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7656: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7657: End If;
7658: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7659: 'PRJ',
7652: -- ## value is an inactive award sponsor.
7653: -- ## Added for bug 4243374.
7654: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7655: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7656: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7657: End If;
7658: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7659: 'PRJ',
7660: x_calling_place,
7654: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7655: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7656: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7657: End If;
7658: gms_error_pkg.gms_exception_lines_proc ( 'GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7659: 'PRJ',
7660: x_calling_place,
7661: x_project_id ,
7662: x_award_number ,
7662: x_award_number ,
7663: x_award_name );
7664:
7665: IF L_DEBUG = 'Y' THEN
7666: gms_error_pkg.gms_debug('WHEN GMS_TAX_FAILURE - AWARD_BILLING','C');
7667: END IF;
7668: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7669: 'PRJ',
7670: X_Project_id,
7664:
7665: IF L_DEBUG = 'Y' THEN
7666: gms_error_pkg.gms_debug('WHEN GMS_TAX_FAILURE - AWARD_BILLING','C');
7667: END IF;
7668: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7669: 'PRJ',
7670: X_Project_id,
7671: X_Exec_Type => 'C',
7672: X_Err_Code => St_Err_Code,
7682: --End of bug fix 4506225
7683: When Others then
7684: -- Added for Bug 1744641: To Generate errors when an exception occurs
7685: -- during the process of generation of invoice/Revenue.
7686: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7687: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7688: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7689: End If;
7690: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7683: When Others then
7684: -- Added for Bug 1744641: To Generate errors when an exception occurs
7685: -- during the process of generation of invoice/Revenue.
7686: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7687: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7688: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7689: End If;
7690: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7691: 'PRJ',
7684: -- Added for Bug 1744641: To Generate errors when an exception occurs
7685: -- during the process of generation of invoice/Revenue.
7686: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7687: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7688: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7689: End If;
7690: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7691: 'PRJ',
7692: x_calling_place,
7686: If (nvl(GMS_ERROR_PKG.X_Request_Trace_Id,-1)<>X_Request_id) then
7687: gms_error_pkg.gms_exception_head_proc(x_calling_process) ;
7688: GMS_ERROR_PKG.X_Request_Trace_Id:=X_request_id;
7689: End If;
7690: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERROR',
7691: 'PRJ',
7692: x_calling_place,
7693: x_project_id ,
7694: x_award_number ,
7694: x_award_number ,
7695: x_award_name,
7696: SQLCODE,
7697: SQLERRM );
7698: gms_error_pkg.gms_exception_lines_proc('GMS_UNEXPECTED_ERR_NO_PROCESS' ,
7699: 'PRJ',
7700: x_calling_place ,
7701: x_project_id
7702: );
7701: x_project_id
7702: );
7703: --End of Code added for bug 1744641
7704: IF L_DEBUG = 'Y' THEN
7705: gms_error_pkg.gms_debug('WHEN OTHERS - AWARD_BILLING','C');
7706: END IF;
7707: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
7708: 'SQLCODE',
7709: SQLCODE,
7703: --End of Code added for bug 1744641
7704: IF L_DEBUG = 'Y' THEN
7705: gms_error_pkg.gms_debug('WHEN OTHERS - AWARD_BILLING','C');
7706: END IF;
7707: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERROR',
7708: 'SQLCODE',
7709: SQLCODE,
7710: 'SQLERRM',
7711: SQLERRM,
7712: X_Exec_Type => 'C',
7713: X_Err_Code => St_Err_Code,
7714: X_Err_Buff => St_Err_Buff);
7715:
7716: gms_error_pkg.gms_message('GMS_UNEXPECTED_ERR_NO_PROCESS',
7717: 'PRJ',
7718: X_Project_id,
7719: X_Exec_Type => 'C',
7720: X_Err_Code => St_Err_Code,