[Home] [Help]
20: IF(p_user_id IS NOT NULL) THEN
21: OPEN get_user_id_csr(p_user_id);
22: FETCH get_user_id_csr INTO l_user_id;
23: IF get_user_id_csr%NOTFOUND THEN
24: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_BPEL_USR');
25: FND_MESSAGE.SET_TOKEN('USER_NAME',p_user_id);
26: FND_MSG_PUB.ADD;
27: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
28: END IF;
21: OPEN get_user_id_csr(p_user_id);
22: FETCH get_user_id_csr INTO l_user_id;
23: IF get_user_id_csr%NOTFOUND THEN
24: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_BPEL_USR');
25: FND_MESSAGE.SET_TOKEN('USER_NAME',p_user_id);
26: FND_MSG_PUB.ADD;
27: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
28: END IF;
29: CLOSE get_user_id_csr;
170:
171:
172:
173: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
174: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
175: FND_MSG_PUB.ADD;
176: RAISE FND_API.G_EXC_ERROR;
177: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
178: l_workorder_id := get_workorder_id(p_WorkorderNumber);
183:
184: OPEN get_wo_details_csr(l_workorder_id);
185: FETCH get_wo_details_csr INTO l_wo_details;
186: IF(get_wo_details_csr%NOTFOUND)THEN
187: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
188: FND_MSG_PUB.ADD;
189: CLOSE get_wo_details_csr;
190: RAISE FND_API.G_EXC_ERROR;
191: ELSE
352: FND_MSG_PUB.Initialize;
353: END IF;
354: -- Check Error Message stack.
355: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
356: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
357: FND_MSG_PUB.ADD;
358: RAISE FND_API.G_EXC_ERROR;
359: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
360: l_workorder_id := get_workorder_id(p_WorkorderNumber);
504: END IF;
505:
506: -- Check Error Message stack.
507: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
508: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
509: FND_MSG_PUB.ADD;
510: RAISE FND_API.G_EXC_ERROR;
511: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
512: l_workorder_id := get_workorder_id(p_WorkorderNumber);
679: END IF;
680:
681: -- Check Error Message stack.
682: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
683: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
684: FND_MSG_PUB.ADD;
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
687: l_workorder_id := get_workorder_id(p_WorkorderNumber);
792: END IF;
793:
794: -- Check Error Message stack.
795: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
796: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
797: FND_MSG_PUB.ADD;
798: RAISE FND_API.G_EXC_ERROR;
799: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
800: l_workorder_id := get_workorder_id(p_WorkorderNumber);
919: END IF;
920:
921: -- Check Error Message stack.
922: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
923: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
924: FND_MSG_PUB.ADD;
925: RAISE FND_API.G_EXC_ERROR;
926: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
927: l_workorder_id := get_workorder_id(p_WorkorderNumber);
937: IF(p_WoOperationId IS NOT NULL)THEN
938: OPEN get_operation_sequence_csr(p_WoOperationId);
939: FETCH get_operation_sequence_csr INTO l_operation_sequence;
940: IF(get_operation_sequence_csr%NOTFOUND)THEN
941: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
942: FND_MSG_PUB.ADD;
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: CLOSE get_operation_sequence_csr;
1183: END IF;
1184:
1185: -- Check Error Message stack.
1186: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
1187: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
1188: FND_MSG_PUB.ADD;
1189: RAISE FND_API.G_EXC_ERROR;
1190: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
1191: l_workorder_id := get_workorder_id(p_WorkorderNumber);
1384: BEGIN
1385: OPEN get_workorder_id_csr(p_WorkorderNumber);
1386: FETCH get_workorder_id_csr INTO l_workorder_id;
1387: IF(get_workorder_id_csr%NOTFOUND)THEN
1388: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
1389: FND_MSG_PUB.ADD;
1390: CLOSE get_workorder_id_csr;
1391: RAISE FND_API.G_EXC_ERROR;
1392: END IF;
1407: BEGIN
1408: OPEN get_workorder_operation_id_csr(p_WorkorderId, p_operation_sequence);
1409: FETCH get_workorder_operation_id_csr INTO l_workorder_operation_id;
1410: IF(get_workorder_operation_id_csr%NOTFOUND)THEN
1411: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
1412: FND_MSG_PUB.ADD;
1413: CLOSE get_workorder_operation_id_csr;
1414: RAISE FND_API.G_EXC_ERROR;
1415: END IF;
1508: END LOOP;
1509:
1510: IF(l_trunover_notes_tbl IS NOT NULL AND l_trunover_notes_tbl.COUNT > 0)THEN
1511: IF(p_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
1512: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_TRNNTREC_NALWD');
1513: FND_MSG_PUB.ADD;
1514: RAISE FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1566: BEGIN
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568:
1569: IF(p_CURR_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
1570: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_UPD_NALWD');
1571: FND_MSG_PUB.ADD;
1572: RAISE FND_API.G_EXC_ERROR;
1573: END IF;
1574:
1577: IF p_WO_DETAILS_REC.StatusCode IS NULL AND p_WO_DETAILS_REC.Status IS NOT NULL THEN
1578: OPEN get_status_csr(p_WO_DETAILS_REC.Status);
1579: FETCH get_status_csr INTO l_status_code;
1580: IF get_status_csr%NOTFOUND THEN
1581: FND_MESSAGE.SET_NAME('AHL','AHL_PP_JOB_INV_STATUS_JSP');
1582: FND_MSG_PUB.ADD;
1583: CLOSE get_status_csr;
1584: RAISE FND_API.G_EXC_ERROR;
1585: ELSE
1591: IF l_status_code IS NOT NULL AND l_status_code <> '4' THEN
1592: OPEN validate_status_csr(l_status_code,p_CURR_WO_DETAILS_REC.StatusCode);
1593: FETCH validate_status_csr INTO l_dummy_ctr;
1594: IF validate_status_csr%NOTFOUND THEN
1595: FND_MESSAGE.SET_NAME('AHL','AHL_UMP_INVALID_STTS_CHNG');
1596: FND_MESSAGE.SET_TOKEN('FROM_STATUS',p_CURR_WO_DETAILS_REC.StatusCode);
1597: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_status_code);
1598: FND_MSG_PUB.ADD;
1599: CLOSE validate_status_csr;
1592: OPEN validate_status_csr(l_status_code,p_CURR_WO_DETAILS_REC.StatusCode);
1593: FETCH validate_status_csr INTO l_dummy_ctr;
1594: IF validate_status_csr%NOTFOUND THEN
1595: FND_MESSAGE.SET_NAME('AHL','AHL_UMP_INVALID_STTS_CHNG');
1596: FND_MESSAGE.SET_TOKEN('FROM_STATUS',p_CURR_WO_DETAILS_REC.StatusCode);
1597: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_status_code);
1598: FND_MSG_PUB.ADD;
1599: CLOSE validate_status_csr;
1600: RAISE FND_API.G_EXC_ERROR;
1593: FETCH validate_status_csr INTO l_dummy_ctr;
1594: IF validate_status_csr%NOTFOUND THEN
1595: FND_MESSAGE.SET_NAME('AHL','AHL_UMP_INVALID_STTS_CHNG');
1596: FND_MESSAGE.SET_TOKEN('FROM_STATUS',p_CURR_WO_DETAILS_REC.StatusCode);
1597: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_status_code);
1598: FND_MSG_PUB.ADD;
1599: CLOSE validate_status_csr;
1600: RAISE FND_API.G_EXC_ERROR;
1601: ELSE
1638: p_workorder_id => p_CURR_WO_DETAILS_REC.WorkorderId
1639: );
1640: ELSIF(l_status_code = '4')THEN
1641: IF(p_CURR_WO_DETAILS_REC.IsCompleteEnabled <> 'T')THEN
1642: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_COMP_NALWD');
1643: FND_MSG_PUB.ADD;
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646: -- complete job
1723: RETURN;
1724: END IF;
1725:
1726: IF(p_OP_DETAILS_REC.IsQualityEnabled <> 'T')THEN
1727: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPQASUB_NALWD');
1728: FND_MSG_PUB.ADD;
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731:
1854: );
1855: --DBMS_OUTPUT.put_line('x_return_status :i: ' || x_return_status);
1856: IF(p_Operations(i).ObjectVersionNumber IS NULL OR
1857: p_Operations(i).ObjectVersionNumber <> l_Operations(0).ObjectVersionNumber)THEN
1858: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1859: FND_MSG_PUB.ADD;
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862: IF(l_Operations(0).IsUpdateEnabled <> 'T')THEN
1859: FND_MSG_PUB.ADD;
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862: IF(l_Operations(0).IsUpdateEnabled <> 'T')THEN
1863: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPUPD_NALWD');
1864: FND_MSG_PUB.ADD;
1865: RAISE FND_API.G_EXC_ERROR;
1866: END IF;
1867: process_op_quality
1884: IF(p_Operations(i).StatusCode IS NOT NULL OR p_Operations(i).Status IS NOT NULL
1885: OR p_Operations(i).ActualStartDate IS NOT NULL
1886: or p_operations(i).actualenddate is not null)then
1887: IF(p_Operations(i).StatusCode IS NOT NULL AND p_Operations(i).StatusCode NOT IN ('1','2'))THEN
1888: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPUPD_NALWD');
1889: FND_MSG_PUB.ADD;
1890: RAISE FND_API.G_EXC_ERROR;
1891: end if;
1892: l_prd_operation_tbl(j).status_code := p_operations(i).statuscode;
1894: if(p_operations(i).status is not null)then
1895: open get_op_status_code(p_operations(i).status);
1896: fetch get_op_status_code into l_prd_operation_tbl(j).status_code;
1897: if get_op_status_code%notfound then
1898: fnd_message.set_name('AHL','AHL_PRD_OPUPD_NALWD');
1899: fnd_msg_pub.add;
1900: close get_op_status_code;
1901: raise fnd_api.g_exc_error;
1902: end if;
2048: IF(p_WO_QaResults.QA_RESULT_TBL IS NULL OR p_WO_QaResults.QA_RESULT_TBL.COUNT < 1)THEN
2049: RETURN;
2050: END IF;
2051: IF(p_WO_DETAILS_REC.IsQualityEnabled <> 'T')THEN
2052: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WOQASUB_NALWD');
2053: FND_MSG_PUB.ADD;
2054: RAISE FND_API.G_EXC_ERROR;
2055: END IF;
2056:
2169: END LOOP;
2170:
2171: IF(l_res_txns_tbl IS NOT NULL AND l_res_txns_tbl.COUNT > 0)THEN
2172: IF(p_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
2173: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_RES_TXN_NALWD');
2174: FND_MSG_PUB.ADD;
2175: RAISE FND_API.G_EXC_ERROR;
2176: END IF;
2177: AHL_PRD_RESOURCE_TRANX_PVT.process_resource_txns
2258: END IF;
2259: IF(p_WO_DETAILS_REC.ObjectVersionNumber IS NULL OR
2260: p_WO_DETAILS_REC.ObjectVersionNumber <> l_WO_DETAILS_REC.ObjectVersionNumber)THEN
2261: --AHL_DEBUG_PUB.debug( 'Object Version Numbers are not same');
2262: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2263: FND_MSG_PUB.ADD;
2264: RAISE FND_API.G_EXC_ERROR;
2265: END IF;
2266: process_turnover_notes(