142: INTO DATE1,DATE2,DATE3
143: FROM
144: SYS.DUAL;
145: UPDATE
146: PA_UNBILLED_REC_REPORTING TU
147: SET
148: (EI_BUCKET1,EI_BUCKET2,EI_BUCKET3,EI_BUCKET4) = (SELECT
149: NVL(TU.EI_BUCKET1
150: ,0) + NVL(SUM(DECODE(LEAST(DECODE(AGE
389: ,999999999999999)
390: AND P.PROJECT_ID = PL.PROJECT_ID;
391: BEGIN
392: FOR c1rec IN C1 LOOP
393: INSERT INTO PA_UNBILLED_REC_REPORTING
394: (PROJECT_ID
395: ,EI_BUCKET1
396: ,EI_BUCKET2
397: ,EI_BUCKET3
524: END INSERT_EIS;
525:
526: /* PROCEDURE INSERT_EVENTS IS
527: BEGIN
528: INSERT INTO PA_UNBILLED_REC_REPORTING
529: (PROJECT_ID
530: ,EVENT_BUCKET1
531: ,EVENT_BUCKET2
532: ,EVENT_BUCKET3
660: AND not exists (
661: SELECT
662: 'x'
663: FROM
664: PA_UNBILLED_REC_REPORTING T1
665: WHERE T1.PROJECT_ID = P.PROJECT_ID )
666: AND DECODE(AGE
667: ,'EXPENDITURE_ITEM_DATE'
668: ,PE.COMPLETION_DATE
676:
677: PROCEDURE UPDATE_EVENTS IS
678: BEGIN
679: UPDATE
680: PA_UNBILLED_REC_REPORTING TU
681: SET
682: (EVENT_BUCKET1,EVENT_BUCKET2,EVENT_BUCKET3,EVENT_BUCKET4) = (SELECT
683: SUM(DECODE(LEAST(DECODE(AGE
684: ,'EXPENDITURE_ITEM_DATE'
865: IF L_COUNT = 0 THEN
866: NULL;
867: ELSE
868: UPDATE
869: PA_UNBILLED_REC_REPORTING TU
870: SET
871: (EVENT_BUCKET1,EVENT_BUCKET2,EVENT_BUCKET3,EVENT_BUCKET4) = (SELECT
872: NVL(EVENT_BUCKET1
873: ,0) + SUM(DECODE(LEAST(DECODE(AGE
993:
994: PROCEDURE UPDATE_INVOICE_EVENTS IS
995: BEGIN
996: UPDATE
997: PA_UNBILLED_REC_REPORTING TU
998: SET
999: EVENT_INV_AMOUNT = (SELECT
1000: SUM(TO_NUMBER(DECODE(PET.EVENT_TYPE_CLASSIFICATION
1001: ,'WRITE OFF'
1091:
1092: PROCEDURE UPDATE_INVOICE_REDUCTION IS
1093: BEGIN
1094: UPDATE
1095: PA_UNBILLED_REC_REPORTING TU
1096: SET
1097: COST_WORK_AMOUNT = (SELECT
1098: SUM(PCR.PROJFUNC_BILL_AMOUNT)
1099: FROM
1130:
1131: PROCEDURE UPDATE_RETENTION IS
1132: BEGIN
1133: UPDATE
1134: PA_UNBILLED_REC_REPORTING TU
1135: SET
1136: INVOICE_REDUCTION = (SELECT
1137: SUM(PE.PROJFUNC_BILL_AMOUNT)
1138: FROM
1293: CALC_BUCKET2(EVENT_INVOICED_AMOUNT,COST_WORK_AMOUNT,BUCKET1,BUCKET2,BUCKET3,BUCKET4) +
1294: CALC_BUCKET3(EVENT_INVOICED_AMOUNT,COST_WORK_AMOUNT,BUCKET1,BUCKET2,BUCKET3,BUCKET4) + CALC_BUCKET4(EVENT_INVOICED_AMOUNT,COST_WORK_AMOUNT,BUCKET1,BUCKET2,BUCKET3,BUCKET4);
1295: END CALC_TOTAL_BUCKETS;
1296:
1297: PROCEDURE INIT_PA_UNBILLED_REC_REPORTING IS
1298: CURSOR C IS
1299: SELECT
1300: PROJECT_ID
1301: FROM
1304: ,0)
1305: AND NVL(PROJ
1306: ,999999999999999);
1307: BEGIN
1308: INSERT INTO PA_UNBILLED_REC_REPORTING
1309: (PROJECT_ID)
1310: SELECT
1311: P.PROJECT_ID
1312: FROM
1318: AND not exists (
1319: SELECT
1320: 'xyz'
1321: FROM
1322: PA_UNBILLED_REC_REPORTING TU
1323: WHERE TU.PROJECT_ID = P.PROJECT_ID );
1324: END INIT_PA_UNBILLED_REC_REPORTING;
1325:
1326: PROCEDURE POPULATE IS
1320: 'xyz'
1321: FROM
1322: PA_UNBILLED_REC_REPORTING TU
1323: WHERE TU.PROJECT_ID = P.PROJECT_ID );
1324: END INIT_PA_UNBILLED_REC_REPORTING;
1325:
1326: PROCEDURE POPULATE IS
1327: BEGIN
1328: SELECT_DATES;
1326: PROCEDURE POPULATE IS
1327: BEGIN
1328: SELECT_DATES;
1329: INSERT_EIS;
1330: INIT_PA_UNBILLED_REC_REPORTING;
1331: UPDATE_EVENTS;
1332: UPDATE_FOR_CONCESSION;
1333: UPDATE_INVOICE_EVENTS;
1334: UPDATE_INVOICE_REDUCTION;