[Home] [Help]
63: p_workorder_id = FND_API.G_MISS_NUM OR
64: p_object_version_no IS NULL OR
65: p_object_version_no = FND_API.G_MISS_NUM ) THEN
66: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
67: FND_MSG_PUB.add;
68: RETURN FND_API.G_RET_STS_ERROR;
69: END IF;
70:
71: RETURN FND_API.G_RET_STS_SUCCESS;
145: x_operation_rec.status_code,
146: x_operation_rec.status;
147: IF(get_op_details%NOTFOUND)THEN
148: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
149: FND_MSG_PUB.add;
150: CLOSE get_op_details;
151: RETURN FND_API.G_RET_STS_ERROR;
152: END IF;
153: CLOSE get_op_details;
156: IF ( p_object_version_no IS NOT NULL AND
157: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
158: IF ( x_operation_rec.object_version_number <> p_object_version_no ) THEN
159: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
160: FND_MSG_PUB.add;
161: RETURN FND_API.G_RET_STS_ERROR;
162: END IF;
163: END IF;
164:
356: l_visit_id,
357: l_visit_task_id;
358: IF(get_wo_dtls_csr%NOTFOUND)THEN
359: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
360: FND_MSG_PUB.add;
361: CLOSE get_wo_dtls_csr;
362: RETURN FND_API.G_RET_STS_ERROR;
363: END IF;
364: CLOSE get_wo_dtls_csr;
366: IF ( p_object_version_no IS NOT NULL AND
367: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
368: IF ( x_workorder_rec.object_version_number <> p_object_version_no ) THEN
369: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
370: FND_MSG_PUB.add;
371: RETURN FND_API.G_RET_STS_ERROR;
372: END IF;
373: END IF;
374:
411: RETURN FND_API.G_RET_STS_SUCCESS;
412: EXCEPTION
413: WHEN OTHERS THEN
414: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
415: FND_MSG_PUB.add;
416: RETURN FND_API.G_RET_STS_ERROR;
417:
418: END get_workorder_rec;
419:
428:
429: IF ( p_actual_start_date IS NULL OR
430: p_actual_end_date IS NULL ) THEN
431: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
432: FND_MSG_PUB.add;
433: RETURN FND_API.G_RET_STS_ERROR;
434: END IF;
435:
436: IF ( p_actual_start_date > p_actual_end_date ) THEN
434: END IF;
435:
436: IF ( p_actual_start_date > p_actual_end_date ) THEN
437: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
438: FND_MSG_PUB.add;
439: RETURN FND_API.G_RET_STS_ERROR;
440: END IF;
441:
442: IF ( p_actual_end_date > SYSDATE ) THEN
440: END IF;
441:
442: IF ( p_actual_end_date > SYSDATE ) THEN
443: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
444: FND_MSG_PUB.add;
445: RETURN FND_API.G_RET_STS_ERROR;
446: END IF;
447:
448: RETURN FND_API.G_RET_STS_SUCCESS;
482: INTO l_period_start_date;
483:
484: IF ( get_min_period%NOTFOUND ) THEN
485: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACCT_PERIOD' );
486: FND_MSG_PUB.add;
487: CLOSE get_min_period;
488: RETURN FND_API.G_RET_STS_ERROR;
489: END IF;
490:
489: END IF;
490:
491: IF ( l_period_start_date > p_actual_start_date ) THEN
492: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_LESS_ACCT_PERIOD' );
493: FND_MSG_PUB.add;
494: CLOSE get_min_period;
495: RETURN FND_API.G_RET_STS_ERROR;
496: END IF;
497:
502: INTO l_schedule_close_date;
503:
504: IF ( get_max_period%NOTFOUND ) THEN
505: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACT_PERIOD' );
506: FND_MSG_PUB.add;
507: CLOSE get_max_period;
508: RETURN FND_API.G_RET_STS_ERROR;
509: END IF;
510:
509: END IF;
510:
511: IF ( l_schedule_close_date < p_actual_end_date ) THEN
512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_LESS_ACT_PERIOD' );
513: FND_MSG_PUB.add;
514: CLOSE get_max_period;
515: RETURN FND_API.G_RET_STS_ERROR;
516: END IF;
517:
573: IF ( p_char_id = 125 AND
574: ( l_result_column_value IS NULL OR
575: l_result_column_value <> G_OP_STATUS_COMPLETE ) ) THEN
576: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
577: FND_MSG_PUB.add;
578: RETURN FND_API.G_RET_STS_ERROR;
579:
580: -- Workorder status
581: ELSIF ( p_char_id = 98 AND
581: ELSIF ( p_char_id = 98 AND
582: ( l_result_column_value IS NULL OR
583: l_result_column_value <> G_JOB_STATUS_COMPLETE ) ) THEN
584: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
585: FND_MSG_PUB.add;
586: RETURN FND_API.G_RET_STS_ERROR;
587: END IF;
588: END IF;
589:
616: IF ( get_ahl_txn_rec%FOUND ) THEN
617: -- Ensure that the Actual End date is greater than the last Transaction Date
618: IF ( l_transaction_date > p_actual_end_date ) THEN
619: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_TXNDT' );
620: FND_MSG_PUB.add;
621: CLOSE get_ahl_txn_rec;
622: RETURN FND_API.G_RET_STS_ERROR;
623: END IF;
624: END IF;
662:
663: -- Ensure that the Transaction Type is not COMPLETE.
664: IF ( l_transaction_type = 1 ) THEN
665: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_COMP_IN_EAM' );
666: FND_MSG_PUB.add;
667: CLOSE get_eam_txn_rec;
668: RETURN FND_API.G_RET_STS_ERROR;
669: END IF;
670:
670:
671: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
672: IF ( l_transaction_date > p_actual_end_date ) THEN
673: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_EAM_TXNDT' );
674: FND_MSG_PUB.add;
675: CLOSE get_eam_txn_rec;
676: RETURN FND_API.G_RET_STS_ERROR;
677: END IF;
678: END IF;
839: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
840:
841: IF ( l_msg_data IS NULL ) THEN
842: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
843: FND_MSG_PUB.add;
844: ELSE
845: -- Parse the Encoded message returned by the EAM API
846: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
847: FND_MESSAGE.set_name( l_app_name, l_msg_name );
844: ELSE
845: -- Parse the Encoded message returned by the EAM API
846: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
847: FND_MESSAGE.set_name( l_app_name, l_msg_name );
848: FND_MSG_PUB.add;
849: END IF;
850:
851: RETURN FND_API.G_RET_STS_ERROR;
852:
851: RETURN FND_API.G_RET_STS_ERROR;
852:
853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
855: FND_MSG_PUB.add;
856: RETURN FND_API.G_RET_STS_ERROR;
857: END IF;
858:
859: RETURN FND_API.G_RET_STS_SUCCESS;
938: AND object_version_number = p_workorder_rec.object_version_number;
939:
940: IF ( SQL%ROWCOUNT = 0 ) THEN
941: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
942: FND_MSG_PUB.add;
943: RETURN FND_API.G_RET_STS_ERROR;
944: END IF;
945:
946: -- Set the Transaction Type
980: p_workorder_operation_id = FND_API.G_MISS_NUM OR
981: p_object_version_no IS NULL OR
982: p_object_version_no = FND_API.G_MISS_NUM ) THEN
983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
984: FND_MSG_PUB.add;
985: RETURN FND_API.G_RET_STS_ERROR;
986: END IF;
987:
988: RETURN FND_API.G_RET_STS_SUCCESS;
1013:
1014: -- Ensure that the Actual End date is greater than the last Transaction Date
1015: IF ( l_transaction_date > p_actual_end_date ) THEN
1016: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_TXNDT' );
1017: FND_MSG_PUB.add;
1018: CLOSE get_ahl_txn_rec;
1019: RETURN FND_API.G_RET_STS_ERROR;
1020: END IF;
1021: END IF;
1061:
1062: -- Ensure that the Transaction Type is not COMPLETE.
1063: IF ( l_transaction_type = 1 ) THEN
1064: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_COMP_IN_EAM' );
1065: FND_MSG_PUB.add;
1066: CLOSE get_eam_txn_rec;
1067: RETURN FND_API.G_RET_STS_ERROR;
1068: END IF;
1069:
1069:
1070: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1071: IF ( l_transaction_date > p_actual_end_date ) THEN
1072: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_EAM_TXNDT' );
1073: FND_MSG_PUB.add;
1074: CLOSE get_eam_txn_rec;
1075: RETURN FND_API.G_RET_STS_ERROR;
1076: END IF;
1077: END IF;
1097: BEGIN
1098:
1099: IF ( p_operation_rec.description IS NULL ) THEN
1100: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DESC_NULL' );
1101: FND_MSG_PUB.add;
1102: RETURN FND_API.G_RET_STS_ERROR;
1103: END IF;
1104:
1105: -- rroy
1108: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1109: IF l_return_status = FND_API.G_TRUE THEN
1110: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1111: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1112: FND_MSG_PUB.ADD;
1113: RETURN FND_API.G_RET_STS_ERROR;
1114: END IF;
1115: END IF;
1116: -- rroy
1147: */
1148: --
1149: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_STATUS' );
1150: FND_MESSAGE.set_token( 'STATUS', l_op_status_meaning );
1151: FND_MSG_PUB.add;
1152: RETURN FND_API.G_RET_STS_ERROR;
1153: END IF;
1154:
1155: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1154:
1155: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1156: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1157: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_ST_DT' );
1158: FND_MSG_PUB.add;
1159: RETURN FND_API.G_RET_STS_ERROR;
1160: END IF;
1161:
1162: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1160: END IF;
1161:
1162: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1163: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_END_DT' );
1164: FND_MSG_PUB.add;
1165: RETURN FND_API.G_RET_STS_ERROR;
1166: END IF;
1167: END IF;
1168:
1185: */
1186:
1187: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_WO_STATUS' );
1188: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1189: FND_MSG_PUB.add;
1190: RETURN FND_API.G_RET_STS_ERROR;
1191: END IF;
1192:
1193: /*
1208:
1209: IF ( p_operation_rec.plan_id IS NOT NULL AND
1210: p_operation_rec.collection_id IS NULL ) THEN
1211: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_NO_QA_RESULTS' );
1212: FND_MSG_PUB.add;
1213: RETURN FND_API.G_RET_STS_ERROR;
1214: END IF;
1215:
1216: IF ( p_operation_rec.plan_id IS NOT NULL ) THEN
1286: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1287: IF ( l_msg_data IS NOT NULL ) THEN
1288: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1289: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1290: FND_MSG_PUB.add;
1291: END IF;
1292: RETURN FND_API.G_RET_STS_ERROR;
1293: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1294: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1291: END IF;
1292: RETURN FND_API.G_RET_STS_ERROR;
1293: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1294: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1295: FND_MSG_PUB.add;
1296: RETURN FND_API.G_RET_STS_ERROR;
1297: END IF;
1298:
1299: RETURN FND_API.G_RET_STS_SUCCESS;
1365: AND object_version_number = p_operation_rec.object_version_number;
1366:
1367: IF ( SQL%ROWCOUNT = 0 ) THEN
1368: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
1369: FND_MSG_PUB.add;
1370: RETURN FND_API.G_RET_STS_ERROR;
1371: END IF;
1372:
1373: -- Insert a record in AHL_WO_OPERATION_TXNS for the Completion Transaction.
1415:
1416: /*
1417: IF ( x_operation_tbl.COUNT = 0 ) THEN
1418: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_WO_OPERATIONS' );
1419: FND_MSG_PUB.add;
1420: RETURN FND_API.G_RET_STS_ERROR;
1421: END IF;
1422: */
1423:
1466:
1467: /*IF ( p_workorder_rec.plan_id IS NOT NULL AND
1468: p_workorder_rec.collection_id IS NULL ) THEN
1469: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1470: FND_MSG_PUB.add;
1471: RETURN FND_API.G_RET_STS_ERROR;
1472: END IF;
1473: */
1474: /*
1527: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1528: IF l_return_status = FND_API.G_TRUE THEN
1529: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1530: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1531: FND_MSG_PUB.ADD;
1532: RETURN FND_API.G_RET_STS_ERROR;
1533: END IF;
1534: END IF;
1535: -- rroy
1547: -- bug no 3942950
1548: IF ( p_workorder_rec.plan_id IS NOT NULL AND
1549: p_workorder_rec.collection_id IS NULL ) THEN
1550: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1551: FND_MSG_PUB.add;
1552: RETURN FND_API.G_RET_STS_ERROR;
1553: END IF;
1554:
1555:
1568: AND lookup_code = p_workorder_rec.status_code;
1569: */
1570: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1571: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1572: FND_MSG_PUB.add;
1573: RETURN FND_API.G_RET_STS_ERROR;
1574: END IF;
1575:
1576: IF ( p_operation_tbl.COUNT > 0 ) THEN
1577: FOR i IN 1..p_operation_tbl.COUNT LOOP
1578: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1579: IF ( p_workorder_rec.actual_start_date > p_operation_tbl(i).actual_start_date ) THEN
1580: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1581: FND_MSG_PUB.add;
1582: RETURN FND_API.G_RET_STS_ERROR;
1583: END IF;
1584:
1585: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1583: END IF;
1584:
1585: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1586: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1587: FND_MSG_PUB.add;
1588: RETURN FND_API.G_RET_STS_ERROR;
1589: END IF;
1590: END IF;
1591:
1590: END IF;
1591:
1592: IF ( p_operation_tbl(i).status_code <> G_OP_STATUS_COMPLETE ) THEN
1593: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_OP_STATUS' );
1594: FND_MSG_PUB.add;
1595: RETURN FND_API.G_RET_STS_ERROR;
1596: END IF;
1597:
1598: END LOOP;
1615: parent_csr.status_code <> G_JOB_STATUS_CLOSED AND
1616: parent_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
1617: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PRIOR_WO_NOT_COMPLETE' );
1618: FND_MESSAGE.set_token( 'WO_NAME', parent_csr.workorder_name );
1619: FND_MSG_PUB.add;
1620: RETURN FND_API.G_RET_STS_ERROR;
1621: END IF;
1622: END LOOP;
1623:
1639: -- ACL Changes
1640: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1641: IF l_return_status = FND_API.G_TRUE THEN
1642: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_DEFF_UNTLCKD');
1643: FND_MSG_PUB.ADD;
1644: RETURN FND_API.G_RET_STS_ERROR;
1645: END IF;
1646: --rroy
1647: -- ACL Changes
1670: AND lookup_code = p_workorder_rec.status_code;
1671: */
1672: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1673: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1674: FND_MSG_PUB.add;
1675: RETURN FND_API.G_RET_STS_ERROR;
1676: END IF;
1677:
1678: RETURN FND_API.G_RET_STS_SUCCESS;
1699: p_mr_rec.ue_object_version_no = FND_API.G_MISS_NUM OR
1700: p_mr_rec.ue_object_version_no IS NULL
1701: ) THEN
1702: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1703: FND_MSG_PUB.add;
1704: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1705: END IF;
1706: RETURN FND_API.G_RET_STS_SUCCESS;
1707: END validate_cmri_inputs;
1838: IF (p_mr_status_code <> G_MR_STATUS_JOBS_COMPLETE) THEN
1839: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1840: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1841: FND_MESSAGE.set_token( 'STATUS', p_mr_status);
1842: FND_MSG_PUB.add;
1843: RETURN FND_API.G_RET_STS_ERROR;
1844: END IF;
1845:
1846: RETURN FND_API.G_RET_STS_SUCCESS;
1867: IF p_status_code = G_MR_STATUS_DEFERRAL_PENDING THEN
1868: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1869: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title );
1870: FND_MESSAGE.set_token( 'STATUS', NVL( p_status, p_status_code ) );
1871: FND_MSG_PUB.add;
1872: END IF;
1873:
1874: -- Check if inspection type is not null then plan id is also not null
1875: -- Bug # 6436307 - start
1884: IF (p_qa_plan_id IS NULL) THEN
1885: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_PLAN_ID_NULL' );
1886: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1887: FND_MESSAGE.set_token( 'INSP_TYPE', p_qa_inspection_type );
1888: FND_MSG_PUB.add;
1889: RETURN FND_API.G_RET_STS_ERROR;
1890: END IF;
1891: END IF;
1892:
1900: ) THEN
1901: IF (p_qa_collection_id IS NULL) THEN
1902: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_COL_ID_NULL' );
1903: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1904: FND_MSG_PUB.add;
1905: RETURN FND_API.G_RET_STS_ERROR;
1906: END IF;
1907: END IF;
1908: -- Bug # 6436307 - end
1964: mr_cursor.status_code <> G_MR_STATUS_CANCELLED
1965: ) THEN
1966: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
1967: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_rec.mr_title);
1968: FND_MSG_PUB.add;
1969: RETURN FND_API.G_RET_STS_ERROR;
1970: END IF;
1971:
1972: END LOOP;
2112:
2113: /* Removed for Bug 3310304
2114: IF ( x_counter_tbl.COUNT < 1 ) THEN
2115: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_CTRS_FOR_MR' );
2116: FND_MSG_PUB.add;
2117: RETURN FND_API.G_RET_STS_ERROR;
2118: END IF;
2119: */
2120:
2310:
2311: -- Bug # 6750836 -- start
2312: --x_counter_tbl( l_ctr_count ).counter_reading := 0;
2313: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CN_RESET_ERROR' );
2314: FND_MSG_PUB.add;
2315: RETURN FND_API.G_RET_STS_ERROR;
2316: -- Bug # 6750836 -- end
2317:
2318: END IF;
2422: );
2423: EXCEPTION
2424: WHEN OTHERS THEN
2425: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2426: FND_MSG_PUB.add;
2427: RETURN FND_API.G_RET_STS_ERROR;
2428: END;
2429:
2430: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2429:
2430: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2431: IF ( l_msg_data IS NULL ) THEN
2432: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2433: FND_MSG_PUB.add;
2434: ELSE
2435: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2436: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2437: FND_MSG_PUB.add;
2433: FND_MSG_PUB.add;
2434: ELSE
2435: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2436: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2437: FND_MSG_PUB.add;
2438: END IF;
2439: RETURN FND_API.G_RET_STS_ERROR;
2440: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2441: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2438: END IF;
2439: RETURN FND_API.G_RET_STS_ERROR;
2440: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2441: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2442: FND_MSG_PUB.add;
2443: RETURN FND_API.G_RET_STS_ERROR;
2444: END IF;
2445:
2446: END IF;
2505:
2506: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2507: IF ( l_msg_data IS NULL ) THEN
2508: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2509: FND_MSG_PUB.add;
2510: ELSE
2511: x_msg_count := l_msg_count;
2512: x_msg_data := l_msg_data;
2513: END IF;
2514: RETURN FND_API.G_RET_STS_ERROR;
2515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: IF ( l_msg_data IS NULL ) THEN
2517: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2518: FND_MSG_PUB.add;
2519: ELSE
2520: x_msg_count := l_msg_count;
2521: x_msg_data := l_msg_data;
2522: END IF;
2758: SAVEPOINT complete_operation_PVT;
2759:
2760: -- Initialize message list if p_init_msg_list is set to TRUE.
2761: IF FND_API.to_boolean( p_init_msg_list ) THEN
2762: FND_MSG_PUB.initialize;
2763: END IF;
2764:
2765: -- Validate all the inputs of the API
2766: l_return_status :=
2784: FETCH get_op_details INTO l_workorder_id, l_operation_seq_num, l_actual_start_date, l_actual_end_date;
2785: IF get_op_details%NOTFOUND THEN
2786: CLOSE get_op_details;
2787: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2788: FND_MSG_PUB.add;
2789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2790: END IF;
2791: CLOSE get_op_details;
2792:
2798: x_msg_data => l_msg_data,
2799: p_x_operation_tbl => l_operation_tbl);
2800: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2801: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2802: FND_MSG_PUB.add;
2803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2804: END IF;
2805:
2806: -- update the actual dates in the table
2812: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
2813: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2814: IF SQL%ROWCOUNT = 0 THEN
2815: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2816: FND_MSG_PUB.add;
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: END IF;
2819: END IF; -- IF l_actual_start_date IS NULL THEN
2820: IF l_actual_end_date IS NULL THEN
2825: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
2826: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2827: IF SQL%ROWCOUNT = 0 THEN
2828: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2829: FND_MSG_PUB.add;
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2832: END IF; -- IF l_actual_end_date IS NULL THEN
2833: END IF; -- IF p_default = FND_API.G_TRUE THEN
2877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2878: END IF;
2879:
2880: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2881: l_msg_count := FND_MSG_PUB.count_msg;
2882: IF l_msg_count > 0 THEN
2883: x_msg_count := l_msg_count;
2884: RAISE FND_API.G_EXC_ERROR;
2885: END IF;
2986:
2987: WHEN FND_API.G_EXC_ERROR THEN
2988: ROLLBACK TO complete_operation_PVT;
2989: x_return_status := FND_API.G_RET_STS_ERROR;
2990: FND_MSG_PUB.count_and_get
2991: (
2992: p_encoded => FND_API.G_FALSE,
2993: p_count => x_msg_count,
2994: p_data => x_msg_data
3000:
3001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3002: ROLLBACK TO complete_operation_PVT;
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3004: FND_MSG_PUB.count_and_get
3005: (
3006: p_encoded => FND_API.G_FALSE,
3007: p_count => x_msg_count,
3008: p_data => x_msg_data
3014:
3015: WHEN OTHERS THEN
3016: ROLLBACK TO complete_operation_PVT;
3017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3018: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3019: THEN
3020: FND_MSG_PUB.add_exc_msg
3021: (
3022: p_pkg_name => G_PKG_NAME,
3016: ROLLBACK TO complete_operation_PVT;
3017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3018: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3019: THEN
3020: FND_MSG_PUB.add_exc_msg
3021: (
3022: p_pkg_name => G_PKG_NAME,
3023: p_procedure_name => l_api_name,
3024: p_error_text => SUBSTRB(SQLERRM,1,240)
3023: p_procedure_name => l_api_name,
3024: p_error_text => SUBSTRB(SQLERRM,1,240)
3025: );
3026: END IF;
3027: FND_MSG_PUB.count_and_get
3028: (
3029: p_encoded => FND_API.G_FALSE,
3030: p_count => x_msg_count,
3031: p_data => x_msg_data
3178: SAVEPOINT complete_workorder_PVT;
3179:
3180: -- Initialize message list if p_init_msg_list is set to TRUE.
3181: IF FND_API.to_boolean( p_init_msg_list ) THEN
3182: FND_MSG_PUB.initialize;
3183: END IF;
3184:
3185: l_object_version_number := p_object_version_no;
3186:
3210: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3211: -- Error defaulting the actual dates for workorder WO_NAME before completion.
3212: -- Do we raise an error for this or just ignore the error since this is defaulting code?
3213: -- Check during UTs
3214: FND_MSG_PUB.add;
3215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3216: END IF; -- IF get_wo_dates%NOTFOUND THEN
3217: CLOSE get_wo_dates;
3218:
3221: x_actual_start_date => l_def_actual_start_date,
3222: x_actual_end_date => l_def_actual_end_date);
3223: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
3224: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3225: FND_MSG_PUB.add;
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3228: /* Start ER # 4757222 */
3229: l_up_workorder_rec.WORKORDER_ID := p_workorder_id;
3272: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
3273: WHERE WORKORDER_ID = p_workorder_id;
3274: IF SQL%ROWCOUNT = 0 THEN
3275: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3276: FND_MSG_PUB.add;
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: END IF;
3279: END IF;-- IF l_actual_start_date IS NULL THEN
3280:
3287: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
3288: WHERE WORKORDER_ID = p_workorder_id;
3289: IF SQL%ROWCOUNT = 0 THEN
3290: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3291: FND_MSG_PUB.add;
3292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3293: END IF;
3294: END IF; -- IF l_actual_end_date IS NULL THEN
3295: */
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3342: END IF;
3343:
3344: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3345: l_msg_count := FND_MSG_PUB.count_msg;
3346: IF l_msg_count > 0 THEN
3347: x_msg_count := l_msg_count;
3348: RAISE FND_API.G_EXC_ERROR;
3349: END IF;
3572: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3573: IF ( G_DEBUG = 'Y' ) THEN
3574: 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...' );
3575: FOR I IN 1..l_msg_count LOOP
3576: FND_MSG_PUB.get
3577: (
3578: p_msg_index => i,
3579: p_encoded => FND_API.G_FALSE,
3580: p_data => l_msg_data,
3586: END IF;
3587:
3588: -- Initialize message list since errors are not reported
3589: IF FND_API.to_boolean( p_init_msg_list ) THEN
3590: FND_MSG_PUB.initialize;
3591: END IF;
3592:
3593: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3594: x_return_status := l_return_status;
3624:
3625: WHEN FND_API.G_EXC_ERROR THEN
3626: ROLLBACK TO complete_workorder_PVT;
3627: x_return_status := FND_API.G_RET_STS_ERROR;
3628: FND_MSG_PUB.count_and_get
3629: (
3630: p_encoded => FND_API.G_FALSE,
3631: p_count => x_msg_count,
3632: p_data => x_msg_data
3638:
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: ROLLBACK TO complete_workorder_PVT;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3642: FND_MSG_PUB.count_and_get
3643: (
3644: p_encoded => FND_API.G_FALSE,
3645: p_count => x_msg_count,
3646: p_data => x_msg_data
3652:
3653: WHEN OTHERS THEN
3654: ROLLBACK TO complete_workorder_PVT;
3655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3656: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3657: THEN
3658: FND_MSG_PUB.add_exc_msg
3659: (
3660: p_pkg_name => G_PKG_NAME,
3654: ROLLBACK TO complete_workorder_PVT;
3655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3656: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3657: THEN
3658: FND_MSG_PUB.add_exc_msg
3659: (
3660: p_pkg_name => G_PKG_NAME,
3661: p_procedure_name => l_api_name,
3662: p_error_text => SUBSTRB(SQLERRM,1,240)
3661: p_procedure_name => l_api_name,
3662: p_error_text => SUBSTRB(SQLERRM,1,240)
3663: );
3664: END IF;
3665: FND_MSG_PUB.count_and_get
3666: (
3667: p_encoded => FND_API.G_FALSE,
3668: p_count => x_msg_count,
3669: p_data => x_msg_data
3711: SAVEPOINT defer_workorder_PVT;
3712:
3713: -- Initialize message list if p_init_msg_list is set to TRUE.
3714: IF FND_API.to_boolean( p_init_msg_list ) THEN
3715: FND_MSG_PUB.initialize;
3716: END IF;
3717:
3718: -- Validate all the inputs of the API
3719: l_return_status :=
3757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3758: END IF;
3759:
3760: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3761: l_msg_count := FND_MSG_PUB.count_msg;
3762: IF l_msg_count > 0 THEN
3763: x_msg_count := l_msg_count;
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3873:
3874: WHEN FND_API.G_EXC_ERROR THEN
3875: ROLLBACK TO defer_workorder_PVT;
3876: x_return_status := FND_API.G_RET_STS_ERROR;
3877: FND_MSG_PUB.count_and_get
3878: (
3879: p_encoded => FND_API.G_FALSE,
3880: p_count => x_msg_count,
3881: p_data => x_msg_data
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3889: ROLLBACK TO defer_workorder_PVT;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3891: FND_MSG_PUB.count_and_get
3892: (
3893: p_encoded => FND_API.G_FALSE,
3894: p_count => x_msg_count,
3895: p_data => x_msg_data
3901:
3902: WHEN OTHERS THEN
3903: ROLLBACK TO defer_workorder_PVT;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3905: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3906: THEN
3907: FND_MSG_PUB.add_exc_msg
3908: (
3909: p_pkg_name => G_PKG_NAME,
3903: ROLLBACK TO defer_workorder_PVT;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3905: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3906: THEN
3907: FND_MSG_PUB.add_exc_msg
3908: (
3909: p_pkg_name => G_PKG_NAME,
3910: p_procedure_name => l_api_name,
3911: p_error_text => SUBSTRB(SQLERRM,1,240)
3910: p_procedure_name => l_api_name,
3911: p_error_text => SUBSTRB(SQLERRM,1,240)
3912: );
3913: END IF;
3914: FND_MSG_PUB.count_and_get
3915: (
3916: p_encoded => FND_API.G_FALSE,
3917: p_count => x_msg_count,
3918: p_data => x_msg_data
3977: SAVEPOINT complete_mr_instance_PVT;
3978:
3979: -- Initialize message list if p_init_msg_list is set to TRUE.
3980: IF FND_API.to_boolean( p_init_msg_list ) THEN
3981: FND_MSG_PUB.initialize;
3982: END IF;
3983:
3984: -- Validate all the inputs of the API
3985: l_return_status :=
4233:
4234: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4236: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4237: FND_MSG_PUB.add;
4238: RAISE FND_API.G_EXC_ERROR;
4239: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4276: ||TO_CHAR( parent_csr.unit_effectivity_id )
4277: || ' associated to UE : ' || TO_CHAR( p_x_mr_rec.unit_effectivity_id )
4278: || ' because of...' );
4279: FOR I IN 1..l_msg_count LOOP
4280: FND_MSG_PUB.get
4281: (
4282: p_msg_index => i,
4283: p_encoded => FND_API.G_FALSE,
4284: p_data => l_msg_data,
4290: END IF;
4291:
4292: -- Initialize message list since errors are not reported
4293: IF FND_API.to_boolean( p_init_msg_list ) THEN
4294: FND_MSG_PUB.initialize;
4295: END IF;
4296:
4297: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4298: x_return_status := l_return_status;
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: ROLLBACK TO complete_mr_instance_PVT;
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330: FND_MSG_PUB.count_and_get
4331: (
4332: p_encoded => FND_API.G_FALSE,
4333: p_count => x_msg_count,
4334: p_data => x_msg_data
4340:
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4342: ROLLBACK TO complete_mr_instance_PVT;
4343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4344: FND_MSG_PUB.count_and_get
4345: (
4346: p_encoded => FND_API.G_FALSE,
4347: p_count => x_msg_count,
4348: p_data => x_msg_data
4354:
4355: WHEN OTHERS THEN
4356: ROLLBACK TO complete_mr_instance_PVT;
4357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4358: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4359: THEN
4360: FND_MSG_PUB.add_exc_msg
4361: (
4362: p_pkg_name => G_PKG_NAME,
4356: ROLLBACK TO complete_mr_instance_PVT;
4357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4358: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4359: THEN
4360: FND_MSG_PUB.add_exc_msg
4361: (
4362: p_pkg_name => G_PKG_NAME,
4363: p_procedure_name => l_api_name,
4364: p_error_text => SUBSTRB(SQLERRM,1,240)
4363: p_procedure_name => l_api_name,
4364: p_error_text => SUBSTRB(SQLERRM,1,240)
4365: );
4366: END IF;
4367: FND_MSG_PUB.count_and_get
4368: (
4369: p_encoded => FND_API.G_FALSE,
4370: p_count => x_msg_count,
4371: p_data => x_msg_data
4814: p_signoff_mr_rec.unit_effectivity_id IS NULL OR
4815: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4816: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4817: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4818: FND_MSG_PUB.add;
4819: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4820: END IF;
4821:
4822: IF ( p_signoff_mr_rec.signoff_child_mrs_flag IS NULL OR
4823: p_signoff_mr_rec.signoff_child_mrs_flag = FND_API.G_MISS_CHAR OR
4824: ( p_signoff_mr_rec.signoff_child_mrs_flag <> 'Y' AND
4825: p_signoff_mr_rec.signoff_child_mrs_flag <> 'N' ) ) THEN
4826: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4827: FND_MSG_PUB.add;
4828: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4829: END IF;
4830:
4831: IF ( p_signoff_mr_rec.complete_job_ops_flag IS NULL OR
4832: p_signoff_mr_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4833: ( p_signoff_mr_rec.complete_job_ops_flag <> 'Y' AND
4834: p_signoff_mr_rec.complete_job_ops_flag <> 'N' ) ) THEN
4835: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4836: FND_MSG_PUB.add;
4837: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4838: END IF;
4839:
4840: IF ( p_signoff_mr_rec.transact_resource_flag IS NULL OR
4841: p_signoff_mr_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4842: ( p_signoff_mr_rec.transact_resource_flag <> 'Y' AND
4843: p_signoff_mr_rec.transact_resource_flag <> 'N' ) ) THEN
4844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4845: FND_MSG_PUB.add;
4846: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4847: END IF;
4848:
4849: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4851: p_signoff_mr_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
4852: ( p_signoff_mr_rec.default_actual_dates_flag <> 'Y' AND
4853: p_signoff_mr_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
4854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
4855: FND_MSG_PUB.add;
4856: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4857: END IF;
4858:
4859: IF ( p_signoff_mr_rec.transact_resource_flag = 'Y' AND
4861: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) AND
4862: ( p_signoff_mr_rec.serial_number IS NULL OR
4863: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
4864: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
4865: FND_MSG_PUB.add;
4866: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4867: END IF;
4868:
4869: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4872: p_signoff_mr_rec.actual_start_date = FND_API.G_MISS_DATE OR
4873: p_signoff_mr_rec.actual_end_date IS NULL OR
4874: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
4875: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
4876: FND_MSG_PUB.add;
4877: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4878: END IF;
4879:
4880: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4880: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4881: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4882: p_signoff_mr_rec.actual_end_date < p_signoff_mr_rec.actual_start_date ) THEN
4883: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
4884: FND_MSG_PUB.add;
4885: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4886: END IF;
4887:
4888: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4888: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4889: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4890: p_signoff_mr_rec.actual_end_date > SYSDATE ) THEN
4891: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
4892: FND_MSG_PUB.add;
4893: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4894: END IF;
4895:
4896: RETURN FND_API.G_RET_STS_SUCCESS;
4935: p_close_visit_rec.visit_id IS NULL OR
4936: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
4937: p_close_visit_rec.object_version_number IS NULL ) THEN
4938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
4939: FND_MSG_PUB.add;
4940: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4941: END IF;
4942:
4943: -- rroy
4949: FETCH get_ue_title INTO l_ue_title;
4950: CLOSE get_ue_title;
4951: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
4952: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
4953: FND_MSG_PUB.ADD;
4954: RETURN FND_API.G_RET_STS_ERROR;
4955: END IF;
4956: END LOOP;
4957: -- rroy
4962: p_close_visit_rec.signoff_mrs_flag = FND_API.G_MISS_CHAR OR
4963: ( p_close_visit_rec.signoff_mrs_flag <> 'Y' AND
4964: p_close_visit_rec.signoff_mrs_flag <> 'N' ) ) THEN
4965: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4966: FND_MSG_PUB.add;
4967: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4968: END IF;
4969:
4970: IF ( p_close_visit_rec.complete_job_ops_flag IS NULL OR
4971: p_close_visit_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4972: ( p_close_visit_rec.complete_job_ops_flag <> 'Y' AND
4973: p_close_visit_rec.complete_job_ops_flag <> 'N' ) ) THEN
4974: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4975: FND_MSG_PUB.add;
4976: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4977: END IF;
4978:
4979: IF ( p_close_visit_rec.transact_resource_flag IS NULL OR
4980: p_close_visit_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4981: ( p_close_visit_rec.transact_resource_flag <> 'Y' AND
4982: p_close_visit_rec.transact_resource_flag <> 'N' ) ) THEN
4983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4984: FND_MSG_PUB.add;
4985: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4986: END IF;
4987:
4988: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
4990: p_close_visit_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
4991: ( p_close_visit_rec.default_actual_dates_flag <> 'Y' AND
4992: p_close_visit_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
4993: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
4994: FND_MSG_PUB.add;
4995: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4996: END IF;
4997:
4998: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
5000: p_close_visit_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5001: ( p_close_visit_rec.serial_number IS NULL OR
5002: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5004: FND_MSG_PUB.add;
5005: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5006: END IF;
5007:
5008: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5011: p_close_visit_rec.actual_start_date = FND_API.G_MISS_DATE OR
5012: p_close_visit_rec.actual_end_date IS NULL OR
5013: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5014: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5015: FND_MSG_PUB.add;
5016: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5017: END IF;
5018:
5019: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5019: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5020: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5021: p_close_visit_rec.actual_end_date < p_close_visit_rec.actual_start_date ) THEN
5022: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
5023: FND_MSG_PUB.add;
5024: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5025: END IF;
5026:
5027: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5027: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5028: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5029: p_close_visit_rec.actual_end_date > SYSDATE ) THEN
5030: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
5031: FND_MSG_PUB.add;
5032: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5033: END IF;
5034:
5035: RETURN FND_API.G_RET_STS_SUCCESS;
5141: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
5142: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5143: FND_MESSAGE.set_token( 'START_DT',
5144: TO_CHAR( l_workorder_tbl(l_ctr).actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5145: FND_MSG_PUB.add;
5146: RAISE FND_API.G_EXC_ERROR;
5147: END IF;
5148:
5149: -- Ensure the actual end date entered is greater than the Master Wo
5152: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
5153: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5154: FND_MESSAGE.set_token( 'END_DT',
5155: TO_CHAR( l_workorder_tbl(l_ctr).actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5156: FND_MSG_PUB.add;
5157: RAISE FND_API.G_EXC_ERROR;
5158: END IF;
5159: */--End ER # 4757222
5160:
5177: AND object_version_number = wo_csr.object_version_number;
5178:
5179: IF ( SQL%ROWCOUNT = 0 ) THEN
5180: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5181: FND_MSG_PUB.add;
5182: RETURN FND_API.G_RET_STS_ERROR;
5183: END IF;
5184: EXCEPTION
5185: WHEN OTHERS THEN
5183: END IF;
5184: EXCEPTION
5185: WHEN OTHERS THEN
5186: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5187: FND_MSG_PUB.add;
5188: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5189: END;
5190:
5191: ELSE
5429: -- as the Parent is outside the Hierarchy
5430: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PARENT_WO_NOT_CMPL' );
5431: FND_MESSAGE.set_token( 'WO', p_x_workorder_tbl(i).workorder_name );
5432: FND_MESSAGE.set_token( 'PARENT_WO', l_parent_wo_tbl(j).parent_wo_name );
5433: FND_MSG_PUB.add;
5434: RETURN FND_API.G_RET_STS_ERROR;
5435: END IF; -- Hierarchy check
5436: END IF; -- First Iteration
5437: END IF; -- Parent WOs complete check
5942: SAVEPOINT signoff_mr_instance_PVT;
5943:
5944: -- Initialize message list if p_init_msg_list is set to TRUE.
5945: IF FND_API.to_boolean( p_init_msg_list ) THEN
5946: FND_MSG_PUB.initialize;
5947: END IF;
5948:
5949: IF ( G_DEBUG = 'Y' ) THEN
5950: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Validating Inputs' );
6035: END IF;
6036:
6037: IF ( get_ue_details%NOTFOUND ) THEN
6038: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
6039: FND_MSG_PUB.add;
6040: CLOSE get_ue_details;
6041: RAISE FND_API.G_EXC_ERROR;
6042: END IF;
6043:
6045:
6046: -- Validate Object Version Number
6047: IF ( l_mr_rec.ue_object_version_number <> p_signoff_mr_rec.object_version_number ) THEN
6048: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
6049: FND_MSG_PUB.add;
6050: RAISE FND_API.G_EXC_ERROR;
6051: END IF;
6052:
6053: -- Check if this MR is already signed off
6066: AND LOOKUP_CODE = l_mr_rec.ue_status_code;
6067: */
6068:
6069: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
6070: FND_MSG_PUB.add;
6071: END IF;
6072:
6073: -- Check if the UE is complete
6074: l_return_status:=
6207: )
6208: ) THEN
6209: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
6210: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6211: FND_MSG_PUB.add;
6212: RAISE FND_API.G_EXC_ERROR;
6213: END IF;
6214: END IF;
6215: END LOOP;
6242: wo_csr.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6243: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6244: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6245: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6246: FND_MSG_PUB.add;
6247: RAISE FND_API.G_EXC_ERROR;
6248: END IF;
6249:
6250: -- Validate if the actual end dates entered is greater than any WO
6252: wo_csr.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6253: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6254: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6255: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6256: FND_MSG_PUB.add;
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6259:
6260: END IF; -- Check Input Dates are required
6270: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_csr.workorder_id, NULL, NULL, NULL);
6271: IF l_return_status = FND_API.G_TRUE THEN
6272: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6273: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6274: FND_MSG_PUB.ADD;
6275: RAISE FND_API.G_EXC_ERROR;
6276: END IF;
6277: --nsikka
6278: --Changes made for Bug 5324101 .
6299: */
6300: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
6301: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6302: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
6303: FND_MSG_PUB.add;
6304: RAISE FND_API.G_EXC_ERROR;
6305: END IF;
6306:
6307: -- Validate whether Quality Results are Submitted
6308: IF ( wo_csr.plan_id IS NOT NULL AND
6309: wo_csr.collection_id IS NULL ) THEN
6310: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6311: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6312: FND_MSG_PUB.add;
6313: RAISE FND_API.G_EXC_ERROR;
6314: END IF;
6315:
6316: -- Add the Workorder in the Workorder Records for Completion
6420: wo_csr.master_workorder_flag = 'N') THEN
6421: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_NOT_CMPL' );
6422: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6423: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6424: FND_MSG_PUB.add;
6425: RAISE FND_API.G_EXC_ERROR;
6426: END IF;
6427: END IF; -- Check Complete Workorder Flag
6428:
6442: IF ( l_mr_rec.wo_plan_id IS NOT NULL AND
6443: l_mr_rec.wo_collection_id IS NULL ) THEN
6444: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6445: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6446: FND_MSG_PUB.add;
6447: RAISE FND_API.G_EXC_ERROR;
6448: END IF;
6449:
6450: -- Add the UE Master WO to the Workorder Table of Records
6470: l_mr_rec.actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
6471: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6472: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6473: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_mr_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6474: FND_MSG_PUB.add;
6475: RAISE FND_API.G_EXC_ERROR;
6476: END IF;
6477:
6478: -- Validate if the actual end dates entered is greater than any WO
6480: l_mr_rec.actual_end_date > p_signoff_mr_rec.actual_end_date ) THEN
6481: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6482: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6483: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_mr_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6484: FND_MSG_PUB.add;
6485: RAISE FND_API.G_EXC_ERROR;
6486: END IF;
6487:
6488: END IF; -- Check Input Dates are required
6565: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6566: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6567: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6568: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6569: FND_MSG_PUB.add;
6570: RAISE FND_API.G_EXC_ERROR;
6571: END IF;
6572:
6573: -- Validate if Technicain is entered for Person Type Resource
6577: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6578: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6579: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6580: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6581: FND_MSG_PUB.add;
6582: RAISE FND_API.G_EXC_ERROR;
6583: END IF;
6584:
6585: -- Add the Resource Requirement in a Table for processing transactions
6618: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6619: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6620: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6621: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6622: FND_MSG_PUB.add;
6623: RAISE FND_API.G_EXC_ERROR;
6624: END IF;
6625:
6626: -- Validate if Technicain is entered for Person Type Resource
6630: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6631: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6632: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6633: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6634: FND_MSG_PUB.add;
6635: RAISE FND_API.G_EXC_ERROR;
6636: END IF;
6637:
6638: -- Add the Resource Requirement in a Table for processing transactions
6683: EXCEPTION
6684: WHEN no_data_found THEN
6685: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
6686: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
6687: FND_MSG_PUB.add;
6688: RAISE FND_API.G_EXC_ERROR;
6689: END;
6690:
6691: /*IF ( SQL%NOTFOUND ) THEN
6690:
6691: /*IF ( SQL%NOTFOUND ) THEN
6692: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
6693: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
6694: FND_MSG_PUB.add;
6695: RAISE FND_API.G_EXC_ERROR;
6696: END IF;*/
6697:
6698: -- Process all Resource Requirements
6874: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
6875: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6876: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6877: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
6878: FND_MSG_PUB.add;
6879: RAISE FND_API.G_EXC_ERROR;
6880: END IF;
6881:
6882: -- Validate if the actual end dates entered is greater than any WO Op
6885: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
6886: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6887: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6888: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
6889: FND_MSG_PUB.add;
6890: RAISE FND_API.G_EXC_ERROR;
6891: END IF;
6892:
6893: END IF;
6899: op_csr.collection_id IS NULL ) THEN
6900: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
6901: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6902: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6903: FND_MSG_PUB.add;
6904: RAISE FND_API.G_EXC_ERROR;
6905: END IF;
6906:
6907: -- Add the Wo Operation record in the table of records for Completion
6929: THEN
6930: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
6931: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6932: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6933: FND_MSG_PUB.add;
6934: RAISE FND_API.G_EXC_ERROR;
6935: END IF;
6936: END IF;
6937: /* Bug # 4955278 - end */
6993: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
6994: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6995: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6996: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6997: FND_MSG_PUB.add;
6998: RAISE FND_API.G_EXC_ERROR;
6999: END IF;
7000: END IF; -- Check Complete Operations
7001:
7048: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
7049: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7050: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7051: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7052: FND_MSG_PUB.add;
7053: RAISE FND_API.G_EXC_ERROR;
7054: END IF;
7055:
7056: -- Validate if the actual end dates entered is greater than any WO Op
7059: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
7060: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7061: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7062: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7063: FND_MSG_PUB.add;
7064: RAISE FND_API.G_EXC_ERROR;
7065: END IF;
7066: END IF; */
7067: /*End ER # 4757222*/
7072: l_unassoc_ue_op_rec.collection_id IS NULL ) THEN
7073: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7074: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7075: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7076: FND_MSG_PUB.add;
7077: RAISE FND_API.G_EXC_ERROR;
7078: END IF;
7079:
7080: -- Add the Wo Operation record in the table of records for Completion
7101: THEN
7102: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7103: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7104: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7105: FND_MSG_PUB.add;
7106: RAISE FND_API.G_EXC_ERROR;
7107: END IF;
7108: END IF;
7109: /* Bug # 4955278 - end */
7164: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_OP_NOT_CMPL' );
7165: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7166: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7167: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7168: FND_MSG_PUB.add;
7169: RAISE FND_API.G_EXC_ERROR;
7170: END IF;
7171: END IF; -- complete_job_ops_flag
7172: END LOOP;
7201: AND object_version_number = l_operation_tbl(i).object_version_number;
7202:
7203: IF ( SQL%ROWCOUNT = 0 ) THEN
7204: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7205: FND_MSG_PUB.add;
7206: RAISE FND_API.G_EXC_ERROR;
7207: END IF;
7208:
7209: --Balaji-debug
7291: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7292: -- Error defaulting the actual dates for workorder WO_NAME before completion.
7293: -- Do we raise an error for this or just ignore the error since this is defaulting code?
7294: -- Check during UTs
7295: FND_MSG_PUB.add;
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF; -- IF get_wo_dates %NOTFOUND THEN
7298: CLOSE get_wo_dates;
7299:
7303: x_actual_end_date => l_def_actual_end_date
7304: );
7305: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
7306: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7307: FND_MSG_PUB.add;
7308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7309: END IF;
7310:
7311: -- update the actual dates in the table
7320: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
7321: IF SQL%ROWCOUNT = 0 THEN
7322: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7323: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7324: FND_MSG_PUB.add;
7325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7326: END IF;
7327: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7328: END IF;-- IF l_actual_start_date IS NULL THEN
7339: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
7340: IF SQL%ROWCOUNT = 0 THEN
7341: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7342: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7343: FND_MSG_PUB.add;
7344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7345: END IF;
7346: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7347: END IF; -- IF l_actual_end_date IS NULL THEN
7358: AND object_version_number = l_workorder_tbl(i).object_version_number;
7359:
7360: IF ( SQL%ROWCOUNT = 0 ) THEN
7361: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7362: FND_MSG_PUB.add;
7363: RAISE FND_API.G_EXC_ERROR;
7364: END IF;
7365:
7366: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;*/
7446: WHERE lookup_type = 'AHL_PRD_MR_STATUS'
7447: AND LOOKUP_CODE = l_ue_status_code;
7448: */
7449: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
7450: FND_MSG_PUB.add;
7451: RAISE FND_API.G_EXC_ERROR;
7452: END IF;
7453:
7454: IF ( G_DEBUG = 'Y' ) THEN
7643:
7644: WHEN FND_API.G_EXC_ERROR THEN
7645: ROLLBACK TO signoff_mr_instance_PVT;
7646: x_return_status := FND_API.G_RET_STS_ERROR;
7647: FND_MSG_PUB.count_and_get
7648: (
7649: p_encoded => FND_API.G_FALSE,
7650: p_count => x_msg_count,
7651: p_data => x_msg_data
7657:
7658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7659: ROLLBACK TO signoff_mr_instance_PVT;
7660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7661: FND_MSG_PUB.count_and_get
7662: (
7663: p_encoded => FND_API.G_FALSE,
7664: p_count => x_msg_count,
7665: p_data => x_msg_data
7671:
7672: WHEN OTHERS THEN
7673: ROLLBACK TO signoff_mr_instance_PVT;
7674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7675: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7676: THEN
7677: FND_MSG_PUB.add_exc_msg
7678: (
7679: p_pkg_name => G_PKG_NAME,
7673: ROLLBACK TO signoff_mr_instance_PVT;
7674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7675: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7676: THEN
7677: FND_MSG_PUB.add_exc_msg
7678: (
7679: p_pkg_name => G_PKG_NAME,
7680: p_procedure_name => l_api_name,
7681: p_error_text => SUBSTRB(SQLERRM,1,240)
7680: p_procedure_name => l_api_name,
7681: p_error_text => SUBSTRB(SQLERRM,1,240)
7682: );
7683: END IF;
7684: FND_MSG_PUB.count_and_get
7685: (
7686: p_encoded => FND_API.G_FALSE,
7687: p_count => x_msg_count,
7688: p_data => x_msg_data
8048: SAVEPOINT close_visit_PVT;
8049:
8050: -- Initialize message list if p_init_msg_list is set to TRUE.
8051: IF FND_API.to_boolean( p_init_msg_list ) THEN
8052: FND_MSG_PUB.initialize;
8053: END IF;
8054:
8055: IF ( G_DEBUG = 'Y' ) THEN
8056: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Validating Inputs' );
8138: INTO l_visit_rec;
8139:
8140: IF ( get_visit_details%NOTFOUND ) THEN
8141: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8142: FND_MSG_PUB.add;
8143: CLOSE get_visit_details;
8144: RAISE FND_API.G_EXC_ERROR;
8145: END IF;
8146:
8148:
8149: -- Validate Object Version Number
8150: IF ( l_visit_rec.object_version_number <> p_close_visit_rec.object_version_number ) THEN
8151: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
8152: FND_MSG_PUB.add;
8153: RAISE FND_API.G_EXC_ERROR;
8154: END IF;
8155:
8156: -- Validate the status of the Visit for Top-down Closure
8157: IF ( l_visit_rec.status_code <> G_VISIT_STATUS_RELEASED ) THEN
8158: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_CLOSE_STATUS');
8159: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8160: FND_MESSAGE.set_token( 'STATUS', l_visit_rec.status_code );
8161: FND_MSG_PUB.add;
8162: END IF;
8163:
8164: IF ( G_DEBUG = 'Y' ) THEN
8165: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing MRs in the Visit' );
8332: ) THEN
8333: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_MRS_NOT_CMPL' );
8334: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8335: FND_MESSAGE.set_token( 'MAINT_REQ', mr_csr.title );
8336: FND_MSG_PUB.add;
8337: RAISE FND_API.G_EXC_ERROR;
8338: END IF;
8339: END IF;
8340: END LOOP;
8360: wo_csr.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
8361: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
8362: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8363: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
8364: FND_MSG_PUB.add;
8365: RAISE FND_API.G_EXC_ERROR;
8366: END IF;
8367:
8368: -- Ensure that the actual end date entered is greater than any WO
8371: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
8372: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8373: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
8374: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
8375: FND_MSG_PUB.add;
8376: RAISE FND_API.G_EXC_ERROR;
8377: END IF;
8378: END IF;
8379: */--end ER # 4757222
8402: wo_csr.status_code = G_JOB_STATUS_DEFERRAL_PENDING ) THEN
8403: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
8404: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8405: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
8406: FND_MSG_PUB.add;
8407: RAISE FND_API.G_EXC_ERROR;
8408: END IF;
8409:
8410: -- Validate whether Quality Results are Submitted
8411: IF ( wo_csr.plan_id IS NOT NULL AND
8412: wo_csr.collection_id IS NULL ) THEN
8413: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
8414: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8415: FND_MSG_PUB.add;
8416: RAISE FND_API.G_EXC_ERROR;
8417: END IF;
8418:
8419: -- Add the Workorder for Completion
8529: wo_csr.master_workorder_flag = 'N') THEN
8530: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_NOT_CMPL' );
8531: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8532: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8533: FND_MSG_PUB.add;
8534: RAISE FND_API.G_EXC_ERROR;
8535: END IF;
8536: END IF;
8537: END LOOP;
8553: IF ( l_visit_rec.wo_plan_id IS NOT NULL AND
8554: l_visit_rec.wo_collection_id IS NULL ) THEN
8555: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
8556: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
8557: FND_MSG_PUB.add;
8558: RAISE FND_API.G_EXC_ERROR;
8559: END IF;
8560:
8561: /*start ER # 4757222
8567: l_visit_rec.actual_start_date < p_close_visit_rec.actual_start_date ) THEN
8568: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
8569: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
8570: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_visit_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
8571: FND_MSG_PUB.add;
8572: RAISE FND_API.G_EXC_ERROR;
8573: END IF;
8574:
8575: -- Validate if the actual end dates entered is greater than any WO
8577: l_visit_rec.actual_end_date > p_close_visit_rec.actual_end_date ) THEN
8578: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
8579: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
8580: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_visit_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
8581: FND_MSG_PUB.add;
8582: RAISE FND_API.G_EXC_ERROR;
8583: END IF;
8584: END IF;
8585: */--End ER # 4757222
8620: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
8621: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
8622: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
8623: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
8624: FND_MSG_PUB.add;
8625: RAISE FND_API.G_EXC_ERROR;
8626: END IF;
8627:
8628: -- Check if Employee Number is entered for Machine Type Resource
8632: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
8633: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
8634: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
8635: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
8636: FND_MSG_PUB.add;
8637: RAISE FND_API.G_EXC_ERROR;
8638: END IF;
8639:
8640: -- Add the Resource Requirement Record for Transaction Processing
8670:
8671: IF ( SQL%NOTFOUND ) THEN
8672: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
8673: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
8674: FND_MSG_PUB.add;
8675: RAISE FND_API.G_EXC_ERROR;
8676: END IF;
8677: */
8678:
8688: EXCEPTION
8689: WHEN no_data_found THEN
8690: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
8691: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
8692: FND_MSG_PUB.add;
8693: RAISE FND_API.G_EXC_ERROR;
8694: END;
8695:
8696: -- Iterate through all the Resource Requirements
8852: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_ST_DATE_LESS' );
8853: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8854: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8855: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
8856: FND_MSG_PUB.add;
8857: RAISE FND_API.G_EXC_ERROR;
8858: END IF;
8859:
8860: -- Validate if the actual end dates entered is greater than any WO Op
8863: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ACT_END_DATE_GT' );
8864: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8865: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8866: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
8867: FND_MSG_PUB.add;
8868: RAISE FND_API.G_EXC_ERROR;
8869: END IF;
8870:
8871: END IF;*/
8876: op_csr.collection_id IS NULL ) THEN
8877: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
8878: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8879: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8880: FND_MSG_PUB.add;
8881: RAISE FND_API.G_EXC_ERROR;
8882: END IF;
8883:
8884: l_ctr := l_ctr + 1;
8903: THEN
8904: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
8905: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8906: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8907: FND_MSG_PUB.add;
8908: RAISE FND_API.G_EXC_ERROR;
8909: END IF;
8910: END IF;
8911:
9017: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_OP_NOT_CMPL' );
9018: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9019: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9020: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9021: FND_MSG_PUB.add;
9022: RAISE FND_API.G_EXC_ERROR;
9023: END IF;
9024: END IF;
9025: END LOOP;
9050: AND object_version_number = l_operation_tbl(i).object_version_number;
9051:
9052: IF ( SQL%ROWCOUNT = 0 ) THEN
9053: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9054: FND_MSG_PUB.add;
9055: RAISE FND_API.G_EXC_ERROR;
9056: END IF;
9057:
9058: l_operation_tbl(i).object_version_number := l_operation_tbl(i).object_version_number + 1;
9124: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
9125: IF SQL%ROWCOUNT = 0 THEN
9126: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9127: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9128: FND_MSG_PUB.add;
9129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9130: END IF;
9131: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9132: END IF;-- IF l_actual_start_date IS NULL THEN
9143: AND OBJECT_VERSION_NUMBER = l_workorder_tbl(i).object_version_number;
9144: IF SQL%ROWCOUNT = 0 THEN
9145: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9146: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9147: FND_MSG_PUB.add;
9148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9149: END IF;
9150: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9151: END IF; -- IF l_actual_end_date IS NULL THEN
9163: AND object_version_number = l_workorder_tbl(i).object_version_number;
9164:
9165: IF ( SQL%ROWCOUNT = 0 ) THEN
9166: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9167: FND_MSG_PUB.add;
9168: RAISE FND_API.G_EXC_ERROR;
9169: END IF;
9170:
9171: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9261: WHERE lookup_type = 'AHL_PRD_MR_STATUS'
9262: AND LOOKUP_CODE = l_ue_status_code;
9263: */
9264: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9265: FND_MSG_PUB.add;
9266: RAISE FND_API.G_EXC_ERROR;
9267: END IF;
9268: complete_mr_instance
9269: (
9480:
9481: WHEN FND_API.G_EXC_ERROR THEN
9482: ROLLBACK TO close_visit_PVT;
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: FND_MSG_PUB.count_and_get
9485: (
9486: p_encoded => FND_API.G_FALSE,
9487: p_count => x_msg_count,
9488: p_data => x_msg_data
9494:
9495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9496: ROLLBACK TO close_visit_PVT;
9497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9498: FND_MSG_PUB.count_and_get
9499: (
9500: p_encoded => FND_API.G_FALSE,
9501: p_count => x_msg_count,
9502: p_data => x_msg_data
9508:
9509: WHEN OTHERS THEN
9510: ROLLBACK TO close_visit_PVT;
9511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9512: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
9513: THEN
9514: FND_MSG_PUB.add_exc_msg
9515: (
9516: p_pkg_name => G_PKG_NAME,
9510: ROLLBACK TO close_visit_PVT;
9511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9512: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
9513: THEN
9514: FND_MSG_PUB.add_exc_msg
9515: (
9516: p_pkg_name => G_PKG_NAME,
9517: p_procedure_name => l_api_name,
9518: p_error_text => SUBSTRB(SQLERRM,1,240)
9517: p_procedure_name => l_api_name,
9518: p_error_text => SUBSTRB(SQLERRM,1,240)
9519: );
9520: END IF;
9521: FND_MSG_PUB.count_and_get
9522: (
9523: p_encoded => FND_API.G_FALSE,
9524: p_count => x_msg_count,
9525: p_data => x_msg_data
9957: 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;
9958: IF c_get_op_details%NOTFOUND THEN
9959: CLOSE c_get_op_details;
9960: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
9961: FND_MSG_PUB.add;
9962: x_return_status := FND_API.G_RET_STS_ERROR;
9963: RETURN;
9964: --RAISE FND_API.G_RET_STS_ERROR;
9965: END IF;
9969: FETCH c_get_wo_details INTO l_wip_entity_id;
9970: IF c_get_wo_details%NOTFOUND THEN
9971: CLOSE c_get_wo_details;
9972: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FND');
9973: FND_MSG_PUB.add;
9974: X_return_status := FND_API.G_RET_STS_ERROR;
9975: RETURN;
9976: --RAISE FND_API.G_RET_STS_ERROR;
9977: END IF;
10075: 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;
10076: IF c_get_op_details%NOTFOUND THEN
10077: CLOSE c_get_op_details;
10078: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10079: FND_MSG_PUB.add;
10080: x_return_status := FND_API.G_RET_STS_ERROR;
10081: RETURN;
10082: --RAISE FND_API.G_RET_STS_ERROR;
10083: END IF; --IF c_get_op_details%NOTFOUND THEN
10283: -- All three input params are null
10284: -- throw an error
10285: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
10286: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
10287: FND_MSG_PUB.add;
10288: RETURN FND_API.G_RET_STS_ERROR;
10289: END IF;
10290:
10291: IF ( G_DEBUG = 'Y' ) THEN
10375:
10376: --RETURN l_return_status;
10377: ELSE
10378: FND_MESSAGE.SET_NAME('AHL', 'AHL_PP_WORKORDER_NOT_EXISTS');
10379: FND_MSG_PUB.ADD;
10380: --RETURN FND_API.G_RET_STS_ERROR;
10381: l_return_status := FND_API.G_RET_STS_ERROR;
10382:
10383: END IF; -- l_workorder_id IS NOT NULL ..
10544:
10545: BEGIN
10546:
10547: -- Initialize error message stack by default
10548: FND_MSG_PUB.Initialize;
10549:
10550: -- Standard call to check for call compatibility
10551: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
10552: THEN
10550: -- Standard call to check for call compatibility
10551: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
10552: THEN
10553: retcode := 2;
10554: errbuf := FND_MSG_PUB.Get;
10555:
10556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10557: END IF;
10558:
10623: IF l_return_status = FND_API.G_TRUE THEN
10624:
10625: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_LGN_UNTLCKD');
10626: FND_MESSAGE.set_token('WO_NUM', l_workorder_name_tbl(l_index));
10627: FND_MSG_PUB.ADD;
10628:
10629: l_valid_for_close_tbl(l_index) := 'N';
10630:
10631: -- log a warning
10629: l_valid_for_close_tbl(l_index) := 'N';
10630:
10631: -- log a warning
10632: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
10633: fnd_file.put_line(fnd_file.log, FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE));
10634: FND_MSG_PUB.Delete_Msg;
10635:
10636: END IF;
10637:
10630:
10631: -- log a warning
10632: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
10633: fnd_file.put_line(fnd_file.log, FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE));
10634: FND_MSG_PUB.Delete_Msg;
10635:
10636: END IF;
10637:
10638:
10679: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
10680: fnd_file.put_line(fnd_file.log, '---------------------------------------------------------------------------------');
10681:
10682: LOOP
10683: l_err_msg := FND_MSG_PUB.GET;
10684: IF l_err_msg IS NULL
10685: THEN
10686: EXIT;
10687: END IF;
10727: Sqlerrm(-sql%bulk_exceptions(j).error_code) );
10728: END LOOP;
10729:
10730: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_CANNOT_CLOSE');
10731: FND_MSG_PUB.add;
10732: errbuf := FND_MSG_PUB.Get;
10733:
10734: retcode := 2; -- error!!
10735:
10728: END LOOP;
10729:
10730: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_CANNOT_CLOSE');
10731: FND_MSG_PUB.add;
10732: errbuf := FND_MSG_PUB.Get;
10733:
10734: retcode := 2; -- error!!
10735:
10736: ROLLBACK TO close_workorders_pvt;
10853: Sqlerrm(-sql%bulk_exceptions(j).error_code) );
10854: END LOOP;
10855:
10856: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_CANNOT_CLOSE');
10857: FND_MSG_PUB.add;
10858: errbuf := FND_MSG_PUB.Get;
10859:
10860: retcode := 2; -- error!!
10861:
10854: END LOOP;
10855:
10856: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_CANNOT_CLOSE');
10857: FND_MSG_PUB.add;
10858: errbuf := FND_MSG_PUB.Get;
10859:
10860: retcode := 2; -- error!!
10861:
10862: ROLLBACK TO close_workorders_pvt;