788: FROM
789: pji_pjp_proj_batch_map map,
790: PA_PROJECTS_ALL ppa,
791: PA_BUDGET_VERSIONS pbv,
792: pji_pjp_wbs_header head,
793: PA_PROJ_ELEM_VER_STRUCTURE ppevs,
794: PA_PROJ_FP_OPTIONS fpo
795: WHERE
796: -- map.PROJECT_ACTIVE_FLAG = 'Y' AND
900: , 'Y' lp_flag
901: FROM
902: pji_pjp_proj_batch_map map
903: , PA_PROJECTS_ALL ppa
904: , pji_pjp_wbs_header whd
905: , pji_pjp_rbs_header rhd
906: WHERE 1=1
907: AND ppa.project_id = map.project_id
908: -- AND map.PROJECT_ACTIVE_FLAG = 'Y'
936: , 'Y' lp_flag
937: FROM
938: pji_pjp_proj_batch_map map
939: , PA_PROJECTS_ALL ppa
940: , pji_pjp_wbs_header whd
941: , pji_pjp_rbs_header rhd
942: WHERE 1=1
943: AND ppa.project_id = map.project_id
944: -- AND map.PROJECT_ACTIVE_FLAG = 'Y'
1253: PRAGMA EXCEPTION_INIT(excp_resource_busy, -54);
1254:
1255: CURSOR c_get_hdrs_lock_ver3_t_cur IS
1256: SELECT 1
1257: FROM pji_pjp_wbs_header
1258: WHERE (project_id, plan_type_id, plan_version_id) IN
1259: (SELECT DISTINCT project_id, plan_type_id, plan_version_id
1260: FROM pji_fm_extr_plnver3_t)
1261: FOR UPDATE;
1260: FROM pji_fm_extr_plnver3_t)
1261: FOR UPDATE;
1262:
1263: CURSOR c_get_hdrs_lock_map_cur IS
1264: SELECT /*+ index(hd, pji_pjp_wbs_header_n1) */ 1
1265: FROM pji_pjp_wbs_header hd
1266: WHERE (project_id, plan_version_id, plan_type_id) IN
1267: ( SELECT hd1.project_id, plan_version_id, plan_type_id
1268: FROM pji_pjp_wbs_header hd1
1261: FOR UPDATE;
1262:
1263: CURSOR c_get_hdrs_lock_map_cur IS
1264: SELECT /*+ index(hd, pji_pjp_wbs_header_n1) */ 1
1265: FROM pji_pjp_wbs_header hd
1266: WHERE (project_id, plan_version_id, plan_type_id) IN
1267: ( SELECT hd1.project_id, plan_version_id, plan_type_id
1268: FROM pji_pjp_wbs_header hd1
1269: , pji_pjp_proj_batch_map map
1264: SELECT /*+ index(hd, pji_pjp_wbs_header_n1) */ 1
1265: FROM pji_pjp_wbs_header hd
1266: WHERE (project_id, plan_version_id, plan_type_id) IN
1267: ( SELECT hd1.project_id, plan_version_id, plan_type_id
1268: FROM pji_pjp_wbs_header hd1
1269: , pji_pjp_proj_batch_map map
1270: WHERE hd1.project_id = map.project_id
1271: AND map.worker_id = g_worker_id
1272: AND (hd1.plan_version_id > 0 OR hd1.plan_version_id IN (-3, -4))
1308: IF (p_context LIKE '%c_incr_act_etc%' AND p_update_mode = 'P') THEN
1309:
1310: INSERT INTO pji_fm_extr_plnver3_t
1311: (project_id, plan_version_id, plan_type_id)
1312: SELECT / * + ORDERED * / -- INDEX(HD9, PJI_PJP_WBS_HEADER_N1)
1313: DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1314: FROM pji_pjp_proj_batch_map map
1315: , pji_fm_extr_plan_lines epl
1316: , pji_pjp_wbs_header hd2 -- SUB
1312: SELECT / * + ORDERED * / -- INDEX(HD9, PJI_PJP_WBS_HEADER_N1)
1313: DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1314: FROM pji_pjp_proj_batch_map map
1315: , pji_fm_extr_plan_lines epl
1316: , pji_pjp_wbs_header hd2 -- SUB
1317: , pji_xbs_denorm den
1318: , pji_pjp_wbs_header hd9 -- SUP
1319: , PA_PROJ_ELEM_VER_STRUCTURE ppevs1
1320: , PA_PROJ_ELEM_VER_STRUCTURE ppevs2
1314: FROM pji_pjp_proj_batch_map map
1315: , pji_fm_extr_plan_lines epl
1316: , pji_pjp_wbs_header hd2 -- SUB
1317: , pji_xbs_denorm den
1318: , pji_pjp_wbs_header hd9 -- SUP
1319: , PA_PROJ_ELEM_VER_STRUCTURE ppevs1
1320: , PA_PROJ_ELEM_VER_STRUCTURE ppevs2
1321: WHERE
1322: den.struct_version_id IS NULL
1350: (project_id, plan_version_id, plan_type_id)
1351: SELECT /*+ ORDERED */
1352: DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1353: FROM pji_pjp_proj_batch_map map
1354: , pji_pjp_wbs_header hd1 -- SUB
1355: , pji_xbs_denorm den
1356: , pji_pjp_wbs_header hd9 -- SUP
1357: WHERE
1358: den.struct_version_id IS NULL
1352: DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1353: FROM pji_pjp_proj_batch_map map
1354: , pji_pjp_wbs_header hd1 -- SUB
1355: , pji_xbs_denorm den
1356: , pji_pjp_wbs_header hd9 -- SUP
1357: WHERE
1358: den.struct_version_id IS NULL
1359: AND hd1.wbs_version_id = den.sub_id -- struct_version_id
1360: AND hd9.wbs_version_id = den.sup_id
1394:
1395: INSERT INTO pji_fm_extr_plnver3_t
1396: (project_id, plan_version_id, plan_type_id)
1397: SELECT DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1398: FROM -- pji_pjp_wbs_header hd2
1399: -- pa_proj_elem_ver_structure hd2
1400: pji_pa_proj_events_log ev
1401: , Pa_XBS_DENORM den
1402: , pji_pjp_wbs_header hd9 -- SUP
1398: FROM -- pji_pjp_wbs_header hd2
1399: -- pa_proj_elem_ver_structure hd2
1400: pji_pa_proj_events_log ev
1401: , Pa_XBS_DENORM den
1402: , pji_pjp_wbs_header hd9 -- SUP
1403: WHERE
1404: den.struct_version_id IS NULL
1405: AND hd9.wbs_version_id = den.sup_id -- struct_version_id
1406: -- AND hd2.element_version_id = den.sub_id
1426: DISTINCT hd2.project_id, hd2.plan_version_id, hd2.plan_type_id
1427: FROM
1428: pji_pjp_proj_batch_map map
1429: , pji_pa_proj_events_log ev
1430: , pji_pjp_wbs_header hd9 -- SUP
1431: , pji_xbs_denorm den
1432: , pji_pjp_wbs_header hd2 -- SUB
1433: WHERE
1434: den.struct_version_id IS NULL
1428: pji_pjp_proj_batch_map map
1429: , pji_pa_proj_events_log ev
1430: , pji_pjp_wbs_header hd9 -- SUP
1431: , pji_xbs_denorm den
1432: , pji_pjp_wbs_header hd2 -- SUB
1433: WHERE
1434: den.struct_version_id IS NULL
1435: AND hd9.wbs_version_id = den.sub_id -- struct_version_id
1436: AND hd2.wbs_version_id = den.sup_id
1458: SELECT /*+ LEADING(MAP) */ /* leading hint added for bug 9337307 */
1459: DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1460: FROM pji_pjp_proj_batch_map map
1461: , pji_pa_proj_events_log ev
1462: , pji_pjp_wbs_header hd9 -- SUP
1463: WHERE
1464: map.worker_id = g_worker_id
1465: AND ev.worker_id = g_worker_id
1466: AND ev.event_type = 'RBS_ASSOC'
1485: INSERT INTO pji_fm_extr_plnver3_t
1486: (project_id, plan_version_id, plan_type_id)
1487: SELECT DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1488: FROM pji_xbs_denorm den
1489: , pji_pjp_wbs_header hd1 -- SUB
1490: , pji_pjp_proj_batch_map map
1491: , pji_pa_proj_events_log ev
1492: , pji_pjp_wbs_header hd9 -- SUP
1493: WHERE
1488: FROM pji_xbs_denorm den
1489: , pji_pjp_wbs_header hd1 -- SUB
1490: , pji_pjp_proj_batch_map map
1491: , pji_pa_proj_events_log ev
1492: , pji_pjp_wbs_header hd9 -- SUP
1493: WHERE
1494: den.struct_version_id IS NULL
1495: AND hd1.wbs_version_id = den.sub_id -- struct_version_id
1496: AND hd9.wbs_version_id = den.sup_id
1527: FROM pji_pjp_proj_batch_map map
1528: , pji_pa_proj_events_log ev
1529: -- , PA_BUDGET_VERSIONS bv
1530: , pji_xbs_denorm den
1531: , pji_pjp_wbs_header wh1 -- sup
1532: , pji_pjp_wbs_header hd9 -- SUb!!
1533: WHERE
1534: den.struct_version_id IS NULL
1535: AND hd9.wbs_version_id = den.sub_id -- struct_version_id
1528: , pji_pa_proj_events_log ev
1529: -- , PA_BUDGET_VERSIONS bv
1530: , pji_xbs_denorm den
1531: , pji_pjp_wbs_header wh1 -- sup
1532: , pji_pjp_wbs_header hd9 -- SUb!!
1533: WHERE
1534: den.struct_version_id IS NULL
1535: AND hd9.wbs_version_id = den.sub_id -- struct_version_id
1536: AND wh1.wbs_version_id = den.sup_id
1559: INSERT INTO pji_fm_extr_plnver3_t
1560: (project_id, plan_version_id, plan_type_id)
1561: SELECT DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1562: FROM pji_xbs_denorm den
1563: , pji_pjp_wbs_header hd2 -- SUB
1564: , pji_pjp_proj_batch_map map
1565: , pji_pa_proj_events_log ev
1566: , pji_pjp_wbs_header hd9 -- SUP
1567: WHERE
1562: FROM pji_xbs_denorm den
1563: , pji_pjp_wbs_header hd2 -- SUB
1564: , pji_pjp_proj_batch_map map
1565: , pji_pa_proj_events_log ev
1566: , pji_pjp_wbs_header hd9 -- SUP
1567: WHERE
1568: den.struct_version_id IS NULL
1569: AND hd9.wbs_version_id = den.sup_id -- struct_version_id
1570: AND hd2.wbs_version_id = den.sub_id
1591: (project_id, plan_version_id, plan_type_id)
1592: SELECT DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1593: FROM pji_pjp_proj_batch_map map
1594: , PA_BUDGET_VERSIONS bv
1595: , pji_pjp_wbs_header hd9 -- SUP
1596: WHERE
1597: map.worker_id = g_worker_id
1598: AND hd9.project_id = map.project_id
1599: AND hd9.project_id = bv.project_id
1613: INSERT INTO pji_fm_extr_plnver3_t
1614: (project_id, plan_version_id, plan_type_id)
1615: SELECT DISTINCT hd9.project_id, hd9.plan_version_id, hd9.plan_type_id
1616: FROM pji_xbs_denorm den
1617: , pji_pjp_wbs_header hd1 -- SUB
1618: , pji_pjp_proj_batch_map map
1619: , pa_budget_versions bv
1620: , pji_pjp_wbs_header hd9 -- SUP
1621: WHERE
1616: FROM pji_xbs_denorm den
1617: , pji_pjp_wbs_header hd1 -- SUB
1618: , pji_pjp_proj_batch_map map
1619: , pa_budget_versions bv
1620: , pji_pjp_wbs_header hd9 -- SUP
1621: WHERE
1622: den.struct_version_id IS NULL
1623: AND map.project_id = bv.project_id
1624: AND map.project_id = hd1.project_id
1647:
1648: OPEN c_get_hdrs_lock_ver3_t_cur;
1649: CLOSE c_get_hdrs_lock_ver3_t_cur;
1650:
1651: UPDATE pji_pjp_wbs_header hd9 -- SUP
1652: SET lock_flag = p_update_mode
1653: , LAST_UPDATE_DATE = l_last_update_date
1654: , LAST_UPDATED_BY = l_last_updated_by
1655: , LAST_UPDATE_LOGIN = l_last_update_login
1667:
1668: OPEN c_get_hdrs_lock_map_cur;
1669: CLOSE c_get_hdrs_lock_map_cur;
1670:
1671: update PJI_PJP_WBS_HEADER hd9
1672: set LOCK_FLAG = null,
1673: LAST_UPDATE_DATE = l_last_update_date,
1674: LAST_UPDATED_BY = l_last_updated_by,
1675: LAST_UPDATE_LOGIN = l_last_update_login
3067: , 'N'
3068: ) lp_flag
3069: FROM
3070: pji_pa_proj_events_log ev
3071: , pji_pjp_wbs_header hd1 -- sup
3072: , pji_xbs_denorm den
3073: , pji_pjp_wbs_header hd2 -- sub
3074: , pa_budget_versions bv
3075: , pa_proj_fp_options fpo
3069: FROM
3070: pji_pa_proj_events_log ev
3071: , pji_pjp_wbs_header hd1 -- sup
3072: , pji_xbs_denorm den
3073: , pji_pjp_wbs_header hd2 -- sub
3074: , pa_budget_versions bv
3075: , pa_proj_fp_options fpo
3076: WHERE l_RBS_PRG_exists = 'Y' /* Added for bug 8708651 */
3077: AND bv.version_type IS NOT NULL
3139: , 'N'
3140: ) lp_flag
3141: FROM
3142: PJI_PA_PROJ_EVENTS_LOG ev
3143: , pji_pjp_wbs_header hd1 -- sup
3144: , pji_xbs_denorm den
3145: , pji_pjp_wbs_header hd2 -- sub
3146: , pa_budget_versions bv
3147: , pa_proj_fp_options fpo
3141: FROM
3142: PJI_PA_PROJ_EVENTS_LOG ev
3143: , pji_pjp_wbs_header hd1 -- sup
3144: , pji_xbs_denorm den
3145: , pji_pjp_wbs_header hd2 -- sub
3146: , pa_budget_versions bv
3147: , pa_proj_fp_options fpo
3148: , (SELECT -3 plan_version_id FROM DUAL
3149: UNION ALL
3240: AND map.worker_id = g_worker_id
3241: AND map.project_id = bv.project_id
3242: ) fpo
3243: , pji_pjp_proj_batch_map map
3244: , pji_pjp_wbs_header whsub
3245: , pa_xbs_denorm den
3246: , ( SELECT -3 plan_version_id FROM dual
3247: UNION ALL
3248: SELECT -4 plan_version_id FROM dual ) cbco
3590: , 'N'
3591: ) lp_flag
3592: FROM
3593: pji_pa_proj_events_log ev
3594: , pji_pjp_wbs_header hd1 -- sup
3595: , pji_xbs_denorm den
3596: , pji_pjp_wbs_header hd2 -- sub
3597: , pa_budget_versions bv
3598: , pa_proj_fp_options fpo
3592: FROM
3593: pji_pa_proj_events_log ev
3594: , pji_pjp_wbs_header hd1 -- sup
3595: , pji_xbs_denorm den
3596: , pji_pjp_wbs_header hd2 -- sub
3597: , pa_budget_versions bv
3598: , pa_proj_fp_options fpo
3599: WHERE l_RBS_PRG_exists = 'Y' /* Added for bug 8708651 */
3600: AND bv.version_type IS NOT NULL
3662: , 'N'
3663: ) lp_flag
3664: FROM
3665: PJI_PA_PROJ_EVENTS_LOG ev
3666: , pji_pjp_wbs_header hd1 -- sup
3667: , pji_xbs_denorm den
3668: , pji_pjp_wbs_header hd2 -- sub
3669: , pa_budget_versions bv
3670: , pa_proj_fp_options fpo
3664: FROM
3665: PJI_PA_PROJ_EVENTS_LOG ev
3666: , pji_pjp_wbs_header hd1 -- sup
3667: , pji_xbs_denorm den
3668: , pji_pjp_wbs_header hd2 -- sub
3669: , pa_budget_versions bv
3670: , pa_proj_fp_options fpo
3671: , (SELECT -3 plan_version_id FROM DUAL
3672: UNION ALL
3763: AND map.worker_id = g_worker_id
3764: AND map.project_id = bv.project_id
3765: ) fpo
3766: , pji_pjp_proj_batch_map map
3767: , pji_pjp_wbs_header whsub
3768: , pa_xbs_denorm den
3769: , ( SELECT -3 plan_version_id FROM dual
3770: UNION ALL
3771: SELECT -4 plan_version_id FROM dual ) cbco
6881: , l_last_update_login
6882: FROM
6883: PJI_FP_RMAP_FPR rwid
6884: , pji_fp_aggr_pjp1 tmp
6885: , pji_pjp_wbs_header ver3 -- replaced ver3 with wbs header for project-to-program association event.
6886: WHERE 1 = 1
6887: AND tmp.rowid = rwid.tmp_rowid
6888: AND rl.rowid = rwid.rl_rowid
6889: --Commented for bug 5927368
7016: , CUSTOM15
7017: , PLAN_TYPE_CODE /*4471527 */
7018: )
7019: --Commented hint for bug 5927368
7020: SELECT /*+ ordered index(ver3 PJI_PJP_WBS_HEADER_N1) */
7021: -- SELECT / *+ ordered full(rwid) rowid(tmp) * /
7022: tmp.PROJECT_ID
7023: , tmp.PROJECT_ORG_ID
7024: , tmp.PROJECT_ORGANIZATION_ID
7163: FROM
7164: --Commented for 5927368
7165: -- PJI_FP_RMAP_FPR rwid
7166: pji_fp_aggr_pjp1 tmp
7167: , pji_pjp_wbs_header ver3 -- replaced ver3 with wbs header for project-to-program association event.
7168: WHERE 1 = 1
7169: AND tmp.worker_id = g_worker_id
7170: --commented for 5927368 and added tmp.RECORD_TYPE <> 'U' condition
7171: -- AND rwid.worker_id = g_worker_id
8468: BEGIN
8469:
8470: print_time ( ' Before populate wbs header ' );
8471:
8472: INSERT INTO PJI_PJP_WBS_HEADER
8473: (
8474: PROJECT_ID
8475: , PLAN_VERSION_ID
8476: , WBS_VERSION_ID
8505: , l_created_by
8506: , l_last_update_login
8507: , ver.plan_type_code
8508: FROM PJI_FM_EXTR_PLNVER4 ver
8509: , PJI_PJP_WBS_HEADER whdr
8510: WHERE ver.worker_id = g_worker_id
8511: AND ver.plan_version_id = whdr.plan_version_id (+)
8512: AND ver.plan_type_code = whdr.plan_type_code(+) /*4471527 */
8513: AND ver.project_id = whdr.project_id (+)
8566: , MIN(LEAST(cal.start_date, NVL(whdr.min_txn_date, cal.start_date))) start_date
8567: , MAX(GREATEST(cal.end_date, NVL(whdr.max_txn_date, cal.end_date))) end_date
8568: FROM PJI_FP_AGGR_PJP1 pjp1
8569: , pji_time_cal_period_v cal
8570: , pji_pjp_wbs_header whdr
8571: WHERE
8572: pjp1.worker_id = g_worker_id
8573: AND pjp1.project_id = whdr.project_id
8574: AND pjp1.plan_type_id = NVL(whdr.plan_type_id, -1)
8578: AND pjp1.plan_type_code = whdr.plan_type_code
8579: GROUP BY whdr.project_id, whdr.plan_type_id
8580: , whdr.plan_version_id, whdr.plan_type_code;
8581: -- commit; /* Commented for Bug 14735308 */
8582: UPDATE /*+ index(whdr,PJI_PJP_WBS_HEADER_N1) */
8583: PJI_PJP_WBS_HEADER whdr
8584: SET ( MIN_TXN_DATE
8585: , MAX_TXN_DATE
8586: , LAST_UPDATE_DATE
8579: GROUP BY whdr.project_id, whdr.plan_type_id
8580: , whdr.plan_version_id, whdr.plan_type_code;
8581: -- commit; /* Commented for Bug 14735308 */
8582: UPDATE /*+ index(whdr,PJI_PJP_WBS_HEADER_N1) */
8583: PJI_PJP_WBS_HEADER whdr
8584: SET ( MIN_TXN_DATE
8585: , MAX_TXN_DATE
8586: , LAST_UPDATE_DATE
8587: , LAST_UPDATED_BY
12510: pjp1.worker_id = p_worker_id
12511: AND pjp1.time_id = cal.cal_period_id
12512: AND pjp1.calendar_type IN ('P', 'G') ; -- Non time ph and ent cals don't need to be considered.
12513:
12514: TYPE proj_id_tab_type IS TABLE OF pji_pjp_wbs_header.project_id%TYPE;
12515: TYPE plan_ver_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_version_id%TYPE;
12516: TYPE plan_type_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_id%TYPE;
12517: TYPE plan_type_code_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_code%TYPE;
12518: TYPE min_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.min_txn_date%TYPE;
12511: AND pjp1.time_id = cal.cal_period_id
12512: AND pjp1.calendar_type IN ('P', 'G') ; -- Non time ph and ent cals don't need to be considered.
12513:
12514: TYPE proj_id_tab_type IS TABLE OF pji_pjp_wbs_header.project_id%TYPE;
12515: TYPE plan_ver_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_version_id%TYPE;
12516: TYPE plan_type_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_id%TYPE;
12517: TYPE plan_type_code_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_code%TYPE;
12518: TYPE min_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.min_txn_date%TYPE;
12519: TYPE max_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.max_txn_date%TYPE;
12512: AND pjp1.calendar_type IN ('P', 'G') ; -- Non time ph and ent cals don't need to be considered.
12513:
12514: TYPE proj_id_tab_type IS TABLE OF pji_pjp_wbs_header.project_id%TYPE;
12515: TYPE plan_ver_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_version_id%TYPE;
12516: TYPE plan_type_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_id%TYPE;
12517: TYPE plan_type_code_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_code%TYPE;
12518: TYPE min_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.min_txn_date%TYPE;
12519: TYPE max_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.max_txn_date%TYPE;
12520:
12513:
12514: TYPE proj_id_tab_type IS TABLE OF pji_pjp_wbs_header.project_id%TYPE;
12515: TYPE plan_ver_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_version_id%TYPE;
12516: TYPE plan_type_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_id%TYPE;
12517: TYPE plan_type_code_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_code%TYPE;
12518: TYPE min_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.min_txn_date%TYPE;
12519: TYPE max_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.max_txn_date%TYPE;
12520:
12521: proj_id_tab proj_id_tab_TYPE;
12514: TYPE proj_id_tab_type IS TABLE OF pji_pjp_wbs_header.project_id%TYPE;
12515: TYPE plan_ver_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_version_id%TYPE;
12516: TYPE plan_type_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_id%TYPE;
12517: TYPE plan_type_code_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_code%TYPE;
12518: TYPE min_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.min_txn_date%TYPE;
12519: TYPE max_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.max_txn_date%TYPE;
12520:
12521: proj_id_tab proj_id_tab_TYPE;
12522: plan_ver_id_tab plan_ver_id_tab_TYPE;
12515: TYPE plan_ver_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_version_id%TYPE;
12516: TYPE plan_type_id_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_id%TYPE;
12517: TYPE plan_type_code_tab_type IS TABLE OF pji_pjp_wbs_header.plan_type_code%TYPE;
12518: TYPE min_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.min_txn_date%TYPE;
12519: TYPE max_txn_date_tab_type IS TABLE OF pji_pjp_wbs_header.max_txn_date%TYPE;
12520:
12521: proj_id_tab proj_id_tab_TYPE;
12522: plan_ver_id_tab plan_ver_id_tab_TYPE;
12523: plan_type_id_tab plan_type_id_tab_TYPE;
12543:
12544: -- EXIT WHEN wbs_cur%NOTFOUND; -- bug 6316433
12545: If proj_id_tab.count > 0 then
12546: FORALL i IN proj_id_tab.FIRST .. proj_id_tab.LAST
12547: UPDATE /*+ index(whdr,PJI_PJP_WBS_HEADER_N1) */
12548: PJI_PJP_WBS_HEADER whdr
12549: SET MIN_TXN_DATE = LEAST(min_txn_date_tab(i), NVL(whdr.min_txn_date, min_txn_date_tab(i)))
12550: , MAX_TXN_DATE = GREATEST(max_txn_date_tab(i), NVL(whdr.max_txn_date, max_txn_date_tab(i)))
12551: , LAST_UPDATE_DATE = sysdate
12544: -- EXIT WHEN wbs_cur%NOTFOUND; -- bug 6316433
12545: If proj_id_tab.count > 0 then
12546: FORALL i IN proj_id_tab.FIRST .. proj_id_tab.LAST
12547: UPDATE /*+ index(whdr,PJI_PJP_WBS_HEADER_N1) */
12548: PJI_PJP_WBS_HEADER whdr
12549: SET MIN_TXN_DATE = LEAST(min_txn_date_tab(i), NVL(whdr.min_txn_date, min_txn_date_tab(i)))
12550: , MAX_TXN_DATE = GREATEST(max_txn_date_tab(i), NVL(whdr.max_txn_date, max_txn_date_tab(i)))
12551: , LAST_UPDATE_DATE = sysdate
12552: , LAST_UPDATED_BY = -9999
12861: , tmp.CUSTOM14
12862: , tmp.CUSTOM15
12863: , tmp.PLAN_TYPE_CODE
12864: FROM pji_fp_aggr_pjp1 tmp
12865: , pji_pjp_wbs_header ver3 -- replaced ver3 with wbs header for project-to-program association event.
12866: WHERE 1 = 1
12867: AND tmp.worker_id = g_worker_id
12868: AND tmp.project_id = ver3.project_id
12869: AND ver3.plan_version_id = tmp.plan_version_id
13541: , tmp.CUSTOM14
13542: , tmp.CUSTOM15
13543: , tmp.PLAN_TYPE_CODE
13544: FROM pji_fp_aggr_pjp1 tmp
13545: , pji_pjp_wbs_header ver3
13546: WHERE 1 = 1
13547: AND tmp.worker_id = g_worker_id
13548: AND tmp.project_id = ver3.project_id
13549: AND ver3.plan_version_id = tmp.plan_version_id
13754: , tmp.CUSTOM15
13755: , tmp.PLAN_TYPE_CODE
13756: , tmp.fact_row_id
13757: FROM pji_merge_helper tmp
13758: , pji_pjp_wbs_header ver3
13759: WHERE 1 = 1
13760: AND tmp.worker_id = g_worker_id
13761: AND tmp.project_id = ver3.project_id
13762: AND ver3.plan_version_id = tmp.plan_version_id