548: X_ATTRIBUTE14 => l_ue_rec.attribute14,
549: X_ATTRIBUTE15 => l_ue_rec.attribute15,
550: X_OBJECT_VERSION_NUMBER => l_ue_rec.object_version_number, -- no change to this needed.
551: X_LAST_UPDATE_DATE => sysdate,
552: X_LAST_UPDATED_BY => fnd_global.user_id,
553: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
554: ELSE
555:
556: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
549: X_ATTRIBUTE15 => l_ue_rec.attribute15,
550: X_OBJECT_VERSION_NUMBER => l_ue_rec.object_version_number, -- no change to this needed.
551: X_LAST_UPDATE_DATE => sysdate,
552: X_LAST_UPDATED_BY => fnd_global.user_id,
553: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
554: ELSE
555:
556: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
557: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
803: X_ATTRIBUTE14 => exception_rec.attribute14,
804: X_ATTRIBUTE15 => exception_rec.attribute15,
805: X_OBJECT_VERSION_NUMBER => exception_rec.object_version_number + 1,
806: X_LAST_UPDATE_DATE => sysdate,
807: X_LAST_UPDATED_BY => fnd_global.user_id,
808: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
809:
810: -- Delete the corresponding rows in ahl_schedule materials for this ue.
811: Delete_Sch_Materials(exception_rec.unit_effectivity_id);
804: X_ATTRIBUTE15 => exception_rec.attribute15,
805: X_OBJECT_VERSION_NUMBER => exception_rec.object_version_number + 1,
806: X_LAST_UPDATE_DATE => sysdate,
807: X_LAST_UPDATED_BY => fnd_global.user_id,
808: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
809:
810: -- Delete the corresponding rows in ahl_schedule materials for this ue.
811: Delete_Sch_Materials(exception_rec.unit_effectivity_id);
812:
871: X_ATTRIBUTE14 => l_ue_rec.attribute14,
872: X_ATTRIBUTE15 => l_ue_rec.attribute15,
873: X_OBJECT_VERSION_NUMBER => l_ue_rec.object_version_number + 1,
874: X_LAST_UPDATE_DATE => sysdate,
875: X_LAST_UPDATED_BY => fnd_global.user_id,
876: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
877:
878: -- Delete the corresponding rows in ahl_schedule materials for this ue.
879: Delete_Sch_Materials(l_ue_rec.unit_effectivity_id);
872: X_ATTRIBUTE15 => l_ue_rec.attribute15,
873: X_OBJECT_VERSION_NUMBER => l_ue_rec.object_version_number + 1,
874: X_LAST_UPDATE_DATE => sysdate,
875: X_LAST_UPDATED_BY => fnd_global.user_id,
876: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
877:
878: -- Delete the corresponding rows in ahl_schedule materials for this ue.
879: Delete_Sch_Materials(l_ue_rec.unit_effectivity_id);
880:
1018: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
1019: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
1020: X_OBJECT_VERSION_NUMBER => 1, /* object version */
1021: X_CREATION_DATE => sysdate,
1022: X_CREATED_BY => fnd_global.user_id,
1023: X_LAST_UPDATE_DATE => sysdate,
1024: X_LAST_UPDATED_BY => fnd_global.user_id,
1025: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1026:
1020: X_OBJECT_VERSION_NUMBER => 1, /* object version */
1021: X_CREATION_DATE => sysdate,
1022: X_CREATED_BY => fnd_global.user_id,
1023: X_LAST_UPDATE_DATE => sysdate,
1024: X_LAST_UPDATED_BY => fnd_global.user_id,
1025: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1026:
1027: p_x_temp_mr_rec.unit_effectivity_id := l_unit_effectivity_id;
1028:
1021: X_CREATION_DATE => sysdate,
1022: X_CREATED_BY => fnd_global.user_id,
1023: X_LAST_UPDATE_DATE => sysdate,
1024: X_LAST_UPDATED_BY => fnd_global.user_id,
1025: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1026:
1027: p_x_temp_mr_rec.unit_effectivity_id := l_unit_effectivity_id;
1028:
1029: IF G_DEBUG = 'Y' THEN
1110: X_ATTRIBUTE14 => p_mr_rec.ATTRIBUTE14,
1111: X_ATTRIBUTE15 => p_mr_rec.ATTRIBUTE15,
1112: X_OBJECT_VERSION_NUMBER => p_mr_rec.object_version_number+1,
1113: X_LAST_UPDATE_DATE => sysdate,
1114: X_LAST_UPDATED_BY => fnd_global.user_id,
1115: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1116:
1117: IF (p_temp_mr_rec.due_date IS NULL AND p_mr_rec.object_type = 'MR') THEN
1118: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1111: X_ATTRIBUTE15 => p_mr_rec.ATTRIBUTE15,
1112: X_OBJECT_VERSION_NUMBER => p_mr_rec.object_version_number+1,
1113: X_LAST_UPDATE_DATE => sysdate,
1114: X_LAST_UPDATED_BY => fnd_global.user_id,
1115: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1116:
1117: IF (p_temp_mr_rec.due_date IS NULL AND p_mr_rec.object_type = 'MR') THEN
1118: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1119: Delete_Sch_Materials(p_mr_rec.unit_effectivity_id);
1305: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
1306: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
1307: X_OBJECT_VERSION_NUMBER => 1,
1308: X_LAST_UPDATE_DATE => sysdate,
1309: X_LAST_UPDATED_BY => fnd_global.user_id,
1310: X_CREATION_DATE => sysdate,
1311: X_CREATED_BY => fnd_global.user_id,
1312: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
1313:
1307: X_OBJECT_VERSION_NUMBER => 1,
1308: X_LAST_UPDATE_DATE => sysdate,
1309: X_LAST_UPDATED_BY => fnd_global.user_id,
1310: X_CREATION_DATE => sysdate,
1311: X_CREATED_BY => fnd_global.user_id,
1312: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
1313:
1314: END LOOP;
1315:
1308: X_LAST_UPDATE_DATE => sysdate,
1309: X_LAST_UPDATED_BY => fnd_global.user_id,
1310: X_CREATION_DATE => sysdate,
1311: X_CREATED_BY => fnd_global.user_id,
1312: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
1313:
1314: END LOOP;
1315:
1316: IF G_DEBUG = 'Y' THEN
1513: latest_due_date = p_temp_mr_rec.latest_due_date,
1514: counter_id = p_temp_mr_rec.counter_id,
1515: object_version_number = object_version_number+1,
1516: LAST_UPDATE_DATE = sysdate,
1517: LAST_UPDATED_BY = fnd_global.user_id,
1518: LAST_UPDATE_LOGIN = fnd_global.login_id
1519: WHERE unit_effectivity_id IN (SELECT related_ue_id
1520: FROM ahl_ue_relationships
1521: WHERE originator_ue_id = p_temp_mr_rec.unit_effectivity_id
1514: counter_id = p_temp_mr_rec.counter_id,
1515: object_version_number = object_version_number+1,
1516: LAST_UPDATE_DATE = sysdate,
1517: LAST_UPDATED_BY = fnd_global.user_id,
1518: LAST_UPDATE_LOGIN = fnd_global.login_id
1519: WHERE unit_effectivity_id IN (SELECT related_ue_id
1520: FROM ahl_ue_relationships
1521: WHERE originator_ue_id = p_temp_mr_rec.unit_effectivity_id
1522: AND relationship_code = 'PARENT');
1701: UPDATE ahl_unit_deferrals_b
1702: SET UNIT_EFFECTIVITY_ID = l_temp_mr_rec.unit_effectivity_id,
1703: last_update_date = sysdate,
1704: object_version_number = object_version_number + 1,
1705: LAST_UPDATED_BY = fnd_global.user_id,
1706: LAST_UPDATE_LOGIN = fnd_global.login_id
1707: WHERE unit_deferral_id = l_unit_deferral_id;
1708: END IF;
1709: CLOSE unit_deferral_csr;
1702: SET UNIT_EFFECTIVITY_ID = l_temp_mr_rec.unit_effectivity_id,
1703: last_update_date = sysdate,
1704: object_version_number = object_version_number + 1,
1705: LAST_UPDATED_BY = fnd_global.user_id,
1706: LAST_UPDATE_LOGIN = fnd_global.login_id
1707: WHERE unit_deferral_id = l_unit_deferral_id;
1708: END IF;
1709: CLOSE unit_deferral_csr;
1710:
1992: X_ATTRIBUTE14 => l_unit_effectivity_rec.ATTRIBUTE14,
1993: X_ATTRIBUTE15 => l_unit_effectivity_rec.ATTRIBUTE15,
1994: X_OBJECT_VERSION_NUMBER => l_unit_effectivity_rec.object_version_number+1,
1995: X_LAST_UPDATE_DATE => sysdate,
1996: X_LAST_UPDATED_BY => fnd_global.user_id,
1997: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1998: CLOSE ahl_unit_effectivity_csr;
1999:
2000: IF (l_unit_effectivity_rec.due_date IS NULL
1993: X_ATTRIBUTE15 => l_unit_effectivity_rec.ATTRIBUTE15,
1994: X_OBJECT_VERSION_NUMBER => l_unit_effectivity_rec.object_version_number+1,
1995: X_LAST_UPDATE_DATE => sysdate,
1996: X_LAST_UPDATED_BY => fnd_global.user_id,
1997: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
1998: CLOSE ahl_unit_effectivity_csr;
1999:
2000: IF (l_unit_effectivity_rec.due_date IS NULL
2001: AND l_unit_effectivity_rec.object_type = 'MR') THEN
2083: X_ATTRIBUTE14 => l_unit_effectivity_rec.ATTRIBUTE14,
2084: X_ATTRIBUTE15 => l_unit_effectivity_rec.ATTRIBUTE15,
2085: X_OBJECT_VERSION_NUMBER => l_unit_effectivity_rec.object_version_number+1,
2086: X_LAST_UPDATE_DATE => sysdate,
2087: X_LAST_UPDATED_BY => fnd_global.user_id,
2088: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2089:
2090:
2091: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2084: X_ATTRIBUTE15 => l_unit_effectivity_rec.ATTRIBUTE15,
2085: X_OBJECT_VERSION_NUMBER => l_unit_effectivity_rec.object_version_number+1,
2086: X_LAST_UPDATE_DATE => sysdate,
2087: X_LAST_UPDATED_BY => fnd_global.user_id,
2088: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2089:
2090:
2091: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2092: IF (l_unit_effectivity_rec.due_date IS NULL
2182: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
2183: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
2184: X_OBJECT_VERSION_NUMBER => 1, /* object version */
2185: X_CREATION_DATE => sysdate,
2186: X_CREATED_BY => fnd_global.user_id,
2187: X_LAST_UPDATE_DATE => sysdate,
2188: X_LAST_UPDATED_BY => fnd_global.user_id,
2189: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2190:
2184: X_OBJECT_VERSION_NUMBER => 1, /* object version */
2185: X_CREATION_DATE => sysdate,
2186: X_CREATED_BY => fnd_global.user_id,
2187: X_LAST_UPDATE_DATE => sysdate,
2188: X_LAST_UPDATED_BY => fnd_global.user_id,
2189: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2190:
2191: l_new_top_ue_id := l_unit_effectivity_id;
2192:
2185: X_CREATION_DATE => sysdate,
2186: X_CREATED_BY => fnd_global.user_id,
2187: X_LAST_UPDATE_DATE => sysdate,
2188: X_LAST_UPDATED_BY => fnd_global.user_id,
2189: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2190:
2191: l_new_top_ue_id := l_unit_effectivity_id;
2192:
2193: -- update new UE ID for top node.
2202: UPDATE AHL_UNIT_DEFERRALS_B
2203: SET unit_effectivity_id = l_new_top_ue_id,
2204: last_update_date = sysdate,
2205: object_version_number = object_version_number + 1,
2206: LAST_UPDATED_BY = fnd_global.user_id,
2207: LAST_UPDATE_LOGIN = fnd_global.login_id
2208: WHERE unit_effectivity_id = unit_sr_def_rec.unit_effectivity_id;
2209:
2210: -- Create group children.
2203: SET unit_effectivity_id = l_new_top_ue_id,
2204: last_update_date = sysdate,
2205: object_version_number = object_version_number + 1,
2206: LAST_UPDATED_BY = fnd_global.user_id,
2207: LAST_UPDATE_LOGIN = fnd_global.login_id
2208: WHERE unit_effectivity_id = unit_sr_def_rec.unit_effectivity_id;
2209:
2210: -- Create group children.
2211: FOR ahl_temp_rec IN ahl_temp_csr (
2271: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
2272: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
2273: X_OBJECT_VERSION_NUMBER => 1, /* object version */
2274: X_CREATION_DATE => sysdate,
2275: X_CREATED_BY => fnd_global.user_id,
2276: X_LAST_UPDATE_DATE => sysdate,
2277: X_LAST_UPDATED_BY => fnd_global.user_id,
2278: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2279:
2273: X_OBJECT_VERSION_NUMBER => 1, /* object version */
2274: X_CREATION_DATE => sysdate,
2275: X_CREATED_BY => fnd_global.user_id,
2276: X_LAST_UPDATE_DATE => sysdate,
2277: X_LAST_UPDATED_BY => fnd_global.user_id,
2278: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2279:
2280: UPDATE ahl_temp_unit_SR_deferrals
2281: SET unit_effectivity_id = l_unit_effectivity_id,
2274: X_CREATION_DATE => sysdate,
2275: X_CREATED_BY => fnd_global.user_id,
2276: X_LAST_UPDATE_DATE => sysdate,
2277: X_LAST_UPDATED_BY => fnd_global.user_id,
2278: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2279:
2280: UPDATE ahl_temp_unit_SR_deferrals
2281: SET unit_effectivity_id = l_unit_effectivity_id,
2282: object_type = l_unit_effectivity_rec.object_type
2334: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
2335: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
2336: X_OBJECT_VERSION_NUMBER => 1,
2337: X_LAST_UPDATE_DATE => sysdate,
2338: X_LAST_UPDATED_BY => fnd_global.user_id,
2339: X_CREATION_DATE => sysdate,
2340: X_CREATED_BY => fnd_global.user_id,
2341: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
2342:
2336: X_OBJECT_VERSION_NUMBER => 1,
2337: X_LAST_UPDATE_DATE => sysdate,
2338: X_LAST_UPDATED_BY => fnd_global.user_id,
2339: X_CREATION_DATE => sysdate,
2340: X_CREATED_BY => fnd_global.user_id,
2341: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
2342:
2343:
2344: END LOOP;
2337: X_LAST_UPDATE_DATE => sysdate,
2338: X_LAST_UPDATED_BY => fnd_global.user_id,
2339: X_CREATION_DATE => sysdate,
2340: X_CREATED_BY => fnd_global.user_id,
2341: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
2342:
2343:
2344: END LOOP;
2345:
2414: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
2415: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
2416: X_OBJECT_VERSION_NUMBER => 1, /* object version */
2417: X_CREATION_DATE => sysdate,
2418: X_CREATED_BY => fnd_global.user_id,
2419: X_LAST_UPDATE_DATE => sysdate,
2420: X_LAST_UPDATED_BY => fnd_global.user_id,
2421: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2422:
2416: X_OBJECT_VERSION_NUMBER => 1, /* object version */
2417: X_CREATION_DATE => sysdate,
2418: X_CREATED_BY => fnd_global.user_id,
2419: X_LAST_UPDATE_DATE => sysdate,
2420: X_LAST_UPDATED_BY => fnd_global.user_id,
2421: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2422:
2423: CLOSE ahl_unit_effectivity_csr;
2424:
2417: X_CREATION_DATE => sysdate,
2418: X_CREATED_BY => fnd_global.user_id,
2419: X_LAST_UPDATE_DATE => sysdate,
2420: X_LAST_UPDATED_BY => fnd_global.user_id,
2421: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2422:
2423: CLOSE ahl_unit_effectivity_csr;
2424:
2425: -- Now create the relationship record.
2446: X_ATTRIBUTE14 => null, /* ATTRIBUTE14 */
2447: X_ATTRIBUTE15 => null, /* ATTRIBUTE15 */
2448: X_OBJECT_VERSION_NUMBER => 1,
2449: X_LAST_UPDATE_DATE => sysdate,
2450: X_LAST_UPDATED_BY => fnd_global.user_id,
2451: X_CREATION_DATE => sysdate,
2452: X_CREATED_BY => fnd_global.user_id,
2453: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
2454:
2448: X_OBJECT_VERSION_NUMBER => 1,
2449: X_LAST_UPDATE_DATE => sysdate,
2450: X_LAST_UPDATED_BY => fnd_global.user_id,
2451: X_CREATION_DATE => sysdate,
2452: X_CREATED_BY => fnd_global.user_id,
2453: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
2454:
2455: END IF;
2456: END LOOP;
2449: X_LAST_UPDATE_DATE => sysdate,
2450: X_LAST_UPDATED_BY => fnd_global.user_id,
2451: X_CREATION_DATE => sysdate,
2452: X_CREATED_BY => fnd_global.user_id,
2453: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
2454:
2455: END IF;
2456: END LOOP;
2457: END IF;
2482: message_code = 'VISIT-ASSIGN',
2483: object_version_number = object_version_number + 1,
2484: DATE_RUN = sysdate,
2485: LAST_UPDATE_DATE = sysdate,
2486: LAST_UPDATED_BY = fnd_global.user_id,
2487: LAST_UPDATE_LOGIN = fnd_global.login_id
2488: WHERE unit_effectivity_id IN (SELECT related_ue_id
2489: FROM ahl_ue_relationships
2490: WHERE originator_ue_id = l_delete_ue_id_tbl(i)
2483: object_version_number = object_version_number + 1,
2484: DATE_RUN = sysdate,
2485: LAST_UPDATE_DATE = sysdate,
2486: LAST_UPDATED_BY = fnd_global.user_id,
2487: LAST_UPDATE_LOGIN = fnd_global.login_id
2488: WHERE unit_effectivity_id IN (SELECT related_ue_id
2489: FROM ahl_ue_relationships
2490: WHERE originator_ue_id = l_delete_ue_id_tbl(i)
2491: AND relationship_code = 'PARENT');
2496: message_code = 'VISIT-ASSIGN',
2497: object_version_number = object_version_number + 1,
2498: DATE_RUN = sysdate,
2499: LAST_UPDATE_DATE = sysdate,
2500: LAST_UPDATED_BY = fnd_global.user_id,
2501: LAST_UPDATE_LOGIN = fnd_global.login_id
2502: WHERE unit_effectivity_id = l_delete_ue_id_tbl(i);
2503:
2504: ELSIF (l_visit_status IS NULL) THEN
2497: object_version_number = object_version_number + 1,
2498: DATE_RUN = sysdate,
2499: LAST_UPDATE_DATE = sysdate,
2500: LAST_UPDATED_BY = fnd_global.user_id,
2501: LAST_UPDATE_LOGIN = fnd_global.login_id
2502: WHERE unit_effectivity_id = l_delete_ue_id_tbl(i);
2503:
2504: ELSIF (l_visit_status IS NULL) THEN
2505: -- delete ahl_ue_relationships