[Home] [Help]
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:
97: RETURN FND_API.G_RET_STS_SUCCESS;
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;
179: CLOSE get_op_details;
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;
190:
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;
390: CLOSE get_wo_dtls_csr;
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;
400:
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;
445:
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:
462: IF ( p_actual_start_date > p_actual_end_date ) THEN
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:
468: IF ( p_actual_end_date > SYSDATE ) THEN
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:
474: RETURN FND_API.G_RET_STS_SUCCESS;
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;
516:
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;
523:
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;
536:
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;
543:
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
607: ELSIF ( p_char_id = 98 AND
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;
615:
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;
650: END IF;
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;
696:
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;
704: END IF;
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 );
873: FND_MESSAGE.set_name( l_app_name, l_msg_name );
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;
878:
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:
885: RETURN FND_API.G_RET_STS_SUCCESS;
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:
985: -- Set the Transaction Type
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:
1027: RETURN FND_API.G_RET_STS_SUCCESS;
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;
1060: END IF;
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;
1108:
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;
1116: END IF;
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:
1146: -- rroy
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;
1157: -- rroy
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:
1196: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
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:
1203: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
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;
1209:
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:
1234: /*
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;
1260: CLOSE is_qa_coll_reqd;
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
1341: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
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:
1346: RETURN FND_API.G_RET_STS_SUCCESS;
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:
1434: -- Insert a record in AHL_WO_OPERATION_TXNS for the Completion Transaction.
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: */
1484:
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: */
1535: /*
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;
1597: -- rroy
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;
1620: CLOSE is_qa_coll_reqd;
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:
1653: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
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;
1659:
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:
1666: END LOOP;
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;
1691:
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
1715: -- ACL Changes
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:
1746: RETURN FND_API.G_RET_STS_SUCCESS;
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;
1775: END validate_cmri_inputs;
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:
1914: RETURN FND_API.G_RET_STS_SUCCESS;
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
1944: -- Bug # 6436307 - start
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;
1962:
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;
1982: CLOSE is_qa_coll_reqd;
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:
2050: 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: */
2198:
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:
2398: END IF;
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:
2510: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
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 );
2517: FND_MSG_PUB.add;
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
2521: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
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:
2526: END IF;
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;
2635: END IF;
2871: SAVEPOINT complete_operation_PVT;
2872:
2873: -- Initialize message list if p_init_msg_list is set to TRUE.
2874: IF FND_API.to_boolean( p_init_msg_list ) THEN
2875: FND_MSG_PUB.initialize;
2876: END IF;
2877:
2878: -- Validate all the inputs of the API
2879: l_return_status :=
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;
2905:
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:
2919: -- update the actual dates in the table
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
2933: IF l_actual_end_date IS NULL THEN
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
2946: END IF; -- IF p_default = FND_API.G_TRUE THEN
2990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2991: END IF;
2992:
2993: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2994: l_msg_count := FND_MSG_PUB.count_msg;
2995: IF l_msg_count > 0 THEN
2996: x_msg_count := l_msg_count;
2997: RAISE FND_API.G_EXC_ERROR;
2998: END IF;
3099:
3100: WHEN FND_API.G_EXC_ERROR THEN
3101: ROLLBACK TO complete_operation_PVT;
3102: x_return_status := FND_API.G_RET_STS_ERROR;
3103: FND_MSG_PUB.count_and_get
3104: (
3105: p_encoded => FND_API.G_FALSE,
3106: p_count => x_msg_count,
3107: p_data => x_msg_data
3113:
3114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3115: ROLLBACK TO complete_operation_PVT;
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3117: FND_MSG_PUB.count_and_get
3118: (
3119: p_encoded => FND_API.G_FALSE,
3120: p_count => x_msg_count,
3121: p_data => x_msg_data
3127:
3128: WHEN OTHERS THEN
3129: ROLLBACK TO complete_operation_PVT;
3130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3131: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3132: THEN
3133: FND_MSG_PUB.add_exc_msg
3134: (
3135: p_pkg_name => G_PKG_NAME,
3129: ROLLBACK TO complete_operation_PVT;
3130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3131: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3132: THEN
3133: FND_MSG_PUB.add_exc_msg
3134: (
3135: p_pkg_name => G_PKG_NAME,
3136: p_procedure_name => l_api_name,
3137: p_error_text => SUBSTRB(SQLERRM,1,240)
3136: p_procedure_name => l_api_name,
3137: p_error_text => SUBSTRB(SQLERRM,1,240)
3138: );
3139: END IF;
3140: FND_MSG_PUB.count_and_get
3141: (
3142: p_encoded => FND_API.G_FALSE,
3143: p_count => x_msg_count,
3144: p_data => x_msg_data
3291: SAVEPOINT complete_workorder_PVT;
3292:
3293: -- Initialize message list if p_init_msg_list is set to TRUE.
3294: IF FND_API.to_boolean( p_init_msg_list ) THEN
3295: FND_MSG_PUB.initialize;
3296: END IF;
3297:
3298: l_object_version_number := p_object_version_no;
3299:
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;
3328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3329: END IF; -- IF get_wo_dates%NOTFOUND THEN
3330: CLOSE get_wo_dates;
3331:
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 */
3342: l_up_workorder_rec.WORKORDER_ID := p_workorder_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
3393:
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
3408: */
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: END IF;
3456:
3457: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3458: l_msg_count := FND_MSG_PUB.count_msg;
3459: IF l_msg_count > 0 THEN
3460: x_msg_count := l_msg_count;
3461: RAISE FND_API.G_EXC_ERROR;
3462: END IF;
3685: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3686: IF ( G_DEBUG = 'Y' ) THEN
3687: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Could Not Complete MR Instance with UE : ' || TO_CHAR( l_workorder_rec.unit_effectivity_id ) || ' associated to Workorder : ' || TO_CHAR( p_workorder_id ) || ' because of...' );
3688: FOR I IN 1..l_msg_count LOOP
3689: FND_MSG_PUB.get
3690: (
3691: p_msg_index => i,
3692: p_encoded => FND_API.G_FALSE,
3693: p_data => l_msg_data,
3699: END IF;
3700:
3701: -- Initialize message list since errors are not reported
3702: IF FND_API.to_boolean( p_init_msg_list ) THEN
3703: FND_MSG_PUB.initialize;
3704: END IF;
3705:
3706: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3707: x_return_status := l_return_status;
3737:
3738: WHEN FND_API.G_EXC_ERROR THEN
3739: ROLLBACK TO complete_workorder_PVT;
3740: x_return_status := FND_API.G_RET_STS_ERROR;
3741: FND_MSG_PUB.count_and_get
3742: (
3743: p_encoded => FND_API.G_FALSE,
3744: p_count => x_msg_count,
3745: p_data => x_msg_data
3751:
3752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3753: ROLLBACK TO complete_workorder_PVT;
3754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3755: FND_MSG_PUB.count_and_get
3756: (
3757: p_encoded => FND_API.G_FALSE,
3758: p_count => x_msg_count,
3759: p_data => x_msg_data
3765:
3766: WHEN OTHERS THEN
3767: ROLLBACK TO complete_workorder_PVT;
3768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3769: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3770: THEN
3771: FND_MSG_PUB.add_exc_msg
3772: (
3773: p_pkg_name => G_PKG_NAME,
3767: ROLLBACK TO complete_workorder_PVT;
3768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3769: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3770: THEN
3771: FND_MSG_PUB.add_exc_msg
3772: (
3773: p_pkg_name => G_PKG_NAME,
3774: p_procedure_name => l_api_name,
3775: p_error_text => SUBSTRB(SQLERRM,1,240)
3774: p_procedure_name => l_api_name,
3775: p_error_text => SUBSTRB(SQLERRM,1,240)
3776: );
3777: END IF;
3778: FND_MSG_PUB.count_and_get
3779: (
3780: p_encoded => FND_API.G_FALSE,
3781: p_count => x_msg_count,
3782: p_data => x_msg_data
3824: SAVEPOINT defer_workorder_PVT;
3825:
3826: -- Initialize message list if p_init_msg_list is set to TRUE.
3827: IF FND_API.to_boolean( p_init_msg_list ) THEN
3828: FND_MSG_PUB.initialize;
3829: END IF;
3830:
3831: -- Validate all the inputs of the API
3832: l_return_status :=
3870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3871: END IF;
3872:
3873: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3874: l_msg_count := FND_MSG_PUB.count_msg;
3875: IF l_msg_count > 0 THEN
3876: x_msg_count := l_msg_count;
3877: RAISE FND_API.G_EXC_ERROR;
3878: END IF;
3986:
3987: WHEN FND_API.G_EXC_ERROR THEN
3988: ROLLBACK TO defer_workorder_PVT;
3989: x_return_status := FND_API.G_RET_STS_ERROR;
3990: FND_MSG_PUB.count_and_get
3991: (
3992: p_encoded => FND_API.G_FALSE,
3993: p_count => x_msg_count,
3994: p_data => x_msg_data
4000:
4001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4002: ROLLBACK TO defer_workorder_PVT;
4003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4004: FND_MSG_PUB.count_and_get
4005: (
4006: p_encoded => FND_API.G_FALSE,
4007: p_count => x_msg_count,
4008: p_data => x_msg_data
4014:
4015: WHEN OTHERS THEN
4016: ROLLBACK TO defer_workorder_PVT;
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4018: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4019: THEN
4020: FND_MSG_PUB.add_exc_msg
4021: (
4022: p_pkg_name => G_PKG_NAME,
4016: ROLLBACK TO defer_workorder_PVT;
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4018: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4019: THEN
4020: FND_MSG_PUB.add_exc_msg
4021: (
4022: p_pkg_name => G_PKG_NAME,
4023: p_procedure_name => l_api_name,
4024: p_error_text => SUBSTRB(SQLERRM,1,240)
4023: p_procedure_name => l_api_name,
4024: p_error_text => SUBSTRB(SQLERRM,1,240)
4025: );
4026: END IF;
4027: FND_MSG_PUB.count_and_get
4028: (
4029: p_encoded => FND_API.G_FALSE,
4030: p_count => x_msg_count,
4031: p_data => x_msg_data
4090: SAVEPOINT complete_mr_instance_PVT;
4091:
4092: -- Initialize message list if p_init_msg_list is set to TRUE.
4093: IF FND_API.to_boolean( p_init_msg_list ) THEN
4094: FND_MSG_PUB.initialize;
4095: END IF;
4096:
4097: -- Validate all the inputs of the API
4098: l_return_status :=
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;
4355: END IF;
4390: ||TO_CHAR( parent_csr.unit_effectivity_id )
4391: || ' associated to UE : ' || TO_CHAR( p_x_mr_rec.unit_effectivity_id )
4392: || ' because of...' );
4393: FOR I IN 1..l_msg_count LOOP
4394: FND_MSG_PUB.get
4395: (
4396: p_msg_index => i,
4397: p_encoded => FND_API.G_FALSE,
4398: p_data => l_msg_data,
4404: END IF;
4405:
4406: -- Initialize message list since errors are not reported
4407: IF FND_API.to_boolean( p_init_msg_list ) THEN
4408: FND_MSG_PUB.initialize;
4409: END IF;
4410:
4411: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4412: x_return_status := l_return_status;
4440:
4441: WHEN FND_API.G_EXC_ERROR THEN
4442: ROLLBACK TO complete_mr_instance_PVT;
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: FND_MSG_PUB.count_and_get
4445: (
4446: p_encoded => FND_API.G_FALSE,
4447: p_count => x_msg_count,
4448: p_data => x_msg_data
4454:
4455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4456: ROLLBACK TO complete_mr_instance_PVT;
4457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4458: FND_MSG_PUB.count_and_get
4459: (
4460: p_encoded => FND_API.G_FALSE,
4461: p_count => x_msg_count,
4462: p_data => x_msg_data
4468:
4469: WHEN OTHERS THEN
4470: ROLLBACK TO complete_mr_instance_PVT;
4471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4472: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4473: THEN
4474: FND_MSG_PUB.add_exc_msg
4475: (
4476: p_pkg_name => G_PKG_NAME,
4470: ROLLBACK TO complete_mr_instance_PVT;
4471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4472: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4473: THEN
4474: FND_MSG_PUB.add_exc_msg
4475: (
4476: p_pkg_name => G_PKG_NAME,
4477: p_procedure_name => l_api_name,
4478: p_error_text => SUBSTRB(SQLERRM,1,240)
4477: p_procedure_name => l_api_name,
4478: p_error_text => SUBSTRB(SQLERRM,1,240)
4479: );
4480: END IF;
4481: FND_MSG_PUB.count_and_get
4482: (
4483: p_encoded => FND_API.G_FALSE,
4484: p_count => x_msg_count,
4485: p_data => x_msg_data
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:
5001: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
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:
5011: --pekambar added validation for ERs 9274897 and 9504544
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:
5031: --pekambar added validation for ERs 9274897 and 9504544 End
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:
5043: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
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:
5054: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
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:
5062: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
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:
5070: RETURN FND_API.G_RET_STS_SUCCESS;
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:
5117: -- rroy
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;
5131: -- rroy
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:
5162: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
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:
5172: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
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:
5182: --pekambar added validation for ERs 9274897 and 9504544
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:
5202: --pekambar added validation for ERs 9274897 and 9504544 End
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:
5215: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
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:
5223: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
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:
5231: RETURN FND_API.G_RET_STS_SUCCESS;
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
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;
5358: */--End ER # 4757222
5359:
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 ;
5379: END IF;
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 ;
5390: END IF;
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
5416: WHEN OTHERS THEN
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:
5422: ELSE
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 ;
5479: END IF;
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 ;
5490: END IF;
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
5718: END IF; -- Parent WOs complete check
6224: SAVEPOINT signoff_mr_instance_PVT;
6225:
6226: -- Initialize message list if p_init_msg_list is set to TRUE.
6227: IF FND_API.to_boolean( p_init_msg_list ) THEN
6228: FND_MSG_PUB.initialize;
6229: END IF;
6230:
6231: IF ( G_DEBUG = 'Y' ) THEN
6232: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Validating Inputs' );
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:
6304: ELSE
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;
6355: CLOSE get_ue_details;
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;
6401:
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:
6411: -- Check if this MR is already signed off
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
6432: l_return_status:=
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;
6575: END LOOP;
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:
6610: -- Validate if the actual end dates entered is greater than any WO
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:
6620: END IF; -- Check Input Dates are required
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
6638: --Changes made for Bug 5324101 .
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:
6667: -- Validate whether Quality Results are Submitted
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;
6679: CLOSE is_qa_coll_reqd;
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
6794:
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;
6820: CLOSE is_qa_coll_reqd;
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:
6851: -- Validate if the actual end dates entered is greater than any WO
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:
6861: END IF; -- Check Input Dates are required
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
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:
6958: -- Add the Resource Requirement in a Table for processing transactions
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
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:
7011: -- Add the Resource Requirement in a Table for processing transactions
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:
7064: /*IF ( SQL%NOTFOUND ) THEN
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:
7071: -- Process all Resource Requirements
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:
7255: -- Validate if the actual end dates entered is greater than any WO Op
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:
7266: END IF;
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;
7283: CLOSE is_qa_coll_reqd;
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;
7316: /* Bug # 4955278 - end */
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
7380:
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:
7435: -- Validate if the actual end dates entered is greater than any WO Op
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; */
7446: /*End ER # 4757222*/
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;
7462: CLOSE is_qa_coll_reqd;
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;
7494: /* Bug # 4955278 - end */
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
7557: END LOOP;
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:
7594: --Balaji-debug
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;
7681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7682: END IF; -- IF get_wo_dates %NOTFOUND THEN
7683: CLOSE get_wo_dates;
7684:
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:
7696: -- update the actual dates in the table
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;
7713: END IF;-- IF l_actual_start_date IS NULL THEN
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;
7732: END IF; -- IF l_actual_end_date IS NULL THEN
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:
7751: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;*/
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:
7848: IF ( G_DEBUG = 'Y' ) THEN
8044:
8045: WHEN FND_API.G_EXC_ERROR THEN
8046: ROLLBACK TO signoff_mr_instance_PVT;
8047: x_return_status := FND_API.G_RET_STS_ERROR;
8048: FND_MSG_PUB.count_and_get
8049: (
8050: p_encoded => FND_API.G_FALSE,
8051: p_count => x_msg_count,
8052: p_data => x_msg_data
8058:
8059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8060: ROLLBACK TO signoff_mr_instance_PVT;
8061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8062: FND_MSG_PUB.count_and_get
8063: (
8064: p_encoded => FND_API.G_FALSE,
8065: p_count => x_msg_count,
8066: p_data => x_msg_data
8072:
8073: WHEN OTHERS THEN
8074: ROLLBACK TO signoff_mr_instance_PVT;
8075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8076: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8077: THEN
8078: FND_MSG_PUB.add_exc_msg
8079: (
8080: p_pkg_name => G_PKG_NAME,
8074: ROLLBACK TO signoff_mr_instance_PVT;
8075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8076: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8077: THEN
8078: FND_MSG_PUB.add_exc_msg
8079: (
8080: p_pkg_name => G_PKG_NAME,
8081: p_procedure_name => l_api_name,
8082: p_error_text => SUBSTRB(SQLERRM,1,240)
8081: p_procedure_name => l_api_name,
8082: p_error_text => SUBSTRB(SQLERRM,1,240)
8083: );
8084: END IF;
8085: FND_MSG_PUB.count_and_get
8086: (
8087: p_encoded => FND_API.G_FALSE,
8088: p_count => x_msg_count,
8089: p_data => x_msg_data
8502: SAVEPOINT close_visit_PVT;
8503:
8504: -- Initialize message list if p_init_msg_list is set to TRUE.
8505: IF FND_API.to_boolean( p_init_msg_list ) THEN
8506: FND_MSG_PUB.initialize;
8507: END IF;
8508:
8509: IF ( G_DEBUG = 'Y' ) THEN
8510: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Validating Inputs' );
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;
8571:
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; */
8593: CLOSE get_unit_on_visit;
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:
8632: END IF; -- if visit_unit not null
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
8694:
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;
8743:
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;
8776:
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:
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
8795: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing MRs in the Visit' );
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;
8978: END LOOP;
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:
9006: -- Ensure that the actual end date entered is greater than any WO
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;
9017: */--end ER # 4757222
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:
9047: -- Validate whether Quality Results are Submitted
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;
9059: CLOSE is_qa_coll_reqd;
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;
9188: END LOOP;
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;
9215: CLOSE is_qa_coll_reqd;
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:
9232: -- Validate if the actual end dates entered is greater than any WO
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;
9242: */--End ER # 4757222
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
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:
9297: -- Add the Resource Requirement Record for Transaction Processing
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: */
9335:
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:
9353: -- Iterate through all the Resource Requirements
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:
9516: -- Validate if the actual end dates entered is greater than any WO Op
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:
9527: END IF;*/
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;
9545: CLOSE is_qa_coll_reqd;
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;
9580:
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;
9694: END LOOP;
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:
9727: l_operation_tbl(i).object_version_number := l_operation_tbl(i).object_version_number + 1;
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;
9806: END IF;-- IF l_actual_start_date IS NULL THEN
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;
9825: END IF; -- IF l_actual_end_date IS NULL THEN
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:
9845: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
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
9980: (
10265:
10266: WHEN FND_API.G_EXC_ERROR THEN
10267: ROLLBACK TO close_visit_PVT;
10268: x_return_status := FND_API.G_RET_STS_ERROR;
10269: FND_MSG_PUB.count_and_get
10270: (
10271: p_encoded => FND_API.G_FALSE,
10272: p_count => x_msg_count,
10273: p_data => x_msg_data
10279:
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: ROLLBACK TO close_visit_PVT;
10282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10283: FND_MSG_PUB.count_and_get
10284: (
10285: p_encoded => FND_API.G_FALSE,
10286: p_count => x_msg_count,
10287: p_data => x_msg_data
10293:
10294: WHEN OTHERS THEN
10295: ROLLBACK TO close_visit_PVT;
10296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10297: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
10298: THEN
10299: FND_MSG_PUB.add_exc_msg
10300: (
10301: p_pkg_name => G_PKG_NAME,
10295: ROLLBACK TO close_visit_PVT;
10296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10297: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
10298: THEN
10299: FND_MSG_PUB.add_exc_msg
10300: (
10301: p_pkg_name => G_PKG_NAME,
10302: p_procedure_name => l_api_name,
10303: p_error_text => SUBSTRB(SQLERRM,1,240)
10302: p_procedure_name => l_api_name,
10303: p_error_text => SUBSTRB(SQLERRM,1,240)
10304: );
10305: END IF;
10306: FND_MSG_PUB.count_and_get
10307: (
10308: p_encoded => FND_API.G_FALSE,
10309: p_count => x_msg_count,
10310: p_data => x_msg_data
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;
10766: END IF;
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;
10778: END IF;
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;
10886: END IF; --IF c_get_op_details%NOTFOUND THEN
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:
11118: IF ( G_DEBUG = 'Y' ) THEN
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:
11210: END IF; -- l_workorder_id IS NOT NULL ..
11371:
11372: BEGIN
11373:
11374: -- Initialize error message stack by default
11375: FND_MSG_PUB.Initialize;
11376:
11377: -- Standard call to check for call compatibility
11378: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
11379: THEN
11377: -- Standard call to check for call compatibility
11378: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
11379: THEN
11380: retcode := 2;
11381: errbuf := FND_MSG_PUB.Get;
11382:
11383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11384: END IF;
11385:
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:
11458: -- log a warning
11456: l_valid_for_close_tbl(l_index) := 'N';
11457:
11458: -- log a warning
11459: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11460: fnd_file.put_line(fnd_file.log, FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE));
11461: FND_MSG_PUB.Delete_Msg;
11462:
11463: END IF;
11464:
11457:
11458: -- log a warning
11459: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11460: fnd_file.put_line(fnd_file.log, FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE));
11461: FND_MSG_PUB.Delete_Msg;
11462:
11463: END IF;
11464:
11465:
11506: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11507: fnd_file.put_line(fnd_file.log, '---------------------------------------------------------------------------------');
11508:
11509: LOOP
11510: l_err_msg := FND_MSG_PUB.GET;
11511: IF l_err_msg IS NULL
11512: THEN
11513: EXIT;
11514: END IF;
11535: -- log a warning
11536: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11537: fnd_file.put_line(fnd_file.log, '---------------------------------------------------------------------------------');
11538: LOOP
11539: l_err_msg := FND_MSG_PUB.GET;
11540: IF l_err_msg IS NULL
11541: THEN
11542: EXIT;
11543: END IF;
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!!
11590:
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!!
11590:
11591: ROLLBACK TO close_workorders_pvt;
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!!
11716:
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!!
11716:
11717: ROLLBACK TO close_workorders_pvt;
12008: EXCEPTION
12009: WHEN FND_API.G_EXC_ERROR THEN
12010: ROLLBACK TO update_accomplishments_PVT;
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: FND_MSG_PUB.count_and_get
12013: (
12014: p_encoded => FND_API.G_FALSE,
12015: p_count => x_msg_count,
12016: p_data => x_msg_data
12022:
12023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12024: ROLLBACK TO update_accomplishments_PVT;
12025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12026: FND_MSG_PUB.count_and_get
12027: (
12028: p_encoded => FND_API.G_FALSE,
12029: p_count => x_msg_count,
12030: p_data => x_msg_data
12032:
12033: WHEN OTHERS THEN
12034: ROLLBACK TO update_accomplishments_PVT;
12035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12036: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
12037: THEN
12038: FND_MSG_PUB.add_exc_msg
12039: (
12040: p_pkg_name => G_PKG_NAME,
12034: ROLLBACK TO update_accomplishments_PVT;
12035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12036: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
12037: THEN
12038: FND_MSG_PUB.add_exc_msg
12039: (
12040: p_pkg_name => G_PKG_NAME,
12041: p_procedure_name => l_api_name,
12042: p_error_text => SUBSTRB(SQLERRM,1,240)
12041: p_procedure_name => l_api_name,
12042: p_error_text => SUBSTRB(SQLERRM,1,240)
12043: );
12044: END IF;
12045: FND_MSG_PUB.count_and_get
12046: (
12047: p_encoded => FND_API.G_FALSE,
12048: p_count => x_msg_count,
12049: p_data => x_msg_data
12154: SAVEPOINT update_signoff_dates_PVT;
12155:
12156: -- Initialize message list if p_init_msg_list is set to TRUE.
12157: IF FND_API.to_boolean( p_init_msg_list ) THEN
12158: FND_MSG_PUB.initialize;
12159: END IF;
12160:
12161: IF ( G_DEBUG = 'Y' ) THEN
12162: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' : Start of API ');
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;*/
12176: CLOSE get_wip_entity_id;
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 ;
12235: END IF;
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 ;
12246: END IF;
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;*/
12285: CLOSE get_ue_det;
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 ;
12359: END IF;
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 ;
12370: END IF;
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;*/
12389: CLOSE get_ue_det;
12436:
12437: WHEN FND_API.G_EXC_ERROR THEN
12438: ROLLBACK TO update_signoff_dates_PVT;
12439: x_return_status := FND_API.G_RET_STS_ERROR;
12440: FND_MSG_PUB.count_and_get
12441: (
12442: p_encoded => FND_API.G_FALSE,
12443: p_count => x_msg_count,
12444: p_data => x_msg_data
12450:
12451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12452: ROLLBACK TO update_signoff_dates_PVT;
12453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12454: FND_MSG_PUB.count_and_get
12455: (
12456: p_encoded => FND_API.G_FALSE,
12457: p_count => x_msg_count,
12458: p_data => x_msg_data
12464:
12465: WHEN OTHERS THEN
12466: ROLLBACK TO update_signoff_dates_PVT;
12467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12468: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
12469: THEN
12470: FND_MSG_PUB.add_exc_msg
12471: (
12472: p_pkg_name => G_PKG_NAME,
12466: ROLLBACK TO update_signoff_dates_PVT;
12467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12468: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
12469: THEN
12470: FND_MSG_PUB.add_exc_msg
12471: (
12472: p_pkg_name => G_PKG_NAME,
12473: p_procedure_name => l_api_name,
12474: p_error_text => SUBSTRB(SQLERRM,1,240)
12473: p_procedure_name => l_api_name,
12474: p_error_text => SUBSTRB(SQLERRM,1,240)
12475: );
12476: END IF;
12477: FND_MSG_PUB.count_and_get
12478: (
12479: p_encoded => FND_API.G_FALSE,
12480: p_count => x_msg_count,
12481: p_data => x_msg_data