[Home] [Help]
88: IF ( p_workorder_id IS NULL OR
89: p_workorder_id = FND_API.G_MISS_NUM OR
90: p_object_version_no IS NULL OR
91: p_object_version_no = FND_API.G_MISS_NUM ) THEN
92: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
93: FND_MSG_PUB.add;
94: RETURN FND_API.G_RET_STS_ERROR;
95: END IF;
96:
170: x_operation_rec.actual_end_date,
171: x_operation_rec.status_code,
172: x_operation_rec.status;
173: IF(get_op_details%NOTFOUND)THEN
174: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
175: FND_MSG_PUB.add;
176: CLOSE get_op_details;
177: RETURN FND_API.G_RET_STS_ERROR;
178: END IF;
181:
182: IF ( p_object_version_no IS NOT NULL AND
183: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
184: IF ( x_operation_rec.object_version_number <> p_object_version_no ) THEN
185: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
186: FND_MSG_PUB.add;
187: RETURN FND_API.G_RET_STS_ERROR;
188: END IF;
189: END IF;
381: x_workorder_rec.completion_locator_id,
382: l_visit_id,
383: l_visit_task_id;
384: IF(get_wo_dtls_csr%NOTFOUND)THEN
385: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
386: FND_MSG_PUB.add;
387: CLOSE get_wo_dtls_csr;
388: RETURN FND_API.G_RET_STS_ERROR;
389: END IF;
391:
392: IF ( p_object_version_no IS NOT NULL AND
393: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
394: IF ( x_workorder_rec.object_version_number <> p_object_version_no ) THEN
395: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
396: FND_MSG_PUB.add;
397: RETURN FND_API.G_RET_STS_ERROR;
398: END IF;
399: END IF;
436:
437: RETURN FND_API.G_RET_STS_SUCCESS;
438: EXCEPTION
439: WHEN OTHERS THEN
440: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
441: FND_MSG_PUB.add;
442: RETURN FND_API.G_RET_STS_ERROR;
443:
444: END get_workorder_rec;
453: BEGIN
454:
455: IF ( p_actual_start_date IS NULL OR
456: p_actual_end_date IS NULL ) THEN
457: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
458: FND_MSG_PUB.add;
459: RETURN FND_API.G_RET_STS_ERROR;
460: END IF;
461:
459: RETURN FND_API.G_RET_STS_ERROR;
460: END IF;
461:
462: IF ( p_actual_start_date > p_actual_end_date ) THEN
463: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
464: FND_MSG_PUB.add;
465: RETURN FND_API.G_RET_STS_ERROR;
466: END IF;
467:
465: RETURN FND_API.G_RET_STS_ERROR;
466: END IF;
467:
468: IF ( p_actual_end_date > SYSDATE ) THEN
469: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
470: FND_MSG_PUB.add;
471: RETURN FND_API.G_RET_STS_ERROR;
472: END IF;
473:
507: FETCH get_min_period
508: INTO l_period_start_date;
509:
510: IF ( get_min_period%NOTFOUND ) THEN
511: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACCT_PERIOD' );
512: FND_MSG_PUB.add;
513: CLOSE get_min_period;
514: RETURN FND_API.G_RET_STS_ERROR;
515: END IF;
514: RETURN FND_API.G_RET_STS_ERROR;
515: END IF;
516:
517: IF ( l_period_start_date > p_actual_start_date ) THEN
518: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_LESS_ACCT_PERIOD' );
519: FND_MSG_PUB.add;
520: CLOSE get_min_period;
521: RETURN FND_API.G_RET_STS_ERROR;
522: END IF;
527: FETCH get_max_period
528: INTO l_schedule_close_date;
529:
530: IF ( get_max_period%NOTFOUND ) THEN
531: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACT_PERIOD' );
532: FND_MSG_PUB.add;
533: CLOSE get_max_period;
534: RETURN FND_API.G_RET_STS_ERROR;
535: END IF;
534: RETURN FND_API.G_RET_STS_ERROR;
535: END IF;
536:
537: IF ( l_schedule_close_date < p_actual_end_date ) THEN
538: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_LESS_ACT_PERIOD' );
539: FND_MSG_PUB.add;
540: CLOSE get_max_period;
541: RETURN FND_API.G_RET_STS_ERROR;
542: END IF;
598: -- Operation status
599: IF ( p_char_id = 125 AND
600: ( l_result_column_value IS NULL OR
601: l_result_column_value <> G_OP_STATUS_COMPLETE ) ) THEN
602: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
603: FND_MSG_PUB.add;
604: RETURN FND_API.G_RET_STS_ERROR;
605:
606: -- Workorder status
606: -- Workorder status
607: ELSIF ( p_char_id = 98 AND
608: ( l_result_column_value IS NULL OR
609: l_result_column_value <> G_JOB_STATUS_COMPLETE ) ) THEN
610: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
611: FND_MSG_PUB.add;
612: RETURN FND_API.G_RET_STS_ERROR;
613: END IF;
614: END IF;
641:
642: IF ( get_ahl_txn_rec%FOUND ) THEN
643: -- Ensure that the Actual End date is greater than the last Transaction Date
644: IF ( l_transaction_date > p_actual_end_date ) THEN
645: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_TXNDT' );
646: FND_MSG_PUB.add;
647: CLOSE get_ahl_txn_rec;
648: RETURN FND_API.G_RET_STS_ERROR;
649: END IF;
687: IF ( get_eam_txn_rec%FOUND ) THEN
688:
689: -- Ensure that the Transaction Type is not COMPLETE.
690: IF ( l_transaction_type = 1 ) THEN
691: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_COMP_IN_EAM' );
692: FND_MSG_PUB.add;
693: CLOSE get_eam_txn_rec;
694: RETURN FND_API.G_RET_STS_ERROR;
695: END IF;
695: END IF;
696:
697: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
698: IF ( l_transaction_date > p_actual_end_date ) THEN
699: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_EAM_TXNDT' );
700: FND_MSG_PUB.add;
701: CLOSE get_eam_txn_rec;
702: RETURN FND_API.G_RET_STS_ERROR;
703: END IF;
864:
865: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
866:
867: IF ( l_msg_data IS NULL ) THEN
868: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
869: FND_MSG_PUB.add;
870: ELSE
871: -- Parse the Encoded message returned by the EAM API
872: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
868: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
869: FND_MSG_PUB.add;
870: ELSE
871: -- Parse the Encoded message returned by the EAM API
872: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
873: FND_MESSAGE.set_name( l_app_name, l_msg_name );
874: FND_MSG_PUB.add;
875: END IF;
876:
869: FND_MSG_PUB.add;
870: ELSE
871: -- Parse the Encoded message returned by the EAM API
872: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
873: FND_MESSAGE.set_name( l_app_name, l_msg_name );
874: FND_MSG_PUB.add;
875: END IF;
876:
877: RETURN FND_API.G_RET_STS_ERROR;
876:
877: RETURN FND_API.G_RET_STS_ERROR;
878:
879: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
880: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
881: FND_MSG_PUB.add;
882: RETURN FND_API.G_RET_STS_ERROR;
883: END IF;
884:
976: WHERE workorder_id = p_workorder_rec.workorder_id
977: AND object_version_number = p_workorder_rec.object_version_number;
978:
979: IF ( SQL%ROWCOUNT = 0 ) THEN
980: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
981: FND_MSG_PUB.add;
982: RETURN FND_API.G_RET_STS_ERROR;
983: END IF;
984:
1018: IF ( p_workorder_operation_id IS NULL OR
1019: p_workorder_operation_id = FND_API.G_MISS_NUM OR
1020: p_object_version_no IS NULL OR
1021: p_object_version_no = FND_API.G_MISS_NUM ) THEN
1022: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
1023: FND_MSG_PUB.add;
1024: RETURN FND_API.G_RET_STS_ERROR;
1025: END IF;
1026:
1051: IF ( get_ahl_txn_rec%FOUND ) THEN
1052:
1053: -- Ensure that the Actual End date is greater than the last Transaction Date
1054: IF ( l_transaction_date > p_actual_end_date ) THEN
1055: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_TXNDT' );
1056: FND_MSG_PUB.add;
1057: CLOSE get_ahl_txn_rec;
1058: RETURN FND_API.G_RET_STS_ERROR;
1059: END IF;
1099: IF ( get_eam_txn_rec%FOUND ) THEN
1100:
1101: -- Ensure that the Transaction Type is not COMPLETE.
1102: IF ( l_transaction_type = 1 ) THEN
1103: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_COMP_IN_EAM' );
1104: FND_MSG_PUB.add;
1105: CLOSE get_eam_txn_rec;
1106: RETURN FND_API.G_RET_STS_ERROR;
1107: END IF;
1107: END IF;
1108:
1109: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1110: IF ( l_transaction_date > p_actual_end_date ) THEN
1111: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_EAM_TXNDT' );
1112: FND_MSG_PUB.add;
1113: CLOSE get_eam_txn_rec;
1114: RETURN FND_API.G_RET_STS_ERROR;
1115: END IF;
1137:
1138: BEGIN
1139:
1140: IF ( p_operation_rec.description IS NULL ) THEN
1141: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DESC_NULL' );
1142: FND_MSG_PUB.add;
1143: RETURN FND_API.G_RET_STS_ERROR;
1144: END IF;
1145:
1147: -- ACL Changes
1148: IF p_check_unit = FND_API.G_TRUE THEN
1149: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1150: IF l_return_status = FND_API.G_TRUE THEN
1151: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1152: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1153: FND_MSG_PUB.ADD;
1154: RETURN FND_API.G_RET_STS_ERROR;
1155: END IF;
1148: IF p_check_unit = FND_API.G_TRUE THEN
1149: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1150: IF l_return_status = FND_API.G_TRUE THEN
1151: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1152: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1153: FND_MSG_PUB.ADD;
1154: RETURN FND_API.G_RET_STS_ERROR;
1155: END IF;
1156: END IF;
1186: WHERE lookup_type = 'AHL_OPERATION_STATUS'
1187: AND lookup_code = p_operation_rec.status_code;
1188: */
1189: --
1190: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_STATUS' );
1191: FND_MESSAGE.set_token( 'STATUS', l_op_status_meaning );
1192: FND_MSG_PUB.add;
1193: RETURN FND_API.G_RET_STS_ERROR;
1194: END IF;
1187: AND lookup_code = p_operation_rec.status_code;
1188: */
1189: --
1190: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_STATUS' );
1191: FND_MESSAGE.set_token( 'STATUS', l_op_status_meaning );
1192: FND_MSG_PUB.add;
1193: RETURN FND_API.G_RET_STS_ERROR;
1194: END IF;
1195:
1194: END IF;
1195:
1196: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1197: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1198: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_ST_DT' );
1199: FND_MSG_PUB.add;
1200: RETURN FND_API.G_RET_STS_ERROR;
1201: END IF;
1202:
1200: RETURN FND_API.G_RET_STS_ERROR;
1201: END IF;
1202:
1203: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1204: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_END_DT' );
1205: FND_MSG_PUB.add;
1206: RETURN FND_API.G_RET_STS_ERROR;
1207: END IF;
1208: END IF;
1224: WHERE lookup_type = 'AHL_JOB_STATUS'
1225: AND lookup_code = p_workorder_rec.status_code;
1226: */
1227:
1228: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_WO_STATUS' );
1229: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1230: FND_MSG_PUB.add;
1231: RETURN FND_API.G_RET_STS_ERROR;
1232: END IF;
1225: AND lookup_code = p_workorder_rec.status_code;
1226: */
1227:
1228: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_WO_STATUS' );
1229: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1230: FND_MSG_PUB.add;
1231: RETURN FND_API.G_RET_STS_ERROR;
1232: END IF;
1233:
1251: p_operation_rec.collection_id IS NULL ) THEN
1252: OPEN is_qa_coll_reqd(p_operation_rec.plan_id);
1253: FETCH is_qa_coll_reqd INTO l_junk;
1254: IF(is_qa_coll_reqd%FOUND) THEN
1255: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_NO_QA_RESULTS' );
1256: FND_MSG_PUB.add;
1257: CLOSE is_qa_coll_reqd;
1258: RETURN FND_API.G_RET_STS_ERROR;
1259: END IF;
1331: );
1332:
1333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1334: IF ( l_msg_data IS NOT NULL ) THEN
1335: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1336: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1337: FND_MSG_PUB.add;
1338: END IF;
1339: RETURN FND_API.G_RET_STS_ERROR;
1332:
1333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1334: IF ( l_msg_data IS NOT NULL ) THEN
1335: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1336: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1337: FND_MSG_PUB.add;
1338: END IF;
1339: RETURN FND_API.G_RET_STS_ERROR;
1340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1337: FND_MSG_PUB.add;
1338: END IF;
1339: RETURN FND_API.G_RET_STS_ERROR;
1340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1341: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1342: FND_MSG_PUB.add;
1343: RETURN FND_API.G_RET_STS_ERROR;
1344: END IF;
1345:
1425: WHERE workorder_operation_id = p_operation_rec.workorder_operation_id
1426: AND object_version_number = p_operation_rec.object_version_number;
1427:
1428: IF ( SQL%ROWCOUNT = 0 ) THEN
1429: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
1430: FND_MSG_PUB.add;
1431: RETURN FND_API.G_RET_STS_ERROR;
1432: END IF;
1433:
1475: END LOOP;
1476:
1477: /*
1478: IF ( x_operation_tbl.COUNT = 0 ) THEN
1479: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_WO_OPERATIONS' );
1480: FND_MSG_PUB.add;
1481: RETURN FND_API.G_RET_STS_ERROR;
1482: END IF;
1483: */
1526: -- bug no 3942950
1527:
1528: /*IF ( p_workorder_rec.plan_id IS NOT NULL AND
1529: p_workorder_rec.collection_id IS NULL ) THEN
1530: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1531: FND_MSG_PUB.add;
1532: RETURN FND_API.G_RET_STS_ERROR;
1533: END IF;
1534: */
1587: -- ACL Changes
1588: IF p_check_unit = FND_API.G_TRUE THEN
1589: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1590: IF l_return_status = FND_API.G_TRUE THEN
1591: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1592: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1593: FND_MSG_PUB.ADD;
1594: RETURN FND_API.G_RET_STS_ERROR;
1595: END IF;
1588: IF p_check_unit = FND_API.G_TRUE THEN
1589: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1590: IF l_return_status = FND_API.G_TRUE THEN
1591: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1592: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1593: FND_MSG_PUB.ADD;
1594: RETURN FND_API.G_RET_STS_ERROR;
1595: END IF;
1596: END IF;
1611: p_workorder_rec.collection_id IS NULL ) THEN
1612: OPEN is_qa_coll_reqd(p_workorder_rec.plan_id);
1613: FETCH is_qa_coll_reqd INTO l_junk;
1614: IF(is_qa_coll_reqd%FOUND) THEN
1615: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1616: FND_MSG_PUB.add;
1617: CLOSE is_qa_coll_reqd;
1618: RETURN FND_API.G_RET_STS_ERROR;
1619: END IF;
1634: FROM fnd_lookup_values_vl
1635: WHERE lookup_type = 'AHL_JOB_STATUS'
1636: AND lookup_code = p_workorder_rec.status_code;
1637: */
1638: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1639: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1640: FND_MSG_PUB.add;
1641: RETURN FND_API.G_RET_STS_ERROR;
1642: END IF;
1635: WHERE lookup_type = 'AHL_JOB_STATUS'
1636: AND lookup_code = p_workorder_rec.status_code;
1637: */
1638: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1639: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1640: FND_MSG_PUB.add;
1641: RETURN FND_API.G_RET_STS_ERROR;
1642: END IF;
1643:
1644: IF ( p_operation_tbl.COUNT > 0 ) THEN
1645: FOR i IN 1..p_operation_tbl.COUNT LOOP
1646: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1647: IF ( p_workorder_rec.actual_start_date > p_operation_tbl(i).actual_start_date ) THEN
1648: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1649: FND_MSG_PUB.add;
1650: RETURN FND_API.G_RET_STS_ERROR;
1651: END IF;
1652:
1650: RETURN FND_API.G_RET_STS_ERROR;
1651: END IF;
1652:
1653: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1654: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1655: FND_MSG_PUB.add;
1656: RETURN FND_API.G_RET_STS_ERROR;
1657: END IF;
1658: END IF;
1657: END IF;
1658: END IF;
1659:
1660: IF ( p_operation_tbl(i).status_code <> G_OP_STATUS_COMPLETE ) THEN
1661: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_OP_STATUS' );
1662: FND_MSG_PUB.add;
1663: RETURN FND_API.G_RET_STS_ERROR;
1664: END IF;
1665:
1681: IF ( parent_csr.status_code <> G_JOB_STATUS_COMPLETE AND
1682: parent_csr.status_code <> G_JOB_STATUS_COMPLETE_NC AND
1683: parent_csr.status_code <> G_JOB_STATUS_CLOSED AND
1684: parent_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
1685: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PRIOR_WO_NOT_COMPLETE' );
1686: FND_MESSAGE.set_token( 'WO_NAME', parent_csr.workorder_name );
1687: FND_MSG_PUB.add;
1688: RETURN FND_API.G_RET_STS_ERROR;
1689: END IF;
1682: parent_csr.status_code <> G_JOB_STATUS_COMPLETE_NC AND
1683: parent_csr.status_code <> G_JOB_STATUS_CLOSED AND
1684: parent_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
1685: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PRIOR_WO_NOT_COMPLETE' );
1686: FND_MESSAGE.set_token( 'WO_NAME', parent_csr.workorder_name );
1687: FND_MSG_PUB.add;
1688: RETURN FND_API.G_RET_STS_ERROR;
1689: END IF;
1690: END LOOP;
1706: --rroy
1707: -- ACL Changes
1708: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1709: IF l_return_status = FND_API.G_TRUE THEN
1710: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_DEFF_UNTLCKD');
1711: FND_MSG_PUB.ADD;
1712: RETURN FND_API.G_RET_STS_ERROR;
1713: END IF;
1714: --rroy
1736: FROM fnd_lookup_values_vl
1737: WHERE lookup_type = 'AHL_JOB_STATUS'
1738: AND lookup_code = p_workorder_rec.status_code;
1739: */
1740: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1741: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1742: FND_MSG_PUB.add;
1743: RETURN FND_API.G_RET_STS_ERROR;
1744: END IF;
1737: WHERE lookup_type = 'AHL_JOB_STATUS'
1738: AND lookup_code = p_workorder_rec.status_code;
1739: */
1740: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1741: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1742: FND_MSG_PUB.add;
1743: RETURN FND_API.G_RET_STS_ERROR;
1744: END IF;
1745:
1766: p_mr_rec.unit_effectivity_id IS NULL OR
1767: p_mr_rec.ue_object_version_no = FND_API.G_MISS_NUM OR
1768: p_mr_rec.ue_object_version_no IS NULL
1769: ) THEN
1770: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1771: FND_MSG_PUB.add;
1772: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1773: END IF;
1774: RETURN FND_API.G_RET_STS_SUCCESS;
1903:
1904: BEGIN
1905:
1906: IF (p_mr_status_code <> G_MR_STATUS_JOBS_COMPLETE) THEN
1907: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1908: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1909: FND_MESSAGE.set_token( 'STATUS', p_mr_status);
1910: FND_MSG_PUB.add;
1911: RETURN FND_API.G_RET_STS_ERROR;
1904: BEGIN
1905:
1906: IF (p_mr_status_code <> G_MR_STATUS_JOBS_COMPLETE) THEN
1907: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1908: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1909: FND_MESSAGE.set_token( 'STATUS', p_mr_status);
1910: FND_MSG_PUB.add;
1911: RETURN FND_API.G_RET_STS_ERROR;
1912: END IF;
1905:
1906: IF (p_mr_status_code <> G_MR_STATUS_JOBS_COMPLETE) THEN
1907: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1908: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1909: FND_MESSAGE.set_token( 'STATUS', p_mr_status);
1910: FND_MSG_PUB.add;
1911: RETURN FND_API.G_RET_STS_ERROR;
1912: END IF;
1913:
1933: BEGIN
1934:
1935: -- Validate Status
1936: IF p_status_code IN (G_MR_STATUS_DEFERRAL_PENDING,G_MR_STATUS_CANCEL_PENDING) THEN
1937: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1938: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title );
1939: FND_MESSAGE.set_token( 'STATUS', NVL( p_status, p_status_code ) );
1940: FND_MSG_PUB.add;
1941: END IF;
1934:
1935: -- Validate Status
1936: IF p_status_code IN (G_MR_STATUS_DEFERRAL_PENDING,G_MR_STATUS_CANCEL_PENDING) THEN
1937: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1938: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title );
1939: FND_MESSAGE.set_token( 'STATUS', NVL( p_status, p_status_code ) );
1940: FND_MSG_PUB.add;
1941: END IF;
1942:
1935: -- Validate Status
1936: IF p_status_code IN (G_MR_STATUS_DEFERRAL_PENDING,G_MR_STATUS_CANCEL_PENDING) THEN
1937: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1938: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title );
1939: FND_MESSAGE.set_token( 'STATUS', NVL( p_status, p_status_code ) );
1940: FND_MSG_PUB.add;
1941: END IF;
1942:
1943: -- Check if inspection type is not null then plan id is also not null
1951: AND p_status_code <> G_MR_STATUS_TERMINATED
1952: AND p_status_code <> G_MR_STATUS_CANCELLED
1953: ) THEN
1954: IF (p_qa_plan_id IS NULL) THEN
1955: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_PLAN_ID_NULL' );
1956: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1957: FND_MESSAGE.set_token( 'INSP_TYPE', p_qa_inspection_type );
1958: FND_MSG_PUB.add;
1959: RETURN FND_API.G_RET_STS_ERROR;
1952: AND p_status_code <> G_MR_STATUS_CANCELLED
1953: ) THEN
1954: IF (p_qa_plan_id IS NULL) THEN
1955: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_PLAN_ID_NULL' );
1956: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1957: FND_MESSAGE.set_token( 'INSP_TYPE', p_qa_inspection_type );
1958: FND_MSG_PUB.add;
1959: RETURN FND_API.G_RET_STS_ERROR;
1960: END IF;
1953: ) THEN
1954: IF (p_qa_plan_id IS NULL) THEN
1955: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_PLAN_ID_NULL' );
1956: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1957: FND_MESSAGE.set_token( 'INSP_TYPE', p_qa_inspection_type );
1958: FND_MSG_PUB.add;
1959: RETURN FND_API.G_RET_STS_ERROR;
1960: END IF;
1961: END IF;
1972: IF (p_qa_collection_id IS NULL) THEN
1973: OPEN is_qa_coll_reqd(p_qa_plan_id);
1974: FETCH is_qa_coll_reqd INTO l_junk;
1975: IF(is_qa_coll_reqd%FOUND) THEN
1976: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_COL_ID_NULL' );
1977: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1978: FND_MSG_PUB.add;
1979: CLOSE is_qa_coll_reqd;
1980: RETURN FND_API.G_RET_STS_ERROR;
1973: OPEN is_qa_coll_reqd(p_qa_plan_id);
1974: FETCH is_qa_coll_reqd INTO l_junk;
1975: IF(is_qa_coll_reqd%FOUND) THEN
1976: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_COL_ID_NULL' );
1977: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1978: FND_MSG_PUB.add;
1979: CLOSE is_qa_coll_reqd;
1980: RETURN FND_API.G_RET_STS_ERROR;
1981: END IF;
2040: NVL(mr_cursor.status_code,'X') <> G_MR_STATUS_TERMINATED AND
2041: NVL(mr_cursor.status_code,'X') <> G_MR_STATUS_CANCELLED AND
2042: NVL(mr_cursor.status_code,'X') <> G_MR_STATUS_MR_TERMINATED
2043: ) THEN
2044: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
2045: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_rec.mr_title);
2046: FND_MSG_PUB.add;
2047: RETURN FND_API.G_RET_STS_ERROR;
2048: END IF;
2041: NVL(mr_cursor.status_code,'X') <> G_MR_STATUS_CANCELLED AND
2042: NVL(mr_cursor.status_code,'X') <> G_MR_STATUS_MR_TERMINATED
2043: ) THEN
2044: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
2045: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_rec.mr_title);
2046: FND_MSG_PUB.add;
2047: RETURN FND_API.G_RET_STS_ERROR;
2048: END IF;
2049:
2189: END LOOP;
2190:
2191: /* Removed for Bug 3310304
2192: IF ( x_counter_tbl.COUNT < 1 ) THEN
2193: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_CTRS_FOR_MR' );
2194: FND_MSG_PUB.add;
2195: RETURN FND_API.G_RET_STS_ERROR;
2196: END IF;
2197: */
2389: IF (get_readings%NOTFOUND) THEN
2390:
2391: -- Bug # 6750836 -- start
2392: --x_counter_tbl( l_ctr_count ).counter_reading := 0;
2393: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CN_RESET_ERROR' );
2394: FND_MSG_PUB.add;
2395: RETURN FND_API.G_RET_STS_ERROR;
2396: -- Bug # 6750836 -- end
2397:
2501: x_msg_data => l_msg_data
2502: );
2503: EXCEPTION
2504: WHEN OTHERS THEN
2505: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2506: FND_MSG_PUB.add;
2507: RETURN FND_API.G_RET_STS_ERROR;
2508: END;
2509:
2508: END;
2509:
2510: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2511: IF ( l_msg_data IS NULL ) THEN
2512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2513: FND_MSG_PUB.add;
2514: ELSE
2515: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2516: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2511: IF ( l_msg_data IS NULL ) THEN
2512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2513: FND_MSG_PUB.add;
2514: ELSE
2515: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2516: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2517: FND_MSG_PUB.add;
2518: END IF;
2519: RETURN FND_API.G_RET_STS_ERROR;
2512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2513: FND_MSG_PUB.add;
2514: ELSE
2515: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2516: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2517: FND_MSG_PUB.add;
2518: END IF;
2519: RETURN FND_API.G_RET_STS_ERROR;
2520: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2517: FND_MSG_PUB.add;
2518: END IF;
2519: RETURN FND_API.G_RET_STS_ERROR;
2520: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2521: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2522: FND_MSG_PUB.add;
2523: RETURN FND_API.G_RET_STS_ERROR;
2524: END IF;
2525:
2617: );
2618:
2619: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2620: IF ( l_msg_data IS NULL ) THEN
2621: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2622: FND_MSG_PUB.add;
2623: ELSE
2624: x_msg_count := l_msg_count;
2625: x_msg_data := l_msg_data;
2626: END IF;
2627: RETURN FND_API.G_RET_STS_ERROR;
2628: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2629: IF ( l_msg_data IS NULL ) THEN
2630: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2631: FND_MSG_PUB.add;
2632: ELSE
2633: x_msg_count := l_msg_count;
2634: x_msg_data := l_msg_data;
2896: OPEN get_op_details(p_workorder_operation_id);
2897: FETCH get_op_details INTO l_workorder_id, l_operation_seq_num, l_actual_start_date, l_actual_end_date;
2898: IF get_op_details%NOTFOUND THEN
2899: CLOSE get_op_details;
2900: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2901: FND_MSG_PUB.add;
2902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2903: END IF;
2904: CLOSE get_op_details;
2910: x_msg_count => l_msg_count,
2911: x_msg_data => l_msg_data,
2912: p_x_operation_tbl => l_operation_tbl);
2913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2914: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2915: FND_MSG_PUB.add;
2916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2917: END IF;
2918:
2924: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
2925: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
2926: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2927: IF SQL%ROWCOUNT = 0 THEN
2928: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2929: FND_MSG_PUB.add;
2930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2931: END IF;
2932: END IF; -- IF l_actual_start_date IS NULL THEN
2937: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
2938: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
2939: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2940: IF SQL%ROWCOUNT = 0 THEN
2941: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2942: FND_MSG_PUB.add;
2943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2944: END IF;
2945: END IF; -- IF l_actual_end_date IS NULL THEN
3319: OPEN get_wo_dates(p_workorder_id);
3320: FETCH get_wo_dates INTO l_actual_start_date, l_actual_end_date, l_wo_name;
3321: IF get_wo_dates%NOTFOUND THEN
3322: CLOSE get_wo_dates;
3323: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3324: -- Error defaulting the actual dates for workorder WO_NAME before completion.
3325: -- Do we raise an error for this or just ignore the error since this is defaulting code?
3326: -- Check during UTs
3327: FND_MSG_PUB.add;
3333: x_return_status => l_return_status,
3334: x_actual_start_date => l_def_actual_start_date,
3335: x_actual_end_date => l_def_actual_end_date);
3336: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
3337: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3338: FND_MSG_PUB.add;
3339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3340: END IF;
3341: /* Start ER # 4757222 */
3384: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
3385: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
3386: WHERE WORKORDER_ID = p_workorder_id;
3387: IF SQL%ROWCOUNT = 0 THEN
3388: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3389: FND_MSG_PUB.add;
3390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3391: END IF;
3392: END IF;-- IF l_actual_start_date IS NULL THEN
3399: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
3400: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
3401: WHERE WORKORDER_ID = p_workorder_id;
3402: IF SQL%ROWCOUNT = 0 THEN
3403: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3404: FND_MSG_PUB.add;
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF;
3407: END IF; -- IF l_actual_end_date IS NULL THEN
4345: q_msg_data => l_msg_data
4346: );
4347:
4348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4349: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4350: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4351: FND_MSG_PUB.add;
4352: RAISE FND_API.G_EXC_ERROR;
4353: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4346: );
4347:
4348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4349: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4350: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4351: FND_MSG_PUB.add;
4352: RAISE FND_API.G_EXC_ERROR;
4353: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4965: IF ( p_signoff_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
4966: p_signoff_mr_rec.unit_effectivity_id IS NULL OR
4967: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4968: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4969: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4970: FND_MSG_PUB.add;
4971: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4972: END IF;
4973:
4974: IF ( p_signoff_mr_rec.signoff_child_mrs_flag IS NULL OR
4975: p_signoff_mr_rec.signoff_child_mrs_flag = FND_API.G_MISS_CHAR OR
4976: ( p_signoff_mr_rec.signoff_child_mrs_flag <> 'Y' AND
4977: p_signoff_mr_rec.signoff_child_mrs_flag <> 'N' ) ) THEN
4978: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4979: FND_MSG_PUB.add;
4980: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4981: END IF;
4982:
4983: IF ( p_signoff_mr_rec.complete_job_ops_flag IS NULL OR
4984: p_signoff_mr_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4985: ( p_signoff_mr_rec.complete_job_ops_flag <> 'Y' AND
4986: p_signoff_mr_rec.complete_job_ops_flag <> 'N' ) ) THEN
4987: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4988: FND_MSG_PUB.add;
4989: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4990: END IF;
4991:
4992: IF ( p_signoff_mr_rec.transact_resource_flag IS NULL OR
4993: p_signoff_mr_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4994: ( p_signoff_mr_rec.transact_resource_flag <> 'Y' AND
4995: p_signoff_mr_rec.transact_resource_flag <> 'N' ) ) THEN
4996: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4997: FND_MSG_PUB.add;
4998: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4999: END IF;
5000:
5002: ( p_signoff_mr_rec.default_actual_dates_flag IS NULL OR
5003: p_signoff_mr_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
5004: ( p_signoff_mr_rec.default_actual_dates_flag <> 'Y' AND
5005: p_signoff_mr_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
5006: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
5007: FND_MSG_PUB.add;
5008: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5009: END IF;
5010:
5013: IF ( p_signoff_mr_rec.wo_comp_dates_flag IS NULL OR
5014: p_signoff_mr_rec.wo_comp_dates_flag = FND_API.G_MISS_CHAR OR
5015: ( p_signoff_mr_rec.wo_comp_dates_flag <> 'Y' AND
5016: p_signoff_mr_rec.wo_comp_dates_flag <> 'N' ) ) THEN
5017: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OVER_WRIT_DTS_FLAG' );
5018: FND_MSG_PUB.add;
5019: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5020: END IF;
5021:
5022: IF ( p_signoff_mr_rec.wo_childmr_dates_flag IS NULL OR
5023: p_signoff_mr_rec.wo_childmr_dates_flag = FND_API.G_MISS_CHAR OR
5024: ( p_signoff_mr_rec.wo_childmr_dates_flag <> 'Y' AND
5025: p_signoff_mr_rec.wo_childmr_dates_flag <> 'N' ) ) THEN
5026: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UPD_CLD_MR_DTS_FLAG' );
5027: FND_MSG_PUB.add;
5028: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5029: END IF;
5030:
5034: ( p_signoff_mr_rec.employee_number IS NULL OR
5035: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5036: ( p_signoff_mr_rec.serial_number IS NULL OR
5037: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5038: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5039: FND_MSG_PUB.add;
5040: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5041: END IF;
5042:
5045: ( p_signoff_mr_rec.actual_start_date IS NULL OR
5046: p_signoff_mr_rec.actual_start_date = FND_API.G_MISS_DATE OR
5047: p_signoff_mr_rec.actual_end_date IS NULL OR
5048: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5049: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5050: FND_MSG_PUB.add;
5051: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5052: END IF;
5053:
5053:
5054: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5055: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5056: p_signoff_mr_rec.actual_end_date < p_signoff_mr_rec.actual_start_date ) THEN
5057: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
5058: FND_MSG_PUB.add;
5059: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5060: END IF;
5061:
5061:
5062: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5063: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5064: p_signoff_mr_rec.actual_end_date > SYSDATE ) THEN
5065: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
5066: FND_MSG_PUB.add;
5067: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5068: END IF;
5069:
5108: IF ( p_close_visit_rec.visit_id = FND_API.G_MISS_NUM OR
5109: p_close_visit_rec.visit_id IS NULL OR
5110: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
5111: p_close_visit_rec.object_version_number IS NULL ) THEN
5112: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
5113: FND_MSG_PUB.add;
5114: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5115: END IF;
5116:
5121: IF l_return_status = FND_API.G_TRUE THEN
5122: OPEN get_ue_title(wo_details.workorder_id);
5123: FETCH get_ue_title INTO l_ue_title;
5124: CLOSE get_ue_title;
5125: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
5126: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
5127: FND_MSG_PUB.ADD;
5128: RETURN FND_API.G_RET_STS_ERROR;
5129: END IF;
5122: OPEN get_ue_title(wo_details.workorder_id);
5123: FETCH get_ue_title INTO l_ue_title;
5124: CLOSE get_ue_title;
5125: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
5126: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
5127: FND_MSG_PUB.ADD;
5128: RETURN FND_API.G_RET_STS_ERROR;
5129: END IF;
5130: END LOOP;
5135: IF ( p_close_visit_rec.signoff_mrs_flag IS NULL OR
5136: p_close_visit_rec.signoff_mrs_flag = FND_API.G_MISS_CHAR OR
5137: ( p_close_visit_rec.signoff_mrs_flag <> 'Y' AND
5138: p_close_visit_rec.signoff_mrs_flag <> 'N' ) ) THEN
5139: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
5140: FND_MSG_PUB.add;
5141: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5142: END IF;
5143:
5144: IF ( p_close_visit_rec.complete_job_ops_flag IS NULL OR
5145: p_close_visit_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
5146: ( p_close_visit_rec.complete_job_ops_flag <> 'Y' AND
5147: p_close_visit_rec.complete_job_ops_flag <> 'N' ) ) THEN
5148: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
5149: FND_MSG_PUB.add;
5150: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5151: END IF;
5152:
5153: IF ( p_close_visit_rec.transact_resource_flag IS NULL OR
5154: p_close_visit_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
5155: ( p_close_visit_rec.transact_resource_flag <> 'Y' AND
5156: p_close_visit_rec.transact_resource_flag <> 'N' ) ) THEN
5157: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
5158: FND_MSG_PUB.add;
5159: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5160: END IF;
5161:
5163: ( p_close_visit_rec.default_actual_dates_flag IS NULL OR
5164: p_close_visit_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
5165: ( p_close_visit_rec.default_actual_dates_flag <> 'Y' AND
5166: p_close_visit_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
5167: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
5168: FND_MSG_PUB.add;
5169: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5170: END IF;
5171:
5173: ( p_close_visit_rec.employee_number IS NULL OR
5174: p_close_visit_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5175: ( p_close_visit_rec.serial_number IS NULL OR
5176: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5177: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5178: FND_MSG_PUB.add;
5179: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5180: END IF;
5181:
5184: IF ( p_close_visit_rec.wo_comp_dates_flag IS NULL OR
5185: p_close_visit_rec.wo_comp_dates_flag = FND_API.G_MISS_CHAR OR
5186: ( p_close_visit_rec.wo_comp_dates_flag <> 'Y' AND
5187: p_close_visit_rec.wo_comp_dates_flag <> 'N' ) ) THEN
5188: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OVER_WRIT_DTS_FLAG' );
5189: FND_MSG_PUB.add;
5190: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5191: END IF;
5192:
5193: IF ( p_close_visit_rec.wo_childmr_dates_flag IS NULL OR
5194: p_close_visit_rec.wo_childmr_dates_flag = FND_API.G_MISS_CHAR OR
5195: ( p_close_visit_rec.wo_childmr_dates_flag <> 'Y' AND
5196: p_close_visit_rec.wo_childmr_dates_flag <> 'N' ) ) THEN
5197: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UPD_CLD_MR_DTS_FLAG' );
5198: FND_MSG_PUB.add;
5199: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5200: END IF;
5201:
5206: ( p_close_visit_rec.actual_start_date IS NULL OR
5207: p_close_visit_rec.actual_start_date = FND_API.G_MISS_DATE OR
5208: p_close_visit_rec.actual_end_date IS NULL OR
5209: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5210: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5211: FND_MSG_PUB.add;
5212: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5213: END IF;
5214:
5214:
5215: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5216: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5217: p_close_visit_rec.actual_end_date < p_close_visit_rec.actual_start_date ) THEN
5218: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
5219: FND_MSG_PUB.add;
5220: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5221: END IF;
5222:
5222:
5223: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5224: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5225: p_close_visit_rec.actual_end_date > SYSDATE ) THEN
5226: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
5227: FND_MSG_PUB.add;
5228: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5229: END IF;
5230:
5336: -- Ensure that the actual start date entered is less than the Master Wo
5337: /*Start ER # 4757222
5338: IF ( p_actual_start_date IS NOT NULL AND
5339: l_workorder_tbl(l_ctr).actual_start_date < p_actual_start_date ) THEN
5340: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
5341: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5342: FND_MESSAGE.set_token( 'START_DT',
5343: TO_CHAR( l_workorder_tbl(l_ctr).actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5344: FND_MSG_PUB.add;
5337: /*Start ER # 4757222
5338: IF ( p_actual_start_date IS NOT NULL AND
5339: l_workorder_tbl(l_ctr).actual_start_date < p_actual_start_date ) THEN
5340: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
5341: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5342: FND_MESSAGE.set_token( 'START_DT',
5343: TO_CHAR( l_workorder_tbl(l_ctr).actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5344: FND_MSG_PUB.add;
5345: RAISE FND_API.G_EXC_ERROR;
5338: IF ( p_actual_start_date IS NOT NULL AND
5339: l_workorder_tbl(l_ctr).actual_start_date < p_actual_start_date ) THEN
5340: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
5341: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5342: FND_MESSAGE.set_token( 'START_DT',
5343: TO_CHAR( l_workorder_tbl(l_ctr).actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5344: FND_MSG_PUB.add;
5345: RAISE FND_API.G_EXC_ERROR;
5346: END IF;
5347:
5348: -- Ensure the actual end date entered is greater than the Master Wo
5349: IF ( p_actual_end_date IS NOT NULL AND
5350: l_workorder_tbl(l_ctr).actual_end_date > p_actual_end_date ) THEN
5351: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
5352: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5353: FND_MESSAGE.set_token( 'END_DT',
5354: TO_CHAR( l_workorder_tbl(l_ctr).actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5355: FND_MSG_PUB.add;
5348: -- Ensure the actual end date entered is greater than the Master Wo
5349: IF ( p_actual_end_date IS NOT NULL AND
5350: l_workorder_tbl(l_ctr).actual_end_date > p_actual_end_date ) THEN
5351: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
5352: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5353: FND_MESSAGE.set_token( 'END_DT',
5354: TO_CHAR( l_workorder_tbl(l_ctr).actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5355: FND_MSG_PUB.add;
5356: RAISE FND_API.G_EXC_ERROR;
5349: IF ( p_actual_end_date IS NOT NULL AND
5350: l_workorder_tbl(l_ctr).actual_end_date > p_actual_end_date ) THEN
5351: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
5352: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5353: FND_MESSAGE.set_token( 'END_DT',
5354: TO_CHAR( l_workorder_tbl(l_ctr).actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5355: FND_MSG_PUB.add;
5356: RAISE FND_API.G_EXC_ERROR;
5357: END IF;
5370: THEN
5371: IF ( p_actual_start_date IS NOT NULL)
5372: THEN
5373: IF( l_workorder_tbl(l_ctr).actual_start_date < p_actual_start_date ) THEN
5374: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5375: FND_MSG_PUB.add;
5376: RETURN FND_API.G_RET_STS_ERROR;
5377: ELSE
5378: l_workorder_tbl(l_ctr).actual_start_date := p_actual_start_date ;
5381:
5382: IF ( p_actual_end_date IS NOT NULL)
5383: THEN
5384: IF( l_workorder_tbl(l_ctr).actual_end_date > p_actual_end_date ) THEN
5385: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5386: FND_MSG_PUB.add;
5387: RETURN FND_API.G_RET_STS_ERROR;
5388: ELSE
5389: l_workorder_tbl(l_ctr).actual_end_date := p_actual_end_date ;
5407: WHERE workorder_id = wo_csr.workorder_id
5408: AND object_version_number = wo_csr.object_version_number;
5409:
5410: IF ( SQL%ROWCOUNT = 0 ) THEN
5411: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5412: FND_MSG_PUB.add;
5413: RETURN FND_API.G_RET_STS_ERROR;
5414: END IF;
5415: EXCEPTION
5413: RETURN FND_API.G_RET_STS_ERROR;
5414: END IF;
5415: EXCEPTION
5416: WHEN OTHERS THEN
5417: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5418: FND_MSG_PUB.add;
5419: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5420: END;
5421:
5470:
5471: IF ( p_actual_start_date IS NOT NULL)
5472: THEN
5473: IF( l_min < p_actual_start_date ) THEN
5474: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5475: FND_MSG_PUB.add;
5476: RETURN FND_API.G_RET_STS_ERROR;
5477: ELSE
5478: l_min := p_actual_start_date ;
5481:
5482: IF ( p_actual_end_date IS NOT NULL)
5483: THEN
5484: IF(l_max > p_actual_end_date ) THEN
5485: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5486: FND_MSG_PUB.add;
5487: RETURN FND_API.G_RET_STS_ERROR;
5488: ELSE
5489: l_max := p_actual_end_date ;
5707: ELSE
5708:
5709: -- Error out since the Visit or the MR cannot be completed
5710: -- as the Parent is outside the Hierarchy
5711: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PARENT_WO_NOT_CMPL' );
5712: FND_MESSAGE.set_token( 'WO', p_x_workorder_tbl(indx).workorder_name );
5713: FND_MESSAGE.set_token( 'PARENT_WO', l_parent_wo_tbl(j).parent_wo_name );
5714: FND_MSG_PUB.add;
5715: RETURN FND_API.G_RET_STS_ERROR;
5708:
5709: -- Error out since the Visit or the MR cannot be completed
5710: -- as the Parent is outside the Hierarchy
5711: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PARENT_WO_NOT_CMPL' );
5712: FND_MESSAGE.set_token( 'WO', p_x_workorder_tbl(indx).workorder_name );
5713: FND_MESSAGE.set_token( 'PARENT_WO', l_parent_wo_tbl(j).parent_wo_name );
5714: FND_MSG_PUB.add;
5715: RETURN FND_API.G_RET_STS_ERROR;
5716: END IF; -- Hierarchy check
5709: -- Error out since the Visit or the MR cannot be completed
5710: -- as the Parent is outside the Hierarchy
5711: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PARENT_WO_NOT_CMPL' );
5712: FND_MESSAGE.set_token( 'WO', p_x_workorder_tbl(indx).workorder_name );
5713: FND_MESSAGE.set_token( 'PARENT_WO', l_parent_wo_tbl(j).parent_wo_name );
5714: FND_MSG_PUB.add;
5715: RETURN FND_API.G_RET_STS_ERROR;
5716: END IF; -- Hierarchy check
5717: END IF; -- First Iteration
6295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6296: END IF;
6297: END IF;
6298: ELSE
6299: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_SUPER_USER' );
6300: FND_MSG_PUB.add;
6301: RAISE FND_API.G_EXC_ERROR;
6302: END IF;
6303:
6346: OPEN get_ue_details( p_signoff_mr_rec.unit_effectivity_id );
6347: FETCH get_ue_details INTO l_mr_rec;
6348:
6349: IF ( get_ue_details%NOTFOUND ) THEN
6350: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
6351: FND_MSG_PUB.add;
6352: CLOSE get_ue_details;
6353: RAISE FND_API.G_EXC_ERROR;
6354: END IF;
6392: CLOSE get_qa_plan_id_csr2;
6393: END IF;
6394:
6395: IF ( get_ue_details%NOTFOUND ) THEN
6396: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
6397: FND_MSG_PUB.add;
6398: CLOSE get_ue_details;
6399: RAISE FND_API.G_EXC_ERROR;
6400: END IF;
6402: CLOSE get_ue_details;
6403:
6404: -- Validate Object Version Number
6405: IF ( l_mr_rec.ue_object_version_number <> p_signoff_mr_rec.object_version_number ) THEN
6406: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
6407: FND_MSG_PUB.add;
6408: RAISE FND_API.G_EXC_ERROR;
6409: END IF;
6410:
6409: END IF;
6410:
6411: -- Check if this MR is already signed off
6412: IF ( l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF ) THEN
6413: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
6414: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title );
6415: -- replacing with call to get_status function
6416: -- so no exceptions are thrown if the
6417: -- lookup does not exist
6410:
6411: -- Check if this MR is already signed off
6412: IF ( l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF ) THEN
6413: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
6414: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title );
6415: -- replacing with call to get_status function
6416: -- so no exceptions are thrown if the
6417: -- lookup does not exist
6418: l_status_meaning := get_status(l_mr_rec.ue_status_code,
6423: WHERE lookup_type = 'AHL_PRD_MR_STATUS'
6424: AND LOOKUP_CODE = l_mr_rec.ue_status_code;
6425: */
6426:
6427: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
6428: FND_MSG_PUB.add;
6429: END IF;
6430:
6431: -- Check if the UE is complete
6565: l_child_ue_tbl(l_ue_count).ump_status_code <> G_MR_STATUS_TERMINATED AND
6566: l_child_ue_tbl(l_ue_count).ump_status_code <> G_MR_STATUS_MR_TERMINATED
6567: )
6568: ) THEN
6569: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
6570: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END IF;
6566: l_child_ue_tbl(l_ue_count).ump_status_code <> G_MR_STATUS_MR_TERMINATED
6567: )
6568: ) THEN
6569: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
6570: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END IF;
6574: END IF;
6599:
6600: -- Validate if the actual start dates entered is less than any WO
6601: IF ( wo_csr.actual_start_date IS NOT NULL AND
6602: wo_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6603: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6604: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6605: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6606: FND_MSG_PUB.add;
6607: RAISE FND_API.G_EXC_ERROR;
6600: -- Validate if the actual start dates entered is less than any WO
6601: IF ( wo_csr.actual_start_date IS NOT NULL AND
6602: wo_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6603: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6604: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6605: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6606: FND_MSG_PUB.add;
6607: RAISE FND_API.G_EXC_ERROR;
6608: END IF;
6601: IF ( wo_csr.actual_start_date IS NOT NULL AND
6602: wo_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6603: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6604: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6605: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6606: FND_MSG_PUB.add;
6607: RAISE FND_API.G_EXC_ERROR;
6608: END IF;
6609:
6609:
6610: -- Validate if the actual end dates entered is greater than any WO
6611: IF ( wo_csr.actual_end_date IS NOT NULL AND
6612: wo_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6613: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6614: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6615: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6616: FND_MSG_PUB.add;
6617: RAISE FND_API.G_EXC_ERROR;
6610: -- Validate if the actual end dates entered is greater than any WO
6611: IF ( wo_csr.actual_end_date IS NOT NULL AND
6612: wo_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6613: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6614: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6615: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6616: FND_MSG_PUB.add;
6617: RAISE FND_API.G_EXC_ERROR;
6618: END IF;
6611: IF ( wo_csr.actual_end_date IS NOT NULL AND
6612: wo_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6613: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6614: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6615: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6616: FND_MSG_PUB.add;
6617: RAISE FND_API.G_EXC_ERROR;
6618: END IF;
6619:
6628: -- rroy
6629: -- ACL Changes
6630: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_csr.workorder_id, NULL, NULL, NULL);
6631: IF l_return_status = FND_API.G_TRUE THEN
6632: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6633: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6634: FND_MSG_PUB.ADD;
6635: RAISE FND_API.G_EXC_ERROR;
6636: END IF;
6629: -- ACL Changes
6630: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_csr.workorder_id, NULL, NULL, NULL);
6631: IF l_return_status = FND_API.G_TRUE THEN
6632: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6633: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6634: FND_MSG_PUB.ADD;
6635: RAISE FND_API.G_EXC_ERROR;
6636: END IF;
6637: --nsikka
6656: FROM fnd_lookup_values_vl
6657: WHERE lookup_type = 'AHL_JOB_STATUS'
6658: AND lookup_code = wo_csr.status_code;
6659: */
6660: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
6661: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6662: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
6663: FND_MSG_PUB.add;
6664: RAISE FND_API.G_EXC_ERROR;
6657: WHERE lookup_type = 'AHL_JOB_STATUS'
6658: AND lookup_code = wo_csr.status_code;
6659: */
6660: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
6661: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6662: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
6663: FND_MSG_PUB.add;
6664: RAISE FND_API.G_EXC_ERROR;
6665: END IF;
6658: AND lookup_code = wo_csr.status_code;
6659: */
6660: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
6661: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6662: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
6663: FND_MSG_PUB.add;
6664: RAISE FND_API.G_EXC_ERROR;
6665: END IF;
6666:
6669: wo_csr.collection_id IS NULL ) THEN
6670: OPEN is_qa_coll_reqd(wo_csr.plan_id);
6671: FETCH is_qa_coll_reqd INTO l_junk;
6672: IF(is_qa_coll_reqd%FOUND) THEN
6673: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6674: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6675: FND_MSG_PUB.add;
6676: CLOSE is_qa_coll_reqd;
6677: RAISE FND_API.G_EXC_ERROR;
6670: OPEN is_qa_coll_reqd(wo_csr.plan_id);
6671: FETCH is_qa_coll_reqd INTO l_junk;
6672: IF(is_qa_coll_reqd%FOUND) THEN
6673: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6674: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6675: FND_MSG_PUB.add;
6676: CLOSE is_qa_coll_reqd;
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6783: wo_csr.status_code <> G_JOB_STATUS_COMPLETE_NC AND
6784: wo_csr.status_code <> G_JOB_STATUS_CLOSED AND
6785: wo_csr.status_code <> G_JOB_STATUS_CANCELLED AND
6786: wo_csr.master_workorder_flag = 'N') THEN
6787: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_NOT_CMPL' );
6788: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6789: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6790: FND_MSG_PUB.add;
6791: RAISE FND_API.G_EXC_ERROR;
6784: wo_csr.status_code <> G_JOB_STATUS_CLOSED AND
6785: wo_csr.status_code <> G_JOB_STATUS_CANCELLED AND
6786: wo_csr.master_workorder_flag = 'N') THEN
6787: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_NOT_CMPL' );
6788: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6789: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6790: FND_MSG_PUB.add;
6791: RAISE FND_API.G_EXC_ERROR;
6792: END IF;
6785: wo_csr.status_code <> G_JOB_STATUS_CANCELLED AND
6786: wo_csr.master_workorder_flag = 'N') THEN
6787: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_NOT_CMPL' );
6788: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6789: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6790: FND_MSG_PUB.add;
6791: RAISE FND_API.G_EXC_ERROR;
6792: END IF;
6793: END IF; -- Check Complete Workorder Flag
6810: l_mr_rec.wo_collection_id IS NULL ) THEN
6811: OPEN is_qa_coll_reqd(l_mr_rec.wo_plan_id);
6812: FETCH is_qa_coll_reqd INTO l_junk;
6813: IF(is_qa_coll_reqd%FOUND) THEN
6814: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6815: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6816: FND_MSG_PUB.add;
6817: CLOSE is_qa_coll_reqd;
6818: RAISE FND_API.G_EXC_ERROR;
6811: OPEN is_qa_coll_reqd(l_mr_rec.wo_plan_id);
6812: FETCH is_qa_coll_reqd INTO l_junk;
6813: IF(is_qa_coll_reqd%FOUND) THEN
6814: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6815: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6816: FND_MSG_PUB.add;
6817: CLOSE is_qa_coll_reqd;
6818: RAISE FND_API.G_EXC_ERROR;
6819: END IF;
6840:
6841: -- Validate if the actual start dates entered is less than any WO
6842: IF ( l_mr_rec.actual_start_date IS NOT NULL AND
6843: l_mr_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6845: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6846: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_mr_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6847: FND_MSG_PUB.add;
6848: RAISE FND_API.G_EXC_ERROR;
6841: -- Validate if the actual start dates entered is less than any WO
6842: IF ( l_mr_rec.actual_start_date IS NOT NULL AND
6843: l_mr_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6845: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6846: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_mr_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6847: FND_MSG_PUB.add;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6842: IF ( l_mr_rec.actual_start_date IS NOT NULL AND
6843: l_mr_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6845: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6846: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_mr_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6847: FND_MSG_PUB.add;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6850:
6851: -- Validate if the actual end dates entered is greater than any WO
6852: IF ( l_mr_rec.actual_end_date IS NOT NULL AND
6853: l_mr_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6855: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6856: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_mr_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6857: FND_MSG_PUB.add;
6858: RAISE FND_API.G_EXC_ERROR;
6851: -- Validate if the actual end dates entered is greater than any WO
6852: IF ( l_mr_rec.actual_end_date IS NOT NULL AND
6853: l_mr_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6855: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6856: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_mr_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6857: FND_MSG_PUB.add;
6858: RAISE FND_API.G_EXC_ERROR;
6859: END IF;
6852: IF ( l_mr_rec.actual_end_date IS NOT NULL AND
6853: l_mr_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6855: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6856: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_mr_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6857: FND_MSG_PUB.add;
6858: RAISE FND_API.G_EXC_ERROR;
6859: END IF;
6860:
6934: -- Validate if Equipment is entered for Machine Type Resource
6935: IF ( res_csr.resource_type = 1 AND
6936: ( p_signoff_mr_rec.serial_number IS NULL OR
6937: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6939: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6940: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6941: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6942: FND_MSG_PUB.add;
6935: IF ( res_csr.resource_type = 1 AND
6936: ( p_signoff_mr_rec.serial_number IS NULL OR
6937: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6939: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6940: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6941: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6942: FND_MSG_PUB.add;
6943: RAISE FND_API.G_EXC_ERROR;
6936: ( p_signoff_mr_rec.serial_number IS NULL OR
6937: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6939: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6940: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6941: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6942: FND_MSG_PUB.add;
6943: RAISE FND_API.G_EXC_ERROR;
6944: END IF;
6937: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6939: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6940: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6941: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6942: FND_MSG_PUB.add;
6943: RAISE FND_API.G_EXC_ERROR;
6944: END IF;
6945:
6946: -- Validate if Technicain is entered for Person Type Resource
6947: IF ( res_csr.resource_type = 2 AND
6948: ( p_signoff_mr_rec.employee_number IS NULL OR
6949: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6950: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6951: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6952: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6953: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6954: FND_MSG_PUB.add;
6947: IF ( res_csr.resource_type = 2 AND
6948: ( p_signoff_mr_rec.employee_number IS NULL OR
6949: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6950: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6951: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6952: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6953: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6954: FND_MSG_PUB.add;
6955: RAISE FND_API.G_EXC_ERROR;
6948: ( p_signoff_mr_rec.employee_number IS NULL OR
6949: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6950: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6951: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6952: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6953: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6954: FND_MSG_PUB.add;
6955: RAISE FND_API.G_EXC_ERROR;
6956: END IF;
6949: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6950: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6951: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6952: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6953: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6954: FND_MSG_PUB.add;
6955: RAISE FND_API.G_EXC_ERROR;
6956: END IF;
6957:
6987: -- Validate if Equipment is entered for Machine Type Resource
6988: IF ( unass_res_csr.resource_type = 1 AND
6989: ( p_signoff_mr_rec.serial_number IS NULL OR
6990: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6991: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6992: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6993: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6994: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6995: FND_MSG_PUB.add;
6988: IF ( unass_res_csr.resource_type = 1 AND
6989: ( p_signoff_mr_rec.serial_number IS NULL OR
6990: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6991: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6992: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6993: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6994: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6995: FND_MSG_PUB.add;
6996: RAISE FND_API.G_EXC_ERROR;
6989: ( p_signoff_mr_rec.serial_number IS NULL OR
6990: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6991: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6992: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6993: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6994: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6995: FND_MSG_PUB.add;
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6990: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6991: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6992: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6993: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6994: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6995: FND_MSG_PUB.add;
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6998:
6999: -- Validate if Technicain is entered for Person Type Resource
7000: IF ( unass_res_csr.resource_type = 2 AND
7001: ( p_signoff_mr_rec.employee_number IS NULL OR
7002: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
7003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
7004: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
7005: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
7006: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
7007: FND_MSG_PUB.add;
7000: IF ( unass_res_csr.resource_type = 2 AND
7001: ( p_signoff_mr_rec.employee_number IS NULL OR
7002: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
7003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
7004: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
7005: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
7006: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
7007: FND_MSG_PUB.add;
7008: RAISE FND_API.G_EXC_ERROR;
7001: ( p_signoff_mr_rec.employee_number IS NULL OR
7002: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
7003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
7004: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
7005: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
7006: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
7007: FND_MSG_PUB.add;
7008: RAISE FND_API.G_EXC_ERROR;
7009: END IF;
7002: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
7003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
7004: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
7005: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
7006: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
7007: FND_MSG_PUB.add;
7008: RAISE FND_API.G_EXC_ERROR;
7009: END IF;
7010:
7054: AND employee_num = p_signoff_mr_rec.employee_number
7055: AND rownum = 1;
7056: EXCEPTION
7057: WHEN no_data_found THEN
7058: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7059: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
7060: FND_MSG_PUB.add;
7061: RAISE FND_API.G_EXC_ERROR;
7062: END;
7055: AND rownum = 1;
7056: EXCEPTION
7057: WHEN no_data_found THEN
7058: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7059: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
7060: FND_MSG_PUB.add;
7061: RAISE FND_API.G_EXC_ERROR;
7062: END;
7063:
7061: RAISE FND_API.G_EXC_ERROR;
7062: END;
7063:
7064: /*IF ( SQL%NOTFOUND ) THEN
7065: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7066: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
7067: FND_MSG_PUB.add;
7068: RAISE FND_API.G_EXC_ERROR;
7069: END IF;*/
7062: END;
7063:
7064: /*IF ( SQL%NOTFOUND ) THEN
7065: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7066: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
7067: FND_MSG_PUB.add;
7068: RAISE FND_API.G_EXC_ERROR;
7069: END IF;*/
7070:
7243:
7244: -- Validate if the actual start dates entered is less than any WO Op
7245: IF ( op_csr.actual_start_date IS NOT NULL AND
7246: op_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7247: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7248: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7249: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7250: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7251: FND_MSG_PUB.add;
7244: -- Validate if the actual start dates entered is less than any WO Op
7245: IF ( op_csr.actual_start_date IS NOT NULL AND
7246: op_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7247: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7248: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7249: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7250: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7251: FND_MSG_PUB.add;
7252: RAISE FND_API.G_EXC_ERROR;
7245: IF ( op_csr.actual_start_date IS NOT NULL AND
7246: op_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7247: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7248: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7249: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7250: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7251: FND_MSG_PUB.add;
7252: RAISE FND_API.G_EXC_ERROR;
7253: END IF;
7246: op_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7247: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7248: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7249: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7250: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7251: FND_MSG_PUB.add;
7252: RAISE FND_API.G_EXC_ERROR;
7253: END IF;
7254:
7254:
7255: -- Validate if the actual end dates entered is greater than any WO Op
7256: IF ( op_csr.actual_end_date IS NOT NULL AND
7257: op_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7258: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7259: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7260: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7261: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7262: FND_MSG_PUB.add;
7255: -- Validate if the actual end dates entered is greater than any WO Op
7256: IF ( op_csr.actual_end_date IS NOT NULL AND
7257: op_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7258: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7259: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7260: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7261: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7262: FND_MSG_PUB.add;
7263: RAISE FND_API.G_EXC_ERROR;
7256: IF ( op_csr.actual_end_date IS NOT NULL AND
7257: op_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7258: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7259: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7260: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7261: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7262: FND_MSG_PUB.add;
7263: RAISE FND_API.G_EXC_ERROR;
7264: END IF;
7257: op_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7258: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7259: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7260: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7261: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7262: FND_MSG_PUB.add;
7263: RAISE FND_API.G_EXC_ERROR;
7264: END IF;
7265:
7272: op_csr.collection_id IS NULL ) THEN
7273: OPEN is_qa_coll_reqd(op_csr.plan_id);
7274: FETCH is_qa_coll_reqd INTO l_junk;
7275: IF(is_qa_coll_reqd%FOUND) THEN
7276: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7277: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7278: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7279: FND_MSG_PUB.add;
7280: CLOSE is_qa_coll_reqd;
7273: OPEN is_qa_coll_reqd(op_csr.plan_id);
7274: FETCH is_qa_coll_reqd INTO l_junk;
7275: IF(is_qa_coll_reqd%FOUND) THEN
7276: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7277: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7278: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7279: FND_MSG_PUB.add;
7280: CLOSE is_qa_coll_reqd;
7281: RAISE FND_API.G_EXC_ERROR;
7274: FETCH is_qa_coll_reqd INTO l_junk;
7275: IF(is_qa_coll_reqd%FOUND) THEN
7276: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7277: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7278: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7279: FND_MSG_PUB.add;
7280: CLOSE is_qa_coll_reqd;
7281: RAISE FND_API.G_EXC_ERROR;
7282: END IF;
7305:
7306: IF (l_def_actual_start_date IS NULL OR
7307: l_def_actual_end_date IS NULL )
7308: THEN
7309: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7310: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7311: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7312: FND_MSG_PUB.add;
7313: RAISE FND_API.G_EXC_ERROR;
7306: IF (l_def_actual_start_date IS NULL OR
7307: l_def_actual_end_date IS NULL )
7308: THEN
7309: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7310: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7311: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7312: FND_MSG_PUB.add;
7313: RAISE FND_API.G_EXC_ERROR;
7314: END IF;
7307: l_def_actual_end_date IS NULL )
7308: THEN
7309: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7310: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7311: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7312: FND_MSG_PUB.add;
7313: RAISE FND_API.G_EXC_ERROR;
7314: END IF;
7315: END IF;
7368:
7369: -- Since Operations are not required to be completed
7370: -- Validate to ensure that the Workorder Ops are already completed
7371: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
7372: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7373: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7374: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7375: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7376: FND_MSG_PUB.add;
7369: -- Since Operations are not required to be completed
7370: -- Validate to ensure that the Workorder Ops are already completed
7371: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
7372: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7373: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7374: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7375: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7376: FND_MSG_PUB.add;
7377: RAISE FND_API.G_EXC_ERROR;
7370: -- Validate to ensure that the Workorder Ops are already completed
7371: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
7372: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7373: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7374: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7375: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7376: FND_MSG_PUB.add;
7377: RAISE FND_API.G_EXC_ERROR;
7378: END IF;
7371: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
7372: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7373: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7374: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7375: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7376: FND_MSG_PUB.add;
7377: RAISE FND_API.G_EXC_ERROR;
7378: END IF;
7379: END IF; -- Check Complete Operations
7423:
7424: -- Validate if the actual start dates entered is less than any WO Op
7425: IF ( l_unassoc_ue_op_rec.actual_start_date IS NOT NULL AND
7426: l_unassoc_ue_op_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7427: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7428: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7429: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7430: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7431: FND_MSG_PUB.add;
7424: -- Validate if the actual start dates entered is less than any WO Op
7425: IF ( l_unassoc_ue_op_rec.actual_start_date IS NOT NULL AND
7426: l_unassoc_ue_op_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7427: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7428: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7429: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7430: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7431: FND_MSG_PUB.add;
7432: RAISE FND_API.G_EXC_ERROR;
7425: IF ( l_unassoc_ue_op_rec.actual_start_date IS NOT NULL AND
7426: l_unassoc_ue_op_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7427: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7428: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7429: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7430: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7431: FND_MSG_PUB.add;
7432: RAISE FND_API.G_EXC_ERROR;
7433: END IF;
7426: l_unassoc_ue_op_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
7427: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7428: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7429: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7430: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7431: FND_MSG_PUB.add;
7432: RAISE FND_API.G_EXC_ERROR;
7433: END IF;
7434:
7434:
7435: -- Validate if the actual end dates entered is greater than any WO Op
7436: IF ( l_unassoc_ue_op_rec.actual_end_date IS NOT NULL AND
7437: l_unassoc_ue_op_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7438: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7439: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7440: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7441: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7442: FND_MSG_PUB.add;
7435: -- Validate if the actual end dates entered is greater than any WO Op
7436: IF ( l_unassoc_ue_op_rec.actual_end_date IS NOT NULL AND
7437: l_unassoc_ue_op_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7438: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7439: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7440: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7441: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7442: FND_MSG_PUB.add;
7443: RAISE FND_API.G_EXC_ERROR;
7436: IF ( l_unassoc_ue_op_rec.actual_end_date IS NOT NULL AND
7437: l_unassoc_ue_op_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7438: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7439: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7440: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7441: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7442: FND_MSG_PUB.add;
7443: RAISE FND_API.G_EXC_ERROR;
7444: END IF;
7437: l_unassoc_ue_op_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
7438: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7439: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7440: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7441: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7442: FND_MSG_PUB.add;
7443: RAISE FND_API.G_EXC_ERROR;
7444: END IF;
7445: END IF; */
7451: l_unassoc_ue_op_rec.collection_id IS NULL ) THEN
7452: OPEN is_qa_coll_reqd(l_unassoc_ue_op_rec.plan_id);
7453: FETCH is_qa_coll_reqd INTO l_junk;
7454: IF(is_qa_coll_reqd%FOUND) THEN
7455: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7456: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7457: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7458: FND_MSG_PUB.add;
7459: CLOSE is_qa_coll_reqd;
7452: OPEN is_qa_coll_reqd(l_unassoc_ue_op_rec.plan_id);
7453: FETCH is_qa_coll_reqd INTO l_junk;
7454: IF(is_qa_coll_reqd%FOUND) THEN
7455: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7456: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7457: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7458: FND_MSG_PUB.add;
7459: CLOSE is_qa_coll_reqd;
7460: RAISE FND_API.G_EXC_ERROR;
7453: FETCH is_qa_coll_reqd INTO l_junk;
7454: IF(is_qa_coll_reqd%FOUND) THEN
7455: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7456: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7457: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7458: FND_MSG_PUB.add;
7459: CLOSE is_qa_coll_reqd;
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7483: );
7484:
7485: IF (l_def_actual_start_date IS NULL OR l_def_actual_end_date IS NULL )
7486: THEN
7487: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7488: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7489: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7490: FND_MSG_PUB.add;
7491: RAISE FND_API.G_EXC_ERROR;
7484:
7485: IF (l_def_actual_start_date IS NULL OR l_def_actual_end_date IS NULL )
7486: THEN
7487: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7488: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7489: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7490: FND_MSG_PUB.add;
7491: RAISE FND_API.G_EXC_ERROR;
7492: END IF;
7485: IF (l_def_actual_start_date IS NULL OR l_def_actual_end_date IS NULL )
7486: THEN
7487: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7488: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7489: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7490: FND_MSG_PUB.add;
7491: RAISE FND_API.G_EXC_ERROR;
7492: END IF;
7493: END IF;
7545:
7546: -- Since Operations are not required to be completed
7547: -- Validate to ensure that the Workorder Ops are already completed
7548: IF ( l_unassoc_ue_op_rec.status_code <> G_OP_STATUS_COMPLETE ) THEN
7549: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7550: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7551: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7552: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7553: FND_MSG_PUB.add;
7546: -- Since Operations are not required to be completed
7547: -- Validate to ensure that the Workorder Ops are already completed
7548: IF ( l_unassoc_ue_op_rec.status_code <> G_OP_STATUS_COMPLETE ) THEN
7549: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7550: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7551: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7552: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7553: FND_MSG_PUB.add;
7554: RAISE FND_API.G_EXC_ERROR;
7547: -- Validate to ensure that the Workorder Ops are already completed
7548: IF ( l_unassoc_ue_op_rec.status_code <> G_OP_STATUS_COMPLETE ) THEN
7549: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7550: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7551: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7552: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7553: FND_MSG_PUB.add;
7554: RAISE FND_API.G_EXC_ERROR;
7555: END IF;
7548: IF ( l_unassoc_ue_op_rec.status_code <> G_OP_STATUS_COMPLETE ) THEN
7549: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7550: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7551: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7552: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7553: FND_MSG_PUB.add;
7554: RAISE FND_API.G_EXC_ERROR;
7555: END IF;
7556: END IF; -- complete_job_ops_flag
7585: WHERE workorder_operation_id = l_operation_tbl(i).workorder_operation_id
7586: AND object_version_number = l_operation_tbl(i).object_version_number;
7587:
7588: IF ( SQL%ROWCOUNT = 0 ) THEN
7589: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7590: FND_MSG_PUB.add;
7591: RAISE FND_API.G_EXC_ERROR;
7592: END IF;
7593:
7672: OPEN get_wo_dates(l_workorder_tbl(i).workorder_id);
7673: FETCH get_wo_dates INTO l_wo_actual_start_date, l_wo_actual_end_date, l_wo_name;
7674: IF get_wo_dates%NOTFOUND THEN
7675: CLOSE get_wo_dates;
7676: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7677: -- Error defaulting the actual dates for workorder WO_NAME before completion.
7678: -- Do we raise an error for this or just ignore the error since this is defaulting code?
7679: -- Check during UTs
7680: FND_MSG_PUB.add;
7687: x_actual_start_date => l_def_actual_start_date,
7688: x_actual_end_date => l_def_actual_end_date
7689: );
7690: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
7691: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7692: FND_MSG_PUB.add;
7693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7694: END IF;
7695:
7703: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
7704: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
7705: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
7706: IF SQL%ROWCOUNT = 0 THEN
7707: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7708: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7709: FND_MSG_PUB.add;
7710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7711: END IF;
7704: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
7705: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
7706: IF SQL%ROWCOUNT = 0 THEN
7707: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7708: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7709: FND_MSG_PUB.add;
7710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7711: END IF;
7712: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7722: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
7723: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
7724: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
7725: IF SQL%ROWCOUNT = 0 THEN
7726: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7727: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7728: FND_MSG_PUB.add;
7729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7730: END IF;
7723: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
7724: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
7725: IF SQL%ROWCOUNT = 0 THEN
7726: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7727: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7728: FND_MSG_PUB.add;
7729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7730: END IF;
7731: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7742: WHERE workorder_id = l_workorder_tbl(i).workorder_id
7743: AND object_version_number = l_workorder_tbl(i).object_version_number;
7744:
7745: IF ( SQL%ROWCOUNT = 0 ) THEN
7746: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7747: FND_MSG_PUB.add;
7748: RAISE FND_API.G_EXC_ERROR;
7749: END IF;
7750:
7825: l_ue_status_code := get_mr_status( l_child_mr_tbl(i).unit_effectivity_id );
7826: IF ( l_ue_status_code <> G_MR_STATUS_SIGNED_OFF ) THEN
7827:
7828: IF ( l_ue_status_code <> G_MR_STATUS_JOBS_COMPLETE ) THEN
7829: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
7830: FND_MESSAGE.set_token( 'MAINT_REQ', l_child_mr_tbl(i).mr_title);
7831: -- replacing with call to get_status function
7832: -- so no exceptions are thrown if the
7833: -- lookup does not exist
7826: IF ( l_ue_status_code <> G_MR_STATUS_SIGNED_OFF ) THEN
7827:
7828: IF ( l_ue_status_code <> G_MR_STATUS_JOBS_COMPLETE ) THEN
7829: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
7830: FND_MESSAGE.set_token( 'MAINT_REQ', l_child_mr_tbl(i).mr_title);
7831: -- replacing with call to get_status function
7832: -- so no exceptions are thrown if the
7833: -- lookup does not exist
7834: l_status_meaning := get_status(l_ue_status_code,
7839: FROM fnd_lookup_values_vl
7840: WHERE lookup_type = 'AHL_PRD_MR_STATUS'
7841: AND LOOKUP_CODE = l_ue_status_code;
7842: */
7843: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
7844: FND_MSG_PUB.add;
7845: RAISE FND_API.G_EXC_ERROR;
7846: END IF;
7847:
8562: FETCH get_visit_stat
8563: INTO l_visit_status_code;
8564:
8565: IF ( get_visit_stat%NOTFOUND ) THEN
8566: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8567: FND_MSG_PUB.add;
8568: CLOSE get_visit_stat;
8569: RAISE FND_API.G_EXC_ERROR;
8570: END IF;
8584: OPEN get_unit_on_visit( p_close_visit_rec.visit_id );
8585: FETCH get_unit_on_visit
8586: INTO l_visit_uc_header_id;
8587: /* IF ( get_unit_on_visit%NOTFOUND OR l_visit_uc_header_id = -1 OR l_visit_uc_header_id IS NULL) THEN
8588: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_UNIT_NOT_FOUND' );
8589: FND_MSG_PUB.add;
8590: CLOSE get_unit_on_visit;
8591: RAISE FND_API.G_EXC_ERROR;
8592: END IF; */
8623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8624: END IF;
8625: --If api not returned with return status as success then check the rule violation.
8626: IF (l_erring_rules_tbl.count > 0 ) THEN
8627: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_UNIT_RULE_ERR' );
8628: FND_MSG_PUB.add;
8629: RAISE FND_API.G_EXC_ERROR;
8630: END IF;
8631:
8685: END IF;
8686: END LOOP;
8687: END IF;
8688: ELSE
8689: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_SUPER_USER' );
8690: FND_MSG_PUB.add;
8691: RAISE FND_API.G_EXC_ERROR;
8692: END IF;
8693: ELSE
8734: FETCH get_visit_details
8735: INTO l_visit_rec;
8736:
8737: IF ( get_visit_details%NOTFOUND ) THEN
8738: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8739: FND_MSG_PUB.add;
8740: CLOSE get_visit_details;
8741: RAISE FND_API.G_EXC_ERROR;
8742: END IF;
8767: FETCH get_visit_details
8768: INTO l_visit_rec;
8769:
8770: IF ( get_visit_details%NOTFOUND ) THEN
8771: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8772: FND_MSG_PUB.add;
8773: CLOSE get_visit_details;
8774: RAISE FND_API.G_EXC_ERROR;
8775: END IF;
8777: CLOSE get_visit_details;
8778:
8779: -- Validate Object Version Number
8780: IF ( l_visit_rec.object_version_number <> p_close_visit_rec.object_version_number ) THEN
8781: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
8782: FND_MSG_PUB.add;
8783: RAISE FND_API.G_EXC_ERROR;
8784: END IF;
8785:
8784: END IF;
8785:
8786: -- Validate the status of the Visit for Top-down Closure
8787: IF ( l_visit_rec.status_code <> G_VISIT_STATUS_RELEASED ) THEN
8788: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_CLOSE_STATUS');
8789: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8790: FND_MESSAGE.set_token( 'STATUS', l_visit_rec.status_code );
8791: FND_MSG_PUB.add;
8792: END IF;
8785:
8786: -- Validate the status of the Visit for Top-down Closure
8787: IF ( l_visit_rec.status_code <> G_VISIT_STATUS_RELEASED ) THEN
8788: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_CLOSE_STATUS');
8789: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8790: FND_MESSAGE.set_token( 'STATUS', l_visit_rec.status_code );
8791: FND_MSG_PUB.add;
8792: END IF;
8793:
8786: -- Validate the status of the Visit for Top-down Closure
8787: IF ( l_visit_rec.status_code <> G_VISIT_STATUS_RELEASED ) THEN
8788: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_CLOSE_STATUS');
8789: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8790: FND_MESSAGE.set_token( 'STATUS', l_visit_rec.status_code );
8791: FND_MSG_PUB.add;
8792: END IF;
8793:
8794: IF ( G_DEBUG = 'Y' ) THEN
8967: mr_csr.ump_status_code <> G_MR_STATUS_CANCELLED AND
8968: mr_csr.ump_status_code <> G_MR_STATUS_MR_TERMINATED
8969: )
8970: ) THEN
8971: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_MRS_NOT_CMPL' );
8972: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8973: FND_MESSAGE.set_token( 'MAINT_REQ', mr_csr.title );
8974: FND_MSG_PUB.add;
8975: RAISE FND_API.G_EXC_ERROR;
8968: mr_csr.ump_status_code <> G_MR_STATUS_MR_TERMINATED
8969: )
8970: ) THEN
8971: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_MRS_NOT_CMPL' );
8972: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8973: FND_MESSAGE.set_token( 'MAINT_REQ', mr_csr.title );
8974: FND_MSG_PUB.add;
8975: RAISE FND_API.G_EXC_ERROR;
8976: END IF;
8969: )
8970: ) THEN
8971: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_MRS_NOT_CMPL' );
8972: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8973: FND_MESSAGE.set_token( 'MAINT_REQ', mr_csr.title );
8974: FND_MSG_PUB.add;
8975: RAISE FND_API.G_EXC_ERROR;
8976: END IF;
8977: END IF;
8995:
8996: -- Ensure that the actual start date entered is less than any WO
8997: IF ( wo_csr.actual_start_date IS NOT NULL AND
8998: wo_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
8999: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9000: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9001: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9002: FND_MSG_PUB.add;
9003: RAISE FND_API.G_EXC_ERROR;
8996: -- Ensure that the actual start date entered is less than any WO
8997: IF ( wo_csr.actual_start_date IS NOT NULL AND
8998: wo_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
8999: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9000: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9001: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9002: FND_MSG_PUB.add;
9003: RAISE FND_API.G_EXC_ERROR;
9004: END IF;
8997: IF ( wo_csr.actual_start_date IS NOT NULL AND
8998: wo_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
8999: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9000: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9001: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9002: FND_MSG_PUB.add;
9003: RAISE FND_API.G_EXC_ERROR;
9004: END IF;
9005:
9005:
9006: -- Ensure that the actual end date entered is greater than any WO
9007: IF ( wo_csr.actual_end_date IS NOT NULL AND
9008: wo_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9009: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9010: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9011: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9012: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
9013: FND_MSG_PUB.add;
9006: -- Ensure that the actual end date entered is greater than any WO
9007: IF ( wo_csr.actual_end_date IS NOT NULL AND
9008: wo_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9009: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9010: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9011: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9012: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
9013: FND_MSG_PUB.add;
9014: RAISE FND_API.G_EXC_ERROR;
9007: IF ( wo_csr.actual_end_date IS NOT NULL AND
9008: wo_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9009: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9010: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9011: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9012: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
9013: FND_MSG_PUB.add;
9014: RAISE FND_API.G_EXC_ERROR;
9015: END IF;
9008: wo_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9009: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9010: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9011: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9012: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
9013: FND_MSG_PUB.add;
9014: RAISE FND_API.G_EXC_ERROR;
9015: END IF;
9016: END IF;
9036: IF ( wo_csr.status_code = G_JOB_STATUS_UNRELEASED OR
9037: wo_csr.status_code = G_JOB_STATUS_ON_HOLD OR
9038: wo_csr.status_code = G_JOB_STATUS_PARTS_HOLD OR
9039: wo_csr.status_code = G_JOB_STATUS_DEFERRAL_PENDING ) THEN
9040: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
9041: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9042: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9043: FND_MSG_PUB.add;
9044: RAISE FND_API.G_EXC_ERROR;
9037: wo_csr.status_code = G_JOB_STATUS_ON_HOLD OR
9038: wo_csr.status_code = G_JOB_STATUS_PARTS_HOLD OR
9039: wo_csr.status_code = G_JOB_STATUS_DEFERRAL_PENDING ) THEN
9040: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
9041: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9042: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9043: FND_MSG_PUB.add;
9044: RAISE FND_API.G_EXC_ERROR;
9045: END IF;
9038: wo_csr.status_code = G_JOB_STATUS_PARTS_HOLD OR
9039: wo_csr.status_code = G_JOB_STATUS_DEFERRAL_PENDING ) THEN
9040: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
9041: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9042: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9043: FND_MSG_PUB.add;
9044: RAISE FND_API.G_EXC_ERROR;
9045: END IF;
9046:
9049: wo_csr.collection_id IS NULL AND wo_csr.task_type_code <> 'STAGE') THEN
9050: OPEN is_qa_coll_reqd(wo_csr.plan_id);
9051: FETCH is_qa_coll_reqd INTO l_junk;
9052: IF(is_qa_coll_reqd%FOUND) THEN
9053: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
9054: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9055: FND_MSG_PUB.add;
9056: CLOSE is_qa_coll_reqd;
9057: RAISE FND_API.G_EXC_ERROR;
9050: OPEN is_qa_coll_reqd(wo_csr.plan_id);
9051: FETCH is_qa_coll_reqd INTO l_junk;
9052: IF(is_qa_coll_reqd%FOUND) THEN
9053: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
9054: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9055: FND_MSG_PUB.add;
9056: CLOSE is_qa_coll_reqd;
9057: RAISE FND_API.G_EXC_ERROR;
9058: END IF;
9177: wo_csr.status_code <> G_JOB_STATUS_COMPLETE_NC AND
9178: wo_csr.status_code <> G_JOB_STATUS_CLOSED AND
9179: wo_csr.status_code <> G_JOB_STATUS_CANCELLED AND
9180: wo_csr.master_workorder_flag = 'N') THEN
9181: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_NOT_CMPL' );
9182: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9183: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9184: FND_MSG_PUB.add;
9185: RAISE FND_API.G_EXC_ERROR;
9178: wo_csr.status_code <> G_JOB_STATUS_CLOSED AND
9179: wo_csr.status_code <> G_JOB_STATUS_CANCELLED AND
9180: wo_csr.master_workorder_flag = 'N') THEN
9181: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_NOT_CMPL' );
9182: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9183: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9184: FND_MSG_PUB.add;
9185: RAISE FND_API.G_EXC_ERROR;
9186: END IF;
9179: wo_csr.status_code <> G_JOB_STATUS_CANCELLED AND
9180: wo_csr.master_workorder_flag = 'N') THEN
9181: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_NOT_CMPL' );
9182: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9183: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9184: FND_MSG_PUB.add;
9185: RAISE FND_API.G_EXC_ERROR;
9186: END IF;
9187: END IF;
9205: l_visit_rec.wo_collection_id IS NULL ) THEN
9206: OPEN is_qa_coll_reqd( l_visit_rec.wo_plan_id);
9207: FETCH is_qa_coll_reqd INTO l_junk;
9208: IF(is_qa_coll_reqd%FOUND) THEN
9209: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
9210: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9211: FND_MSG_PUB.add;
9212: CLOSE is_qa_coll_reqd;
9213: RAISE FND_API.G_EXC_ERROR;
9206: OPEN is_qa_coll_reqd( l_visit_rec.wo_plan_id);
9207: FETCH is_qa_coll_reqd INTO l_junk;
9208: IF(is_qa_coll_reqd%FOUND) THEN
9209: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
9210: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9211: FND_MSG_PUB.add;
9212: CLOSE is_qa_coll_reqd;
9213: RAISE FND_API.G_EXC_ERROR;
9214: END IF;
9221: -- Validate if the actual start dates entered is less than any WO
9222:
9223: IF ( l_visit_rec.actual_start_date IS NOT NULL AND
9224: l_visit_rec.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9225: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9226: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9227: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_visit_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9228: FND_MSG_PUB.add;
9229: RAISE FND_API.G_EXC_ERROR;
9222:
9223: IF ( l_visit_rec.actual_start_date IS NOT NULL AND
9224: l_visit_rec.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9225: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9226: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9227: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_visit_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9228: FND_MSG_PUB.add;
9229: RAISE FND_API.G_EXC_ERROR;
9230: END IF;
9223: IF ( l_visit_rec.actual_start_date IS NOT NULL AND
9224: l_visit_rec.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9225: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9226: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9227: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_visit_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9228: FND_MSG_PUB.add;
9229: RAISE FND_API.G_EXC_ERROR;
9230: END IF;
9231:
9231:
9232: -- Validate if the actual end dates entered is greater than any WO
9233: IF ( l_visit_rec.actual_end_date IS NOT NULL AND
9234: l_visit_rec.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9236: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9237: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_visit_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9238: FND_MSG_PUB.add;
9239: RAISE FND_API.G_EXC_ERROR;
9232: -- Validate if the actual end dates entered is greater than any WO
9233: IF ( l_visit_rec.actual_end_date IS NOT NULL AND
9234: l_visit_rec.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9236: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9237: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_visit_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9238: FND_MSG_PUB.add;
9239: RAISE FND_API.G_EXC_ERROR;
9240: END IF;
9233: IF ( l_visit_rec.actual_end_date IS NOT NULL AND
9234: l_visit_rec.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9236: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9237: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_visit_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9238: FND_MSG_PUB.add;
9239: RAISE FND_API.G_EXC_ERROR;
9240: END IF;
9241: END IF;
9273: -- Check if Serial Number is entered for Machine Type Resource
9274: IF ( res_csr.resource_type = 1 AND
9275: ( p_close_visit_rec.serial_number IS NULL OR
9276: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
9277: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
9278: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9279: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9280: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9281: FND_MSG_PUB.add;
9274: IF ( res_csr.resource_type = 1 AND
9275: ( p_close_visit_rec.serial_number IS NULL OR
9276: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
9277: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
9278: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9279: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9280: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9281: FND_MSG_PUB.add;
9282: RAISE FND_API.G_EXC_ERROR;
9275: ( p_close_visit_rec.serial_number IS NULL OR
9276: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
9277: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
9278: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9279: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9280: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9281: FND_MSG_PUB.add;
9282: RAISE FND_API.G_EXC_ERROR;
9283: END IF;
9276: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
9277: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
9278: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9279: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9280: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9281: FND_MSG_PUB.add;
9282: RAISE FND_API.G_EXC_ERROR;
9283: END IF;
9284:
9285: -- Check if Employee Number is entered for Machine Type Resource
9286: IF ( res_csr.resource_type = 2 AND
9287: ( p_close_visit_rec.employee_number IS NULL OR
9288: p_close_visit_rec.employee_number = FND_API.G_MISS_NUM ) ) THEN
9289: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
9290: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9291: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9292: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9293: FND_MSG_PUB.add;
9286: IF ( res_csr.resource_type = 2 AND
9287: ( p_close_visit_rec.employee_number IS NULL OR
9288: p_close_visit_rec.employee_number = FND_API.G_MISS_NUM ) ) THEN
9289: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
9290: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9291: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9292: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9293: FND_MSG_PUB.add;
9294: RAISE FND_API.G_EXC_ERROR;
9287: ( p_close_visit_rec.employee_number IS NULL OR
9288: p_close_visit_rec.employee_number = FND_API.G_MISS_NUM ) ) THEN
9289: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
9290: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9291: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9292: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9293: FND_MSG_PUB.add;
9294: RAISE FND_API.G_EXC_ERROR;
9295: END IF;
9288: p_close_visit_rec.employee_number = FND_API.G_MISS_NUM ) ) THEN
9289: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
9290: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9291: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9292: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9293: FND_MSG_PUB.add;
9294: RAISE FND_API.G_EXC_ERROR;
9295: END IF;
9296:
9325: AND rownum = 1;
9326:
9327:
9328: IF ( SQL%NOTFOUND ) THEN
9329: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
9330: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
9331: FND_MSG_PUB.add;
9332: RAISE FND_API.G_EXC_ERROR;
9333: END IF;
9326:
9327:
9328: IF ( SQL%NOTFOUND ) THEN
9329: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
9330: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
9331: FND_MSG_PUB.add;
9332: RAISE FND_API.G_EXC_ERROR;
9333: END IF;
9334: */
9343: AND rownum = 1;
9344:
9345: EXCEPTION
9346: WHEN no_data_found THEN
9347: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
9348: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
9349: FND_MSG_PUB.add;
9350: RAISE FND_API.G_EXC_ERROR;
9351: END;
9344:
9345: EXCEPTION
9346: WHEN no_data_found THEN
9347: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
9348: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
9349: FND_MSG_PUB.add;
9350: RAISE FND_API.G_EXC_ERROR;
9351: END;
9352:
9504:
9505: -- Validate if the actual start dates entered is less than any WO Op
9506: IF ( op_csr.actual_start_date IS NOT NULL AND
9507: op_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9508: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
9509: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9510: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9511: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
9512: FND_MSG_PUB.add;
9505: -- Validate if the actual start dates entered is less than any WO Op
9506: IF ( op_csr.actual_start_date IS NOT NULL AND
9507: op_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9508: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
9509: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9510: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9511: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
9512: FND_MSG_PUB.add;
9513: RAISE FND_API.G_EXC_ERROR;
9506: IF ( op_csr.actual_start_date IS NOT NULL AND
9507: op_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9508: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
9509: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9510: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9511: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
9512: FND_MSG_PUB.add;
9513: RAISE FND_API.G_EXC_ERROR;
9514: END IF;
9507: op_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
9508: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
9509: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9510: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9511: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
9512: FND_MSG_PUB.add;
9513: RAISE FND_API.G_EXC_ERROR;
9514: END IF;
9515:
9515:
9516: -- Validate if the actual end dates entered is greater than any WO Op
9517: IF ( op_csr.actual_end_date IS NOT NULL AND
9518: op_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9519: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
9520: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9521: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9522: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
9523: FND_MSG_PUB.add;
9516: -- Validate if the actual end dates entered is greater than any WO Op
9517: IF ( op_csr.actual_end_date IS NOT NULL AND
9518: op_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9519: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
9520: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9521: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9522: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
9523: FND_MSG_PUB.add;
9524: RAISE FND_API.G_EXC_ERROR;
9517: IF ( op_csr.actual_end_date IS NOT NULL AND
9518: op_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9519: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
9520: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9521: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9522: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
9523: FND_MSG_PUB.add;
9524: RAISE FND_API.G_EXC_ERROR;
9525: END IF;
9518: op_csr.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
9519: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
9520: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9521: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9522: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
9523: FND_MSG_PUB.add;
9524: RAISE FND_API.G_EXC_ERROR;
9525: END IF;
9526:
9534: op_csr.task_type_code <> 'STAGE' ) THEN
9535: OPEN is_qa_coll_reqd(op_csr.plan_id);
9536: FETCH is_qa_coll_reqd INTO l_junk;
9537: IF(is_qa_coll_reqd%FOUND) THEN
9538: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
9539: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9540: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9541: FND_MSG_PUB.add;
9542: CLOSE is_qa_coll_reqd;
9535: OPEN is_qa_coll_reqd(op_csr.plan_id);
9536: FETCH is_qa_coll_reqd INTO l_junk;
9537: IF(is_qa_coll_reqd%FOUND) THEN
9538: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
9539: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9540: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9541: FND_MSG_PUB.add;
9542: CLOSE is_qa_coll_reqd;
9543: RAISE FND_API.G_EXC_ERROR;
9536: FETCH is_qa_coll_reqd INTO l_junk;
9537: IF(is_qa_coll_reqd%FOUND) THEN
9538: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
9539: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9540: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9541: FND_MSG_PUB.add;
9542: CLOSE is_qa_coll_reqd;
9543: RAISE FND_API.G_EXC_ERROR;
9544: END IF;
9569: );
9570:
9571: IF (l_def_actual_start_date IS NULL OR l_def_actual_end_date IS NULL )
9572: THEN
9573: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
9574: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9575: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9576: FND_MSG_PUB.add;
9577: RAISE FND_API.G_EXC_ERROR;
9570:
9571: IF (l_def_actual_start_date IS NULL OR l_def_actual_end_date IS NULL )
9572: THEN
9573: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
9574: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9575: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9576: FND_MSG_PUB.add;
9577: RAISE FND_API.G_EXC_ERROR;
9578: END IF;
9571: IF (l_def_actual_start_date IS NULL OR l_def_actual_end_date IS NULL )
9572: THEN
9573: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
9574: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9575: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9576: FND_MSG_PUB.add;
9577: RAISE FND_API.G_EXC_ERROR;
9578: END IF;
9579: END IF;
9682: END IF;
9683: ELSE
9684: -- Validate to ensure that the Workorder Ops are already completed
9685: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
9686: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_OP_NOT_CMPL' );
9687: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9688: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9689: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9690: FND_MSG_PUB.add;
9683: ELSE
9684: -- Validate to ensure that the Workorder Ops are already completed
9685: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
9686: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_OP_NOT_CMPL' );
9687: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9688: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9689: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9690: FND_MSG_PUB.add;
9691: RAISE FND_API.G_EXC_ERROR;
9684: -- Validate to ensure that the Workorder Ops are already completed
9685: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
9686: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_OP_NOT_CMPL' );
9687: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9688: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9689: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9690: FND_MSG_PUB.add;
9691: RAISE FND_API.G_EXC_ERROR;
9692: END IF;
9685: IF ( op_csr.status_code <> G_OP_STATUS_COMPLETE ) THEN
9686: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_OP_NOT_CMPL' );
9687: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9688: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9689: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9690: FND_MSG_PUB.add;
9691: RAISE FND_API.G_EXC_ERROR;
9692: END IF;
9693: END IF;
9718: WHERE workorder_operation_id = l_operation_tbl(i).workorder_operation_id
9719: AND object_version_number = l_operation_tbl(i).object_version_number;
9720:
9721: IF ( SQL%ROWCOUNT = 0 ) THEN
9722: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9723: FND_MSG_PUB.add;
9724: RAISE FND_API.G_EXC_ERROR;
9725: END IF;
9726:
9796: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
9797: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
9798: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
9799: IF SQL%ROWCOUNT = 0 THEN
9800: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9801: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9802: FND_MSG_PUB.add;
9803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9804: END IF;
9797: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
9798: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
9799: IF SQL%ROWCOUNT = 0 THEN
9800: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9801: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9802: FND_MSG_PUB.add;
9803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9804: END IF;
9805: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9815: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
9816: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
9817: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
9818: IF SQL%ROWCOUNT = 0 THEN
9819: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9820: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9821: FND_MSG_PUB.add;
9822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9823: END IF;
9816: WHERE WORKORDER_ID = l_workorder_tbl(i).workorder_id
9817: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
9818: IF SQL%ROWCOUNT = 0 THEN
9819: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9820: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9821: FND_MSG_PUB.add;
9822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9823: END IF;
9824: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9836: WHERE workorder_id = l_workorder_tbl(i).workorder_id
9837: AND object_version_number = l_workorder_tbl(i).object_version_number;
9838:
9839: IF ( SQL%ROWCOUNT = 0 ) THEN
9840: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9841: FND_MSG_PUB.add;
9842: RAISE FND_API.G_EXC_ERROR;
9843: END IF;
9844:
9958: -- pekambar : For ER # 9504544 , Signed MRs also allowed to signed off
9959: -- If Override flag is checked, Changing the logic
9960: --IF ( l_ue_status_code <> G_MR_STATUS_JOBS_COMPLETE ) THEN
9961: IF ( l_ue_status_code <> G_MR_STATUS_JOBS_COMPLETE AND l_ue_status_code <> G_MR_STATUS_SIGNED_OFF ) THEN
9962: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
9963: FND_MESSAGE.set_token( 'MAINT_REQ', l_child_mr_tbl(i).mr_title);
9964: -- to be changed
9965: -- write a global function later
9966: -- replacing with call to get_status function
9959: -- If Override flag is checked, Changing the logic
9960: --IF ( l_ue_status_code <> G_MR_STATUS_JOBS_COMPLETE ) THEN
9961: IF ( l_ue_status_code <> G_MR_STATUS_JOBS_COMPLETE AND l_ue_status_code <> G_MR_STATUS_SIGNED_OFF ) THEN
9962: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
9963: FND_MESSAGE.set_token( 'MAINT_REQ', l_child_mr_tbl(i).mr_title);
9964: -- to be changed
9965: -- write a global function later
9966: -- replacing with call to get_status function
9967: -- so no exceptions are thrown if the
9971: FROM fnd_lookup_values_vl
9972: WHERE lookup_type = 'AHL_PRD_MR_STATUS'
9973: AND LOOKUP_CODE = l_ue_status_code;
9974: */
9975: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9976: FND_MSG_PUB.add;
9977: RAISE FND_API.G_EXC_ERROR;
9978: END IF;
9979: /* complete_mr_instance
10757: OPEN c_get_op_details(p_x_operation_tbl (i).workorder_id, p_x_operation_tbl (i).operation_sequence_num);
10758: FETCH c_get_op_details INTO l_workorder_operation_id, l_ovn, l_scheduled_start_date, l_scheduled_end_date, p_x_operation_tbl(i).actual_start_date, p_x_operation_tbl(i).actual_end_date;
10759: IF c_get_op_details%NOTFOUND THEN
10760: CLOSE c_get_op_details;
10761: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10762: FND_MSG_PUB.add;
10763: x_return_status := FND_API.G_RET_STS_ERROR;
10764: RETURN;
10765: --RAISE FND_API.G_RET_STS_ERROR;
10769: OPEN c_get_wo_details(p_x_operation_tbl (i).workorder_id);
10770: FETCH c_get_wo_details INTO l_wip_entity_id;
10771: IF c_get_wo_details%NOTFOUND THEN
10772: CLOSE c_get_wo_details;
10773: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FND');
10774: FND_MSG_PUB.add;
10775: X_return_status := FND_API.G_RET_STS_ERROR;
10776: RETURN;
10777: --RAISE FND_API.G_RET_STS_ERROR;
10877: OPEN c_get_op_details(p_x_operation_tbl (i).workorder_id, p_x_operation_tbl (i).operation_sequence_num);
10878: FETCH c_get_op_details INTO p_x_operation_tbl(i).actual_start_date, p_x_operation_tbl(i).actual_end_date, p_x_operation_tbl(i).WORKORDER_OPERATION_ID;
10879: IF c_get_op_details%NOTFOUND THEN
10880: CLOSE c_get_op_details;
10881: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10882: FND_MSG_PUB.add;
10883: x_return_status := FND_API.G_RET_STS_ERROR;
10884: RETURN;
10885: --RAISE FND_API.G_RET_STS_ERROR;
11108: l_workorder_id := p_workorder_id;
11109: ELSE
11110: -- All three input params are null
11111: -- throw an error
11112: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
11113: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
11114: FND_MSG_PUB.add;
11115: RETURN FND_API.G_RET_STS_ERROR;
11116: END IF;
11109: ELSE
11110: -- All three input params are null
11111: -- throw an error
11112: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
11113: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
11114: FND_MSG_PUB.add;
11115: RETURN FND_API.G_RET_STS_ERROR;
11116: END IF;
11117:
11201: );
11202:
11203: --RETURN l_return_status;
11204: ELSE
11205: FND_MESSAGE.SET_NAME('AHL', 'AHL_PP_WORKORDER_NOT_EXISTS');
11206: FND_MSG_PUB.ADD;
11207: --RETURN FND_API.G_RET_STS_ERROR;
11208: l_return_status := FND_API.G_RET_STS_ERROR;
11209:
11448:
11449:
11450: IF l_return_status = FND_API.G_TRUE THEN
11451:
11452: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_LGN_UNTLCKD');
11453: FND_MESSAGE.set_token('WO_NUM', l_workorder_name_tbl(l_index));
11454: FND_MSG_PUB.ADD;
11455:
11456: l_valid_for_close_tbl(l_index) := 'N';
11449:
11450: IF l_return_status = FND_API.G_TRUE THEN
11451:
11452: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_LGN_UNTLCKD');
11453: FND_MESSAGE.set_token('WO_NUM', l_workorder_name_tbl(l_index));
11454: FND_MSG_PUB.ADD;
11455:
11456: l_valid_for_close_tbl(l_index) := 'N';
11457:
11581: sql%bulk_exceptions(j).error_index || ', ' ||
11582: Sqlerrm(-sql%bulk_exceptions(j).error_code) );
11583: END LOOP;
11584:
11585: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_CANNOT_CLOSE');
11586: FND_MSG_PUB.add;
11587: errbuf := FND_MSG_PUB.Get;
11588:
11589: retcode := 2; -- error!!
11707: sql%bulk_exceptions(j).error_index || ', ' ||
11708: Sqlerrm(-sql%bulk_exceptions(j).error_code) );
11709: END LOOP;
11710:
11711: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_CANNOT_CLOSE');
11712: FND_MSG_PUB.add;
11713: errbuf := FND_MSG_PUB.Get;
11714:
11715: retcode := 2; -- error!!
12167: OPEN get_wip_entity_id( p_signoff_mr_rec.unit_effectivity_id );
12168: FETCH get_wip_entity_id INTO l_wip_entity_id,l_workorder_id;
12169:
12170: /*IF ( get_wip_entity_id%NOTFOUND ) THEN
12171: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' ); --Message change
12172: FND_MSG_PUB.add;
12173: CLOSE ;
12174: RAISE FND_API.G_EXC_ERROR;
12175: END IF;*/
12226: --If yes throw error.
12227: IF ( p_signoff_mr_rec.actual_start_date IS NOT NULL)
12228: THEN
12229: IF( l_workorder_tbl(l_ctr).actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
12230: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12231: FND_MSG_PUB.add;
12232: RAISE FND_API.G_EXC_ERROR;
12233: ELSE
12234: l_workorder_tbl(l_ctr).actual_start_date := p_signoff_mr_rec.actual_start_date ;
12237:
12238: IF ( p_signoff_mr_rec.actual_end_date IS NOT NULL)
12239: THEN
12240: IF( p_signoff_mr_rec.actual_end_date < l_workorder_tbl(l_ctr).actual_end_date) THEN
12241: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12242: FND_MSG_PUB.add;
12243: RAISE FND_API.G_EXC_ERROR;
12244: ELSE
12245: l_workorder_tbl(l_ctr).actual_end_date := p_signoff_mr_rec.actual_end_date ;
12267: WHERE workorder_id = wo_csr.workorder_id
12268: AND object_version_number = wo_csr.object_version_number;
12269:
12270: IF ( SQL%ROWCOUNT = 0 ) THEN
12271: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
12272: FND_MSG_PUB.add;
12273: RAISE FND_API.G_EXC_ERROR;
12274: END IF;
12275: --Get the UE details, ue_id, Object version number
12276: OPEN get_ue_det( wo_csr.workorder_id );
12277: FETCH get_ue_det INTO l_unit_effectivity_id,l_object_version_number;
12278:
12279: /*IF ( get_ue_det%NOTFOUND ) THEN
12280: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
12281: FND_MSG_PUB.add;
12282: CLOSE ;
12283: RAISE FND_API.G_EXC_ERROR;
12284: END IF;*/
12350: --If yes throw error.
12351: IF ( p_signoff_mr_rec.actual_start_date IS NOT NULL)
12352: THEN
12353: IF( l_min < p_signoff_mr_rec.actual_start_date ) THEN
12354: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12355: FND_MSG_PUB.add;
12356: RAISE FND_API.G_EXC_ERROR;
12357: ELSE
12358: l_min := p_signoff_mr_rec.actual_start_date ;
12361:
12362: IF ( p_signoff_mr_rec.actual_end_date IS NOT NULL)
12363: THEN
12364: IF( p_signoff_mr_rec.actual_end_date < l_max) THEN
12365: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12366: FND_MSG_PUB.add;
12367: RAISE FND_API.G_EXC_ERROR;
12368: ELSE
12369: l_max := p_signoff_mr_rec.actual_end_date ;
12380: OPEN get_ue_det( l_workorder_id );
12381: FETCH get_ue_det INTO l_unit_effectivity_id,l_object_version_number;
12382:
12383: /*IF ( get_ue_det%NOTFOUND ) THEN
12384: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
12385: FND_MSG_PUB.add;
12386: CLOSE ;
12387: RAISE FND_API.G_EXC_ERROR;
12388: END IF;*/