[Home] [Help]
1: PACKAGE BODY EAM_PROCESS_WO_PVT AS
2: /* $Header: EAMVWOPB.pls 120.99.12020000.4 2013/01/18 10:11:20 fqu ship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
10: -- EAMVWOPB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package EAM_PROCESS_WO_PVT
15: --
16: -- NOTES
17: --
18: -- HISTORY
25: quality action trigger only if there
26: are valid quality plans setup
27: ***************************************************************************/
28:
29: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_PROCESS_WO_PVT';
30:
31: G_EXC_QUIT_IMPORT EXCEPTION;
32:
33: EXC_SEV_QUIT_RECORD EXCEPTION;
137: l_status_changed_event := 'oracle.apps.eam.workorder.status.changed';
138:
139:
140: --if workorder created and create event enabled
141: IF(p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE AND (WF_EVENT.TEST(l_create_event) <> 'NONE')) THEN
142: SELECT EAM_WORKFLOW_EVENT_S.NEXTVAL
143: INTO l_wf_event_seq
144: FROM DUAL;
145:
182:
183: --if workorder created or user-defined status modified or chaged from pending to non-pending
184: IF( (NVL(p_eam_wo_rec.pending_flag,'N')='N' )
185: AND
186: ( (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
187: OR (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
188: --and old status is not same as new status
189: AND (p_old_eam_wo_rec.user_defined_status_id <>p_eam_wo_rec.user_defined_status_id OR NVL(p_old_eam_wo_rec.pending_flag,'N')='Y' )
190: ))
183: --if workorder created or user-defined status modified or chaged from pending to non-pending
184: IF( (NVL(p_eam_wo_rec.pending_flag,'N')='N' )
185: AND
186: ( (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
187: OR (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
188: --and old status is not same as new status
189: AND (p_old_eam_wo_rec.user_defined_status_id <>p_eam_wo_rec.user_defined_status_id OR NVL(p_old_eam_wo_rec.pending_flag,'N')='Y' )
190: ))
191: AND (WF_EVENT.TEST(l_status_changed_event) <> 'NONE') --if status change event enabled
492:
493:
494: BEGIN
495:
496: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.RESOURCE_USAGES : Start=== '||p_eam_res_usage_tbl.COUNT ||' records passed =======================') ; END IF ;
497:
498: x_return_status := FND_API.G_RET_STS_SUCCESS;
499:
500: -- Init local table variables.
505:
506: FOR I IN 1..l_eam_res_usage_tbl.COUNT LOOP
507: BEGIN
508:
509: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
510:
511: -- Load local records.
512: l_eam_res_usage_rec := l_eam_res_usage_tbl(I);
513:
516: l_process_children := FALSE;
517:
518:
519: IF l_eam_res_usage_rec.wip_entity_id is NULL
520: AND (l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
521: OR l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
522: THEN
523: l_eam_res_usage_rec.wip_entity_id := p_wip_entity_id;
524: END IF;
517:
518:
519: IF l_eam_res_usage_rec.wip_entity_id is NULL
520: AND (l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
521: OR l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
522: THEN
523: l_eam_res_usage_rec.wip_entity_id := p_wip_entity_id;
524: END IF;
525:
545: )
546: )
547: THEN
548:
549: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
550:
551:
552: l_return_status := FND_API.G_RET_STS_SUCCESS;
553: l_eam_res_usage_rec.return_status := FND_API.G_RET_STS_SUCCESS;
572: , x_return_status => l_return_status
573: , x_mesg_token_tbl => l_mesg_token_tbl
574: ) ;
575:
576: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
577:
578: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
579: THEN
580: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
576: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
577:
578: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
579: THEN
580: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
581: THEN
582: l_other_message := 'EAM_RU_REQ_CSEV_SKIP';
583: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
584: l_other_token_tbl(1).token_value := l_eam_res_usage_rec.resource_seq_num ;
600: , x_return_status => l_return_status
601: , x_mesg_token_tbl => l_mesg_token_tbl
602: );
603:
604: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
605:
606: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
607: THEN
608: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
604: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
605:
606: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
607: THEN
608: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
609: THEN
610: l_other_message := 'EAM_RU_ATTVAL_CSEV_SKIP';
611: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
612: l_other_token_tbl(1).token_value := l_eam_res_usage_rec.resource_seq_num ;
681: );
682: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
683: END IF;
684:
685: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
686: END IF ; -- bug 5224748. end of check for x_bottomup_scheduled = G_NON_FIRM_WORKORDER
687:
688: ELSE
689:
686: END IF ; -- bug 5224748. end of check for x_bottomup_scheduled = G_NON_FIRM_WORKORDER
687:
688: ELSE
689:
690: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
691:
692: END IF; -- END IF statement that checks RETURN STATUS
693:
694: --find if bottom up scheduler is to be called or not
692: END IF; -- END IF statement that checks RETURN STATUS
693:
694: --find if bottom up scheduler is to be called or not
695:
696: IF(l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource usage is added
697: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE ) --deleted
698: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource usage
699:
700: (
693:
694: --find if bottom up scheduler is to be called or not
695:
696: IF(l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource usage is added
697: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE ) --deleted
698: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource usage
699:
700: (
701: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
694: --find if bottom up scheduler is to be called or not
695:
696: IF(l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource usage is added
697: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE ) --deleted
698: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource usage
699:
700: (
701: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
702: -- OR
961:
962:
963: END LOOP; -- END Resources processing loop
964:
965: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.RESOURCE_USAGES : End ==== Return status: '||NVL(l_return_status, 'S')||' =======================') ; END IF ;
966:
967: -- Load OUT parameters
968: IF NVL(l_return_status, 'S') <> 'S'
969: THEN
1044:
1045:
1046: BEGIN
1047:
1048: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.SUB_RESOURCES : Start=== '||p_eam_sub_res_tbl.COUNT ||' records passed =======================') ; END IF ;
1049:
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;
1051:
1052: -- Init local table variables.
1057:
1058: FOR I IN 1..l_eam_sub_res_tbl.COUNT LOOP
1059: BEGIN
1060:
1061: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
1062:
1063: -- Load local records.
1064: l_eam_sub_res_rec := l_eam_sub_res_tbl(I);
1065:
1069:
1070:
1071:
1072: IF l_eam_sub_res_rec.wip_entity_id is NULL
1073: AND (l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1074: OR l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1075: THEN
1076: l_eam_sub_res_rec.wip_entity_id := p_wip_entity_id;
1077: END IF;
1070:
1071:
1072: IF l_eam_sub_res_rec.wip_entity_id is NULL
1073: AND (l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1074: OR l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1075: THEN
1076: l_eam_sub_res_rec.wip_entity_id := p_wip_entity_id;
1077: END IF;
1078:
1096: )
1097: )
1098: THEN
1099:
1100: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
1101:
1102:
1103: l_return_status := FND_API.G_RET_STS_SUCCESS;
1104: l_eam_sub_res_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1123: , x_mesg_token_tbl => l_mesg_token_tbl
1124: , x_return_status => l_return_status
1125: ) ;
1126:
1127: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
1128:
1129: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1130: THEN
1131: l_other_message := 'EAM_SR_EXS_SEV_SKIP';
1145: END IF;
1146:
1147: /* Assign the correct transaction type for SYNC operations */
1148:
1149: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
1150: l_eam_sub_res_rec.transaction_type := l_old_eam_sub_res_rec.transaction_type;
1151: END IF;
1152:
1153:
1150: l_eam_sub_res_rec.transaction_type := l_old_eam_sub_res_rec.transaction_type;
1151: END IF;
1152:
1153:
1154: IF l_eam_sub_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1155: THEN
1156:
1157: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1158: END IF ;
1153:
1154: IF l_eam_sub_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1155: THEN
1156:
1157: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1158: END IF ;
1159:
1160: l_out_eam_sub_res_rec := l_eam_sub_res_rec;
1161:
1167:
1168: l_eam_sub_res_rec := l_out_eam_sub_res_rec;
1169:
1170:
1171: ELSIF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1172: THEN
1173:
1174: l_out_eam_sub_res_rec := l_eam_sub_res_rec;
1175:
1181: ) ;
1182:
1183: l_eam_sub_res_rec := l_out_eam_sub_res_rec;
1184:
1185: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
1186: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
1187: END IF ;
1188:
1189:
1232: , x_return_status => l_return_status
1233: , x_mesg_token_tbl => l_mesg_token_tbl
1234: ) ;
1235:
1236: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
1237:
1238:
1239: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1240: THEN
1237:
1238:
1239: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1240: THEN
1241: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1242: THEN
1243: l_other_message := 'EAM_SR_REQ_CSEV_SKIP';
1244: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
1245: l_other_token_tbl(1).token_value := l_eam_sub_res_rec.resource_seq_num ;
1262: , x_return_status => l_return_status
1263: , x_mesg_token_tbl => l_mesg_token_tbl
1264: ) ;
1265:
1266: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
1267:
1268: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1269: THEN
1270: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1266: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
1267:
1268: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1269: THEN
1270: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1271: THEN
1272: l_other_message := 'EAM_SR_ATTVAL_CSEV_SKIP';
1273: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
1274: l_other_token_tbl(1).token_value := l_eam_sub_res_rec.resource_seq_num ;
1346: l_eam_sub_res_tbl := l_out_eam_sub_res_tbl;
1347: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
1348: END IF;
1349:
1350: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
1351:
1352: ELSE
1353:
1354: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
1350: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
1351:
1352: ELSE
1353:
1354: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
1355:
1356: END IF; -- END IF statement that checks RETURN STATUS
1357:
1358: -- Load tables.
1630:
1631:
1632: -- Process Resource Usage that are direct children of this
1633: -- operation
1634: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling RESOURCE_USAGES from SUB_RESOURCE') ; END IF ;
1635:
1636: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
1637:
1638: RESOURCE_USAGES
1663:
1664:
1665: END LOOP; -- END Resources processing loop
1666:
1667: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.SUB_RESOURCES : End ==== Return status: '||NVL(l_return_status, 'S')||' =======================') ; END IF ;
1668:
1669: -- Load OUT parameters
1670: IF NVL(l_return_status, 'S') <> 'S'
1671: THEN
1754:
1755:
1756: BEGIN
1757:
1758: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.RESOURCE_INSTANCES : Start=== '||p_eam_res_inst_tbl.COUNT ||' records passed ================') ; END IF ;
1759:
1760: x_return_status := FND_API.G_RET_STS_SUCCESS;
1761:
1762: IF x_bottomup_scheduled = G_NON_FIRM_WORKORDER THEN
1771:
1772: FOR I IN 1..l_eam_res_inst_tbl.COUNT LOOP
1773: BEGIN
1774:
1775: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
1776:
1777: -- Load local records.
1778: l_eam_res_inst_rec := l_eam_res_inst_tbl(I);
1779:
1782: l_process_children := FALSE;
1783:
1784:
1785: IF l_eam_res_inst_rec.wip_entity_id is NULL
1786: AND (l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1787: OR l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1788: THEN
1789: l_eam_res_inst_rec.wip_entity_id := p_wip_entity_id;
1790: END IF;
1783:
1784:
1785: IF l_eam_res_inst_rec.wip_entity_id is NULL
1786: AND (l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1787: OR l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1788: THEN
1789: l_eam_res_inst_rec.wip_entity_id := p_wip_entity_id;
1790: END IF;
1791:
1811: )
1812: )
1813: THEN
1814:
1815: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
1816:
1817: l_return_status := FND_API.G_RET_STS_SUCCESS;
1818: l_eam_res_inst_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1819:
1837: , x_mesg_token_tbl => l_mesg_token_tbl
1838: , x_return_status => l_return_status
1839: ) ;
1840:
1841: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
1842:
1843: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1844: THEN
1845: l_other_message := 'EAM_RI_EXS_SEV_SKIP';
1859: END IF;
1860:
1861: /* Assign the correct transaction type for SYNC operations */
1862:
1863: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
1864: l_eam_res_inst_rec.transaction_type := l_old_eam_res_inst_rec.transaction_type;
1865: END IF;
1866:
1867:
1864: l_eam_res_inst_rec.transaction_type := l_old_eam_res_inst_rec.transaction_type;
1865: END IF;
1866:
1867:
1868: IF l_eam_res_inst_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1869: THEN
1870:
1871: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1872: END IF ;
1867:
1868: IF l_eam_res_inst_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1869: THEN
1870:
1871: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1872: END IF ;
1873:
1874:
1875: l_out_eam_res_inst_rec := l_eam_res_inst_rec;
1880: ) ;
1881: l_eam_res_inst_rec := l_out_eam_res_inst_rec;
1882:
1883:
1884: ELSIF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1885: THEN
1886:
1887: l_out_eam_res_inst_rec := l_eam_res_inst_rec;
1888: EAM_RES_INST_DEFAULT_PVT.Attribute_Defaulting
1892: , x_return_status => l_return_status
1893: ) ;
1894: l_eam_res_inst_rec := l_out_eam_res_inst_rec;
1895:
1896: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
1897: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
1898: END IF ;
1899:
1900:
1940: , x_return_status => l_return_status
1941: , x_mesg_token_tbl => l_mesg_token_tbl
1942: ) ;
1943:
1944: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
1945:
1946:
1947: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1948: THEN
1945:
1946:
1947: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1948: THEN
1949: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1950: THEN
1951: l_other_message := 'EAM_RI_REQ_CSEV_SKIP';
1952: l_other_token_tbl(1).token_name := 'INSTANCE_ID';
1953: l_other_token_tbl(1).token_value := l_eam_res_inst_rec.instance_id ;
1970: , x_return_status => l_return_status
1971: , x_mesg_token_tbl => l_mesg_token_tbl
1972: ) ;
1973:
1974: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
1975:
1976: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1977: THEN
1978: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1974: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
1975:
1976: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1977: THEN
1978: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1979: THEN
1980: l_other_message := 'EAM_RI_ATTVAL_CSEV_SKIP';
1981: l_other_token_tbl(1).token_name := 'INSTANCE_ID';
1982: l_other_token_tbl(1).token_value := l_eam_res_inst_rec.instance_id ;
2019: , x_mesg_token_tbl => l_mesg_token_tbl
2020: , x_return_status => l_return_status
2021: ) ;
2022:
2023: /* IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2024: AND x_bottomup_scheduled <> G_NON_FIRM_WORKORDER
2025: THEN
2026:
2027:
2077: l_eam_res_inst_tbl := l_out_eam_res_inst_tbl;
2078: END IF;
2079: */
2080:
2081: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
2082:
2083: ELSE
2084:
2085: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2081: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
2082:
2083: ELSE
2084:
2085: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2086:
2087: END IF; -- END IF statement that checks RETURN STATUS
2088:
2089: --find if bottom up scheduler is to be called or not
2088:
2089: --find if bottom up scheduler is to be called or not
2090:
2091: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
2092: IF(l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource iinstance is added
2093: -- OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
2094: OR (l_eam_res_inst_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource iinstance
2095: (
2096: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
2089: --find if bottom up scheduler is to be called or not
2090:
2091: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
2092: IF(l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource iinstance is added
2093: -- OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
2094: OR (l_eam_res_inst_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource iinstance
2095: (
2096: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
2097: -- OR
2090:
2091: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
2092: IF(l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource iinstance is added
2093: -- OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
2094: OR (l_eam_res_inst_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource iinstance
2095: (
2096: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
2097: -- OR
2098: l_eam_res_inst_rec.start_date <> l_old_eam_res_inst_rec.start_date --shedule_seq_num,start_date,completion_date
2355:
2356:
2357: END LOOP; -- END Resources processing loop
2358:
2359: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.RESOURCE_INSTANCES : End ==== Return status: '||NVL(l_return_status, 'S')||' =======================') ; END IF ;
2360:
2361:
2362: -- Load OUT parameters
2363: IF NVL(l_return_status, 'S') <> 'S'
2429:
2430:
2431: BEGIN
2432:
2433: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.OPERATION_NETWORKS : Start=== '||p_eam_op_network_tbl.COUNT ||' records passed =======================') ; END IF ;
2434:
2435: x_return_status := FND_API.G_RET_STS_SUCCESS;
2436:
2437: -- Init local table variables.
2442:
2443: FOR I IN 1..l_eam_op_network_tbl.COUNT LOOP
2444: BEGIN
2445:
2446: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
2447:
2448: -- Load local records.
2449:
2450: l_eam_op_network_rec := l_eam_op_network_tbl(I);
2453:
2454: l_process_children := FALSE;
2455:
2456: IF l_eam_op_network_rec.wip_entity_id is NULL
2457: AND (l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE)
2458: THEN
2459: l_eam_op_network_rec.wip_entity_id := p_wip_entity_id;
2460: END IF;
2461:
2477: )
2478: )
2479: THEN
2480:
2481: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
2482:
2483: l_return_status := FND_API.G_RET_STS_SUCCESS;
2484: l_eam_op_network_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2485:
2503: , x_mesg_token_tbl => l_mesg_token_tbl
2504: , x_return_status => l_return_status
2505: ) ;
2506:
2507: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
2508:
2509: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2510: THEN
2511: l_other_message := 'EAM_OPN_EXS_SEV_SKIP';
2525: END IF;
2526:
2527: /* Assign the correct transaction type for SYNC operations */
2528:
2529: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
2530: l_eam_op_network_rec.transaction_type := l_old_eam_op_network_rec.transaction_type;
2531: END IF;
2532:
2533:
2530: l_eam_op_network_rec.transaction_type := l_old_eam_op_network_rec.transaction_type;
2531: END IF;
2532:
2533:
2534: IF l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2535: THEN
2536:
2537: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
2538: END IF ;
2533:
2534: IF l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2535: THEN
2536:
2537: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
2538: END IF ;
2539:
2540: l_out_eam_op_network_rec := l_eam_op_network_rec;
2541:
2547:
2548: l_eam_op_network_rec := l_out_eam_op_network_rec;
2549:
2550:
2551: ELSIF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2552: THEN
2553:
2554: l_out_eam_op_network_rec := l_eam_op_network_rec;
2555:
2561: ) ;
2562:
2563: l_eam_op_network_rec := l_out_eam_op_network_rec;
2564:
2565: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
2566: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
2567: END IF ;
2568:
2569:
2609: , x_return_status => l_return_status
2610: , x_mesg_token_tbl => l_mesg_token_tbl
2611: ) ;
2612:
2613: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
2614:
2615:
2616: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2617: THEN
2614:
2615:
2616: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2617: THEN
2618: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2619: THEN
2620: l_other_message := 'EAM_OPN_REQ_CSEV_SKIP';
2621: l_other_token_tbl(1).token_name := 'PRIOR_OPERATION';
2622: l_other_token_tbl(1).token_value := l_eam_op_network_rec.prior_operation ;
2639: , x_return_status => l_return_status
2640: , x_mesg_token_tbl => l_mesg_token_tbl
2641: ) ;
2642:
2643: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
2644:
2645: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2646: THEN
2647: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2643: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
2644:
2645: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2646: THEN
2647: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2648: THEN
2649: l_other_message := 'EAM_OPN_ATTVAL_CSEV_SKIP';
2650: l_other_token_tbl(1).token_name := 'PRIOR_OPERATION';
2651: l_other_token_tbl(1).token_value := l_eam_op_network_rec.prior_operation ;
2720: END IF;
2721:
2722: --find if scheduler is to be called or not
2723: IF(x_schedule_wo = G_NOT_SCHEDULE_WO
2724: AND l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2725: ) THEN -- if op dependency is added or deleted
2726: x_schedule_wo := G_SCHEDULE_WO;
2727: END IF;
2728:
2727: END IF;
2728:
2729: --find if bottum up scheduler is to be called or not
2730: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO
2731: AND l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2732: ) THEN -- if op dependency is added or deleted
2733: x_bottomup_scheduled := G_BU_SCHEDULE_WO;
2734: END IF;
2735:
2732: ) THEN -- if op dependency is added or deleted
2733: x_bottomup_scheduled := G_BU_SCHEDULE_WO;
2734: END IF;
2735:
2736: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Operation Networks Database writes completed with status ' || l_return_status); END IF;
2737:
2738: ELSE
2739:
2740: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2736: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Operation Networks Database writes completed with status ' || l_return_status); END IF;
2737:
2738: ELSE
2739:
2740: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2741:
2742: END IF; -- END IF statement that checks RETURN STATUS
2743:
2744: -- Load tables.
2987:
2988:
2989: END LOOP; -- END Operation Networks processing loop
2990:
2991: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.OPERATION_NETWORKS : End ==== Return status: '||NVL(l_return_status, 'S')||' ================') ; END IF ;
2992:
2993: -- Load OUT parameters
2994: IF NVL(l_return_status, 'S') <> 'S'
2995: THEN
3074: l_req_for_cancel_qty_profile VARCHAR2(1);
3075:
3076:
3077: BEGIN
3078: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.MATERIAL_REQUIREMENTS : Start ====='||p_eam_mat_req_tbl.COUNT ||' records passed'||' ========') ; END IF ;
3079:
3080: x_return_status := FND_API.G_RET_STS_SUCCESS;
3081:
3082: -- Init local table variables.
3109:
3110: FOR I IN 1..l_eam_mat_req_tbl.COUNT LOOP
3111: BEGIN
3112:
3113: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
3114:
3115: -- Load local records.
3116: l_eam_mat_req_rec := l_eam_mat_req_tbl(I);
3117:
3120: l_process_children := FALSE;
3121:
3122:
3123: IF l_eam_mat_req_rec.wip_entity_id is NULL
3124: AND (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3125: OR l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
3126: THEN
3127: l_eam_mat_req_rec.wip_entity_id := p_wip_entity_id;
3128: END IF;
3121:
3122:
3123: IF l_eam_mat_req_rec.wip_entity_id is NULL
3124: AND (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3125: OR l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
3126: THEN
3127: l_eam_mat_req_rec.wip_entity_id := p_wip_entity_id;
3128: END IF;
3129:
3164: )
3165: )
3166: THEN
3167:
3168: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
3169:
3170: l_return_status := FND_API.G_RET_STS_SUCCESS;
3171: l_eam_mat_req_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3172:
3169:
3170: l_return_status := FND_API.G_RET_STS_SUCCESS;
3171: l_eam_mat_req_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3172:
3173: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Transaction Type') ; END IF ;
3174:
3175: VALIDATE_TRANSACTION_TYPE
3176: ( p_transaction_type => l_eam_mat_req_rec.transaction_type
3177: , p_entity_name => 'MATERIAL_REQUIREMENTS'
3185: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
3186: RAISE EXC_SEV_QUIT_RECORD ;
3187: END IF ;
3188:
3189: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking Existence of Record') ; END IF ;
3190:
3191: EAM_MAT_REQ_VALIDATE_PVT.Check_Existence
3192: ( p_eam_mat_req_rec => l_eam_mat_req_rec
3193: , x_old_eam_mat_req_rec => l_old_eam_mat_req_rec
3194: , x_mesg_token_tbl => l_mesg_token_tbl
3195: , x_return_status => l_return_status
3196: ) ;
3197:
3198: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
3199:
3200: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3201: THEN
3202: l_other_message := 'EAM_MR_EXS_SEV_SKIP';
3220: END IF;
3221:
3222: /* Assign the correct transaction type for SYNC operations */
3223:
3224: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
3225: l_eam_mat_req_rec.transaction_type := l_old_eam_mat_req_rec.transaction_type;
3226: END IF;
3227:
3228:
3225: l_eam_mat_req_rec.transaction_type := l_old_eam_mat_req_rec.transaction_type;
3226: END IF;
3227:
3228:
3229: IF l_eam_mat_req_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
3230: THEN
3231:
3232: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
3233: x_material_shortage := G_MATERIAL_UPDATE;
3228:
3229: IF l_eam_mat_req_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
3230: THEN
3231:
3232: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
3233: x_material_shortage := G_MATERIAL_UPDATE;
3234: END IF;
3235:
3236: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
3232: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
3233: x_material_shortage := G_MATERIAL_UPDATE;
3234: END IF;
3235:
3236: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
3237: END IF ;
3238:
3239: l_out_eam_mat_req_rec := l_eam_mat_req_rec;
3240:
3261:
3262: l_eam_mat_req_rec := l_out_eam_mat_req_rec;
3263: END IF;
3264:
3265: ELSIF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3266: THEN
3267:
3268: x_material_shortage := G_MATERIAL_UPDATE;
3269:
3277: ) ;
3278:
3279: l_eam_mat_req_rec := l_out_eam_mat_req_rec;
3280:
3281: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
3282: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
3283: END IF ;
3284:
3285:
3331: , x_return_status => l_return_status
3332: , x_mesg_token_tbl => l_mesg_token_tbl
3333: ) ;
3334:
3335: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
3336:
3337:
3338: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3339: THEN
3336:
3337:
3338: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3339: THEN
3340: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3341: THEN
3342: l_other_message := 'EAM_MR_REQ_CSEV_SKIP';
3343: l_other_token_tbl(1).token_name := 'INV_ITEM_ID';
3344: l_other_token_tbl(1).token_value := l_eam_mat_req_rec.inventory_item_id ;
3365: IF l_old_eam_mat_req_rec.REQUIRED_QUANTITY <> l_eam_mat_req_rec.REQUIRED_QUANTITY THEN
3366: x_material_shortage := G_MATERIAL_UPDATE;
3367: END IF;
3368:
3369: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
3370:
3371: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3372: THEN
3373: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3369: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
3370:
3371: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3372: THEN
3373: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3374: THEN
3375: l_other_message := 'EAM_MR_ATTVAL_CSEV_SKIP';
3376: l_other_token_tbl(1).token_name := 'INV_ITEM_ID';
3377: l_other_token_tbl(1).token_value := l_eam_mat_req_rec.inventory_item_id ;
3446: );
3447: l_eam_mat_req_tbl := l_out_eam_mat_req_tbl;
3448: END IF;
3449:
3450: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Material Requirements Database writes completed with status ' || l_return_status); END IF;
3451:
3452:
3453: -- Stock Issue requirements
3454: EAM_WO_UTILITY_PVT.Query_Row(
3494: and l_old_eam_wo_rec.material_issue_by_mo = 'Y'
3495: and l_old_eam_wo_rec.maintenance_object_source = 1 -- Only for EAM
3496: and l_eam_mat_req_rec.wip_supply_type =1 --only for 'push' type items..allocations shud not be done for bulk items
3497: and
3498: ((l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3499: and l_old_eam_mat_req_rec.auto_request_material = 'N'
3500: and l_eam_mat_req_rec.auto_request_material = 'Y' -- AUTO_REQUEST_MATERIAL flag turned on
3501: ) OR
3502: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3498: ((l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3499: and l_old_eam_mat_req_rec.auto_request_material = 'N'
3500: and l_eam_mat_req_rec.auto_request_material = 'Y' -- AUTO_REQUEST_MATERIAL flag turned on
3501: ) OR
3502: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3503: and l_old_eam_mat_req_rec.required_quantity <> l_eam_mat_req_rec.required_quantity -- reqd qty updating
3504: ) OR
3505: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3506: and l_eam_mat_req_rec.auto_request_material = 'Y' -- new mtl line adding with auto req flag on.
3501: ) OR
3502: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3503: and l_old_eam_mat_req_rec.required_quantity <> l_eam_mat_req_rec.required_quantity -- reqd qty updating
3504: ) OR
3505: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3506: and l_eam_mat_req_rec.auto_request_material = 'Y' -- new mtl line adding with auto req flag on.
3507: )
3508: )
3509: THEN
3566: ,p_suggested_vendor_item_num => null
3567: );
3568:
3569:
3570: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('create requisitions for non-stockable direct items'); END IF;
3571:
3572: ELSE
3573:
3574:
3575: if l_wo_status = 3
3576: and l_eam_mat_req_rec.auto_request_material = 'Y'
3577: and l_non_stock_flag = 'N'
3578: and l_purch_flag = 'Y'
3579: and (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3580: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3581: /*and l_old_eam_mat_req_rec.required_quantity < l_eam_mat_req_rec.required_quantity commented for #6118897*/)
3582: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3583: and nvl(l_old_eam_mat_req_rec.auto_request_material,'N')='N')
3576: and l_eam_mat_req_rec.auto_request_material = 'Y'
3577: and l_non_stock_flag = 'N'
3578: and l_purch_flag = 'Y'
3579: and (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3580: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3581: /*and l_old_eam_mat_req_rec.required_quantity < l_eam_mat_req_rec.required_quantity commented for #6118897*/)
3582: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3583: and nvl(l_old_eam_mat_req_rec.auto_request_material,'N')='N')
3584: )then
3578: and l_purch_flag = 'Y'
3579: and (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3580: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3581: /*and l_old_eam_mat_req_rec.required_quantity < l_eam_mat_req_rec.required_quantity commented for #6118897*/)
3582: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3583: and nvl(l_old_eam_mat_req_rec.auto_request_material,'N')='N')
3584: )then
3585:
3586: select mic.category_id into l_purch_cat_id
3597: /*union added for #6118897 to avoid duplicate requisition creation -- start*/
3598:
3599: l_req_for_cancel_qty_profile := FND_PROFILE.VALUE('EAM_TRIGGER_REQ_CANCEL_QTY'); --bug 13102446
3600:
3601: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.MATERIAL_REQUIREMENTS : PROFILE : EAM: Trigger requisition for cancelled quantity : '||l_req_for_cancel_qty_profile); END IF;
3602:
3603: IF(NVL(l_req_for_cancel_qty_profile,'Y') = 'Y') then
3604: -- trigger requisition again for the cancelled quantity where the earlier Req/PO was cancelled
3605:
3718:
3719: END IF; --IF(NVL(l_req_for_cancel_qty_profile,'Y') = 'Y') then
3720:
3721:
3722: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
3723: EAM_ERROR_MESSAGE_PVT.Write_Debug('MATERIAL_REQUIREMENTS : Available Req/PO Qty: '||l_total_req_qty ||' Required Qty: '||l_eam_mat_req_rec.required_quantity||' Creating req for Qty: '||(l_eam_mat_req_rec.required_quantity-nvl(l_total_req_qty,0)) );
3724: END IF;
3725:
3726: EAM_PROCESS_WO_UTIL_PVT.create_requisition
3757: END IF; --end of check for requested_quantity
3758:
3759: ELSE
3760:
3761: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
3762:
3763: END IF; -- END IF statement that checks RETURN STATUS
3764:
3765:
4005:
4006:
4007: END LOOP; -- END Material Requirements processing loop
4008:
4009: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.MATERIAL_REQUIREMENTS : End Return status: '||NVL(l_return_status, 'S')||' =======================') ; END IF ;
4010:
4011: -- Load OUT parameters
4012: IF NVL(l_return_status, 'S') <> 'S'
4013: THEN
4094: l_req_for_cancel_qty_profile VARCHAR2(1);
4095:
4096: BEGIN
4097:
4098: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.DIRECT_ITEMS : Start=== '||p_eam_direct_items_tbl.COUNT ||' records passed =======================') ; END IF ;
4099:
4100:
4101: x_return_status := FND_API.G_RET_STS_SUCCESS;
4102:
4129:
4130: FOR I IN 1..l_eam_direct_items_tbl.COUNT LOOP
4131: BEGIN
4132:
4133: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
4134:
4135: -- Load local records.
4136: l_eam_direct_items_rec := l_eam_direct_items_tbl(I);
4137:
4140: l_process_children := FALSE;
4141:
4142:
4143: IF l_eam_direct_items_rec.wip_entity_id is NULL
4144: AND (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4145: OR l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
4146: THEN
4147: l_eam_direct_items_rec.wip_entity_id := p_wip_entity_id;
4148: END IF;
4141:
4142:
4143: IF l_eam_direct_items_rec.wip_entity_id is NULL
4144: AND (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4145: OR l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
4146: THEN
4147: l_eam_direct_items_rec.wip_entity_id := p_wip_entity_id;
4148: END IF;
4149:
4183: )
4184: )
4185: THEN
4186:
4187: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
4188:
4189: l_return_status := FND_API.G_RET_STS_SUCCESS;
4190: l_eam_direct_items_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4191:
4188:
4189: l_return_status := FND_API.G_RET_STS_SUCCESS;
4190: l_eam_direct_items_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4191:
4192: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Transaction Type') ; END IF ;
4193:
4194: VALIDATE_TRANSACTION_TYPE
4195: ( p_transaction_type => l_eam_direct_items_rec.transaction_type
4196: , p_entity_name => 'DIRECT_ITEMS'
4204: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
4205: RAISE EXC_SEV_QUIT_RECORD ;
4206: END IF ;
4207:
4208: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking Existence of Record') ; END IF ;
4209:
4210: EAM_DIRECT_ITEMS_VALIDATE_PVT.Check_Existence
4211: ( p_eam_direct_items_rec => l_eam_direct_items_rec
4212: , x_old_eam_direct_items_rec => l_old_eam_direct_items_rec
4213: , x_mesg_token_tbl => l_mesg_token_tbl
4214: , x_return_status => l_return_status
4215: ) ;
4216:
4217: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
4218:
4219: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4220: THEN
4221: l_other_message := 'EAM_DI_EXS_SEV_SKIP';
4235: END IF;
4236:
4237: /* Assign the correct transaction type for SYNC operations */
4238:
4239: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
4240: l_eam_direct_items_rec.transaction_type := l_old_eam_direct_items_rec.transaction_type;
4241: END IF;
4242:
4243:
4240: l_eam_direct_items_rec.transaction_type := l_old_eam_direct_items_rec.transaction_type;
4241: END IF;
4242:
4243:
4244: IF l_eam_direct_items_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
4245: THEN
4246:
4247: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
4248: x_material_shortage := G_MATERIAL_UPDATE;
4243:
4244: IF l_eam_direct_items_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
4245: THEN
4246:
4247: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
4248: x_material_shortage := G_MATERIAL_UPDATE;
4249: END IF;
4250:
4251: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
4247: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
4248: x_material_shortage := G_MATERIAL_UPDATE;
4249: END IF;
4250:
4251: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
4252: END IF ;
4253:
4254: l_out_eam_direct_items_rec := l_eam_direct_items_rec;
4255:
4276:
4277: l_eam_direct_items_rec := l_out_eam_direct_items_rec;
4278: END IF;
4279:
4280: ELSIF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4281: THEN
4282:
4283: x_material_shortage := G_MATERIAL_UPDATE;
4284: l_out_eam_direct_items_rec := l_eam_direct_items_rec;
4291: ) ;
4292:
4293: l_eam_direct_items_rec := l_out_eam_direct_items_rec;
4294:
4295: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
4296: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
4297: END IF ;
4298:
4299:
4339: , x_return_status => l_return_status
4340: , x_mesg_token_tbl => l_mesg_token_tbl
4341: ) ;
4342:
4343: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
4344:
4345:
4346: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4347: THEN
4344:
4345:
4346: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4347: THEN
4348: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4349: THEN
4350: l_other_message := 'EAM_DI_REQ_CSEV_SKIP';
4351: l_other_token_tbl(1).token_name := 'DI_SEQ_ID';
4352: l_other_token_tbl(1).token_value := l_eam_direct_items_rec.direct_item_sequence_id ;
4372:
4373: IF l_old_eam_direct_items_rec.REQUIRED_QUANTITY <> l_eam_direct_items_rec.REQUIRED_QUANTITY THEN
4374: x_material_shortage := G_MATERIAL_UPDATE;
4375: END IF;
4376: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
4377:
4378: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4379: THEN
4380: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4376: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
4377:
4378: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4379: THEN
4380: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4381: THEN
4382: l_other_message := 'EAM_DI_ATTVAL_CSEV_SKIP';
4383: l_other_token_tbl(1).token_name := 'DI_SEQ_ID';
4384: l_other_token_tbl(1).token_value := l_eam_direct_items_rec.direct_item_sequence_id ;
4453: );
4454: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
4455: END IF;
4456:
4457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Direct Items Database writes completed with status ' || l_return_status); END IF;
4458:
4459: --fix for 3550864.create requisitions for requested_quantity if passed
4460: IF(l_eam_direct_items_rec.requested_quantity IS NOT NULL) THEN
4461:
4458:
4459: --fix for 3550864.create requisitions for requested_quantity if passed
4460: IF(l_eam_direct_items_rec.requested_quantity IS NOT NULL) THEN
4461:
4462: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('create requisitions for description direct items'); END IF;
4463:
4464: EAM_PROCESS_WO_UTIL_PVT.create_requisition
4465: ( p_api_version => 1.0
4466: ,p_init_msg_list => FND_API.G_FALSE
4496: where wip_entity_id = l_eam_direct_items_rec.wip_entity_id
4497: and organization_id = l_eam_direct_items_rec.organization_id;
4498: if l_wo_status = 3
4499: and l_eam_direct_items_rec.auto_request_material = 'Y'
4500: and (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4501: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4502: /*and l_old_eam_direct_items_rec.required_quantity < l_eam_direct_items_rec.required_quantity commented for # 6118897*/)
4503: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4504: and nvl(l_old_eam_direct_items_rec.auto_request_material,'N')='N'
4497: and organization_id = l_eam_direct_items_rec.organization_id;
4498: if l_wo_status = 3
4499: and l_eam_direct_items_rec.auto_request_material = 'Y'
4500: and (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4501: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4502: /*and l_old_eam_direct_items_rec.required_quantity < l_eam_direct_items_rec.required_quantity commented for # 6118897*/)
4503: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4504: and nvl(l_old_eam_direct_items_rec.auto_request_material,'N')='N'
4505: and nvl(l_eam_direct_items_rec.auto_request_material,'N')='Y')
4499: and l_eam_direct_items_rec.auto_request_material = 'Y'
4500: and (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4501: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4502: /*and l_old_eam_direct_items_rec.required_quantity < l_eam_direct_items_rec.required_quantity commented for # 6118897*/)
4503: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4504: and nvl(l_old_eam_direct_items_rec.auto_request_material,'N')='N'
4505: and nvl(l_eam_direct_items_rec.auto_request_material,'N')='Y')
4506: ) then
4507:
4510: /*Added Union for #6118897 to avoid duplicate req creation -- start --*/
4511:
4512: l_req_for_cancel_qty_profile := FND_PROFILE.VALUE('EAM_TRIGGER_REQ_CANCEL_QTY'); --bug 13102446
4513:
4514: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.DIRECT_ITEMS , PROFILE : EAM: Trigger requisition for cancelled quantity : '||l_req_for_cancel_qty_profile); END IF;
4515:
4516: IF(NVL(l_req_for_cancel_qty_profile,'Y') = 'Y') then
4517: --13102446 trigger requisition again for the cancelled quantity where the earlier Req/PO was cancelled
4518:
4626: END;
4627:
4628: END IF; --IF(l_req_for_cancel_qty_profile = 'Y') then
4629:
4630: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
4631: EAM_ERROR_MESSAGE_PVT.Write_Debug('DIRECT_ITEMS : Available Req/PO Qty:'||l_total_req_qty ||' Required Qty: '||l_eam_direct_items_rec.required_quantity||' Creating req for Qty: '||(l_eam_direct_items_rec.required_quantity-nvl(l_total_req_qty,0)) );
4632: END IF;
4633:
4634: EAM_PROCESS_WO_UTIL_PVT.create_requisition
4663: END IF; --end of check for requested_quantity
4664:
4665: ELSE
4666:
4667: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
4668:
4669: END IF; -- END IF statement that checks RETURN STATUS
4670:
4671: -- Load tables.
4909:
4910:
4911: END LOOP; -- END Material Requirements processing loop
4912:
4913: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.DIRECT_ITEMS : End Return status: '||NVL(l_return_status, 'S')||' ===========================') ; END IF ;
4914: -- Load OUT parameters
4915: IF NVL(l_return_status, 'S') <> 'S'
4916: THEN
4917: x_return_status := l_return_status;
4994:
4995:
4996: BEGIN
4997:
4998: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.OPERATION_RESOURCES : Start=== '||p_eam_res_tbl.COUNT ||' records passed =======================') ; END IF ;
4999:
5000:
5001: x_return_status := FND_API.G_RET_STS_SUCCESS;
5002:
5008:
5009: FOR I IN 1..l_eam_res_tbl.COUNT LOOP
5010: BEGIN
5011:
5012: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
5013:
5014: -- Load local records.
5015: l_eam_res_rec := l_eam_res_tbl(I);
5016:
5018: l_process_children := FALSE;
5019:
5020:
5021: IF l_eam_res_rec.wip_entity_id is NULL
5022: AND (l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5023: OR l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
5024: THEN
5025: l_eam_res_rec.wip_entity_id := p_wip_entity_id;
5026: END IF;
5019:
5020:
5021: IF l_eam_res_rec.wip_entity_id is NULL
5022: AND (l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5023: OR l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
5024: THEN
5025: l_eam_res_rec.wip_entity_id := p_wip_entity_id;
5026: END IF;
5027:
5043: )
5044: )
5045: THEN
5046:
5047: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
5048:
5049: l_return_status := FND_API.G_RET_STS_SUCCESS;
5050: l_eam_res_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5051:
5069: , x_mesg_token_tbl => l_mesg_token_tbl
5070: , x_return_status => l_return_status
5071: ) ;
5072:
5073: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
5074:
5075: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5076: THEN
5077: l_other_message := 'EAM_RES_EXS_SEV_SKIP';
5091: END IF;
5092:
5093: /* Assign the correct transaction type for SYNC operations */
5094:
5095: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
5096: l_eam_res_rec.transaction_type := l_old_eam_res_rec.transaction_type;
5097: END IF;
5098:
5099:
5096: l_eam_res_rec.transaction_type := l_old_eam_res_rec.transaction_type;
5097: END IF;
5098:
5099:
5100: IF l_eam_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5101: THEN
5102:
5103: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
5104: END IF ;
5099:
5100: IF l_eam_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5101: THEN
5102:
5103: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
5104: END IF ;
5105:
5106: l_out_eam_res_rec := l_eam_res_rec;
5107: EAM_RES_DEFAULT_PVT.Populate_Null_Columns
5122: , x_return_status => l_return_status
5123: ) ;
5124: l_eam_res_rec := l_out_eam_res_rec;
5125:
5126: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
5127: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
5128: END IF ;
5129:
5130:
5176: , x_return_status => l_return_status
5177: , x_mesg_token_tbl => l_mesg_token_tbl
5178: ) ;
5179:
5180: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
5181:
5182:
5183: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5184: THEN
5181:
5182:
5183: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5184: THEN
5185: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5186: THEN
5187: l_other_message := 'EAM_RES_REQ_CSEV_SKIP';
5188: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
5189: l_other_token_tbl(1).token_value := l_eam_res_rec.resource_seq_num ;
5205: , x_return_status => l_return_status
5206: , x_mesg_token_tbl => l_mesg_token_tbl
5207: ) ;
5208:
5209: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
5210:
5211: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5212: THEN
5213: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5209: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
5210:
5211: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5212: THEN
5213: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5214: THEN
5215: l_other_message := 'EAM_RES_ATTVAL_CSEV_SKIP';
5216: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
5217: l_other_token_tbl(1).token_value := l_eam_res_rec.resource_seq_num ;
5297: l_eam_res_inst_tbl := l_out_eam_res_inst_tbl;
5298:
5299: END IF;
5300:
5301: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
5302:
5303: --find if scheduler is to be called or not
5304: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5305: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5301: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Resources Database writes completed with status ' || l_return_status); END IF;
5302:
5303: --find if scheduler is to be called or not
5304: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5305: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5306: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
5307: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5308: (NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
5309: OR l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5302:
5303: --find if scheduler is to be called or not
5304: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5305: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5306: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
5307: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5308: (NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
5309: OR l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5310: OR l_eam_res_rec.completion_date <> l_old_eam_res_rec.completion_date
5303: --find if scheduler is to be called or not
5304: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5305: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5306: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
5307: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5308: (NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
5309: OR l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5310: OR l_eam_res_rec.completion_date <> l_old_eam_res_rec.completion_date
5311: OR l_eam_res_rec.resource_id <> l_old_eam_res_rec.resource_id --resource_code,usage_rate_or_amount,scheduled_flag,assigned_units
5321: --find if bottom up scheduler is to be called or not
5322:
5323:
5324: -- IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
5325: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5326: -- OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
5327: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5328: (
5329: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
5322:
5323:
5324: -- IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
5325: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5326: -- OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
5327: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5328: (
5329: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
5330: -- OR
5323:
5324: -- IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
5325: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5326: -- OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE AND l_eam_res_rec.scheduled_flag=1) --deleted and was scheduled
5327: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5328: (
5329: --NVL(l_eam_res_rec.schedule_seq_num,l_eam_res_rec.resource_seq_num)<>NVL(l_old_eam_res_rec.schedule_seq_num,l_old_eam_res_rec.resource_seq_num)
5330: -- OR
5331: l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5347: IF l_process_children
5348: THEN
5349:
5350: -- Process Resource Instance that are direct children of this operation
5351: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling RESOURCE_INSTANCES from OPERATION_RESOURCES') ; END IF ;
5352:
5353: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
5354: RESOURCE_INSTANCES
5355: ( p_validation_level => p_validation_level
5377:
5378:
5379:
5380: -- Process Resource Usage that are direct children of this operation
5381: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling RESOURCE_USAGES from OPERATION_RESOURCES') ; END IF ;
5382:
5383:
5384: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
5385: RESOURCE_USAGES
5412:
5413:
5414: ELSE
5415:
5416: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
5417:
5418: END IF; -- END IF statement that checks RETURN STATUS
5419:
5420: -- Load tables.
5710:
5711:
5712: END LOOP; -- END Resources processing loop
5713:
5714: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.OPERATION_RESOURCES : End Return status: '||NVL(l_return_status, 'S')||' ===================') ; END IF ;
5715:
5716:
5717: -- Load OUT parameters
5718: IF NVL(l_return_status, 'S') <> 'S'
5812:
5813:
5814: BEGIN
5815:
5816: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.WO_OPERATIONS : Start=== '||p_eam_op_tbl.COUNT ||' records passed =======================') ; END IF ;
5817:
5818:
5819: x_return_status := FND_API.G_RET_STS_SUCCESS;
5820:
5826:
5827: FOR I IN 1..l_eam_op_tbl.COUNT LOOP
5828: BEGIN
5829:
5830: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
5831:
5832: -- Load local records.
5833: l_eam_op_rec := l_eam_op_tbl(I);
5834:
5838: l_process_children := FALSE;
5839:
5840:
5841: IF l_eam_op_rec.wip_entity_id is NULL
5842: AND (l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5843: OR l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
5844: THEN
5845: l_eam_op_rec.wip_entity_id := p_wip_entity_id;
5846: END IF;
5839:
5840:
5841: IF l_eam_op_rec.wip_entity_id is NULL
5842: AND (l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5843: OR l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
5844: THEN
5845: l_eam_op_rec.wip_entity_id := p_wip_entity_id;
5846: END IF;
5847:
5862: )
5863: )
5864: THEN
5865:
5866: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
5867:
5868: l_return_status := FND_API.G_RET_STS_SUCCESS;
5869: l_eam_op_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5870:
5888: , x_mesg_token_tbl => l_mesg_token_tbl
5889: , x_return_status => l_return_status
5890: ) ;
5891:
5892: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check Existence completed with return_status: ' || l_return_status) ; END IF ;
5893:
5894: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5895: THEN
5896: l_other_message := 'EAM_OP_EXS_SEV_SKIP';
5910: END IF;
5911:
5912: /* Assign the correct transaction type for SYNC operations */
5913:
5914: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
5915: l_eam_op_rec.transaction_type := l_old_eam_op_rec.transaction_type;
5916: END IF;
5917:
5918: IF l_eam_op_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5914: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
5915: l_eam_op_rec.transaction_type := l_old_eam_op_rec.transaction_type;
5916: END IF;
5917:
5918: IF l_eam_op_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5919: THEN
5920:
5921: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
5922: END IF ;
5917:
5918: IF l_eam_op_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5919: THEN
5920:
5921: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
5922: END IF ;
5923:
5924: l_out_eam_op_rec := l_eam_op_rec;
5925: EAM_OP_DEFAULT_PVT.Populate_Null_Columns
5929: ) ;
5930: l_eam_op_rec := l_out_eam_op_rec;
5931:
5932:
5933: ELSIF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5934: THEN
5935:
5936: l_out_eam_op_rec := l_eam_op_rec;
5937: EAM_OP_DEFAULT_PVT.Attribute_Defaulting
5941: , x_return_status => l_return_status
5942: ) ;
5943: l_eam_op_rec := l_out_eam_op_rec;
5944:
5945: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
5946: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
5947: END IF ;
5948:
5949:
6009: , x_return_status => l_return_status
6010: , x_mesg_token_tbl => l_mesg_token_tbl
6011: ) ;
6012:
6013: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check required completed with return_status: ' || l_return_status) ; END IF ;
6014:
6015:
6016: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
6017: THEN
6014:
6015:
6016: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
6017: THEN
6018: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
6019: THEN
6020: l_other_message := 'EAM_OP_REQ_CSEV_SKIP';
6021: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
6022: l_other_token_tbl(1).token_value := l_eam_op_rec.OPERATION_SEQ_NUM ;
6039: , x_return_status => l_return_status
6040: , x_mesg_token_tbl => l_mesg_token_tbl
6041: ) ;
6042:
6043: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
6044:
6045: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
6046: THEN
6047: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
6043: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Attribute validation completed with return_status: ' || l_return_status) ; END IF ;
6044:
6045: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
6046: THEN
6047: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
6048: THEN
6049: l_other_message := 'EAM_OP_ATTVAL_CSEV_SKIP';
6050: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
6051: l_other_token_tbl(1).token_value :=
6102:
6103: END IF;
6104:
6105: IF(x_schedule_wo = G_NOT_SCHEDULE_WO) THEN --not firm and not yet set to schedule
6106: IF (l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND
6107: (l_eam_op_rec.start_date<>l_old_eam_op_rec.start_date
6108: OR l_eam_op_rec.completion_date<>l_old_eam_op_rec.completion_date)) THEN
6109: /*bug 12757636 - for CMRO*/
6110: BEGIN
6121: END IF;
6122: END IF;
6123:
6124: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO) THEN --not firm and not yet set to schedule for bottom up
6125: IF (l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND
6126: (l_eam_op_rec.start_date<>l_old_eam_op_rec.start_date
6127: OR l_eam_op_rec.completion_date<>l_old_eam_op_rec.completion_date)) THEN
6128: -- l_eam_op_rec.start_date := l_old_eam_op_rec.start_date; --set op dates to prev. dates
6129: -- l_eam_op_rec.completion_date := l_old_eam_op_rec.completion_date;
6189: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
6190: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
6191: END IF;
6192:
6193: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Operations Database writes completed with status ' || l_return_status); END IF;
6194:
6195:
6196: --find if scheduler is to be called or not
6197: IF(x_schedule_wo = G_NOT_SCHEDULE_WO) THEN
6194:
6195:
6196: --find if scheduler is to be called or not
6197: IF(x_schedule_wo = G_NOT_SCHEDULE_WO) THEN
6198: IF(l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE)
6199: THEN --if operation is added
6200: x_schedule_wo := G_SCHEDULE_WO;
6201: END IF;
6202: END IF;
6202: END IF;
6203:
6204: --find if bottom up scheduler is to be called or not
6205: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO) THEN
6206: IF(l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE)
6207: THEN --if operation is added
6208: x_bottomup_scheduled := G_BU_SCHEDULE_WO;
6209: END IF;
6210: END IF;
6210: END IF;
6211:
6212: ELSE
6213:
6214: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
6215:
6216: END IF; -- END IF statement that checks RETURN STATUS
6217:
6218: -- Load tables.
6658: IF l_process_children
6659: THEN
6660:
6661: -- Process Resources that are direct children of this Operation
6662: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling OPERATION_RESOURCES from WO_OPERATIONS') ; END IF ;
6663:
6664: l_out_eam_res_tbl := l_eam_res_tbl;
6665: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
6666: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
6699:
6700:
6701: -- Process Sub Resource that are direct children of this operation
6702:
6703: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling SUB_RESOURCES from WO_OPERATIONS') ; END IF ;
6704:
6705: l_out_eam_sub_res_tbl := l_eam_sub_res_tbl;
6706: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
6707:
6732: END IF;
6733:
6734:
6735: -- Process Material requirements that are direct children of this Operation
6736: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling MATERIAL_REQUIREMENTS from WO_OPERATIONS') ; END IF ;
6737:
6738: l_out_eam_mat_req_tbl := l_eam_mat_req_tbl;
6739:
6740: MATERIAL_REQUIREMENTS
6765:
6766:
6767:
6768: -- Process Direct Items that are direct children of this Operation
6769: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling DIRECT_ITEMS
6770: from WO_OPERATIONS') ; END IF ;
6771:
6772: l_out_eam_direct_items_tbl := l_eam_direct_items_tbl;
6773:
6802:
6803:
6804: END LOOP; -- END Operation processing loop
6805:
6806: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.WO_OPERATIONS : End Return status: '||NVL(l_return_status, 'S')||' ==========================') ; END IF ;
6807:
6808: -- Load OUT parameters
6809: IF NVL(l_return_status, 'S') <> 'S'
6810: THEN
6829:
6830: BEGIN
6831:
6832: IF GET_DEBUG = 'Y' THEN
6833: EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||'EAM_PROCESS_WO_PVT.LOG_WORK_ORDER_HEADER : Start========================== ');
6834: EAM_ERROR_MESSAGE_PVT.Write_Debug('======================================================================================================================================================');
6835: EAM_ERROR_MESSAGE_PVT.Write_Debug('Work Order : '||p_eam_wo_rec.wip_entity_name);
6836: EAM_ERROR_MESSAGE_PVT.Write_Debug('Wip Entity Id : '||p_eam_wo_rec.wip_entity_id);
6837: EAM_ERROR_MESSAGE_PVT.Write_Debug('Transaction Type : '||p_eam_wo_rec.transaction_type ||' (1:Create / 2:Update / 3:Delete / 4:Complete / 5:UnComplete)');
6947: EAM_ERROR_MESSAGE_PVT.Write_Debug('Request Id : '||p_eam_wo_rec.request_id);
6948: EAM_ERROR_MESSAGE_PVT.Write_Debug('Program_id : '||p_eam_wo_rec.program_id);
6949: EAM_ERROR_MESSAGE_PVT.Write_Debug('Program Application Id : '||p_eam_wo_rec.program_application_id);
6950: EAM_ERROR_MESSAGE_PVT.Write_Debug('===============================================================================================================');
6951: EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||'EAM_PROCESS_WO_PVT.LOG_WORK_ORDER_HEADER : End========================== ');
6952:
6953: END IF;
6954: EXCEPTION
6955: WHEN OTHERS THEN
6987: , x_return_status OUT NOCOPY VARCHAR2
6988: )
6989: IS
6990: l_api_version_number CONSTANT NUMBER := 1.0;
6991: l_api_name CONSTANT VARCHAR2(30):= 'EAM_PROCESS_WO_PVT';
6992: l_err_text VARCHAR2(240);
6993:
6994: l_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
6995: l_old_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
7079: l_approval_required := FALSE; --set the flag to 'false' initially
7080:
7081:
7082: BEGIN
7083: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||'EAM_PROCESS_WO_PVT.WORK_ORDER : Start ========================================================='); END IF;
7084:
7085: LOG_WORK_ORDER_HEADER
7086: ( p_eam_wo_rec => p_eam_wo_rec
7087: );
7109: l_return_status := FND_API.G_RET_STS_SUCCESS;
7110: l_eam_wo_rec.return_status := FND_API.G_RET_STS_SUCCESS;
7111:
7112:
7113: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Work Order: Transaction Type Validity . . . '); END IF;
7114:
7115: VALIDATE_TRANSACTION_TYPE
7116: ( p_transaction_type => l_eam_wo_rec.transaction_type
7117: , p_entity_name => 'WORK_ORDER'
7125: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
7126: RAISE EXC_SEV_QUIT_RECORD;
7127: END IF;
7128:
7129: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : EAM WO: Check Existence . . .'); END IF;
7130:
7131: EAM_WO_VALIDATE_PVT.Check_Existence
7132: ( p_eam_wo_rec => l_eam_wo_rec
7133: , x_old_eam_wo_rec => l_old_eam_wo_rec
7150: END IF;
7151:
7152: /* Assign the correct transaction type for SYNC operations */
7153:
7154: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
7155: l_eam_wo_rec.transaction_type := l_old_eam_wo_rec.transaction_type;
7156: END IF;
7157:
7158: --Changes for IB
7166: where inventory_item_id = nvl(l_eam_wo_rec.rebuild_item_id, l_eam_wo_rec.asset_group_id)
7167: and serial_number = nvl(l_eam_wo_rec.rebuild_serial_number, l_eam_wo_rec.asset_number);
7168:
7169: IF (l_current_status = 1 OR l_eam_wo_rec.maintenance_object_type = 2) THEN
7170: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling EAM_COMMON_UTILITIES_PVT.CREATE_ASSET procedure . . .'); END IF;
7171: EAM_COMMON_UTILITIES_PVT.CREATE_ASSET(
7172: P_API_VERSION => 1.0
7173: ,P_INIT_MSG_LIST => fnd_api.g_false
7174: ,P_COMMIT => fnd_api.g_false
7191:
7192: END IF;
7193:
7194:
7195: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Checking whether asset number is changed: New Asset: '||l_eam_wo_rec.asset_number||' Old Asset: '||l_old_eam_wo_rec.asset_number) ; END IF;
7196: if(p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE and (l_old_eam_wo_rec.asset_number <> l_eam_wo_rec.asset_number or l_eam_wo_rec.MAINTENANCE_OBJECT_ID <> l_old_eam_wo_rec.MAINTENANCE_OBJECT_ID)) then
7197:
7198: l_asset_changed :='Y';
7199: if(l_old_eam_wo_rec.asset_activity_id is not null) then
7192: END IF;
7193:
7194:
7195: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Checking whether asset number is changed: New Asset: '||l_eam_wo_rec.asset_number||' Old Asset: '||l_old_eam_wo_rec.asset_number) ; END IF;
7196: if(p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE and (l_old_eam_wo_rec.asset_number <> l_eam_wo_rec.asset_number or l_eam_wo_rec.MAINTENANCE_OBJECT_ID <> l_old_eam_wo_rec.MAINTENANCE_OBJECT_ID)) then
7197:
7198: l_asset_changed :='Y';
7199: if(l_old_eam_wo_rec.asset_activity_id is not null) then
7200:
7234: x_msg_data => l_err_text,
7235: x_msg_count => l_msg_count,
7236: p_delete_only => 'Y');
7237:
7238: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : After call CSTPECEP.Estimate_WorkOrder_Grp to delete existing estimate. status :' ||l_return_status) ; END IF;
7239: end if;
7240:
7241: -- deleting earlier failure data if exists
7242:
7251: );
7252:
7253: end if;
7254:
7255: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
7256: x_material_shortage := G_MATERIAL_UPDATE;
7257: END IF;
7258:
7259: IF l_eam_wo_rec.Transaction_Type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
7255: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
7256: x_material_shortage := G_MATERIAL_UPDATE;
7257: END IF;
7258:
7259: IF l_eam_wo_rec.Transaction_Type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
7260: THEN
7261:
7262: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Populate Null Columns . . .'); END IF;
7263: l_out_eam_wo_rec := l_eam_wo_rec;
7258:
7259: IF l_eam_wo_rec.Transaction_Type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
7260: THEN
7261:
7262: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Populate Null Columns . . .'); END IF;
7263: l_out_eam_wo_rec := l_eam_wo_rec;
7264: EAM_WO_DEFAULT_PVT.Populate_NULL_Columns
7265: ( p_eam_wo_rec => l_eam_wo_rec
7266: , p_old_eam_wo_rec => l_old_eam_wo_rec
7274:
7275: END IF;
7276:
7277:
7278: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Check_Attributes_Before_Defauting ... '); END IF;
7279:
7280: EAM_WO_VALIDATE_PVT.Check_Attributes_b4_Defaulting
7281: ( x_return_status => l_return_status
7282: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7285:
7286: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7287: THEN
7288:
7289: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7290: THEN
7291: l_other_message := 'EAM_WO_ATTVAL_CSEV_SKIP';
7292: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7293: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7350: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
7351:
7352: END IF;
7353:
7354: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Conditional Defaulting . . .'); END IF;
7355: l_out_eam_wo_rec := l_eam_wo_rec;
7356: EAM_WO_DEFAULT_PVT.Conditional_Defaulting
7357: ( p_eam_wo_rec => l_eam_wo_rec
7358: , x_eam_wo_rec => l_out_eam_wo_rec
7362: l_eam_wo_rec := l_out_eam_wo_rec;
7363:
7364: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7365: THEN
7366: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7367: THEN
7368: l_other_message := 'EAM_WO_CONDDEF_CSEV_SKIP';
7369: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7370: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7425: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
7426:
7427: END IF;
7428:
7429: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Attribute Defaulting . . .'); END IF;
7430:
7431: l_out_eam_wo_rec := l_eam_wo_rec;
7432: /* Bug # 4597756 : Store firm_planned_flag, needed if Approval is required */
7433: l_firm_planned_flag := l_eam_wo_rec.firm_planned_flag;
7442:
7443: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7444: THEN
7445:
7446: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7447: THEN
7448: l_other_message := 'EAM_WO_ATTDEF_CSEV_SKIP';
7449: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7450: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7514:
7515: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7516: THEN
7517:
7518: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7519: THEN
7520: l_other_message := 'EAM_WO_CONREQ_CSEV_SKIP';
7521: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7522: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7579: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
7580: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
7581: END IF;
7582:
7583: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Check Attributes . . .'); END IF;
7584:
7585: EAM_WO_VALIDATE_PVT.Check_Attributes
7586: ( x_return_status => l_return_status
7587: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7590: );
7591: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7592: THEN
7593:
7594: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7595: THEN
7596: l_other_message := 'EAM_WO_ATTVAL_CSEV_SKIP';
7597: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7598: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7657:
7658: -- Explode Activity
7659:
7660: IF (l_eam_wo_rec.asset_activity_id IS NOT NULL) and
7661: ((l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) or
7662: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
7663: --fix for 3296919.added following condition so that activity is updateable
7664: (l_old_eam_wo_rec.asset_activity_id is null OR l_old_eam_wo_rec.asset_activity_id<>l_eam_wo_rec.asset_activity_id)))
7665: THEN
7658: -- Explode Activity
7659:
7660: IF (l_eam_wo_rec.asset_activity_id IS NOT NULL) and
7661: ((l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) or
7662: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
7663: --fix for 3296919.added following condition so that activity is updateable
7664: (l_old_eam_wo_rec.asset_activity_id is null OR l_old_eam_wo_rec.asset_activity_id<>l_eam_wo_rec.asset_activity_id)))
7665: THEN
7666:
7722: if l_eam_wo_rec.activity_source is null then
7723: l_eam_wo_rec.activity_source := p_eam_wo_rec.activity_source;
7724: end if;
7725:
7726: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug (' EAM_PROCESS_WO_PVT.WORK_ORDER : Calling api to update material shortage flag') ; END IF;
7727:
7728:
7729: IF nvl(l_return_status,'S') <> 'S' THEN
7730: x_return_status := l_return_status;
7731: END IF;
7732:
7733: ELSE
7734:
7735: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7736: THEN
7737: l_other_message := 'EAM_WO_ACTEXP_CSEV_SKIP';
7738: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7739: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7752: l_workflow_enabled := Is_Workflow_Enabled(l_eam_wo_rec.maintenance_object_source,
7753: l_eam_wo_rec.organization_id);
7754:
7755: IF(l_workflow_enabled = 'Y') THEN
7756: IF((l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
7757: OR (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
7758: AND NVL(l_old_eam_wo_rec.pending_flag,'N') = 'N' --old status is not pending
7759: --and old status is not same as new status
7760: AND (l_old_eam_wo_rec.status_type <>l_eam_wo_rec.status_type)
7753: l_eam_wo_rec.organization_id);
7754:
7755: IF(l_workflow_enabled = 'Y') THEN
7756: IF((l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
7757: OR (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
7758: AND NVL(l_old_eam_wo_rec.pending_flag,'N') = 'N' --old status is not pending
7759: --and old status is not same as new status
7760: AND (l_old_eam_wo_rec.status_type <>l_eam_wo_rec.status_type)
7761: )
7760: AND (l_old_eam_wo_rec.status_type <>l_eam_wo_rec.status_type)
7761: )
7762: ) THEN
7763: IF(WF_EVENT.TEST(l_status_pending_event) <> 'NONE') THEN
7764: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling Wkflow required check API...') ; END IF;
7765: EAM_WORKFLOW_DETAILS_PUB.Eam_Wf_Is_Approval_Required(p_old_wo_rec => l_old_eam_wo_rec,
7766: p_new_wo_rec => l_eam_wo_rec,
7767: p_wip_entity_id => NULL,
7768: p_new_system_status => NULL,
7789:
7790: END IF;
7791: END IF; -- end of check for workflow enabled
7792:
7793: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : Writing the WO Record to database...') ; END IF;
7794:
7795: if ((l_eam_wo_rec.pm_suggested_start_date is null or
7796: l_eam_wo_rec.pm_suggested_start_date = FND_API.G_MISS_DATE)
7797: and (l_eam_wo_rec.pm_suggested_end_date is null or
7795: if ((l_eam_wo_rec.pm_suggested_start_date is null or
7796: l_eam_wo_rec.pm_suggested_start_date = FND_API.G_MISS_DATE)
7797: and (l_eam_wo_rec.pm_suggested_end_date is null or
7798: l_eam_wo_rec.pm_suggested_end_date = FND_API.G_MISS_DATE)
7799: and l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
7800: ) then
7801: select pm_suggested_start_date, pm_suggested_end_date into
7802: l_eam_wo_rec.pm_suggested_start_date,
7803: l_eam_wo_rec.pm_suggested_end_date
7874: l_eam_wo_rec.manual_rebuild_flag = 'N' AND
7875: l_eam_wo_rec.maintenance_object_type = 3 ) THEN
7876:
7877: IF (l_old_eam_wo_rec.maintenance_object_type = 2 AND
7878: l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
7879:
7880: SELECT serial_number, inventory_item_id, last_vld_organization_id
7881: INTO l_serial_number, l_inv_item_id, l_org_id
7882: FROM csi_item_instances
7881: INTO l_serial_number, l_inv_item_id, l_org_id
7882: FROM csi_item_instances
7883: WHERE instance_id = l_eam_wo_rec.maintenance_object_id;
7884:
7885: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling api to endate eam genealogy') ; END IF;
7886:
7887: wip_eam_genealogy_pvt.update_eam_genealogy
7888: (
7889: p_api_version => 1.0,
7896: x_return_status => l_return_status,
7897: x_msg_count => l_msg_count,
7898: x_msg_data => l_msg_data
7899: );
7900: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : Update Genealogy completed with status '||l_return_status) ; END IF;
7901:
7902: IF l_return_status <> 'S' THEN
7903: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7904: EAM_ERROR_MESSAGE_PVT.Write_Debug ('api for endating eam genealogy has errored') ;
7899: );
7900: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : Update Genealogy completed with status '||l_return_status) ; END IF;
7901:
7902: IF l_return_status <> 'S' THEN
7903: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7904: EAM_ERROR_MESSAGE_PVT.Write_Debug ('api for endating eam genealogy has errored') ;
7905: END IF;
7906: l_other_message := 'EAM_UPDATE_GENEALOGY_FAIL';
7907: RAISE EXC_SEV_QUIT_RECORD;
7908: END IF;
7909:
7910: END IF;
7911:
7912: IF ((l_old_eam_wo_rec.maintenance_object_type = 2 AND l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE) OR
7913: (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE )) THEN
7914:
7915: /* If the parent WO is complete, disable meter hierarchy and IB hierarchy */
7916: SELECT status_type INTO l_current_status
7909:
7910: END IF;
7911:
7912: IF ((l_old_eam_wo_rec.maintenance_object_type = 2 AND l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE) OR
7913: (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE )) THEN
7914:
7915: /* If the parent WO is complete, disable meter hierarchy and IB hierarchy */
7916: SELECT status_type INTO l_current_status
7917: FROM wip_discrete_jobs
7918: WHERE wip_entity_id = l_eam_wo_rec.parent_wip_entity_id;
7919:
7920: IF (l_current_status in (4, 5, 12) ) THEN
7921:
7922: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling api to disable counter hierarchy') ; END IF;
7923:
7924: eam_meterreading_utility_pvt.disable_counter_hierarchy
7925: (
7926: p_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl ,
7929: x_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl,
7930: x_return_status => l_return_status ,
7931: x_mesg_token_tbl => l_mesg_token_tbl
7932: );
7933: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : disable counter hierarchy API completed with status '||l_return_status) ; END IF;
7934:
7935: IF l_return_status <> 'S' THEN
7936:
7937: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7933: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : disable counter hierarchy API completed with status '||l_return_status) ; END IF;
7934:
7935: IF l_return_status <> 'S' THEN
7936:
7937: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7938: EAM_ERROR_MESSAGE_PVT.Write_Debug ('The api to disable counter hierarchy has errored out') ;
7939: END IF;
7940: l_other_message := 'EAM_WOCMPL_DIS_COUNTER_HIER';
7941: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7942: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7943: RAISE EXC_SEV_QUIT_RECORD;
7944: END IF;
7945:
7946: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling CSI api for wip completion ') ; END IF;
7947:
7948: csi_eam_interface_grp.wip_completion
7949: (
7950: p_wip_entity_id => l_eam_wo_rec.parent_wip_entity_id,
7951: p_organization_id => l_eam_wo_rec.organization_id,
7952: x_return_status => l_return_status,
7953: x_error_message => l_msg_data
7954: );
7955: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : CSI api for wip completion completed with status '||l_return_status) ; END IF;
7956:
7957: IF l_return_status <> 'S' THEN
7958:
7959: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7955: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : CSI api for wip completion completed with status '||l_return_status) ; END IF;
7956:
7957: IF l_return_status <> 'S' THEN
7958:
7959: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7960: EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : The CSI api for wip completion has errored out') ;
7961: END IF;
7962:
7963: l_other_message := 'EAM_WOCMPL_IB_WIP_CMPL';
7956:
7957: IF l_return_status <> 'S' THEN
7958:
7959: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7960: EAM_ERROR_MESSAGE_PVT.Write_Debug ('EAM_PROCESS_WO_PVT.WORK_ORDER : The CSI api for wip completion has errored out') ;
7961: END IF;
7962:
7963: l_other_message := 'EAM_WOCMPL_IB_WIP_CMPL';
7964: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
8289: -- baroy - end
8290: -- End of IF condition #101 - Skipping header level validations
8291:
8292: -- END Header processing block
8293: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : WORK_ORDER MAIN Routine compelted with status of '||l_return_status) ; END IF ;
8294:
8295: IF NVL(l_return_status,'S') <> 'S'
8296: THEN
8297: x_return_status := l_return_status;
8324:
8325:
8326: -- Process operations that are orphans but are indirect children of this header
8327:
8328: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling WO_OPERATIONS from WORK_ORDER') ; END IF ;
8329:
8330: l_out_eam_wo_rec := l_eam_wo_rec;
8331: l_out_eam_op_tbl := l_eam_op_tbl;
8332: l_out_eam_op_network_tbl := l_eam_op_network_tbl;
8337: l_out_eam_mat_req_tbl := l_eam_mat_req_tbl;
8338: l_out_eam_direct_items_tbl := l_eam_direct_items_tbl;
8339:
8340:
8341: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Checking for standard operation from WORK_ORDER') ; END IF ;
8342:
8343: if (l_eam_wo_rec.asset_activity_id IS NOT NULL and
8344: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE
8345: or
8349: then
8350: null ;
8351: else
8352:
8353: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Exploding standard operation from WORK_ORDER') ; END IF ;
8354:
8355: -- Need to explode standard operations
8356:
8357: IF l_eam_op_tbl.COUNT > 0 THEN
8464: l_eam_res_tbl(l_res_cnt).RETURN_STATUS := l_eam_op_tbl(J).RETURN_STATUS ;
8465: l_eam_res_tbl(l_res_cnt).TRANSACTION_TYPE := l_eam_op_tbl(J).TRANSACTION_TYPE ;
8466: END LOOP;
8467: END;
8468: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Completed Exploding standard operation from WORK_ORDER') ; END IF ;
8469: --start for
8470: --Reverting the changes done for bug 11871588
8471: END IF;
8472: END LOOP;
8584: l_eam_res_tbl(l_res_cnt).RETURN_STATUS := l_eam_op_tbl(J).RETURN_STATUS ;
8585: l_eam_res_tbl(l_res_cnt).TRANSACTION_TYPE := l_eam_op_tbl(J).TRANSACTION_TYPE ;
8586: END LOOP;
8587: END; --end for delcare begin end
8588: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Completed Exploding manual operation from WORK_ORDER') ; END IF ;
8589:
8590:
8591: END IF; --non-standard oper
8592:
8597: END IF;
8598:
8599: l_out_eam_res_tbl := l_eam_res_tbl;
8600:
8601: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling WO_OPERATIONS from WORK_ORDER') ; END IF ;
8602:
8603: WO_OPERATIONS
8604: ( p_validation_level => p_validation_level
8605: , p_wip_entity_id => l_eam_wo_rec.wip_entity_id
8636: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
8637: l_eam_mat_req_tbl := l_out_eam_mat_req_tbl;
8638: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
8639:
8640: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : WO_OPERATIONS compelted with status of '||l_return_status) ; END IF ;
8641:
8642: IF l_return_status <> 'S'
8643: THEN
8644: l_bo_return_status := l_return_status;
8648: -- Process Resources
8649:
8650: IF l_eam_res_tbl.count <> 0 then
8651:
8652: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling OPERATION_RESOURCES from WORK_ORDER') ; END IF ;
8653:
8654: l_out_eam_res_tbl := l_eam_res_tbl;
8655: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
8656: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
8682: END IF;
8683:
8684:
8685:
8686: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : OPERATION_RESOURCE completed with status of '||l_return_status) ; END IF ;
8687:
8688: END IF;
8689:
8690: -- Process Material Requirements
8690: -- Process Material Requirements
8691:
8692: IF l_eam_mat_req_tbl.count <> 0 then
8693:
8694: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling MATERIAL_REQUIREMENTS from WORK_ORDER') ; END IF ;
8695:
8696: l_out_eam_mat_req_tbl := l_eam_mat_req_tbl;
8697:
8698: MATERIAL_REQUIREMENTS
8714: l_bo_return_status := l_return_status;
8715: END IF;
8716:
8717:
8718: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : MATERIAL_REQUIREMENTS completed with status of '||l_return_status) ; END IF ;
8719:
8720: END IF;
8721:
8722:
8723: -- Process Direct Items
8724:
8725: IF l_eam_direct_items_tbl.count <> 0 then
8726:
8727: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling DIRECT ITEMS from WORK_ORDER') ; END IF ;
8728:
8729: l_out_eam_direct_items_tbl := l_eam_direct_items_tbl;
8730:
8731: DIRECT_ITEMS
8747: l_bo_return_status := l_return_status;
8748: END IF;
8749:
8750:
8751: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : DIRECT_ITEMS completed with status of '||l_return_status) ; END IF ;
8752:
8753: END IF;
8754:
8755:
8756: -- Process Operation Networks
8757:
8758: IF l_eam_op_network_tbl.count <> 0 then
8759:
8760: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling OPERATION_NETWORKS from WORK_ORDER') ; END IF ;
8761:
8762: l_out_eam_op_network_tbl := l_eam_op_network_tbl;
8763:
8764: OPERATION_NETWORKS
8779: THEN
8780: l_bo_return_status := l_return_status;
8781: END IF;
8782:
8783: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : OPERATION_NETWORKS completed with status of '||l_return_status) ; END IF ;
8784:
8785: END IF;
8786:
8787:
8851: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_UPDATE and
8852: l_eam_wo_rec.status_type <> l_old_eam_wo_rec.status_type
8853: )
8854: ) then
8855: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling Change_Status API') ; END IF ;
8856:
8857: -- Defaulting the date_released only when workflow is approved /no workflow and work order is actually released.
8858: --Removed following code from EAMVWODB.pls and added it here
8859:
8856:
8857: -- Defaulting the date_released only when workflow is approved /no workflow and work order is actually released.
8858: --Removed following code from EAMVWODB.pls and added it here
8859:
8860: IF ( (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE and
8861: l_eam_wo_rec.status_type = 3 ) OR
8862: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
8863: l_old_eam_wo_rec.status_type <> 3 and l_eam_wo_rec.status_type = 3)
8864: )
8858: --Removed following code from EAMVWODB.pls and added it here
8859:
8860: IF ( (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE and
8861: l_eam_wo_rec.status_type = 3 ) OR
8862: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
8863: l_old_eam_wo_rec.status_type <> 3 and l_eam_wo_rec.status_type = 3)
8864: )
8865: THEN
8866:
8916: , x_msg_data => l_other_message
8917: , x_Mesg_Token_Tbl => l_mesg_token_tbl
8918: );
8919:
8920: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Status Change WO completed with status ' || l_return_status) ; END IF ;
8921: IF NVL(l_return_status, 'S') <> 'S' THEN
8922: l_return_status := FND_API.G_RET_STS_ERROR;
8923: RAISE G_ERR_STATUS_CHANGE;
8924:
8923: RAISE G_ERR_STATUS_CHANGE;
8924:
8925: END IF;
8926:
8927: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Status Change WO completed with status ' || l_return_status) ; END IF ;
8928:
8929:
8930: END IF;
8931: -- baroy - End if for condition #100
9036: END IF;
9037:
9038: /* call for cost estimator to estimate work orders created with activity */
9039:
9040: IF ( (l_eam_wo_rec.asset_activity_id IS NOT NULL and l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE) OR
9041: (l_asset_changed='Y' and l_already_estimated = 'Y') ) THEN --ER 8374077
9042:
9043: /* Verify if there are departments, before launching cost estimation */
9044:
9065: end if;
9066: end if;
9067:
9068: if l_count >= 1 then
9069: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : No department on Work Order or at organization level. Skipping Estimation ') ;
9070: else
9071:
9072:
9073:
9080: WHERE wip_entity_id=l_eam_wo_rec.wip_entity_id
9081: AND organization_id=l_eam_wo_rec.organization_id;
9082:
9083: BEGIN
9084: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling the Estimate_Workorder_Grp procedure ...') ; END IF ;
9085: CSTPECEP.Estimate_WorkOrder_Grp(
9086: p_api_version => 1.0,
9087: p_init_msg_list => fnd_api.g_false,
9088: p_commit => fnd_api.g_false,
9091: p_organization_id => l_eam_wo_rec.organization_id,
9092: x_return_status => l_return_status,
9093: x_msg_data => l_err_text,
9094: x_msg_count => l_msg_count );
9095: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Estimate_Workorder_Grp procedure completed with status '||l_return_status) ; END IF ;
9096:
9097: IF (l_return_status <> 'S') THEN
9098: l_bo_return_status := l_return_status;
9099: END IF;
9106:
9107:
9108: --Raise workflow events
9109: IF(l_workflow_enabled = 'Y') THEN --if workflow is enabled
9110: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Calling the Raise_Workflow_Events procedure ...') ; END IF ;
9111: Raise_Workflow_Events
9112: (
9113: p_api_version => 1.0,
9114: p_validation_level => p_validation_level,
9121: x_return_status => l_return_status,
9122: x_mesg_token_tbl => l_mesg_token_tbl
9123: );
9124:
9125: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : Raise_Workflow_Events procedure completed with status '||l_return_status) ; END IF ;
9126: IF(l_return_status <> 'S') THEN
9127: l_bo_return_status := l_return_status;
9128: END IF;
9129: END IF; --end of check for workflow enabled
9130:
9131:
9132: END IF; --end of check for l_bo_return_status and 'S'
9133:
9134: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.WORK_ORDER : End================================================'); END IF;
9135:
9136:
9137: EXCEPTION
9138: WHEN POPULATE_RELEASE_ERR THEN
9364: , x_eam_direct_items_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type
9365: )
9366: IS
9367: l_api_version_number CONSTANT NUMBER := 1.0;
9368: l_api_name CONSTANT VARCHAR2(30):= 'EAM_PROCESS_WO_PVT';
9369: l_err_text VARCHAR2(240);
9370: l_return_status VARCHAR2(1);
9371:
9372: l_eam_return_status VARCHAR2(1);
9460: WHERE wip_entity_id = c_wip_entity_id;
9461:
9462:
9463: BEGIN
9464: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||'EAM_PROCESS_WO_PVT.PROCESS_WO : Start========================================================') ; END IF ;
9465:
9466: l_wkorder_old_op_tbl.delete;
9467: l_wkorder_old_op_dt_tbl.delete;
9468:
9489:
9490:
9491: -- baroy - query the old row for use in scheduling decisions later on
9492: -- in this procedure.
9493: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE THEN
9494: EAM_WO_UTILITY_PVT.Query_Row
9495: ( p_wip_entity_id => p_eam_wo_rec.wip_entity_id
9496: , p_organization_id => p_eam_wo_rec.organization_id
9497: , x_eam_wo_rec => l_old_eam_wo_rec
9529: l_organization_id := l_eam_res_usage_tbl(l_eam_res_usage_tbl.first).organization_id;
9530: end if;
9531:
9532:
9533: if l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE then
9534: l_wip_entity_id := l_eam_wo_rec.wip_entity_id;
9535: l_organization_id := l_eam_wo_rec.organization_id;
9536: end if;
9537:
9571: exception when others then
9572: null;
9573: end;
9574:
9575: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||'EAM_PROCESS_WO_PVT.PROCESS_WO : Calling the WORK_ORDER procedure...') ; END IF ;
9576:
9577: WORK_ORDER
9578: ( p_validation_level => p_validation_level
9579: , p_wip_entity_id => l_wip_entity_id
9624:
9625: END IF;
9626:
9627:
9628: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : WORK_ORDER completed with status of '||l_eam_return_status) ; END IF ;
9629:
9630: if nvl(l_eam_return_status,'S') = 'S' then
9631:
9632: IF(l_eam_wo_rec.transaction_type IS NOT NULL) THEN -- wip_entity_id will be defaulted when creating workorder
9648: if( l_eam_wo_rec.status_type = 3
9649: and l_old_eam_wo_rec.status_type = 3
9650: and nvl(l_eam_wo_rec.po_creation_time,2)=WIP_CONSTANTS.AT_JOB_SCHEDULE_RELEASE
9651: ) then
9652: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
9653: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling EAM_RES_UTILITY_PVT.CREATE_OSP_REQ to create requisitions for osp item for already released workorder');
9654: END IF;
9655: EAM_RES_UTILITY_PVT.CREATE_OSP_REQ
9656: (
9649: and l_old_eam_wo_rec.status_type = 3
9650: and nvl(l_eam_wo_rec.po_creation_time,2)=WIP_CONSTANTS.AT_JOB_SCHEDULE_RELEASE
9651: ) then
9652: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
9653: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling EAM_RES_UTILITY_PVT.CREATE_OSP_REQ to create requisitions for osp item for already released workorder');
9654: END IF;
9655: EAM_RES_UTILITY_PVT.CREATE_OSP_REQ
9656: (
9657: p_eam_res_tbl => p_eam_res_tbl,
9720: -- do not call material shortage for CMRO
9721: IF l_eam_wo_rec.maintenance_object_source = 1 THEN
9722:
9723: IF l_material_shortage = G_MATERIAL_UPDATE THEN
9724: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO :Calling the Check_Shortage procedure for materials'); END IF;
9725: eam_material_validate_pub.Check_Shortage
9726: (
9727: p_api_version => 1.0
9728: , x_return_status => l_return_status
9748: END IF;
9749:
9750: IF l_scheduled=G_SCHEDULE_WO AND NVL(l_eam_wo_rec.ds_scheduled_flag,'N')='N' THEN
9751: IF (nvl(l_eam_wo_rec.source_code, 'X') NOT IN ('MSC','AHL') ) THEN --EAM related changes in PS-CMRO Integration bug 9413058
9752: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||'EAM_PROCESS_WO_PVT.PROCESS_WO :Scheduling WO') ; END IF ;
9753: EAM_WO_SCHEDULE_PVT.SCHEDULE_WO
9754: ( p_organization_id => l_eam_wo_rec.organization_id
9755: , p_wip_entity_id => l_eam_wo_rec.wip_entity_id
9756: , p_start_date => l_eam_wo_rec.requested_start_date
9780: l_out_eam_res_tbl := l_eam_res_tbl;
9781: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
9782: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
9783:
9784: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO :Calling update_resource_usage for firm work orders') ; END IF ;
9785:
9786: EAM_SCHED_BOTTOM_UP_PVT.update_resource_usage(
9787: p_eam_res_tbl => l_eam_res_tbl
9788: , p_eam_res_inst_tbl => l_eam_res_inst_tbl
9793: , x_return_status => l_return_status
9794: , x_message_name => l_err_text
9795: ) ;
9796:
9797: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
9798: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : update_resource_usage for firm work orders returned status is ' || l_return_status ) ;
9799: END IF ;
9800: IF NVL(l_return_status, 'T') <> 'S' THEN
9801: l_eam_return_status := l_return_status;
9794: , x_message_name => l_err_text
9795: ) ;
9796:
9797: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
9798: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : update_resource_usage for firm work orders returned status is ' || l_return_status ) ;
9799: END IF ;
9800: IF NVL(l_return_status, 'T') <> 'S' THEN
9801: l_eam_return_status := l_return_status;
9802: l_return_status := 'E';
9812: END IF;
9813: -- bug 13493098
9814: if l_scheduled = G_FIRM_WORKORDER or NVL(l_eam_wo_rec.ds_scheduled_flag,'N')= 'Y' or (nvl(l_eam_wo_rec.source_code, 'X') IN ('AHL') ) then
9815:
9816: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Checking WO dates to see whether they are correctly encompassed...') ; END IF ;
9817:
9818: EAM_WO_NETWORK_DEFAULT_PVT.Check_Wo_Dates
9819: (
9820: p_api_version => 1.0,
9828: x_msg_count => l_msg_count,
9829: x_msg_data => l_err_text
9830: );
9831:
9832: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Check_Wo_Dates completed with status of '||l_return_status) ; END IF ;
9833:
9834: IF NVL(l_return_status, 'T') <> 'S' THEN
9835:
9836:
9833:
9834: IF NVL(l_return_status, 'T') <> 'S' THEN
9835:
9836:
9837: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling schedule_bottom_up_pvt for firm work orders') ; END IF ;
9838:
9839: --Added parameter p_woru_modified to the procedure. This is done to ensure that dates are changed correctly from summary tab in Create Update WO page
9840:
9841: EAM_SCHED_BOTTOM_UP_PVT.schedule_bottom_up_pvt (
9929:
9930:
9931: /*7570880 end -Fp of 7003588 for eAM Reconcilation */
9932:
9933: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : schedule_bottom_up_pvt for firm work orders return status :' ||l_return_status) ; END IF ;
9934: IF NVL(l_return_status, 'T') <> 'S' THEN
9935: l_eam_return_status := l_return_status;
9936: l_return_status := 'E';
9937: RAISE SCHEDULE_BOTTOM_UP_ERR;
9954: END IF;
9955:
9956: IF ( l_emp_assignment = TRUE ) THEN
9957:
9958: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Updating assignment details of an employee ') ; END IF ;
9959:
9960: Update eam_work_order_details
9961: set ASSIGNMENT_COMPLETE = EAM_ASSIGN_EMP_PUB.Get_Emp_Assignment_Status(l_eam_wo_rec.wip_entity_id,l_eam_wo_rec.organization_id)
9962: where wip_entity_id = l_eam_wo_rec.wip_entity_id;
9961: set ASSIGNMENT_COMPLETE = EAM_ASSIGN_EMP_PUB.Get_Emp_Assignment_Status(l_eam_wo_rec.wip_entity_id,l_eam_wo_rec.organization_id)
9962: where wip_entity_id = l_eam_wo_rec.wip_entity_id;
9963: END IF;
9964:
9965: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Checking Operation Network Dates... ') ; END IF ;
9966:
9967: EAM_OP_VALIDATE_PVT.Check_Operation_Netwrok_Dates
9968: (
9969: p_api_version => 1.0,
9975: x_pri_operation_no => l_prior_op_no,
9976: x_next_operation_no => l_next_op_no
9977: );
9978:
9979: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Check_Operation_Netwrok_Dates completed with status of '||l_return_status) ; END IF ;
9980:
9981: IF NVL(l_return_status, 'T') <> 'S' THEN
9982: l_eam_return_status := l_return_status;
9983: l_return_status := 'E';
9984: RAISE CHECK_OP_NETWORK_DATES_ERR;
9985: END IF;
9986:
9987:
9988: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Scheduling WO completed with status ' || l_return_status) ; END IF ;
9989:
9990: -- Even for firm work orders, make sure that the work order dates
9991: -- encompass the operation dates and that the operation dates
9992: -- encompass the resource dates and that the resource dates
9993: -- encompass the resource instance dates.
9994:
9995: if l_scheduled = G_FIRM_WORKORDER then
9996:
9997: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling Check_Resource_Dates procedure ...') ; END IF ;
9998:
9999: EAM_WO_NETWORK_DEFAULT_PVT.Check_Resource_Dates
10000: (
10001: p_api_version => 1.0,
10008: x_return_status => l_return_status,
10009: x_msg_count => l_msg_count,
10010: x_msg_data => l_err_text
10011: );
10012: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Check_Resource_Dates completed with status of '||l_return_status) ; END IF ;
10013:
10014: IF NVL(l_return_status, 'T') <> 'S' THEN
10015: l_eam_return_status := l_return_status;
10016: l_return_status := 'E';
10019:
10020: end if;
10021:
10022: begin
10023: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling Check_Wo_Negative_Dates procedure ... ') ; END IF ;
10024: EAM_WO_NETWORK_DEFAULT_PVT.Check_Wo_Negative_Dates
10025: (
10026: p_api_version => 1.0,
10027: p_init_msg_list => FND_API.G_FALSE,
10033: x_msg_count => l_msg_count,
10034: x_msg_data => l_err_text
10035: );
10036:
10037: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Check_Wo_Negative_Dates completed with status of '||l_return_status) ; END IF ;
10038:
10039: IF NVL(l_return_status, 'T') <> 'S' THEN
10040: l_eam_return_status := l_return_status;
10041: l_return_status := 'E';
10048: IF NVL(l_eam_wo_rec.source_code,'X') <> 'MSC' THEN --EAM related changes in PS-CMRO Integration bug 9413058
10049:
10050: if NVL(l_eam_wo_rec.validate_structure,'N') <> 'Y' then -- check added for bug# 3544860
10051:
10052: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling Validate_Structure API'); END IF;
10053:
10054: EAM_WO_NETWORK_VALIDATE_PVT.Validate_Structure
10055: (
10056: p_api_version => 1.0,
10081: END IF;
10082:
10083: end if;
10084:
10085: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : enters inside update'); END IF;
10086: UPDATE_DATES(l_eam_wo_rec,
10087: l_eam_op_tbl,
10088: l_eam_res_tbl,
10089: l_eam_res_inst_tbl);
10097: END IF;
10098:
10099: IF l_eam_return_status = 'S' THEN
10100:
10101: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Updating WIP_REQUIREMENT_OPERATIONS'); END IF;
10102:
10103: begin
10104: select operation_seq_num,first_unit_start_date
10105: bulk collect into l_wkorder_new_op_tbl,l_wkorder_new_op_dt_tbl
10140: END LOOP;
10141: END IF;
10142: END IF; --- end of l_wkorder_old_op_tbl.COUNT
10143:
10144: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Updating date required columns for WIP_REQUIREMENT_OPERATIONS'); END IF;
10145:
10146: IF l_wip_entity_id IS NOT NULL THEN
10147: select SCHEDULED_START_DATE into l_wo_new_sch_start_date
10148: from wip_discrete_jobs
10216: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE and
10217: l_eam_wo_rec.status_type = 3)
10218: ) then
10219:
10220: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Calling material Allocation procedure at wo release/cancel ... ') ; END IF ;
10221:
10222: EAM_MATERIALISSUE_PVT.alloc_at_release_cancel (
10223: p_api_version => 1.0,
10224: p_init_msg_list => fnd_api.g_false,
10232: x_msg_count => l_msg_count
10233: );
10234:
10235:
10236: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Allocation creation at wo release/cancel completed with status of '||l_return_status) ; END IF ;
10237:
10238: IF NVL(l_return_status, 'T') <> 'S' THEN
10239: l_eam_return_status := 'E';
10240: RAISE ALLOC_CREATION_ERR;
10268:
10269: END IF;
10270:
10271: IF l_old_eam_wo_rec.status_type in (3,4) -- released, complete
10272: and l_out_eam_mat_req_tbl(kk).transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE
10273: THEN
10274: EAM_MATERIALISSUE_PVT.cancel_alloc_matl_del
10275: (
10276: p_api_version => 1.0,
10291: END LOOP;
10292:
10293: END IF; --end of if l_out_eam_mat_req_tbl.COUNT
10294:
10295: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling UPDATE_INTERMEDIA_INDEX'); END IF;
10296:
10297: IF(l_eam_wo_rec.maintenance_object_source =1 ) THEN --update intermedia index only for EAM workorders
10298: UPDATE_INTERMEDIA_INDEX
10299: (
10306: END IF; --end of check for maint. object source...
10307:
10308: END IF; --end of l_eam_return_status='S'
10309:
10310: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_PROCESS_WO_PVT.PROCESS_WO : Assigning Out Parameters'); END IF;
10311:
10312: x_msg_count := l_msg_count;
10313: x_eam_wo_rec := l_eam_wo_rec;
10314: x_eam_op_tbl := l_eam_op_tbl;
10320: x_eam_mat_req_tbl := l_eam_mat_req_tbl;
10321: x_eam_direct_items_tbl := l_eam_direct_items_tbl;
10322: x_return_status := l_eam_return_status;
10323:
10324: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.PROCESS_WO : End ==== Return status: '||x_return_status||' =======================') ; END IF ;
10325:
10326: EXCEPTION
10327:
10328: WHEN ALLOC_CREATION_ERR THEN
11213: x_valid_transaction := TRUE;
11214:
11215:
11216: IF (p_entity_name IN ('WORK_ORDER')
11217: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_SYNC, EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11218: )
11219: OR
11220: (p_entity_name IN ('OPERATION','OPERATION_RESOURCE','RESOURCE_INSTANCE','SUB_RESOURCE','DIRECT_ITEMS','MATERIAL_REQUIREMENTS')
11221: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_SYNC, EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
11217: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_SYNC, EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11218: )
11219: OR
11220: (p_entity_name IN ('OPERATION','OPERATION_RESOURCE','RESOURCE_INSTANCE','SUB_RESOURCE','DIRECT_ITEMS','MATERIAL_REQUIREMENTS')
11221: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_SYNC, EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
11222: )
11223: OR
11224: (p_entity_name IN ('OPERATION_NETWORK', 'RESOURCE_USAGE')
11225: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
11221: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_SYNC, EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
11222: )
11223: OR
11224: (p_entity_name IN ('OPERATION_NETWORK', 'RESOURCE_USAGE')
11225: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
11226: )
11227: OR
11228: (p_entity_name IN ('WORK_ORDER_COMPLETEION','OPERATION_COMPLETEION')
11229: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_COMPLETE, EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE)
11225: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
11226: )
11227: OR
11228: (p_entity_name IN ('WORK_ORDER_COMPLETEION','OPERATION_COMPLETEION')
11229: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_COMPLETE, EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE)
11230: )
11231: OR
11232: (p_entity_name IN ('QUALITY_ENTRY','METER_READING')
11233: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE)
11229: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_COMPLETE, EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE)
11230: )
11231: OR
11232: (p_entity_name IN ('QUALITY_ENTRY','METER_READING')
11233: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE)
11234: )
11235: OR
11236: (p_entity_name IN ('WORK_ORDER_COMPL_REBUILD','W_ORDER_COMPL_METER_READING')
11237: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11233: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE)
11234: )
11235: OR
11236: (p_entity_name IN ('WORK_ORDER_COMPL_REBUILD','W_ORDER_COMPL_METER_READING')
11237: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11238: )
11239: OR
11240: (p_entity_name IN ('WORK_SERVICE_REQUEST')
11241: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11237: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11238: )
11239: OR
11240: (p_entity_name IN ('WORK_SERVICE_REQUEST')
11241: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
11242: )
11243:
11244: THEN
11245:
11489: OPEN operations(x_eam_wo_rec.wip_entity_id,x_eam_wo_rec.organization_id
11490: ,x_eam_op_tbl(i).operation_seq_num);
11491:
11492: FETCH operations INTO l_operations;
11493: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('op'||to_char(l_operations.last_unit_completion_date,'DD HH24:MI:SS')); END IF;
11494: IF(operations%FOUND) THEN
11495: x_eam_op_tbl(i).start_date := l_operations.first_unit_start_date;
11496: x_eam_op_tbl(i).completion_date := l_operations.last_unit_completion_date;
11497: END IF;
11504: END LOOP;
11505: END IF;
11506: --end of populating operation dates
11507:
11508: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(x_eam_res_tbl.COUNT); END IF;
11509: --start of populating resource dates
11510: IF(x_eam_res_tbl.COUNT > 0) THEN
11511: i:=x_eam_res_tbl.FIRST;
11512: LOOP
11514: OPEN resources(x_eam_wo_rec.wip_entity_id,x_eam_wo_rec.organization_id
11515: ,x_eam_res_tbl(i).operation_seq_num,x_eam_res_tbl(i).resource_seq_num);
11516:
11517: FETCH resources INTO l_resources;
11518: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('resources dates passed'||to_char(l_resources.completion_date,'DD HH24:MI:SS')); END IF;
11519: IF(resources%FOUND) THEN
11520: x_eam_res_tbl(i).start_date := l_resources.start_date;
11521: x_eam_res_tbl(i).completion_date := l_resources.completion_date;
11522: END IF;
11539: ,x_eam_res_inst_tbl(i).operation_seq_num,x_eam_res_inst_tbl(i).resource_seq_num
11540: ,x_eam_res_inst_tbl(i).instance_id,x_eam_res_inst_tbl(i).serial_number);
11541:
11542: FETCH resource_instances INTO l_resource_instances;
11543: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('resource instances dates passed'||to_char(l_resource_instances.completion_date,'DD HH24:MI:SS')); END IF;
11544: IF(resource_instances%FOUND) THEN
11545: x_eam_res_inst_tbl(i).start_date := l_resource_instances.start_date;
11546: x_eam_res_inst_tbl(i).completion_date := l_resource_instances.completion_date;
11547: END IF;
11556: --end of populating resource instance dates
11557:
11558: EXCEPTION
11559: WHEN OTHERS THEN
11560: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Dates could not be populated back to the records') ; END IF ;
11561: END UPDATE_DATES;
11562:
11563:
11564:
11724:
11725: BEGIN
11726: SAVEPOINT sv_wo_compl ;
11727:
11728: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.COMP_UNCOMP_WORKORDER Start ================================================'); END IF;
11729:
11730: l_eam_failure_entry_record := p_eam_wo_comp_rec.eam_failure_entry_record;
11731: l_eam_failure_codes_tbl := p_eam_wo_comp_rec.eam_failure_codes_tbl;
11732:
11783: l_workflow_enabled := Is_Workflow_Enabled(l_maint_obj_source, l_eam_wo_comp_rec.organization_id);
11784: l_status_changed_event := 'oracle.apps.eam.workorder.status.changed';
11785: l_status_pending_event := 'oracle.apps.eam.workorder.status.change.pending';
11786:
11787: IF(l_eam_wo_comp_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_COMPLETE) THEN
11788: l_new_system_status := 4; --can be complete/complete-no-charges...get from completion record
11789: l_new_eam_status := 4; --get value from completion record
11790: ELSE
11791: l_new_system_status := 3;
11881: RAISE EXC_SEV_QUIT_RECORD;
11882: END IF;
11883:
11884:
11885: IF(l_workflow_enabled='Y' AND l_eam_wo_comp_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE
11886: AND (WF_EVENT.TEST(l_status_pending_event) <> 'NONE') )THEN
11887: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking WF Approval mandatory . . . '); END IF;
11888: EAM_WORKFLOW_DETAILS_PUB.Eam_Wf_Is_Approval_Required(p_old_wo_rec => NULL,
11889: p_new_wo_rec => NULL,
12007:
12008: --Invoke Update_Pm_When_Uncomplete to reverse last service dates and last service reading if this is the last work order
12009: --This should be called before Perform_Writes as the logic to calculate if this is the last work order or not will not work if record
12010: -- will be inserted into Eam_Job_Completion_Txns for uncompletion transaction.
12011: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE THEN
12012: if( l_maint_obj_source = 1) then -- added to check whether work order is of 'EAM' or 'CRMO'.'EAM=1'
12013: eam_pm_utils.update_pm_when_uncomplete(l_eam_wo_comp_rec.organization_id, l_eam_wo_comp_rec.wip_entity_id);
12014: end if; -- end of source entity check
12015: END IF;
12056: l_other_token_tbl(1).token_value := l_wip_entity_name;
12057: RAISE EXC_SEV_QUIT_RECORD;
12058: END IF;
12059:
12060: IF p_eam_wo_quality_tbl.COUNT > 0 AND l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12061:
12062: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing quality records...') ; END IF ;
12063:
12064: FOR I IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
12058: END IF;
12059:
12060: IF p_eam_wo_quality_tbl.COUNT > 0 AND l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12061:
12062: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing quality records...') ; END IF ;
12063:
12064: FOR I IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
12065: BEGIN
12066:
12063:
12064: FOR I IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
12065: BEGIN
12066:
12067: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
12068:
12069: l_eam_wo_quality_rec := l_eam_wo_quality_tbl(I);
12070: colllection_id_temp := l_eam_wo_quality_rec.collection_id;
12071:
12086: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
12087: RAISE EXC_SEV_QUIT_RECORD;
12088: END IF ;
12089:
12090: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quality : Check_Required...') ; END IF ;
12091:
12092: EAM_WO_QUA_VALIDATE_PVT.Check_Required
12093: (
12094: p_eam_wo_quality_rec => l_eam_wo_quality_rec
12151:
12152:
12153: BEGIN
12154:
12155: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quality : Insert_Row...') ; END IF ;
12156:
12157: EAM_WO_QUA_UTILITY_PVT.insert_row
12158: (
12159: p_collection_id => colllection_id_temp
12205: END ; -- END For Quality Insert row
12206:
12207: END IF; -- END FOR Quality records.COUNT > 0
12208:
12209: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12210: BEGIN
12211:
12212: IF l_asset_number IS NOT NULL THEN
12213:
12220: AND wdj.maintenance_object_id = cii.instance_id
12221: AND cii.serial_number = l_asset_number;
12222: END IF;
12223:
12224: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
12225: EAM_ERROR_MESSAGE_PVT.Write_Debug('Quality : Checking whether mandatory quality plans remain...') ; END IF ;
12226: mandatory_qua_plan :=qa_web_txn_api.quality_mandatory_plans_remain(
12227: p_txn_number => 31 ,
12228: p_organization_id => l_org_id ,
12264:
12265: END IF;
12266: END;
12267: END IF;
12268: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12269: /* Failure Analysis Project Start */
12270: --Failure Entry data to be processed at work order completion
12271: --For Normal EAM Work Orders and Serialized rebuildable work orders
12272:
12277:
12278: FOR i in 1..l_eam_failure_codes_tbl.count
12279: LOOP
12280:
12281: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing failure entry records...') ; END IF ;
12282:
12283: IF l_eam_failure_codes_tbl(i).comments IS NOT NULL THEN
12284: l_comments_exists := 'Y';
12285: END IF;
12360: OR l_comments_exists = 'Y'
12361: OR l_eam_failure_entry_record.failure_id IS NOT NULL
12362: )
12363: THEN
12364: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling process_failure_entry procedure...') ; END IF ;
12365: Eam_Process_Failure_Entry_PUB.process_failure_entry
12366: (
12367: p_eam_failure_entry_record => l_eam_failure_entry_record
12368: , p_eam_failure_codes_tbl => l_eam_failure_codes_tbl
12389: /* Failure Analysis Project End */
12390:
12391: END IF;
12392:
12393: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12394:
12395: -- BUG12914431 begin
12396: BEGIN
12397:
12410: contextStr := '162='||l_asset_group_id||'@163='
12411: ||l_asset_number||'@2147483550='||l_asset_instance_id||'@165='||l_wip_entity_id
12412: ||'@164='||l_asset_activity_id;
12413:
12414: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling post_background_results procedure...') ; END IF ;
12415: qa_web_txn_api.post_background_results(
12416: p_txn_number => 31 ,
12417: p_org_id => l_org_id ,
12418: p_context_values => contextStr ,
12435:
12436: RAISE EXC_SEV_QUIT_RECORD;
12437: END ;
12438:
12439: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling enable_and_fire_action procedure...') ; END IF ;
12440:
12441: qa_result_grp.enable_and_fire_action(
12442: p_api_version => 1.0 ,
12443: p_collection_id => l_eam_wo_comp_rec.qa_collection_id ,
12467: END IF; -- end if for p_eam_wo_quality_tbl.COUNT > 0
12468:
12469: --bug 8591423
12470:
12471: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and p_eam_meter_reading_tbl.COUNT > 0 THEN
12472: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_VALIDATE_PVT.insert_row procedure...') ; END IF ;
12473: EAM_METERREADING_UTILITY_PVT.INSERT_ROW
12474: (
12475: p_eam_meter_reading_tbl => p_eam_meter_reading_tbl
12468:
12469: --bug 8591423
12470:
12471: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and p_eam_meter_reading_tbl.COUNT > 0 THEN
12472: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_VALIDATE_PVT.insert_row procedure...') ; END IF ;
12473: EAM_METERREADING_UTILITY_PVT.INSERT_ROW
12474: (
12475: p_eam_meter_reading_tbl => p_eam_meter_reading_tbl
12476: , p_eam_counter_prop_tbl => p_eam_counter_prop_tbl
12488: END IF;
12489:
12490: END IF;
12491:
12492: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and l_maint_object_type =3 THEN
12493: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_VALIDATE_PVT.MANDATORY_ENTERED procedure...') ; END IF ;
12494: EAM_METERREADING_VALIDATE_PVT.MANDATORY_ENTERED
12495: (
12496: p_wip_entity_id => l_eam_wo_comp_rec.wip_entity_id
12489:
12490: END IF;
12491:
12492: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and l_maint_object_type =3 THEN
12493: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_VALIDATE_PVT.MANDATORY_ENTERED procedure...') ; END IF ;
12494: EAM_METERREADING_VALIDATE_PVT.MANDATORY_ENTERED
12495: (
12496: p_wip_entity_id => l_eam_wo_comp_rec.wip_entity_id
12497: , p_instance_id => l_maint_object_id
12512:
12513:
12514: /* Bug # 5255459 : call DISABLE_COUNTER_HIERARCHY every time */
12515:
12516: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_UTILITY_PVT.DISABLE_COUNTER_HIERARCHY procedure...') ; END IF ;
12517: EAM_METERREADING_UTILITY_PVT.DISABLE_COUNTER_HIERARCHY
12518: (
12519: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
12520: p_subinventory_id => l_eam_wo_comp_rec.completion_subinventory ,
12531: END IF;
12532:
12533: IF p_eam_wo_comp_rebuild_tbl.COUNT > 0 THEN
12534:
12535: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling AM_METERREADING_UTILITY_PVT.Update_Genealogy procedure...') ; END IF ;
12536: EAM_METERREADING_UTILITY_PVT.UPDATE_GENEALOGY
12537: (
12538: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
12539: x_eam_wo_comp_rebuild_tbl => x_eam_wo_comp_rebuild_tbl ,
12547: l_other_token_tbl(1).token_value := l_wip_entity_name;
12548: RAISE EXC_SEV_QUIT_RECORD;
12549: END IF;
12550:
12551: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling AM_METERREADING_UTILITY_PVT.UPDATE_REBUILD_WORK_ORDER procedure...') ; END IF ;
12552: EAM_METERREADING_UTILITY_PVT.UPDATE_REBUILD_WORK_ORDER
12553: (
12554: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
12555: x_eam_wo_comp_rebuild_tbl => x_eam_wo_comp_rebuild_tbl ,
12563: RAISE EXC_SEV_QUIT_RECORD;
12564: END IF;
12565:
12566:
12567: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_UTILITY_PVT.UPDATE_ACTIVITY procedure...') ; END IF ;
12568: EAM_METERREADING_UTILITY_PVT.UPDATE_ACTIVITY
12569: (
12570: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
12571: x_eam_wo_comp_rebuild_tbl => x_eam_wo_comp_rebuild_tbl ,
12581:
12582: END IF;
12583:
12584: IF p_eam_wo_comp_mr_read_tbl.COUNT > 0 THEN
12585: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_UTILITY_PVT.ENABLE_SOURCE_METER procedure...') ; END IF ;
12586: EAM_METERREADING_UTILITY_PVT.ENABLE_SOURCE_METER
12587: (
12588: p_eam_wo_comp_mr_read_tbl => p_eam_wo_comp_mr_read_tbl ,
12589: x_eam_wo_comp_mr_read_tbl => x_eam_wo_comp_mr_read_tbl ,
12599: END IF;
12600:
12601: /* -- For work order completeion call Eam_Meters_util. Update_Last_Service_Reading_Dates
12602:
12603: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND p_eam_meter_reading_tbl.COUNT > 0 THEN
12604:
12605: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_UTILITY_PVT.UPDATE_LAST_SERVICE_READING procedure...') ; END IF ;
12606: EAM_METERREADING_UTILITY_PVT.UPDATE_LAST_SERVICE_READING
12607: (
12601: /* -- For work order completeion call Eam_Meters_util. Update_Last_Service_Reading_Dates
12602:
12603: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND p_eam_meter_reading_tbl.COUNT > 0 THEN
12604:
12605: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_METERREADING_UTILITY_PVT.UPDATE_LAST_SERVICE_READING procedure...') ; END IF ;
12606: EAM_METERREADING_UTILITY_PVT.UPDATE_LAST_SERVICE_READING
12607: (
12608: p_eam_meter_reading_tbl => p_eam_meter_reading_tbl
12609: , x_eam_meter_reading_tbl => x_eam_meter_reading_tbl
12617: RAISE EXC_SEV_QUIT_RECORD;
12618: END IF;
12619: END IF; */
12620:
12621: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND
12622: l_eam_wo_comp_rec.completion_subinventory IS NULL THEN
12623:
12624: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling csi_eam_interface_grp.wip_completion procedure...') ; END IF ;
12625: csi_eam_interface_grp.wip_completion
12620:
12621: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND
12622: l_eam_wo_comp_rec.completion_subinventory IS NULL THEN
12623:
12624: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling csi_eam_interface_grp.wip_completion procedure...') ; END IF ;
12625: csi_eam_interface_grp.wip_completion
12626: (
12627: p_wip_entity_id => l_eam_wo_comp_rec.wip_entity_id,
12628: p_organization_id => l_eam_wo_comp_rec.organization_id,
12637: RAISE EXC_SEV_QUIT_RECORD;
12638: END IF;
12639: END IF;
12640:
12641: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12642: declare
12643:
12644: TYPE plan_id_tbl is TABLE OF number INDEX BY BINARY_INTEGER;
12645: TYPE plan_name_tbl is TABLE OF varchar2(30) INDEX BY BINARY_INTEGER;
12657: and collection_id = l_eam_wo_comp_rec.qa_collection_id;
12658: */
12659: IF l_plan_id_tbl.COUNT > 0 THEN
12660: FOR N IN l_plan_id_tbl.FIRST..l_plan_id_tbl.LAST LOOP
12661: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_ASSET_LOG_PVT.INSERT_ROW procedure...') ; END IF ;
12662: EAM_ASSET_LOG_PVT.INSERT_ROW
12663: (
12664: p_api_version => 1.0,
12665: p_event_date => sysdate,
12732: WF_CORE.CONTEXT('Enterprise Asset Management...','Work Order Status Changed Event','After raising event');
12733: END IF; --end of check for status change event
12734:
12735: IF(l_maint_obj_source =1 ) THEN --modify intermedia index only for EAM workorders
12736: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_TEXT_UTIL.PROCESS_WO_EVENT procedure...') ; END IF ;
12737: EAM_TEXT_UTIL.PROCESS_WO_EVENT
12738: (
12739: p_event => 'UPDATE',
12740: p_wip_entity_id =>l_eam_wo_comp_rec.wip_entity_id,
12745: );
12746: END IF; --end of check for EAM workorders
12747:
12748:
12749: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12750: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_ASSET_LOG_PVT.INSERT_ROW procedure...') ; END IF ;
12751: EAM_ASSET_LOG_PVT.INSERT_ROW
12752: (
12753: p_api_version => 1.0,
12746: END IF; --end of check for EAM workorders
12747:
12748:
12749: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12750: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_ASSET_LOG_PVT.INSERT_ROW procedure...') ; END IF ;
12751: EAM_ASSET_LOG_PVT.INSERT_ROW
12752: (
12753: p_api_version => 1.0,
12754: p_event_date => sysdate,
12765: x_msg_count => l_asset_ops_msg_count,
12766: x_msg_data => l_asset_ops_msg_data
12767: );
12768: ELSE
12769: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling EAM_ASSET_LOG_PVT.INSERT_ROW procedure...') ; END IF ;
12770: EAM_ASSET_LOG_PVT.INSERT_ROW
12771: (
12772: p_api_version => 1.0,
12773: p_event_date => sysdate,
12800: where status_id = p_eam_wo_comp_rec.user_status_id
12801: and enabled_flag = 'Y';
12802:
12803: IF (i_status_type = 5) then -- added status 5 Complete - No Charges for bug 7305904 FP of 6348136
12804: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling wip_picking_pub.cancel_allocations') ; END IF ;
12805: wip_picking_pub.cancel_allocations (p_wip_entity_id => l_wip_entity_id,
12806: p_wip_entity_type => wip_constants.eam,
12807: p_repetitive_schedule_id => NULL,
12808: x_return_status => l_return_status,
12806: p_wip_entity_type => wip_constants.eam,
12807: p_repetitive_schedule_id => NULL,
12808: x_return_status => l_return_status,
12809: x_msg_data => l_msg_data);
12810: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('wip_picking_pub.cancel_allocations returned: x_return_status:' ||x_return_status) ; END IF ;
12811: end if;
12812:
12813: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.COMP_UNCOMP_WORKORDER : End ==== Return status: '||l_return_status||' ======') ; END IF ;
12814:
12809: x_msg_data => l_msg_data);
12810: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('wip_picking_pub.cancel_allocations returned: x_return_status:' ||x_return_status) ; END IF ;
12811: end if;
12812:
12813: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.COMP_UNCOMP_WORKORDER : End ==== Return status: '||l_return_status||' ======') ; END IF ;
12814:
12815: EXCEPTION -- Excepetion handler for begin
12816:
12817: WHEN EXC_SEV_QUIT_RECORD THEN
12957: l_op_sched_end_date DATE;
12958: l_asset_instance_number VARCHAR2(30);
12959:
12960: BEGIN
12961: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.COMP_UNCOMP_OPERATION : Start==========================================================') ; END IF ;
12962:
12963:
12964: x_return_status := FND_API.G_RET_STS_SUCCESS;
12965: l_return_status := FND_API.G_RET_STS_SUCCESS;
13037: ( p_eam_op_comp_rec => l_eam_op_comp_rec
13038: , x_return_status => l_return_status
13039: , x_mesg_token_tbl => l_mesg_token_tbl
13040: ) ;
13041: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Operation Order Completeion Check required completed with return_status: ' || l_return_status) ; END IF ;
13042:
13043: IF l_return_status <> 'S'
13044: THEN
13045: x_eam_op_comp_tbl(i).return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
13104:
13105: x_eam_op_comp_tbl(i) := l_eam_op_comp_rec;
13106:
13107:
13108: IF l_eam_wo_quality_tbl.COUNT > 0 AND l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
13109: FOR J IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
13110: IF l_eam_wo_quality_tbl(j).operation_seq_number = p_eam_op_compl_tbl(i).operation_seq_num THEN
13111: l_eam_wo_quality_temp_tbl(j) := l_eam_wo_quality_tbl(j);
13112: END IF;
13114:
13115: FOR K IN l_eam_wo_quality_temp_tbl.FIRST..l_eam_wo_quality_temp_tbl.LAST LOOP
13116: BEGIN
13117:
13118: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
13119:
13120: -- Load local records.
13121: l_eam_wo_quality_rec := l_eam_wo_quality_temp_tbl(K);
13122:
13183: END IF;
13184: END ;
13185: END IF; -- END FOR Quality records > 0
13186:
13187: IF l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
13188: BEGIN
13189:
13190: IF l_asset_number IS NOT NULL THEN
13191:
13227: END;
13228: END IF;
13229:
13230: IF p_eam_wo_quality_tbl.COUNT > 0 AND
13231: l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
13232:
13233: BEGIN
13234: contextStr := '162='||l_asset_group_id||'@163='
13235: ||l_asset_number||'@2147483550='||l_asset_instance_id||'@165='
13291: END IF;
13292:
13293:
13294:
13295: IF(l_workflow_enabled='Y' AND (l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE)
13296: AND (Wf_Event.TEST(l_op_completed_event)<>'NONE' ) ) THEN
13297:
13298: SELECT last_unit_completion_date
13299: INTO l_op_sched_end_date
13388: RETURN;
13389: END ; -- End for op count > 0
13390:
13391: END LOOP;
13392: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(to_char(sysdate,'DD-MON-YY HH:MI:SS')||' EAM_PROCESS_WO_PVT.COMP_UNCOMP_OPERATION : End==========================================================') ; END IF ;
13393:
13394: END COMP_UNCOMP_OPERATION;
13395:
13396:
13527: END IF;
13528:
13529: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Work Request Service Request association: : Associating/Disassociating Work /Service Request. . .'); END IF;
13530:
13531: IF l_eam_request_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
13532: EAM_REQUEST_UTILITY_PVT.INSERT_ROW
13533: ( p_eam_request_rec => l_eam_request_rec
13534: , x_return_status => l_return_status
13535: , x_mesg_token_tbl => l_mesg_token_tbl
13535: , x_mesg_token_tbl => l_mesg_token_tbl
13536: );
13537: END IF;
13538:
13539: IF l_eam_request_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE THEN
13540: EAM_REQUEST_UTILITY_PVT.DELETE_ROW
13541: ( p_eam_request_rec => l_eam_request_rec
13542: , x_return_status => l_return_status
13543: , x_mesg_token_tbl => l_mesg_token_tbl
13594:
13595: END SERVICE_WORKREQUEST_ASSO;
13596:
13597:
13598: END EAM_PROCESS_WO_PVT;