[Home] [Help]
416: -- Shift_Num is unique in bom_shift_times
417:
418: -- Validate Visit Id
419: IF (p_visit_id IS NULL) THEN
420: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_NULL');
421: Fnd_Msg_Pub.ADD;
422: RAISE Fnd_Api.G_EXC_ERROR;
423: ELSE
424: OPEN l_validate_visit_csr(p_visit_id);
423: ELSE
424: OPEN l_validate_visit_csr(p_visit_id);
425: FETCH l_validate_visit_csr INTO l_junk;
426: IF (l_validate_visit_csr%NOTFOUND) THEN
427: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
428: Fnd_Message.Set_Token('VISIT_ID', p_visit_id);
429: Fnd_Msg_Pub.ADD;
430: CLOSE l_validate_visit_csr;
431: RAISE Fnd_Api.G_EXC_ERROR;
424: OPEN l_validate_visit_csr(p_visit_id);
425: FETCH l_validate_visit_csr INTO l_junk;
426: IF (l_validate_visit_csr%NOTFOUND) THEN
427: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
428: Fnd_Message.Set_Token('VISIT_ID', p_visit_id);
429: Fnd_Msg_Pub.ADD;
430: CLOSE l_validate_visit_csr;
431: RAISE Fnd_Api.G_EXC_ERROR;
432: END IF;
434: END IF;
435:
436: -- Validate Dates
437: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
438: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
439: Fnd_Message.Set_Token('STIME', p_start_time);
440: Fnd_Message.Set_Token('ETIME', p_end_time);
441: Fnd_Msg_Pub.ADD;
442: RAISE Fnd_Api.G_EXC_ERROR;
435:
436: -- Validate Dates
437: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
438: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
439: Fnd_Message.Set_Token('STIME', p_start_time);
440: Fnd_Message.Set_Token('ETIME', p_end_time);
441: Fnd_Msg_Pub.ADD;
442: RAISE Fnd_Api.G_EXC_ERROR;
443: END IF;
436: -- Validate Dates
437: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
438: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
439: Fnd_Message.Set_Token('STIME', p_start_time);
440: Fnd_Message.Set_Token('ETIME', p_end_time);
441: Fnd_Msg_Pub.ADD;
442: RAISE Fnd_Api.G_EXC_ERROR;
443: END IF;
444:
630: -- dbms_output.put_line('JSP Module: Doing Value to ID Conversion');
631: OPEN l_dept_id_csr(p_dept_name, p_org_name);
632: FETCH l_dept_id_csr INTO l_dept_id;
633: IF (l_dept_id_csr%NOTFOUND) THEN
634: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INVALID');
635: Fnd_Message.Set_Token('DEPT', p_dept_name);
636: Fnd_Msg_Pub.ADD;
637: CLOSE l_dept_id_csr;
638: RAISE Fnd_Api.G_EXC_ERROR;
631: OPEN l_dept_id_csr(p_dept_name, p_org_name);
632: FETCH l_dept_id_csr INTO l_dept_id;
633: IF (l_dept_id_csr%NOTFOUND) THEN
634: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INVALID');
635: Fnd_Message.Set_Token('DEPT', p_dept_name);
636: Fnd_Msg_Pub.ADD;
637: CLOSE l_dept_id_csr;
638: RAISE Fnd_Api.G_EXC_ERROR;
639: END IF;
641: -- dbms_output.put_line('l_dept_id = ' || l_dept_id);
642: ELSE
643: -- Validate Dept Id
644: IF (p_dept_id IS NULL) THEN
645: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_NULL');
646: Fnd_Msg_Pub.ADD;
647: RAISE Fnd_Api.G_EXC_ERROR;
648: ELSE
649: OPEN l_validate_dept_csr(p_dept_id);
648: ELSE
649: OPEN l_validate_dept_csr(p_dept_id);
650: FETCH l_validate_dept_csr INTO l_junk;
651: IF (l_validate_dept_csr%NOTFOUND) THEN
652: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_ID_INVALID');
653: Fnd_Message.Set_Token('DEPT', p_dept_id);
654: Fnd_Msg_Pub.ADD;
655: CLOSE l_validate_dept_csr;
656: RAISE Fnd_Api.G_EXC_ERROR;
649: OPEN l_validate_dept_csr(p_dept_id);
650: FETCH l_validate_dept_csr INTO l_junk;
651: IF (l_validate_dept_csr%NOTFOUND) THEN
652: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_ID_INVALID');
653: Fnd_Message.Set_Token('DEPT', p_dept_id);
654: Fnd_Msg_Pub.ADD;
655: CLOSE l_validate_dept_csr;
656: RAISE Fnd_Api.G_EXC_ERROR;
657: END IF;
662: END IF;
663:
664: -- Validate Plan Id
665: IF (p_plan_id IS NULL) THEN
666: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_NULL');
667: Fnd_Msg_Pub.ADD;
668: RAISE Fnd_Api.G_EXC_ERROR;
669: ELSE
670: OPEN l_validate_plan_csr(p_plan_id);
669: ELSE
670: OPEN l_validate_plan_csr(p_plan_id);
671: FETCH l_validate_plan_csr INTO l_junk;
672: IF (l_validate_plan_csr%NOTFOUND) THEN
673: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
674: Fnd_Message.Set_Token('PLAN', p_plan_id);
675: Fnd_Msg_Pub.ADD;
676: CLOSE l_validate_plan_csr;
677: RAISE Fnd_Api.G_EXC_ERROR;
670: OPEN l_validate_plan_csr(p_plan_id);
671: FETCH l_validate_plan_csr INTO l_junk;
672: IF (l_validate_plan_csr%NOTFOUND) THEN
673: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
674: Fnd_Message.Set_Token('PLAN', p_plan_id);
675: Fnd_Msg_Pub.ADD;
676: CLOSE l_validate_plan_csr;
677: RAISE Fnd_Api.G_EXC_ERROR;
678: END IF;
681: -- dbms_output.put_line('p_plan_id = ' || p_plan_id);
682:
683: -- Validate Dates
684: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
685: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
686: Fnd_Message.Set_Token('STIME', p_start_time);
687: Fnd_Message.Set_Token('ETIME', p_end_time);
688: Fnd_Msg_Pub.ADD;
689: RAISE Fnd_Api.G_EXC_ERROR;
682:
683: -- Validate Dates
684: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
685: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
686: Fnd_Message.Set_Token('STIME', p_start_time);
687: Fnd_Message.Set_Token('ETIME', p_end_time);
688: Fnd_Msg_Pub.ADD;
689: RAISE Fnd_Api.G_EXC_ERROR;
690: END IF;
683: -- Validate Dates
684: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
685: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
686: Fnd_Message.Set_Token('STIME', p_start_time);
687: Fnd_Message.Set_Token('ETIME', p_end_time);
688: Fnd_Msg_Pub.ADD;
689: RAISE Fnd_Api.G_EXC_ERROR;
690: END IF;
691:
1000: );
1001: END IF;
1002:
1003: IF (p_org_name IS NULL) THEN
1004: Fnd_Message.Set_Name('AHL','AHL_LTP_ORG_MAN_JSP');
1005: Fnd_Msg_Pub.ADD;
1006: RAISE Fnd_Api.G_EXC_ERROR;
1007: END IF;
1008:
1006: RAISE Fnd_Api.G_EXC_ERROR;
1007: END IF;
1008:
1009: IF (p_start_time IS NULL) THEN
1010: Fnd_Message.Set_Name('AHL','AHL_LTP_STARTDATE_MAN_JSP');
1011: Fnd_Msg_Pub.ADD;
1012: RAISE Fnd_Api.G_EXC_ERROR;
1013: END IF;
1014:
1012: RAISE Fnd_Api.G_EXC_ERROR;
1013: END IF;
1014:
1015: IF (p_end_time IS NULL) THEN
1016: Fnd_Message.Set_Name('AHL','AHL_LTP_ENDDATE_MAN_JSP');
1017: Fnd_Msg_Pub.ADD;
1018: RAISE Fnd_Api.G_EXC_ERROR;
1019: END IF;
1020:
1018: RAISE Fnd_Api.G_EXC_ERROR;
1019: END IF;
1020:
1021: IF (TRUNC(p_start_time) < TRUNC(SYSDATE) ) THEN
1022: Fnd_Message.Set_Name('AHL','AHL_LTP_INVALID_START_DATE');
1023: Fnd_Msg_Pub.ADD;
1024: RAISE Fnd_Api.G_EXC_ERROR;
1025: END IF;
1026:
1024: RAISE Fnd_Api.G_EXC_ERROR;
1025: END IF;
1026:
1027: IF (TRUNC(p_end_time) < TRUNC(SYSDATE) ) THEN
1028: Fnd_Message.Set_Name('AHL','AHL_LTP_INVALID_END_DATE');
1029: Fnd_Msg_Pub.ADD;
1030: RAISE Fnd_Api.G_EXC_ERROR;
1031: END IF;
1032: -- yazhou 24Aug2005 ends
1037: -- validate org name
1038: OPEN l_validate_org_csr(p_org_name);
1039: FETCH l_validate_org_csr INTO l_name;
1040: IF (l_validate_org_csr%NOTFOUND) THEN
1041: Fnd_Message.Set_Name('AHL','AHL_LTP_ORG_ID_INVALID');
1042: Fnd_Message.Set_Token('ORG', p_org_name);
1043: Fnd_Msg_Pub.ADD;
1044: CLOSE l_validate_org_csr;
1045: RAISE Fnd_Api.G_EXC_ERROR;
1038: OPEN l_validate_org_csr(p_org_name);
1039: FETCH l_validate_org_csr INTO l_name;
1040: IF (l_validate_org_csr%NOTFOUND) THEN
1041: Fnd_Message.Set_Name('AHL','AHL_LTP_ORG_ID_INVALID');
1042: Fnd_Message.Set_Token('ORG', p_org_name);
1043: Fnd_Msg_Pub.ADD;
1044: CLOSE l_validate_org_csr;
1045: RAISE Fnd_Api.G_EXC_ERROR;
1046: END IF;
1049: -- Validate dept name
1050: OPEN l_dept_id_csr(p_dept_name,p_org_name);
1051: FETCH l_dept_id_csr INTO l_deprt_id,l_orga_id, l_department_name;
1052: IF (l_dept_id_csr%NOTFOUND) THEN
1053: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1054: Fnd_Message.Set_Token('DEPT', p_dept_name);
1055: Fnd_Msg_Pub.ADD;
1056: CLOSE l_dept_id_csr;
1057: RAISE Fnd_Api.G_EXC_ERROR;
1050: OPEN l_dept_id_csr(p_dept_name,p_org_name);
1051: FETCH l_dept_id_csr INTO l_deprt_id,l_orga_id, l_department_name;
1052: IF (l_dept_id_csr%NOTFOUND) THEN
1053: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1054: Fnd_Message.Set_Token('DEPT', p_dept_name);
1055: Fnd_Msg_Pub.ADD;
1056: CLOSE l_dept_id_csr;
1057: RAISE Fnd_Api.G_EXC_ERROR;
1058: END IF;
1069: IF (p_dept_id IS NOT NULL) THEN
1070: OPEN l_validate_dept_csr(p_dept_id);
1071: FETCH l_validate_dept_csr INTO l_dept_name;
1072: IF (l_validate_dept_csr%NOTFOUND) THEN
1073: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1074: Fnd_Message.Set_Token('DEPT', p_dept_id);
1075: Fnd_Msg_Pub.ADD;
1076: CLOSE l_validate_dept_csr;
1077: RAISE Fnd_Api.G_EXC_ERROR;
1070: OPEN l_validate_dept_csr(p_dept_id);
1071: FETCH l_validate_dept_csr INTO l_dept_name;
1072: IF (l_validate_dept_csr%NOTFOUND) THEN
1073: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1074: Fnd_Message.Set_Token('DEPT', p_dept_id);
1075: Fnd_Msg_Pub.ADD;
1076: CLOSE l_validate_dept_csr;
1077: RAISE Fnd_Api.G_EXC_ERROR;
1078: END IF;
1087: -- Moved out of department loop
1088:
1089: -- Validate Plan Id
1090: IF (p_plan_id IS NULL) THEN
1091: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_NULL');
1092: Fnd_Msg_Pub.ADD;
1093: RAISE Fnd_Api.G_EXC_ERROR;
1094: ELSE
1095: OPEN l_validate_plan_csr(p_plan_id);
1094: ELSE
1095: OPEN l_validate_plan_csr(p_plan_id);
1096: FETCH l_validate_plan_csr INTO l_junk;
1097: IF (l_validate_plan_csr%NOTFOUND) THEN
1098: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
1099: Fnd_Message.Set_Token('PLAN', p_plan_id);
1100: Fnd_Msg_Pub.ADD;
1101: CLOSE l_validate_plan_csr;
1102: RAISE Fnd_Api.G_EXC_ERROR;
1095: OPEN l_validate_plan_csr(p_plan_id);
1096: FETCH l_validate_plan_csr INTO l_junk;
1097: IF (l_validate_plan_csr%NOTFOUND) THEN
1098: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
1099: Fnd_Message.Set_Token('PLAN', p_plan_id);
1100: Fnd_Msg_Pub.ADD;
1101: CLOSE l_validate_plan_csr;
1102: RAISE Fnd_Api.G_EXC_ERROR;
1103: END IF;
1108: Ahl_Debug_Pub.debug('p_plan_id = ' || p_plan_id);
1109:
1110: -- Validate Dates
1111: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
1112: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1113: Fnd_Message.Set_Token('STIME', p_start_time);
1114: Fnd_Message.Set_Token('ETIME', p_end_time);
1115: Fnd_Msg_Pub.ADD;
1116: RAISE Fnd_Api.G_EXC_ERROR;
1109:
1110: -- Validate Dates
1111: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
1112: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1113: Fnd_Message.Set_Token('STIME', p_start_time);
1114: Fnd_Message.Set_Token('ETIME', p_end_time);
1115: Fnd_Msg_Pub.ADD;
1116: RAISE Fnd_Api.G_EXC_ERROR;
1117: END IF;
1110: -- Validate Dates
1111: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
1112: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1113: Fnd_Message.Set_Token('STIME', p_start_time);
1114: Fnd_Message.Set_Token('ETIME', p_end_time);
1115: Fnd_Msg_Pub.ADD;
1116: RAISE Fnd_Api.G_EXC_ERROR;
1117: END IF;
1118:
1606: -- dbms_output.put_line('JSP MODULE: Doing Value TO ID Conversion');
1607: OPEN l_dept_id_csr(p_dept_name, p_org_name);
1608: FETCH l_dept_id_csr INTO l_dept_id,l_org_id;
1609: IF (l_dept_id_csr%NOTFOUND) THEN
1610: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1611: Fnd_Message.Set_Token('DEPT', p_dept_name);
1612: Fnd_Msg_Pub.ADD;
1613: CLOSE l_dept_id_csr;
1614: RAISE Fnd_Api.G_EXC_ERROR;
1607: OPEN l_dept_id_csr(p_dept_name, p_org_name);
1608: FETCH l_dept_id_csr INTO l_dept_id,l_org_id;
1609: IF (l_dept_id_csr%NOTFOUND) THEN
1610: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1611: Fnd_Message.Set_Token('DEPT', p_dept_name);
1612: Fnd_Msg_Pub.ADD;
1613: CLOSE l_dept_id_csr;
1614: RAISE Fnd_Api.G_EXC_ERROR;
1615: END IF;
1617: -- dbms_output.put_line('l_dept_id = ' || l_dept_id);
1618: ELSE
1619: -- Validate Dept Id
1620: IF (p_dept_id IS NULL) THEN
1621: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_NULL');
1622: Fnd_Msg_Pub.ADD;
1623: RAISE Fnd_Api.G_EXC_ERROR;
1624: ELSE
1625: OPEN l_validate_dept_csr(p_dept_id);
1624: ELSE
1625: OPEN l_validate_dept_csr(p_dept_id);
1626: FETCH l_validate_dept_csr INTO l_junk;
1627: IF (l_validate_dept_csr%NOTFOUND) THEN
1628: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1629: Fnd_Message.Set_Token('DEPT', p_dept_id);
1630: Fnd_Msg_Pub.ADD;
1631: CLOSE l_validate_dept_csr;
1632: RAISE Fnd_Api.G_EXC_ERROR;
1625: OPEN l_validate_dept_csr(p_dept_id);
1626: FETCH l_validate_dept_csr INTO l_junk;
1627: IF (l_validate_dept_csr%NOTFOUND) THEN
1628: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1629: Fnd_Message.Set_Token('DEPT', p_dept_id);
1630: Fnd_Msg_Pub.ADD;
1631: CLOSE l_validate_dept_csr;
1632: RAISE Fnd_Api.G_EXC_ERROR;
1633: END IF;
1638: END IF;
1639:
1640: -- Validate Plan Id
1641: IF (p_plan_id IS NULL) THEN
1642: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_NULL');
1643: Fnd_Msg_Pub.ADD;
1644: RAISE Fnd_Api.G_EXC_ERROR;
1645: ELSE
1646: OPEN l_validate_plan_csr(p_plan_id);
1645: ELSE
1646: OPEN l_validate_plan_csr(p_plan_id);
1647: FETCH l_validate_plan_csr INTO l_junk;
1648: IF (l_validate_plan_csr%NOTFOUND) THEN
1649: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
1650: Fnd_Message.Set_Token('PLAN', p_plan_id);
1651: Fnd_Msg_Pub.ADD;
1652: CLOSE l_validate_plan_csr;
1653: RAISE Fnd_Api.G_EXC_ERROR;
1646: OPEN l_validate_plan_csr(p_plan_id);
1647: FETCH l_validate_plan_csr INTO l_junk;
1648: IF (l_validate_plan_csr%NOTFOUND) THEN
1649: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
1650: Fnd_Message.Set_Token('PLAN', p_plan_id);
1651: Fnd_Msg_Pub.ADD;
1652: CLOSE l_validate_plan_csr;
1653: RAISE Fnd_Api.G_EXC_ERROR;
1654: END IF;
1657: -- dbms_output.put_line('p_plan_id = ' || p_plan_id);
1658:
1659: -- Validate Dates
1660: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
1661: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1662: Fnd_Message.Set_Token('STIME', p_start_time);
1663: Fnd_Message.Set_Token('ETIME', p_end_time);
1664: Fnd_Msg_Pub.ADD;
1665: RAISE Fnd_Api.G_EXC_ERROR;
1658:
1659: -- Validate Dates
1660: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
1661: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1662: Fnd_Message.Set_Token('STIME', p_start_time);
1663: Fnd_Message.Set_Token('ETIME', p_end_time);
1664: Fnd_Msg_Pub.ADD;
1665: RAISE Fnd_Api.G_EXC_ERROR;
1666: END IF;
1659: -- Validate Dates
1660: IF (p_start_time IS NOT NULL AND p_end_time IS NOT NULL AND p_start_time > p_end_time) THEN
1661: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1662: Fnd_Message.Set_Token('STIME', p_start_time);
1663: Fnd_Message.Set_Token('ETIME', p_end_time);
1664: Fnd_Msg_Pub.ADD;
1665: RAISE Fnd_Api.G_EXC_ERROR;
1666: END IF;
1667:
2247: x_visit_end_time,l_org_id;
2248: -- yazhou 24Aug2005 ends
2249:
2250: IF(l_visit_details_csr%NOTFOUND) THEN
2251: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_NULL');
2252: Fnd_Msg_Pub.ADD;
2253: CLOSE l_visit_details_csr;
2254: Ahl_Debug_Pub.debug('Invalid visit Id', 'LTP: Derive_Visit_Task_Times');
2255: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2432:
2433: OPEN l_get_route_csr(p_task_id);
2434: FETCH l_get_route_csr INTO l_mr_route_id,l_route_id;
2435: IF l_get_route_csr%NOTFOUND OR l_route_id IS NULL THEN
2436: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_ROUTE_FOR_TASK');
2437: Fnd_Message.Set_Token('TASK_ID', p_task_id);
2438: Fnd_Msg_Pub.ADD;
2439: CLOSE l_get_route_csr;
2440: RETURN;
2433: OPEN l_get_route_csr(p_task_id);
2434: FETCH l_get_route_csr INTO l_mr_route_id,l_route_id;
2435: IF l_get_route_csr%NOTFOUND OR l_route_id IS NULL THEN
2436: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_ROUTE_FOR_TASK');
2437: Fnd_Message.Set_Token('TASK_ID', p_task_id);
2438: Fnd_Msg_Pub.ADD;
2439: CLOSE l_get_route_csr;
2440: RETURN;
2441: END IF;
2443:
2444: OPEN l_get_dept_csr(p_task_id);
2445: FETCH l_get_dept_csr INTO l_vtdept_id,l_vdept_id,l_org_id;
2446: IF l_get_dept_csr%NOTFOUND THEN
2447: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_DEPT_FOR_TASK');
2448: Fnd_Message.Set_Token('TASK_ID', p_task_id);
2449: Fnd_Msg_Pub.ADD;
2450: CLOSE l_get_dept_csr;
2451: RETURN;
2444: OPEN l_get_dept_csr(p_task_id);
2445: FETCH l_get_dept_csr INTO l_vtdept_id,l_vdept_id,l_org_id;
2446: IF l_get_dept_csr%NOTFOUND THEN
2447: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_DEPT_FOR_TASK');
2448: Fnd_Message.Set_Token('TASK_ID', p_task_id);
2449: Fnd_Msg_Pub.ADD;
2450: CLOSE l_get_dept_csr;
2451: RETURN;
2452: END IF;
2469: -- Get bom resource id for the corresponding aso resource
2470: OPEN l_get_bom_resources_csr(l_rt_resource_rec.ASO_RESOURCE_ID,l_org_id);
2471: FETCH l_get_bom_resources_csr INTO l_bom_resource_id;
2472: IF l_get_bom_resources_csr%NOTFOUND THEN
2473: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_BOM_RESRC_ID');
2474: Fnd_Msg_Pub.ADD;
2475: CLOSE l_get_bom_resources_csr;
2476: RAISE Fnd_Api.G_EXC_ERROR;
2477: -- RETURN;
2517:
2518: Ahl_Debug_Pub.debug('OPERATION LEVEL, bom resource id oper = ' || l_bom_resource_id);
2519:
2520: IF l_get_bom_resources_csr%NOTFOUND THEN
2521: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_BOM_RESRC_ID');
2522: Fnd_Msg_Pub.ADD;
2523: CLOSE l_get_bom_resources_csr;
2524: RAISE Fnd_Api.G_EXC_ERROR;
2525: -- RETURN;
2617: p_x_task_rsrc_tbl(l_table_index).RESOURCE_TYPE_MEANING;
2618: -- yazhou 17Aug2005 ends
2619:
2620: IF (l_get_bom_rsrc_dtls_csr%NOTFOUND) THEN
2621: Fnd_Message.Set_Name('AHL','AHL_LTP_BOM_RSRC_ID_INVALID');
2622: Fnd_Message.Set_Token('ASO_RSRC_ID', p_bom_resource_id);
2623: Fnd_Msg_Pub.ADD;
2624: CLOSE l_get_bom_rsrc_dtls_csr;
2625: RAISE Fnd_Api.G_EXC_ERROR;
2618: -- yazhou 17Aug2005 ends
2619:
2620: IF (l_get_bom_rsrc_dtls_csr%NOTFOUND) THEN
2621: Fnd_Message.Set_Name('AHL','AHL_LTP_BOM_RSRC_ID_INVALID');
2622: Fnd_Message.Set_Token('ASO_RSRC_ID', p_bom_resource_id);
2623: Fnd_Msg_Pub.ADD;
2624: CLOSE l_get_bom_rsrc_dtls_csr;
2625: RAISE Fnd_Api.G_EXC_ERROR;
2626: END IF;
2709: p_x_task_rsrc_tbl(l_table_index).RESOURCE_TYPE_MEANING;
2710: -- yazhou 17Aug2005 ends
2711:
2712: IF (l_get_bom_rsrc_dtls_csr%NOTFOUND) THEN
2713: Fnd_Message.Set_Name('AHL','AHL_LTP_BOM_RSRC_ID_INVALID');
2714: Fnd_Message.Set_Token('ASO_RSRC_ID', p_aso_resource_id);
2715: Fnd_Msg_Pub.ADD;
2716: CLOSE l_get_bom_rsrc_dtls_csr;
2717: RAISE Fnd_Api.G_EXC_ERROR;
2710: -- yazhou 17Aug2005 ends
2711:
2712: IF (l_get_bom_rsrc_dtls_csr%NOTFOUND) THEN
2713: Fnd_Message.Set_Name('AHL','AHL_LTP_BOM_RSRC_ID_INVALID');
2714: Fnd_Message.Set_Token('ASO_RSRC_ID', p_aso_resource_id);
2715: Fnd_Msg_Pub.ADD;
2716: CLOSE l_get_bom_rsrc_dtls_csr;
2717: RAISE Fnd_Api.G_EXC_ERROR;
2718: END IF;
3182: BEGIN
3183:
3184: IF (p_resource_id IS NULL) THEN
3185: -- Error
3186: FND_MESSAGE.Set_Name('AHL','AHL_LTP_RSRC_ID_NULL');
3187: FND_MSG_PUB.ADD;
3188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3189: END IF;
3190:
3322:
3323: BEGIN
3324: IF (p_resource_id IS NULL) THEN
3325: -- Error
3326: Fnd_Message.Set_Name('AHL','AHL_LTP_RSRC_ID_NULL');
3327: Fnd_Msg_Pub.ADD;
3328: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3329: END IF;
3330:
3351: END LOOP;
3352: END IF;
3353: ELSE
3354: -- Error
3355: Fnd_Message.Set_Name('AHL','AHL_LTP_RSRC_TYPE_INVALID');
3356: Fnd_Message.Set_Token('RSRC_TYPE', p_aso_bom_type);
3357: Fnd_Msg_Pub.ADD;
3358: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3352: END IF;
3353: ELSE
3354: -- Error
3355: Fnd_Message.Set_Name('AHL','AHL_LTP_RSRC_TYPE_INVALID');
3356: Fnd_Message.Set_Token('RSRC_TYPE', p_aso_bom_type);
3357: Fnd_Msg_Pub.ADD;
3358: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3360: -- Assign Local table to Output Parameter
3446: -- Get the Calendar code and Shift Num for the department
3447: OPEN l_dept_shift_csr(p_dept_id);
3448: FETCH l_dept_shift_csr INTO L_CALENDAR_CODE, L_SHIFT_NUM;
3449: IF (l_dept_shift_csr%NOTFOUND) THEN
3450: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
3451: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3452: Fnd_Msg_Pub.ADD;
3453: CLOSE l_dept_shift_csr;
3454: Ahl_Debug_Pub.debug('No shift/calendar code for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3447: OPEN l_dept_shift_csr(p_dept_id);
3448: FETCH l_dept_shift_csr INTO L_CALENDAR_CODE, L_SHIFT_NUM;
3449: IF (l_dept_shift_csr%NOTFOUND) THEN
3450: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
3451: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3452: Fnd_Msg_Pub.ADD;
3453: CLOSE l_dept_shift_csr;
3454: Ahl_Debug_Pub.debug('No shift/calendar code for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3455: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3461: -- Get the calendar start date and the calendar end date
3462: OPEN l_calendar_csr(L_CALENDAR_CODE);
3463: FETCH l_calendar_csr INTO L_CAL_START, L_CAL_END;
3464: IF (l_calendar_csr%NOTFOUND) THEN
3465: Fnd_Message.Set_Name('AHL','AHL_LTP_CAL_CODE_INVALID');
3466: Fnd_Message.Set_Token('CAL_CODE', L_CALENDAR_CODE);
3467: Fnd_Msg_Pub.ADD;
3468: CLOSE l_calendar_csr;
3469: Ahl_Debug_Pub.debug('No BOM_CALENDARS entry for calendar code: ' || L_CALENDAR_CODE, 'LTP: Create_Time_Periods');
3462: OPEN l_calendar_csr(L_CALENDAR_CODE);
3463: FETCH l_calendar_csr INTO L_CAL_START, L_CAL_END;
3464: IF (l_calendar_csr%NOTFOUND) THEN
3465: Fnd_Message.Set_Name('AHL','AHL_LTP_CAL_CODE_INVALID');
3466: Fnd_Message.Set_Token('CAL_CODE', L_CALENDAR_CODE);
3467: Fnd_Msg_Pub.ADD;
3468: CLOSE l_calendar_csr;
3469: Ahl_Debug_Pub.debug('No BOM_CALENDARS entry for calendar code: ' || L_CALENDAR_CODE, 'LTP: Create_Time_Periods');
3470: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3479: -- Get Days On and Days Off
3480: OPEN l_workday_pattern_csr(L_CALENDAR_CODE, L_SHIFT_NUM);
3481: FETCH l_workday_pattern_csr INTO L_DAYS_ON, L_DAYS_OFF;
3482: IF (l_workday_pattern_csr%NOTFOUND) THEN
3483: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_PTRN_FOR_DEPT');
3484: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3485: Fnd_Msg_Pub.ADD;
3486: CLOSE l_workday_pattern_csr;
3487: Ahl_Debug_Pub.debug('No Work Day Pattern for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3480: OPEN l_workday_pattern_csr(L_CALENDAR_CODE, L_SHIFT_NUM);
3481: FETCH l_workday_pattern_csr INTO L_DAYS_ON, L_DAYS_OFF;
3482: IF (l_workday_pattern_csr%NOTFOUND) THEN
3483: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_PTRN_FOR_DEPT');
3484: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3485: Fnd_Msg_Pub.ADD;
3486: CLOSE l_workday_pattern_csr;
3487: Ahl_Debug_Pub.debug('No Work Day Pattern for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3488: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3495: -- Get the shift start and shift end times
3496: OPEN l_shift_times_csr(L_CALENDAR_CODE, L_SHIFT_NUM);
3497: FETCH l_shift_times_csr INTO L_SHIFT_START, L_SHIFT_END;
3498: IF (l_shift_times_csr%NOTFOUND) THEN
3499: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
3500: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3501: Fnd_Msg_Pub.ADD;
3502: CLOSE l_shift_times_csr;
3503: Ahl_Debug_Pub.debug('No shift start and end times for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3496: OPEN l_shift_times_csr(L_CALENDAR_CODE, L_SHIFT_NUM);
3497: FETCH l_shift_times_csr INTO L_SHIFT_START, L_SHIFT_END;
3498: IF (l_shift_times_csr%NOTFOUND) THEN
3499: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
3500: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3501: Fnd_Msg_Pub.ADD;
3502: CLOSE l_shift_times_csr;
3503: Ahl_Debug_Pub.debug('No shift start and end times for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3504: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3521: IF(Not_A_Holiday(l_temp_start, p_dept_id)) THEN
3522: -- dbms_output.put_line('Not a holiday');
3523: -- Working Day: Check if day is in calendar range
3524: IF(l_temp_start > L_CAL_END) THEN
3525: Fnd_Message.Set_Name('AHL','AHL_LTP_INSUFFICIENT_CAL_RANGE');
3526: Fnd_Msg_Pub.ADD;
3527: Ahl_Debug_Pub.debug('Computed date (' || l_temp_start|| ') is outside calendar range', 'LTP: Init_Time_Vars');
3528: RAISE Fnd_Api.G_EXC_ERROR;
3529: END IF;
3568: IF(Not_A_Holiday(l_temp_start, p_dept_id)) THEN
3569: -- dbms_output.put_line('Not a holiday');
3570: -- Working Day: Check if day is in calendar range
3571: IF(l_temp_start > L_CAL_END) THEN
3572: Fnd_Message.Set_Name('AHL','AHL_LTP_INSUFFICIENT_CAL_RANGE');
3573: Fnd_Msg_Pub.ADD;
3574: Ahl_Debug_Pub.debug('Computed date (' || l_temp_start || ') is outside calendar range', 'LTP: Init_Time_Vars');
3575: RAISE Fnd_Api.G_EXC_ERROR;
3576: END IF;
3632:
3633: END LOOP;
3634: ELSE
3635: -- Invalid UOM Code
3636: Fnd_Message.Set_Name('AHL','AHL_LTP_UOM_CODE_INVALID');
3637: Fnd_Message.Set_Token('UOM_CODE', p_UOM_code);
3638: Fnd_Msg_Pub.ADD;
3639: RAISE Fnd_Api.G_EXC_ERROR;
3640: END IF;
3633: END LOOP;
3634: ELSE
3635: -- Invalid UOM Code
3636: Fnd_Message.Set_Name('AHL','AHL_LTP_UOM_CODE_INVALID');
3637: Fnd_Message.Set_Token('UOM_CODE', p_UOM_code);
3638: Fnd_Msg_Pub.ADD;
3639: RAISE Fnd_Api.G_EXC_ERROR;
3640: END IF;
3641: -- Ensure that the end time of the last period does not exceed user given end time
3806: -- Get Visit Name, Visit Number
3807: OPEN l_get_visit_name_csr(l_visit_id);
3808: FETCH l_get_visit_name_csr INTO l_prev_visit_name, l_prev_visit_number;
3809: IF (l_get_visit_name_csr%NOTFOUND) THEN
3810: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
3811: Fnd_Message.Set_Token('VISIT_ID', l_visit_id);
3812: Fnd_Msg_Pub.ADD;
3813: CLOSE l_get_visit_name_csr;
3814: RAISE Fnd_Api.G_EXC_ERROR;
3807: OPEN l_get_visit_name_csr(l_visit_id);
3808: FETCH l_get_visit_name_csr INTO l_prev_visit_name, l_prev_visit_number;
3809: IF (l_get_visit_name_csr%NOTFOUND) THEN
3810: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
3811: Fnd_Message.Set_Token('VISIT_ID', l_visit_id);
3812: Fnd_Msg_Pub.ADD;
3813: CLOSE l_get_visit_name_csr;
3814: RAISE Fnd_Api.G_EXC_ERROR;
3815: END IF;
3825: -- Get Task Name
3826: OPEN l_get_task_name_csr(l_task_id);
3827: FETCH l_get_task_name_csr INTO l_task_name,l_task_type_code;
3828: IF (l_get_task_name_csr%NOTFOUND) THEN
3829: Fnd_Message.Set_Name('AHL','AHL_LTP_TASK_ID_INVALID');
3830: Fnd_Message.Set_Token('TASK_ID', l_task_id);
3831: Fnd_Msg_Pub.ADD;
3832: CLOSE l_get_task_name_csr;
3833: RAISE Fnd_Api.G_EXC_ERROR;
3826: OPEN l_get_task_name_csr(l_task_id);
3827: FETCH l_get_task_name_csr INTO l_task_name,l_task_type_code;
3828: IF (l_get_task_name_csr%NOTFOUND) THEN
3829: Fnd_Message.Set_Name('AHL','AHL_LTP_TASK_ID_INVALID');
3830: Fnd_Message.Set_Token('TASK_ID', l_task_id);
3831: Fnd_Msg_Pub.ADD;
3832: CLOSE l_get_task_name_csr;
3833: RAISE Fnd_Api.G_EXC_ERROR;
3834: END IF;
3866: -- Get Visit Name
3867: OPEN l_get_visit_name_csr(l_visit_id);
3868: FETCH l_get_visit_name_csr INTO l_prev_visit_name, l_prev_visit_number;
3869: IF (l_get_visit_name_csr%NOTFOUND) THEN
3870: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
3871: Fnd_Message.Set_Token('VISIT_ID', l_visit_id);
3872: Fnd_Msg_Pub.ADD;
3873: CLOSE l_get_visit_name_csr;
3874: RAISE Fnd_Api.G_EXC_ERROR;
3867: OPEN l_get_visit_name_csr(l_visit_id);
3868: FETCH l_get_visit_name_csr INTO l_prev_visit_name, l_prev_visit_number;
3869: IF (l_get_visit_name_csr%NOTFOUND) THEN
3870: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
3871: Fnd_Message.Set_Token('VISIT_ID', l_visit_id);
3872: Fnd_Msg_Pub.ADD;
3873: CLOSE l_get_visit_name_csr;
3874: RAISE Fnd_Api.G_EXC_ERROR;
3875: END IF;
3880: -- Get Task Name
3881: OPEN l_get_task_name_csr(l_task_id);
3882: FETCH l_get_task_name_csr INTO l_task_name,l_task_type_code;
3883: IF (l_get_task_name_csr%NOTFOUND) THEN
3884: Fnd_Message.Set_Name('AHL','AHL_LTP_TASK_ID_INVALID');
3885: Fnd_Message.Set_Token('TASK_ID', l_task_id);
3886: Fnd_Msg_Pub.ADD;
3887: CLOSE l_get_task_name_csr;
3888: RAISE Fnd_Api.G_EXC_ERROR;
3881: OPEN l_get_task_name_csr(l_task_id);
3882: FETCH l_get_task_name_csr INTO l_task_name,l_task_type_code;
3883: IF (l_get_task_name_csr%NOTFOUND) THEN
3884: Fnd_Message.Set_Name('AHL','AHL_LTP_TASK_ID_INVALID');
3885: Fnd_Message.Set_Token('TASK_ID', l_task_id);
3886: Fnd_Msg_Pub.ADD;
3887: CLOSE l_get_task_name_csr;
3888: RAISE Fnd_Api.G_EXC_ERROR;
3889: END IF;
3933:
3934: OPEN l_route_time_span_csr(x_route_id);
3935: FETCH l_route_time_span_csr INTO x_duration;
3936: IF (l_route_time_span_csr%NOTFOUND) THEN
3937: Fnd_Message.Set_Name('AHL', 'AHL_LTP_ROUTE_ID_INVALID');
3938: Fnd_Message.Set_Token('ROUTE_ID', p_route_id);
3939: Fnd_Msg_Pub.ADD;
3940: CLOSE l_route_time_span_csr;
3941: Ahl_Debug_Pub.debug('Invalid route Id: ' || x_duration, 'LTP: Get_Route_Duration');
3934: OPEN l_route_time_span_csr(x_route_id);
3935: FETCH l_route_time_span_csr INTO x_duration;
3936: IF (l_route_time_span_csr%NOTFOUND) THEN
3937: Fnd_Message.Set_Name('AHL', 'AHL_LTP_ROUTE_ID_INVALID');
3938: Fnd_Message.Set_Token('ROUTE_ID', p_route_id);
3939: Fnd_Msg_Pub.ADD;
3940: CLOSE l_route_time_span_csr;
3941: Ahl_Debug_Pub.debug('Invalid route Id: ' || x_duration, 'LTP: Get_Route_Duration');
3942: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4094: -- Get the Calendar code and Shift Num for the department
4095: OPEN l_dept_shift_csr(p_department_id);
4096: FETCH l_dept_shift_csr INTO G_CALENDAR_CODE, G_SHIFT_NUM;
4097: IF (l_dept_shift_csr%NOTFOUND) THEN
4098: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
4099: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4100: Fnd_Msg_Pub.ADD;
4101: CLOSE l_dept_shift_csr;
4102: Ahl_Debug_Pub.debug('No shift/calendar code for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4095: OPEN l_dept_shift_csr(p_department_id);
4096: FETCH l_dept_shift_csr INTO G_CALENDAR_CODE, G_SHIFT_NUM;
4097: IF (l_dept_shift_csr%NOTFOUND) THEN
4098: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
4099: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4100: Fnd_Msg_Pub.ADD;
4101: CLOSE l_dept_shift_csr;
4102: Ahl_Debug_Pub.debug('No shift/calendar code for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4103: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4109: -- Get the calendar start date and the calendar end date
4110: OPEN l_calendar_csr(G_CALENDAR_CODE);
4111: FETCH l_calendar_csr INTO G_CAL_START, G_CAL_END;
4112: IF (l_calendar_csr%NOTFOUND) THEN
4113: Fnd_Message.Set_Name('AHL','AHL_LTP_CAL_CODE_INVALID');
4114: Fnd_Message.Set_Token('CAL_CODE', G_CALENDAR_CODE);
4115: Fnd_Msg_Pub.ADD;
4116: CLOSE l_calendar_csr;
4117: Ahl_Debug_Pub.debug('No BOM_CALENDARS entry for calendar code: ' || G_CALENDAR_CODE, 'LTP: Init_Time_Vars');
4110: OPEN l_calendar_csr(G_CALENDAR_CODE);
4111: FETCH l_calendar_csr INTO G_CAL_START, G_CAL_END;
4112: IF (l_calendar_csr%NOTFOUND) THEN
4113: Fnd_Message.Set_Name('AHL','AHL_LTP_CAL_CODE_INVALID');
4114: Fnd_Message.Set_Token('CAL_CODE', G_CALENDAR_CODE);
4115: Fnd_Msg_Pub.ADD;
4116: CLOSE l_calendar_csr;
4117: Ahl_Debug_Pub.debug('No BOM_CALENDARS entry for calendar code: ' || G_CALENDAR_CODE, 'LTP: Init_Time_Vars');
4118: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4127: -- Get the shift start and shift end times
4128: OPEN l_shift_times_csr(G_CALENDAR_CODE, G_SHIFT_NUM);
4129: FETCH l_shift_times_csr INTO G_SHIFT_START, G_SHIFT_END;
4130: IF (l_shift_times_csr%NOTFOUND) THEN
4131: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
4132: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4133: Fnd_Msg_Pub.ADD;
4134: CLOSE l_shift_times_csr;
4135: Ahl_Debug_Pub.debug('No shift start and end times for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4128: OPEN l_shift_times_csr(G_CALENDAR_CODE, G_SHIFT_NUM);
4129: FETCH l_shift_times_csr INTO G_SHIFT_START, G_SHIFT_END;
4130: IF (l_shift_times_csr%NOTFOUND) THEN
4131: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
4132: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4133: Fnd_Msg_Pub.ADD;
4134: CLOSE l_shift_times_csr;
4135: Ahl_Debug_Pub.debug('No shift start and end times for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4148: -- Get Days On and Days Off
4149: OPEN l_workday_pattern_csr(G_CALENDAR_CODE, G_SHIFT_NUM);
4150: FETCH l_workday_pattern_csr INTO G_DAYS_ON, G_DAYS_OFF;
4151: IF (l_workday_pattern_csr%NOTFOUND) THEN
4152: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_PTRN_FOR_DEPT');
4153: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4154: Fnd_Msg_Pub.ADD;
4155: CLOSE l_workday_pattern_csr;
4156: Ahl_Debug_Pub.debug('No Work Day Pattern for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4149: OPEN l_workday_pattern_csr(G_CALENDAR_CODE, G_SHIFT_NUM);
4150: FETCH l_workday_pattern_csr INTO G_DAYS_ON, G_DAYS_OFF;
4151: IF (l_workday_pattern_csr%NOTFOUND) THEN
4152: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_PTRN_FOR_DEPT');
4153: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4154: Fnd_Msg_Pub.ADD;
4155: CLOSE l_workday_pattern_csr;
4156: Ahl_Debug_Pub.debug('No Work Day Pattern for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4157: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4169: END LOOP;
4170: CLOSE l_exceptions_csr;
4171:
4172: IF (p_visit_start_date IS NULL) THEN
4173: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_DATE_NULL');
4174: Fnd_Msg_Pub.ADD;
4175: Ahl_Debug_Pub.debug('Visit start date is null', 'LTP: Init_Time_Vars');
4176: RAISE Fnd_Api.G_EXC_ERROR;
4177: ELSIF (p_visit_start_date < G_CAL_START OR p_visit_start_date > G_CAL_END) THEN
4174: Fnd_Msg_Pub.ADD;
4175: Ahl_Debug_Pub.debug('Visit start date is null', 'LTP: Init_Time_Vars');
4176: RAISE Fnd_Api.G_EXC_ERROR;
4177: ELSIF (p_visit_start_date < G_CAL_START OR p_visit_start_date > G_CAL_END) THEN
4178: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_DATE_INVALID');
4179: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4180: Fnd_Msg_Pub.ADD;
4181: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is outside calendar range', 'LTP: Init_Time_Vars');
4182: RAISE Fnd_Api.G_EXC_ERROR;
4175: Ahl_Debug_Pub.debug('Visit start date is null', 'LTP: Init_Time_Vars');
4176: RAISE Fnd_Api.G_EXC_ERROR;
4177: ELSIF (p_visit_start_date < G_CAL_START OR p_visit_start_date > G_CAL_END) THEN
4178: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_DATE_INVALID');
4179: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4180: Fnd_Msg_Pub.ADD;
4181: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is outside calendar range', 'LTP: Init_Time_Vars');
4182: RAISE Fnd_Api.G_EXC_ERROR;
4183: END IF;
4205: /* -- Ensure that the visit start date falls on a working day
4206: l_curr_wday_index := MOD((l_visit_start_date - G_CAL_START), (G_DAYS_ON + G_DAYS_OFF)) + 1;
4207: IF (l_curr_wday_index > G_DAYS_ON) THEN
4208: -- Day Off
4209: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_WDATE_INVALID');
4210: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4211: Fnd_Msg_Pub.ADD;
4212: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is not a working day', 'LTP: Init_Time_Vars');
4213: RAISE Fnd_Api.G_EXC_ERROR;
4206: l_curr_wday_index := MOD((l_visit_start_date - G_CAL_START), (G_DAYS_ON + G_DAYS_OFF)) + 1;
4207: IF (l_curr_wday_index > G_DAYS_ON) THEN
4208: -- Day Off
4209: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_WDATE_INVALID');
4210: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4211: Fnd_Msg_Pub.ADD;
4212: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is not a working day', 'LTP: Init_Time_Vars');
4213: RAISE Fnd_Api.G_EXC_ERROR;
4214: ELSE
4214: ELSE
4215: -- Not Day Off: Check if Holiday
4216: IF(IS_DEPT_Holiday(l_visit_start_date)) THEN
4217: -- Holiday
4218: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_WDATE_INVALID');
4219: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4220: Fnd_Msg_Pub.ADD;
4221: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is not a working day', 'LTP: Init_Time_Vars');
4222: RAISE Fnd_Api.G_EXC_ERROR;
4215: -- Not Day Off: Check if Holiday
4216: IF(IS_DEPT_Holiday(l_visit_start_date)) THEN
4217: -- Holiday
4218: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_WDATE_INVALID');
4219: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4220: Fnd_Msg_Pub.ADD;
4221: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is not a working day', 'LTP: Init_Time_Vars');
4222: RAISE Fnd_Api.G_EXC_ERROR;
4223: END IF;
4271: -- Remove calendar range validation to sync with time calculation in VWP
4272: /*
4273: -- Working Day: Check if day is in calendar range
4274: IF(l_curr_day > G_CAL_END) THEN
4275: Fnd_Message.Set_Name('AHL','AHL_LTP_INSUFFICIENT_CAL_RANGE');
4276: Fnd_Msg_Pub.ADD;
4277: Ahl_Debug_Pub.debug('Computed date (' || l_curr_day || ') is outside calendar range', 'LTP: Init_Time_Vars');
4278: RAISE Fnd_Api.G_EXC_ERROR;
4279: END IF;
4360: -- Get Days On and Days Off
4361: OPEN l_shift_details_csr(p_resource_id);
4362: FETCH l_shift_details_csr INTO l_shift_start, l_shift_end;
4363: IF (l_shift_details_csr%NOTFOUND) THEN
4364: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_RSRC');
4365: Fnd_Message.Set_Token('RSRC_ID', p_resource_id);
4366: Fnd_Msg_Pub.ADD;
4367: CLOSE l_shift_details_csr;
4368: Ahl_Debug_Pub.debug('No Shift for Resource: ' || p_resource_id, 'LTP: Resource_In_Duty');
4361: OPEN l_shift_details_csr(p_resource_id);
4362: FETCH l_shift_details_csr INTO l_shift_start, l_shift_end;
4363: IF (l_shift_details_csr%NOTFOUND) THEN
4364: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_RSRC');
4365: Fnd_Message.Set_Token('RSRC_ID', p_resource_id);
4366: Fnd_Msg_Pub.ADD;
4367: CLOSE l_shift_details_csr;
4368: Ahl_Debug_Pub.debug('No Shift for Resource: ' || p_resource_id, 'LTP: Resource_In_Duty');
4369: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4695: --Get available units
4696: OPEN l_get_bom_rsrc_dtls_csr(p_resource_id,p_dept_id);
4697: FETCH l_get_bom_rsrc_dtls_csr INTO l_capacity_units,l_description;
4698: IF l_get_bom_rsrc_dtls_csr%NOTFOUND THEN
4699: Fnd_Message.Set_Name('AHL','AHL_LTP_RES_ID_INVALID');
4700: Fnd_Message.Set_Token('RES_ID', l_description);
4701: Fnd_Msg_Pub.ADD;
4702: END IF;
4703: CLOSE l_get_bom_rsrc_dtls_csr;
4696: OPEN l_get_bom_rsrc_dtls_csr(p_resource_id,p_dept_id);
4697: FETCH l_get_bom_rsrc_dtls_csr INTO l_capacity_units,l_description;
4698: IF l_get_bom_rsrc_dtls_csr%NOTFOUND THEN
4699: Fnd_Message.Set_Name('AHL','AHL_LTP_RES_ID_INVALID');
4700: Fnd_Message.Set_Token('RES_ID', l_description);
4701: Fnd_Msg_Pub.ADD;
4702: END IF;
4703: CLOSE l_get_bom_rsrc_dtls_csr;
4704: Ahl_Debug_Pub.debug('Inside get available l_capacity_units:'||l_capacity_units);