[Home] [Help]
1: PACKAGE BODY EAM_PROCESS_WO_PVT AS
2: /* $Header: EAMVWOPB.pls 120.77.12010000.3 2008/11/18 13:13:01 vchidura 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
22: -- 15-Aug-2006 Anju Gupta Modified the call to Bottom up Scheduler
23: for bug 5408720
24: ***************************************************************************/
25:
26: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_PROCESS_WO_PVT';
27:
28: G_EXC_QUIT_IMPORT EXCEPTION;
29:
30: EXC_SEV_QUIT_RECORD EXCEPTION;
134: l_status_changed_event := 'oracle.apps.eam.workorder.status.changed';
135:
136:
137: --if workorder created and create event enabled
138: IF(p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE AND (WF_EVENT.TEST(l_create_event) <> 'NONE')) THEN
139: SELECT EAM_WORKFLOW_EVENT_S.NEXTVAL
140: INTO l_wf_event_seq
141: FROM DUAL;
142:
179:
180: --if workorder created or user-defined status modified or chaged from pending to non-pending
181: IF( (NVL(p_eam_wo_rec.pending_flag,'N')='N' )
182: AND
183: ( (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
184: OR (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
185: --and old status is not same as new status
186: 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' )
187: ))
180: --if workorder created or user-defined status modified or chaged from pending to non-pending
181: IF( (NVL(p_eam_wo_rec.pending_flag,'N')='N' )
182: AND
183: ( (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
184: OR (p_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
185: --and old status is not same as new status
186: 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' )
187: ))
188: AND (WF_EVENT.TEST(l_status_changed_event) <> 'NONE') --if status change event enabled
487: l_valid_transaction BOOLEAN := TRUE ;
488:
489:
490: BEGIN
491: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_res_usage_tbl.COUNT ||' records passed') ; END IF ;
492:
493: x_return_status := FND_API.G_RET_STS_SUCCESS;
494:
495: -- Init local table variables.
496: l_return_status := 'S' ;
497: l_bo_return_status := 'S' ;
498: l_eam_res_usage_tbl:= p_eam_res_usage_tbl ;
499:
500: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting RESOURCE_USAGES') ; END IF ;
501:
502:
503: FOR I IN 1..l_eam_res_usage_tbl.COUNT LOOP
504: BEGIN
502:
503: FOR I IN 1..l_eam_res_usage_tbl.COUNT LOOP
504: BEGIN
505:
506: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
507:
508: -- Load local records.
509: l_eam_res_usage_rec := l_eam_res_usage_tbl(I);
510:
513: l_process_children := FALSE;
514:
515:
516: IF l_eam_res_usage_rec.wip_entity_id is NULL
517: AND (l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
518: OR l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
519: THEN
520: l_eam_res_usage_rec.wip_entity_id := p_wip_entity_id;
521: END IF;
514:
515:
516: IF l_eam_res_usage_rec.wip_entity_id is NULL
517: AND (l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
518: OR l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
519: THEN
520: l_eam_res_usage_rec.wip_entity_id := p_wip_entity_id;
521: END IF;
522:
542: )
543: )
544: THEN
545:
546: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
547:
548:
549: l_return_status := FND_API.G_RET_STS_SUCCESS;
550: l_eam_res_usage_rec.return_status := FND_API.G_RET_STS_SUCCESS;
569: , x_return_status => l_return_status
570: , x_mesg_token_tbl => l_mesg_token_tbl
571: ) ;
572:
573: 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 ;
574:
575: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
576: THEN
577: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
573: 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 ;
574:
575: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
576: THEN
577: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
578: THEN
579: l_other_message := 'EAM_RU_REQ_CSEV_SKIP';
580: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
581: l_other_token_tbl(1).token_value := l_eam_res_usage_rec.resource_seq_num ;
597: , x_return_status => l_return_status
598: , x_mesg_token_tbl => l_mesg_token_tbl
599: );
600:
601: 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 ;
602:
603: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
604: THEN
605: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
601: 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 ;
602:
603: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
604: THEN
605: IF l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
606: THEN
607: l_other_message := 'EAM_RU_ATTVAL_CSEV_SKIP';
608: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
609: l_other_token_tbl(1).token_value := l_eam_res_usage_rec.resource_seq_num ;
678: );
679: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
680: END IF;
681:
682: 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;
683: END IF ; -- bug 5224748. end of check for x_bottomup_scheduled = G_NON_FIRM_WORKORDER
684:
685: ELSE
686:
683: END IF ; -- bug 5224748. end of check for x_bottomup_scheduled = G_NON_FIRM_WORKORDER
684:
685: ELSE
686:
687: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
688:
689: END IF; -- END IF statement that checks RETURN STATUS
690:
691: --find if bottom up scheduler is to be called or not
689: END IF; -- END IF statement that checks RETURN STATUS
690:
691: --find if bottom up scheduler is to be called or not
692:
693: IF(l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource usage is added
694: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE ) --deleted
695: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource usage
696:
697: (
690:
691: --find if bottom up scheduler is to be called or not
692:
693: IF(l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource usage is added
694: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE ) --deleted
695: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource usage
696:
697: (
698: --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)
691: --find if bottom up scheduler is to be called or not
692:
693: IF(l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource usage is added
694: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_DELETE ) --deleted
695: OR (l_eam_res_usage_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource usage
696:
697: (
698: --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)
699: -- OR
1040: l_valid_transaction BOOLEAN := TRUE ;
1041:
1042:
1043: BEGIN
1044: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_sub_res_tbl.COUNT ||' records passed') ; END IF ;
1045:
1046: x_return_status := FND_API.G_RET_STS_SUCCESS;
1047:
1048: -- Init local table variables.
1049: l_return_status := 'S' ;
1050: l_bo_return_status := 'S' ;
1051: l_eam_sub_res_tbl := p_eam_sub_res_tbl ;
1052:
1053: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting SUB_RESOURCE') ; END IF ;
1054:
1055: FOR I IN 1..l_eam_sub_res_tbl.COUNT LOOP
1056: BEGIN
1057:
1054:
1055: FOR I IN 1..l_eam_sub_res_tbl.COUNT LOOP
1056: BEGIN
1057:
1058: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
1059:
1060: -- Load local records.
1061: l_eam_sub_res_rec := l_eam_sub_res_tbl(I);
1062:
1066:
1067:
1068:
1069: IF l_eam_sub_res_rec.wip_entity_id is NULL
1070: AND (l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1071: OR l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1072: THEN
1073: l_eam_sub_res_rec.wip_entity_id := p_wip_entity_id;
1074: END IF;
1067:
1068:
1069: IF l_eam_sub_res_rec.wip_entity_id is NULL
1070: AND (l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1071: OR l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1072: THEN
1073: l_eam_sub_res_rec.wip_entity_id := p_wip_entity_id;
1074: END IF;
1075:
1093: )
1094: )
1095: THEN
1096:
1097: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
1098:
1099:
1100: l_return_status := FND_API.G_RET_STS_SUCCESS;
1101: l_eam_sub_res_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1120: , x_mesg_token_tbl => l_mesg_token_tbl
1121: , x_return_status => l_return_status
1122: ) ;
1123:
1124: 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 ;
1125:
1126: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1127: THEN
1128: l_other_message := 'EAM_SR_EXS_SEV_SKIP';
1142: END IF;
1143:
1144: /* Assign the correct transaction type for SYNC operations */
1145:
1146: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
1147: l_eam_sub_res_rec.transaction_type := l_old_eam_sub_res_rec.transaction_type;
1148: END IF;
1149:
1150:
1147: l_eam_sub_res_rec.transaction_type := l_old_eam_sub_res_rec.transaction_type;
1148: END IF;
1149:
1150:
1151: IF l_eam_sub_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1152: THEN
1153:
1154: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1155: END IF ;
1150:
1151: IF l_eam_sub_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1152: THEN
1153:
1154: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1155: END IF ;
1156:
1157: l_out_eam_sub_res_rec := l_eam_sub_res_rec;
1158:
1164:
1165: l_eam_sub_res_rec := l_out_eam_sub_res_rec;
1166:
1167:
1168: ELSIF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1169: THEN
1170:
1171: l_out_eam_sub_res_rec := l_eam_sub_res_rec;
1172:
1178: ) ;
1179:
1180: l_eam_sub_res_rec := l_out_eam_sub_res_rec;
1181:
1182: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
1183: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
1184: END IF ;
1185:
1186:
1229: , x_return_status => l_return_status
1230: , x_mesg_token_tbl => l_mesg_token_tbl
1231: ) ;
1232:
1233: 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 ;
1234:
1235:
1236: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1237: THEN
1234:
1235:
1236: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1237: THEN
1238: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1239: THEN
1240: l_other_message := 'EAM_SR_REQ_CSEV_SKIP';
1241: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
1242: l_other_token_tbl(1).token_value := l_eam_sub_res_rec.resource_seq_num ;
1259: , x_return_status => l_return_status
1260: , x_mesg_token_tbl => l_mesg_token_tbl
1261: ) ;
1262:
1263: 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 ;
1264:
1265: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1266: THEN
1267: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1263: 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 ;
1264:
1265: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1266: THEN
1267: IF l_eam_sub_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1268: THEN
1269: l_other_message := 'EAM_SR_ATTVAL_CSEV_SKIP';
1270: l_other_token_tbl(1).token_name := 'RESOURCE_SEQ_NUM';
1271: l_other_token_tbl(1).token_value := l_eam_sub_res_rec.resource_seq_num ;
1343: l_eam_sub_res_tbl := l_out_eam_sub_res_tbl;
1344: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
1345: END IF;
1346:
1347: 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;
1348:
1349: ELSE
1350:
1351: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
1347: 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;
1348:
1349: ELSE
1350:
1351: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
1352:
1353: END IF; -- END IF statement that checks RETURN STATUS
1354:
1355: -- Load tables.
1627:
1628:
1629: -- Process Resource Usage that are direct children of this
1630: -- operation
1631: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling RESOURCE_USAGES from SUB_RESOURCE') ; END IF ;
1632:
1633: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
1634:
1635: RESOURCE_USAGES
1750: l_eam_res_usage_rec EAM_PROCESS_WO_PUB.eam_res_usage_rec_type;
1751:
1752:
1753: BEGIN
1754: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_res_inst_tbl.COUNT ||' records passed') ; END IF ;
1755:
1756: x_return_status := FND_API.G_RET_STS_SUCCESS;
1757:
1758: IF x_bottomup_scheduled = G_NON_FIRM_WORKORDER THEN
1763: l_return_status := 'S' ;
1764: l_bo_return_status := 'S' ;
1765: l_eam_res_inst_tbl := p_eam_res_inst_tbl ;
1766:
1767: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting RESOURCE_INSTANCES') ; END IF ;
1768:
1769: FOR I IN 1..l_eam_res_inst_tbl.COUNT LOOP
1770: BEGIN
1771:
1768:
1769: FOR I IN 1..l_eam_res_inst_tbl.COUNT LOOP
1770: BEGIN
1771:
1772: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
1773:
1774: -- Load local records.
1775: l_eam_res_inst_rec := l_eam_res_inst_tbl(I);
1776:
1779: l_process_children := FALSE;
1780:
1781:
1782: IF l_eam_res_inst_rec.wip_entity_id is NULL
1783: AND (l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1784: OR l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1785: THEN
1786: l_eam_res_inst_rec.wip_entity_id := p_wip_entity_id;
1787: END IF;
1780:
1781:
1782: IF l_eam_res_inst_rec.wip_entity_id is NULL
1783: AND (l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1784: OR l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
1785: THEN
1786: l_eam_res_inst_rec.wip_entity_id := p_wip_entity_id;
1787: END IF;
1788:
1808: )
1809: )
1810: THEN
1811:
1812: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
1813:
1814: l_return_status := FND_API.G_RET_STS_SUCCESS;
1815: l_eam_res_inst_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1816:
1834: , x_mesg_token_tbl => l_mesg_token_tbl
1835: , x_return_status => l_return_status
1836: ) ;
1837:
1838: 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 ;
1839:
1840: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1841: THEN
1842: l_other_message := 'EAM_RI_EXS_SEV_SKIP';
1856: END IF;
1857:
1858: /* Assign the correct transaction type for SYNC operations */
1859:
1860: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
1861: l_eam_res_inst_rec.transaction_type := l_old_eam_res_inst_rec.transaction_type;
1862: END IF;
1863:
1864:
1861: l_eam_res_inst_rec.transaction_type := l_old_eam_res_inst_rec.transaction_type;
1862: END IF;
1863:
1864:
1865: IF l_eam_res_inst_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1866: THEN
1867:
1868: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1869: END IF ;
1864:
1865: IF l_eam_res_inst_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
1866: THEN
1867:
1868: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
1869: END IF ;
1870:
1871:
1872: l_out_eam_res_inst_rec := l_eam_res_inst_rec;
1877: ) ;
1878: l_eam_res_inst_rec := l_out_eam_res_inst_rec;
1879:
1880:
1881: ELSIF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1882: THEN
1883:
1884: l_out_eam_res_inst_rec := l_eam_res_inst_rec;
1885: EAM_RES_INST_DEFAULT_PVT.Attribute_Defaulting
1889: , x_return_status => l_return_status
1890: ) ;
1891: l_eam_res_inst_rec := l_out_eam_res_inst_rec;
1892:
1893: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
1894: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
1895: END IF ;
1896:
1897:
1937: , x_return_status => l_return_status
1938: , x_mesg_token_tbl => l_mesg_token_tbl
1939: ) ;
1940:
1941: 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 ;
1942:
1943:
1944: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1945: THEN
1942:
1943:
1944: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1945: THEN
1946: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1947: THEN
1948: l_other_message := 'EAM_RI_REQ_CSEV_SKIP';
1949: l_other_token_tbl(1).token_name := 'INSTANCE_ID';
1950: l_other_token_tbl(1).token_value := l_eam_res_inst_rec.instance_id ;
1967: , x_return_status => l_return_status
1968: , x_mesg_token_tbl => l_mesg_token_tbl
1969: ) ;
1970:
1971: 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 ;
1972:
1973: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1974: THEN
1975: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1971: 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 ;
1972:
1973: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1974: THEN
1975: IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
1976: THEN
1977: l_other_message := 'EAM_RI_ATTVAL_CSEV_SKIP';
1978: l_other_token_tbl(1).token_name := 'INSTANCE_ID';
1979: l_other_token_tbl(1).token_value := l_eam_res_inst_rec.instance_id ;
2016: , x_mesg_token_tbl => l_mesg_token_tbl
2017: , x_return_status => l_return_status
2018: ) ;
2019:
2020: /* IF l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2021: AND x_bottomup_scheduled <> G_NON_FIRM_WORKORDER
2022: THEN
2023:
2024:
2074: l_eam_res_inst_tbl := l_out_eam_res_inst_tbl;
2075: END IF;
2076: */
2077:
2078: 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;
2079:
2080: ELSE
2081:
2082: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2078: 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;
2079:
2080: ELSE
2081:
2082: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2083:
2084: END IF; -- END IF statement that checks RETURN STATUS
2085:
2086: --find if bottom up scheduler is to be called or not
2085:
2086: --find if bottom up scheduler is to be called or not
2087:
2088: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
2089: IF(l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource iinstance is added
2090: -- 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
2091: OR (l_eam_res_inst_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource iinstance
2092: (
2093: --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)
2086: --find if bottom up scheduler is to be called or not
2087:
2088: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
2089: IF(l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource iinstance is added
2090: -- 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
2091: OR (l_eam_res_inst_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource iinstance
2092: (
2093: --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)
2094: -- OR
2087:
2088: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
2089: IF(l_eam_res_inst_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource iinstance is added
2090: -- 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
2091: OR (l_eam_res_inst_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource iinstance
2092: (
2093: --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)
2094: -- OR
2095: l_eam_res_inst_rec.start_date <> l_old_eam_res_inst_rec.start_date --shedule_seq_num,start_date,completion_date
2424: l_valid_transaction BOOLEAN := TRUE ;
2425:
2426:
2427: BEGIN
2428: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_op_network_tbl.COUNT ||' records passed') ; END IF ;
2429:
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2432: -- Init local table variables.
2433: l_return_status := 'S' ;
2434: l_bo_return_status := 'S' ;
2435: l_eam_op_network_tbl := p_eam_op_network_tbl ;
2436:
2437: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting OPERATION_NETWORK') ; END IF ;
2438:
2439: FOR I IN 1..l_eam_op_network_tbl.COUNT LOOP
2440: BEGIN
2441:
2438:
2439: FOR I IN 1..l_eam_op_network_tbl.COUNT LOOP
2440: BEGIN
2441:
2442: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
2443:
2444: -- Load local records.
2445:
2446: l_eam_op_network_rec := l_eam_op_network_tbl(I);
2449:
2450: l_process_children := FALSE;
2451:
2452: IF l_eam_op_network_rec.wip_entity_id is NULL
2453: AND (l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE)
2454: THEN
2455: l_eam_op_network_rec.wip_entity_id := p_wip_entity_id;
2456: END IF;
2457:
2473: )
2474: )
2475: THEN
2476:
2477: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
2478:
2479: l_return_status := FND_API.G_RET_STS_SUCCESS;
2480: l_eam_op_network_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2481:
2499: , x_mesg_token_tbl => l_mesg_token_tbl
2500: , x_return_status => l_return_status
2501: ) ;
2502:
2503: 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 ;
2504:
2505: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2506: THEN
2507: l_other_message := 'EAM_OPN_EXS_SEV_SKIP';
2521: END IF;
2522:
2523: /* Assign the correct transaction type for SYNC operations */
2524:
2525: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
2526: l_eam_op_network_rec.transaction_type := l_old_eam_op_network_rec.transaction_type;
2527: END IF;
2528:
2529:
2526: l_eam_op_network_rec.transaction_type := l_old_eam_op_network_rec.transaction_type;
2527: END IF;
2528:
2529:
2530: IF l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2531: THEN
2532:
2533: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
2534: END IF ;
2529:
2530: IF l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2531: THEN
2532:
2533: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
2534: END IF ;
2535:
2536: l_out_eam_op_network_rec := l_eam_op_network_rec;
2537:
2543:
2544: l_eam_op_network_rec := l_out_eam_op_network_rec;
2545:
2546:
2547: ELSIF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2548: THEN
2549:
2550: l_out_eam_op_network_rec := l_eam_op_network_rec;
2551:
2557: ) ;
2558:
2559: l_eam_op_network_rec := l_out_eam_op_network_rec;
2560:
2561: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
2562: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
2563: END IF ;
2564:
2565:
2605: , x_return_status => l_return_status
2606: , x_mesg_token_tbl => l_mesg_token_tbl
2607: ) ;
2608:
2609: 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 ;
2610:
2611:
2612: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2613: THEN
2610:
2611:
2612: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2613: THEN
2614: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2615: THEN
2616: l_other_message := 'EAM_OPN_REQ_CSEV_SKIP';
2617: l_other_token_tbl(1).token_name := 'PRIOR_OPERATION';
2618: l_other_token_tbl(1).token_value := l_eam_op_network_rec.prior_operation ;
2635: , x_return_status => l_return_status
2636: , x_mesg_token_tbl => l_mesg_token_tbl
2637: ) ;
2638:
2639: 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 ;
2640:
2641: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2642: THEN
2643: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2639: 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 ;
2640:
2641: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2642: THEN
2643: IF l_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
2644: THEN
2645: l_other_message := 'EAM_OPN_ATTVAL_CSEV_SKIP';
2646: l_other_token_tbl(1).token_name := 'PRIOR_OPERATION';
2647: l_other_token_tbl(1).token_value := l_eam_op_network_rec.prior_operation ;
2716: END IF;
2717:
2718: --find if scheduler is to be called or not
2719: IF(x_schedule_wo = G_NOT_SCHEDULE_WO
2720: AND l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2721: ) THEN -- if op dependency is added or deleted
2722: x_schedule_wo := G_SCHEDULE_WO;
2723: END IF;
2724:
2723: END IF;
2724:
2725: --find if bottum up scheduler is to be called or not
2726: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO
2727: AND l_eam_op_network_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_DELETE)
2728: ) THEN -- if op dependency is added or deleted
2729: x_bottomup_scheduled := G_BU_SCHEDULE_WO;
2730: END IF;
2731:
2728: ) THEN -- if op dependency is added or deleted
2729: x_bottomup_scheduled := G_BU_SCHEDULE_WO;
2730: END IF;
2731:
2732: 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;
2733:
2734: ELSE
2735:
2736: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2732: 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;
2733:
2734: ELSE
2735:
2736: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
2737:
2738: END IF; -- END IF statement that checks RETURN STATUS
2739:
2740: -- Load tables.
3067:
3068:
3069:
3070: BEGIN
3071: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_mat_req_tbl.COUNT ||' records passed') ; END IF ;
3072:
3073: x_return_status := FND_API.G_RET_STS_SUCCESS;
3074:
3075: -- Init local table variables.
3078: l_eam_mat_req_tbl := p_eam_mat_req_tbl ;
3079:
3080:
3081:
3082: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting MATERIAL_REQUIREMENTS') ; END IF ;
3083:
3084:
3085: /* Get the materials in the Operation 1 and append to the table l_eam_mat_req_tbl */
3086: IF ( p_operation_seq_num IS NOT NULL
3105:
3106: FOR I IN 1..l_eam_mat_req_tbl.COUNT LOOP
3107: BEGIN
3108:
3109: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
3110:
3111: -- Load local records.
3112: l_eam_mat_req_rec := l_eam_mat_req_tbl(I);
3113:
3116: l_process_children := FALSE;
3117:
3118:
3119: IF l_eam_mat_req_rec.wip_entity_id is NULL
3120: AND (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3121: OR l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
3122: THEN
3123: l_eam_mat_req_rec.wip_entity_id := p_wip_entity_id;
3124: END IF;
3117:
3118:
3119: IF l_eam_mat_req_rec.wip_entity_id is NULL
3120: AND (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3121: OR l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
3122: THEN
3123: l_eam_mat_req_rec.wip_entity_id := p_wip_entity_id;
3124: END IF;
3125:
3147: )
3148: )
3149: THEN
3150:
3151: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
3152:
3153: l_return_status := FND_API.G_RET_STS_SUCCESS;
3154: l_eam_mat_req_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3155:
3152:
3153: l_return_status := FND_API.G_RET_STS_SUCCESS;
3154: l_eam_mat_req_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3155:
3156: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Transaction Type') ; END IF ;
3157:
3158: VALIDATE_TRANSACTION_TYPE
3159: ( p_transaction_type => l_eam_mat_req_rec.transaction_type
3160: , p_entity_name => 'MATERIAL_REQUIREMENTS'
3168: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
3169: RAISE EXC_SEV_QUIT_RECORD ;
3170: END IF ;
3171:
3172: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking Existence of Record') ; END IF ;
3173:
3174: EAM_MAT_REQ_VALIDATE_PVT.Check_Existence
3175: ( p_eam_mat_req_rec => l_eam_mat_req_rec
3176: , x_old_eam_mat_req_rec => l_old_eam_mat_req_rec
3177: , x_mesg_token_tbl => l_mesg_token_tbl
3178: , x_return_status => l_return_status
3179: ) ;
3180:
3181: 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 ;
3182:
3183: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3184: THEN
3185: l_other_message := 'EAM_MR_EXS_SEV_SKIP';
3199: END IF;
3200:
3201: /* Assign the correct transaction type for SYNC operations */
3202:
3203: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
3204: l_eam_mat_req_rec.transaction_type := l_old_eam_mat_req_rec.transaction_type;
3205: END IF;
3206:
3207:
3204: l_eam_mat_req_rec.transaction_type := l_old_eam_mat_req_rec.transaction_type;
3205: END IF;
3206:
3207:
3208: IF l_eam_mat_req_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
3209: THEN
3210:
3211: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
3212: x_material_shortage := G_MATERIAL_UPDATE;
3207:
3208: IF l_eam_mat_req_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
3209: THEN
3210:
3211: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
3212: x_material_shortage := G_MATERIAL_UPDATE;
3213: END IF;
3214:
3215: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
3211: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
3212: x_material_shortage := G_MATERIAL_UPDATE;
3213: END IF;
3214:
3215: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
3216: END IF ;
3217:
3218: l_out_eam_mat_req_rec := l_eam_mat_req_rec;
3219:
3240:
3241: l_eam_mat_req_rec := l_out_eam_mat_req_rec;
3242: END IF;
3243:
3244: ELSIF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3245: THEN
3246:
3247: x_material_shortage := G_MATERIAL_UPDATE;
3248:
3256: ) ;
3257:
3258: l_eam_mat_req_rec := l_out_eam_mat_req_rec;
3259:
3260: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
3261: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
3262: END IF ;
3263:
3264:
3310: , x_return_status => l_return_status
3311: , x_mesg_token_tbl => l_mesg_token_tbl
3312: ) ;
3313:
3314: 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 ;
3315:
3316:
3317: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3318: THEN
3315:
3316:
3317: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3318: THEN
3319: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3320: THEN
3321: l_other_message := 'EAM_MR_REQ_CSEV_SKIP';
3322: l_other_token_tbl(1).token_name := 'INV_ITEM_ID';
3323: l_other_token_tbl(1).token_value := l_eam_mat_req_rec.inventory_item_id ;
3344: IF l_old_eam_mat_req_rec.REQUIRED_QUANTITY <> l_eam_mat_req_rec.REQUIRED_QUANTITY THEN
3345: x_material_shortage := G_MATERIAL_UPDATE;
3346: END IF;
3347:
3348: 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 ;
3349:
3350: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3351: THEN
3352: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3348: 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 ;
3349:
3350: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
3351: THEN
3352: IF l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3353: THEN
3354: l_other_message := 'EAM_MR_ATTVAL_CSEV_SKIP';
3355: l_other_token_tbl(1).token_name := 'INV_ITEM_ID';
3356: l_other_token_tbl(1).token_value := l_eam_mat_req_rec.inventory_item_id ;
3425: );
3426: l_eam_mat_req_tbl := l_out_eam_mat_req_tbl;
3427: END IF;
3428:
3429: 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;
3430:
3431:
3432: -- Stock Issue requirements
3433: EAM_WO_UTILITY_PVT.Query_Row(
3473: and l_old_eam_wo_rec.material_issue_by_mo = 'Y'
3474: and l_old_eam_wo_rec.maintenance_object_source = 1 -- Only for EAM
3475: and l_eam_mat_req_rec.wip_supply_type =1 --only for 'push' type items..allocations shud not be done for bulk items
3476: and
3477: ((l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3478: and l_old_eam_mat_req_rec.auto_request_material = 'N'
3479: and l_eam_mat_req_rec.auto_request_material = 'Y' -- AUTO_REQUEST_MATERIAL flag turned on
3480: ) OR
3481: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3477: ((l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3478: and l_old_eam_mat_req_rec.auto_request_material = 'N'
3479: and l_eam_mat_req_rec.auto_request_material = 'Y' -- AUTO_REQUEST_MATERIAL flag turned on
3480: ) OR
3481: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3482: and l_old_eam_mat_req_rec.required_quantity <> l_eam_mat_req_rec.required_quantity -- reqd qty updating
3483: ) OR
3484: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3485: and l_eam_mat_req_rec.auto_request_material = 'Y' -- new mtl line adding with auto req flag on.
3480: ) OR
3481: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3482: and l_old_eam_mat_req_rec.required_quantity <> l_eam_mat_req_rec.required_quantity -- reqd qty updating
3483: ) OR
3484: (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3485: and l_eam_mat_req_rec.auto_request_material = 'Y' -- new mtl line adding with auto req flag on.
3486: )
3487: )
3488: THEN
3545: ,p_suggested_vendor_item_num => null
3546: );
3547:
3548:
3549: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('create requisitions for non-stockable direct items'); END IF;
3550:
3551: ELSE
3552:
3553:
3554: if l_wo_status = 3
3555: and l_eam_mat_req_rec.auto_request_material = 'Y'
3556: and l_non_stock_flag = 'N'
3557: and l_purch_flag = 'Y'
3558: and (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3559: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3560: /*and l_old_eam_mat_req_rec.required_quantity < l_eam_mat_req_rec.required_quantity commented for #6118897*/)
3561: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3562: and nvl(l_old_eam_mat_req_rec.auto_request_material,'N')='N')
3555: and l_eam_mat_req_rec.auto_request_material = 'Y'
3556: and l_non_stock_flag = 'N'
3557: and l_purch_flag = 'Y'
3558: and (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3559: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3560: /*and l_old_eam_mat_req_rec.required_quantity < l_eam_mat_req_rec.required_quantity commented for #6118897*/)
3561: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3562: and nvl(l_old_eam_mat_req_rec.auto_request_material,'N')='N')
3563: )then
3557: and l_purch_flag = 'Y'
3558: and (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
3559: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3560: /*and l_old_eam_mat_req_rec.required_quantity < l_eam_mat_req_rec.required_quantity commented for #6118897*/)
3561: OR (l_eam_mat_req_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
3562: and nvl(l_old_eam_mat_req_rec.auto_request_material,'N')='N')
3563: )then
3564:
3565: select mic.category_id into l_purch_cat_id
3613: l_total_req_qty := l_po_ordered_qty ;
3614: END IF;
3615:
3616:
3617: -- IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('creating reqs for quantity'||l_total_req_qty ||' required qty :'||l_eam_mat_req_rec.required_quantity); END IF;
3618:
3619: EAM_PROCESS_WO_UTIL_PVT.create_requisition
3620: ( p_api_version => 1.0
3621: ,p_init_msg_list => FND_API.G_FALSE
3650: END IF; --end of check for requested_quantity
3651:
3652: ELSE
3653:
3654: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
3655:
3656: END IF; -- END IF statement that checks RETURN STATUS
3657:
3658:
3984: l_api_msg_data VARCHAR2(80);
3985: l_total_req_qty NUMBER;
3986:
3987: BEGIN
3988: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_direct_items_tbl.COUNT ||' records passed') ; END IF ;
3989:
3990: x_return_status := FND_API.G_RET_STS_SUCCESS;
3991:
3992: -- Init local table variables.
3995: l_eam_direct_items_tbl := p_eam_direct_items_tbl ;
3996:
3997:
3998:
3999: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting DIRECT_ITEMS') ; END IF ;
4000:
4001:
4002: /* Get the materials in the Operation 1 and append to the table l_eam_direct_items_tbl */
4003: IF ( p_operation_seq_num IS NOT NULL
4022:
4023: FOR I IN 1..l_eam_direct_items_tbl.COUNT LOOP
4024: BEGIN
4025:
4026: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
4027:
4028: -- Load local records.
4029: l_eam_direct_items_rec := l_eam_direct_items_tbl(I);
4030:
4033: l_process_children := FALSE;
4034:
4035:
4036: IF l_eam_direct_items_rec.wip_entity_id is NULL
4037: AND (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4038: OR l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
4039: THEN
4040: l_eam_direct_items_rec.wip_entity_id := p_wip_entity_id;
4041: END IF;
4034:
4035:
4036: IF l_eam_direct_items_rec.wip_entity_id is NULL
4037: AND (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4038: OR l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
4039: THEN
4040: l_eam_direct_items_rec.wip_entity_id := p_wip_entity_id;
4041: END IF;
4042:
4064: )
4065: )
4066: THEN
4067:
4068: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
4069:
4070: l_return_status := FND_API.G_RET_STS_SUCCESS;
4071: l_eam_direct_items_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4072:
4069:
4070: l_return_status := FND_API.G_RET_STS_SUCCESS;
4071: l_eam_direct_items_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4072:
4073: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Transaction Type') ; END IF ;
4074:
4075: VALIDATE_TRANSACTION_TYPE
4076: ( p_transaction_type => l_eam_direct_items_rec.transaction_type
4077: , p_entity_name => 'DIRECT_ITEMS'
4085: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
4086: RAISE EXC_SEV_QUIT_RECORD ;
4087: END IF ;
4088:
4089: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking Existence of Record') ; END IF ;
4090:
4091: EAM_DIRECT_ITEMS_VALIDATE_PVT.Check_Existence
4092: ( p_eam_direct_items_rec => l_eam_direct_items_rec
4093: , x_old_eam_direct_items_rec => l_old_eam_direct_items_rec
4094: , x_mesg_token_tbl => l_mesg_token_tbl
4095: , x_return_status => l_return_status
4096: ) ;
4097:
4098: 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 ;
4099:
4100: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4101: THEN
4102: l_other_message := 'EAM_DI_EXS_SEV_SKIP';
4116: END IF;
4117:
4118: /* Assign the correct transaction type for SYNC operations */
4119:
4120: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
4121: l_eam_direct_items_rec.transaction_type := l_old_eam_direct_items_rec.transaction_type;
4122: END IF;
4123:
4124:
4121: l_eam_direct_items_rec.transaction_type := l_old_eam_direct_items_rec.transaction_type;
4122: END IF;
4123:
4124:
4125: IF l_eam_direct_items_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
4126: THEN
4127:
4128: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
4129: x_material_shortage := G_MATERIAL_UPDATE;
4124:
4125: IF l_eam_direct_items_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
4126: THEN
4127:
4128: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
4129: x_material_shortage := G_MATERIAL_UPDATE;
4130: END IF;
4131:
4132: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
4128: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE THEN
4129: x_material_shortage := G_MATERIAL_UPDATE;
4130: END IF;
4131:
4132: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
4133: END IF ;
4134:
4135: l_out_eam_direct_items_rec := l_eam_direct_items_rec;
4136:
4157:
4158: l_eam_direct_items_rec := l_out_eam_direct_items_rec;
4159: END IF;
4160:
4161: ELSIF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4162: THEN
4163:
4164: x_material_shortage := G_MATERIAL_UPDATE;
4165: l_out_eam_direct_items_rec := l_eam_direct_items_rec;
4172: ) ;
4173:
4174: l_eam_direct_items_rec := l_out_eam_direct_items_rec;
4175:
4176: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
4177: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
4178: END IF ;
4179:
4180:
4220: , x_return_status => l_return_status
4221: , x_mesg_token_tbl => l_mesg_token_tbl
4222: ) ;
4223:
4224: 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 ;
4225:
4226:
4227: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4228: THEN
4225:
4226:
4227: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4228: THEN
4229: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4230: THEN
4231: l_other_message := 'EAM_DI_REQ_CSEV_SKIP';
4232: l_other_token_tbl(1).token_name := 'DI_SEQ_ID';
4233: l_other_token_tbl(1).token_value := l_eam_direct_items_rec.direct_item_sequence_id ;
4253:
4254: IF l_old_eam_direct_items_rec.REQUIRED_QUANTITY <> l_eam_direct_items_rec.REQUIRED_QUANTITY THEN
4255: x_material_shortage := G_MATERIAL_UPDATE;
4256: END IF;
4257: 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 ;
4258:
4259: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4260: THEN
4261: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4257: 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 ;
4258:
4259: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4260: THEN
4261: IF l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4262: THEN
4263: l_other_message := 'EAM_DI_ATTVAL_CSEV_SKIP';
4264: l_other_token_tbl(1).token_name := 'DI_SEQ_ID';
4265: l_other_token_tbl(1).token_value := l_eam_direct_items_rec.direct_item_sequence_id ;
4334: );
4335: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
4336: END IF;
4337:
4338: 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;
4339:
4340:
4341:
4342: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('create requisitions for description direct items'); END IF;
4338: 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;
4339:
4340:
4341:
4342: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('create requisitions for description direct items'); END IF;
4343:
4344: --fix for 3550864.create requisitions for requested_quantity if passed
4345: IF(l_eam_direct_items_rec.requested_quantity IS NOT NULL) THEN
4346:
4343:
4344: --fix for 3550864.create requisitions for requested_quantity if passed
4345: IF(l_eam_direct_items_rec.requested_quantity IS NOT NULL) THEN
4346:
4347: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('create requisitions for description direct items'); END IF;
4348:
4349: EAM_PROCESS_WO_UTIL_PVT.create_requisition
4350: ( p_api_version => 1.0
4351: ,p_init_msg_list => FND_API.G_FALSE
4381: where wip_entity_id = l_eam_direct_items_rec.wip_entity_id
4382: and organization_id = l_eam_direct_items_rec.organization_id;
4383: if l_wo_status = 3
4384: and l_eam_direct_items_rec.auto_request_material = 'Y'
4385: and (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4386: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4387: /*and l_old_eam_direct_items_rec.required_quantity < l_eam_direct_items_rec.required_quantity commented for # 6118897*/)
4388: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4389: and nvl(l_old_eam_direct_items_rec.auto_request_material,'N')='N'
4382: and organization_id = l_eam_direct_items_rec.organization_id;
4383: if l_wo_status = 3
4384: and l_eam_direct_items_rec.auto_request_material = 'Y'
4385: and (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4386: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4387: /*and l_old_eam_direct_items_rec.required_quantity < l_eam_direct_items_rec.required_quantity commented for # 6118897*/)
4388: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4389: and nvl(l_old_eam_direct_items_rec.auto_request_material,'N')='N'
4390: and nvl(l_eam_direct_items_rec.auto_request_material,'N')='Y')
4384: and l_eam_direct_items_rec.auto_request_material = 'Y'
4385: and (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4386: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4387: /*and l_old_eam_direct_items_rec.required_quantity < l_eam_direct_items_rec.required_quantity commented for # 6118897*/)
4388: OR (l_eam_direct_items_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
4389: and nvl(l_old_eam_direct_items_rec.auto_request_material,'N')='N'
4390: and nvl(l_eam_direct_items_rec.auto_request_material,'N')='Y')
4391: ) then
4392:
4445: END IF; --end of check for requested_quantity
4446:
4447: ELSE
4448:
4449: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
4450:
4451: END IF; -- END IF statement that checks RETURN STATUS
4452:
4453: -- Load tables.
4775: l_valid_transaction BOOLEAN := TRUE ;
4776:
4777:
4778: BEGIN
4779: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_res_tbl.COUNT ||' records passed') ; END IF ;
4780:
4781: x_return_status := FND_API.G_RET_STS_SUCCESS;
4782:
4783: -- Init local table variables.
4784: l_return_status := 'S' ;
4785: l_bo_return_status := 'S' ;
4786: l_eam_res_tbl := p_eam_res_tbl ;
4787:
4788: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting OPERATION_RESOURCES') ; END IF ;
4789:
4790: FOR I IN 1..l_eam_res_tbl.COUNT LOOP
4791: BEGIN
4792:
4789:
4790: FOR I IN 1..l_eam_res_tbl.COUNT LOOP
4791: BEGIN
4792:
4793: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
4794:
4795: -- Load local records.
4796: l_eam_res_rec := l_eam_res_tbl(I);
4797:
4799: l_process_children := FALSE;
4800:
4801:
4802: IF l_eam_res_rec.wip_entity_id is NULL
4803: AND (l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4804: OR l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
4805: THEN
4806: l_eam_res_rec.wip_entity_id := p_wip_entity_id;
4807: END IF;
4800:
4801:
4802: IF l_eam_res_rec.wip_entity_id is NULL
4803: AND (l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4804: OR l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
4805: THEN
4806: l_eam_res_rec.wip_entity_id := p_wip_entity_id;
4807: END IF;
4808:
4824: )
4825: )
4826: THEN
4827:
4828: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
4829:
4830: l_return_status := FND_API.G_RET_STS_SUCCESS;
4831: l_eam_res_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4832:
4850: , x_mesg_token_tbl => l_mesg_token_tbl
4851: , x_return_status => l_return_status
4852: ) ;
4853:
4854: 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 ;
4855:
4856: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4857: THEN
4858: l_other_message := 'EAM_RES_EXS_SEV_SKIP';
4872: END IF;
4873:
4874: /* Assign the correct transaction type for SYNC operations */
4875:
4876: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
4877: l_eam_res_rec.transaction_type := l_old_eam_res_rec.transaction_type;
4878: END IF;
4879:
4880:
4877: l_eam_res_rec.transaction_type := l_old_eam_res_rec.transaction_type;
4878: END IF;
4879:
4880:
4881: IF l_eam_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
4882: THEN
4883:
4884: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
4885: END IF ;
4880:
4881: IF l_eam_res_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
4882: THEN
4883:
4884: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
4885: END IF ;
4886:
4887: l_out_eam_res_rec := l_eam_res_rec;
4888: EAM_RES_DEFAULT_PVT.Populate_Null_Columns
4903: , x_return_status => l_return_status
4904: ) ;
4905: l_eam_res_rec := l_out_eam_res_rec;
4906:
4907: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
4908: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
4909: END IF ;
4910:
4911:
4957: , x_return_status => l_return_status
4958: , x_mesg_token_tbl => l_mesg_token_tbl
4959: ) ;
4960:
4961: 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 ;
4962:
4963:
4964: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4965: THEN
4962:
4963:
4964: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4965: THEN
4966: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4967: THEN
4968: l_other_message := 'EAM_RES_REQ_CSEV_SKIP';
4969: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
4970: l_other_token_tbl(1).token_value := l_eam_res_rec.resource_seq_num ;
4986: , x_return_status => l_return_status
4987: , x_mesg_token_tbl => l_mesg_token_tbl
4988: ) ;
4989:
4990: 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 ;
4991:
4992: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4993: THEN
4994: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4990: 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 ;
4991:
4992: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
4993: THEN
4994: IF l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
4995: THEN
4996: l_other_message := 'EAM_RES_ATTVAL_CSEV_SKIP';
4997: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
4998: l_other_token_tbl(1).token_value := l_eam_res_rec.resource_seq_num ;
5078: l_eam_res_inst_tbl := l_out_eam_res_inst_tbl;
5079:
5080: END IF;
5081:
5082: 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;
5083:
5084: --find if scheduler is to be called or not
5085: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5086: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5082: 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;
5083:
5084: --find if scheduler is to be called or not
5085: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5086: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5087: 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
5088: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5089: (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)
5090: OR l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5083:
5084: --find if scheduler is to be called or not
5085: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5086: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5087: 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
5088: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5089: (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)
5090: OR l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5091: OR l_eam_res_rec.completion_date <> l_old_eam_res_rec.completion_date
5084: --find if scheduler is to be called or not
5085: IF(x_schedule_wo = G_NOT_SCHEDULE_WO)THEN --not yet set to schedule
5086: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5087: 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
5088: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5089: (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)
5090: OR l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5091: OR l_eam_res_rec.completion_date <> l_old_eam_res_rec.completion_date
5092: OR l_eam_res_rec.resource_id <> l_old_eam_res_rec.resource_id --resource_code,usage_rate_or_amount,scheduled_flag,assigned_units
5102: --find if bottom up scheduler is to be called or not
5103:
5104:
5105: -- IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
5106: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5107: -- 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
5108: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5109: (
5110: --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)
5103:
5104:
5105: -- IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
5106: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5107: -- 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
5108: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5109: (
5110: --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)
5111: -- OR
5104:
5105: -- IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO)THEN --not yet set to schedule
5106: IF(l_eam_res_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE -- is resource is added
5107: -- 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
5108: OR (l_eam_res_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND --updating the resource
5109: (
5110: --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)
5111: -- OR
5112: l_eam_res_rec.start_date <> l_old_eam_res_rec.start_date --shedule_seq_num,start_date,completion_date
5128: IF l_process_children
5129: THEN
5130:
5131: -- Process Resource Instance that are direct children of this operation
5132: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling RESOURCE_INSTANCES from OPERATION_RESOURCES') ; END IF ;
5133:
5134: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
5135: RESOURCE_INSTANCES
5136: ( p_validation_level => p_validation_level
5158:
5159:
5160:
5161: -- Process Resource Usage that are direct children of this operation
5162: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling RESOURCE_USAGES from OPERATION_RESOURCES') ; END IF ;
5163:
5164:
5165: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
5166: RESOURCE_USAGES
5193:
5194:
5195: ELSE
5196:
5197: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
5198:
5199: END IF; -- END IF statement that checks RETURN STATUS
5200:
5201: -- Load tables.
5589: l_valid_transaction BOOLEAN := TRUE ;
5590:
5591:
5592: BEGIN
5593: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(p_eam_op_tbl.COUNT ||' records passed') ; END IF ;
5594:
5595: x_return_status := FND_API.G_RET_STS_SUCCESS;
5596:
5597: -- Init local table variables.
5598: l_return_status := 'S' ;
5599: l_bo_return_status := 'S' ;
5600: l_eam_op_tbl := p_eam_op_tbl ;
5601:
5602: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Starting WO_OPERATIONS') ; END IF ;
5603:
5604: FOR I IN 1..l_eam_op_tbl.COUNT LOOP
5605: BEGIN
5606:
5603:
5604: FOR I IN 1..l_eam_op_tbl.COUNT LOOP
5605: BEGIN
5606:
5607: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
5608:
5609: -- Load local records.
5610: l_eam_op_rec := l_eam_op_tbl(I);
5611:
5615: l_process_children := FALSE;
5616:
5617:
5618: IF l_eam_op_rec.wip_entity_id is NULL
5619: AND (l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5620: OR l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
5621: THEN
5622: l_eam_op_rec.wip_entity_id := p_wip_entity_id;
5623: END IF;
5616:
5617:
5618: IF l_eam_op_rec.wip_entity_id is NULL
5619: AND (l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5620: OR l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC)
5621: THEN
5622: l_eam_op_rec.wip_entity_id := p_wip_entity_id;
5623: END IF;
5624:
5639: )
5640: )
5641: THEN
5642:
5643: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Return status validation passed') ; END IF ;
5644:
5645: l_return_status := FND_API.G_RET_STS_SUCCESS;
5646: l_eam_op_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5647:
5665: , x_mesg_token_tbl => l_mesg_token_tbl
5666: , x_return_status => l_return_status
5667: ) ;
5668:
5669: 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 ;
5670:
5671: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5672: THEN
5673: l_other_message := 'EAM_OP_EXS_SEV_SKIP';
5687: END IF;
5688:
5689: /* Assign the correct transaction type for SYNC operations */
5690:
5691: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
5692: l_eam_op_rec.transaction_type := l_old_eam_op_rec.transaction_type;
5693: END IF;
5694:
5695: IF l_eam_op_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5691: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
5692: l_eam_op_rec.transaction_type := l_old_eam_op_rec.transaction_type;
5693: END IF;
5694:
5695: IF l_eam_op_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5696: THEN
5697:
5698: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
5699: END IF ;
5694:
5695: IF l_eam_op_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
5696: THEN
5697:
5698: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Populate NULL columns') ;
5699: END IF ;
5700:
5701: l_out_eam_op_rec := l_eam_op_rec;
5702: EAM_OP_DEFAULT_PVT.Populate_Null_Columns
5706: ) ;
5707: l_eam_op_rec := l_out_eam_op_rec;
5708:
5709:
5710: ELSIF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5711: THEN
5712:
5713: l_out_eam_op_rec := l_eam_op_rec;
5714: EAM_OP_DEFAULT_PVT.Attribute_Defaulting
5718: , x_return_status => l_return_status
5719: ) ;
5720: l_eam_op_rec := l_out_eam_op_rec;
5721:
5722: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug
5723: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
5724: END IF ;
5725:
5726:
5786: , x_return_status => l_return_status
5787: , x_mesg_token_tbl => l_mesg_token_tbl
5788: ) ;
5789:
5790: 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 ;
5791:
5792:
5793: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5794: THEN
5791:
5792:
5793: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5794: THEN
5795: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5796: THEN
5797: l_other_message := 'EAM_OP_REQ_CSEV_SKIP';
5798: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
5799: l_other_token_tbl(1).token_value := l_eam_op_rec.OPERATION_SEQ_NUM ;
5816: , x_return_status => l_return_status
5817: , x_mesg_token_tbl => l_mesg_token_tbl
5818: ) ;
5819:
5820: 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 ;
5821:
5822: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5823: THEN
5824: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5820: 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 ;
5821:
5822: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
5823: THEN
5824: IF l_eam_op_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
5825: THEN
5826: l_other_message := 'EAM_OP_ATTVAL_CSEV_SKIP';
5827: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
5828: l_other_token_tbl(1).token_value :=
5879:
5880: END IF;
5881:
5882: IF(x_schedule_wo = G_NOT_SCHEDULE_WO) THEN --not firm and not yet set to schedule
5883: IF (l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND
5884: (l_eam_op_rec.start_date<>l_old_eam_op_rec.start_date
5885: OR l_eam_op_rec.completion_date<>l_old_eam_op_rec.completion_date)) THEN
5886: l_eam_op_rec.start_date := l_old_eam_op_rec.start_date; --set op dates to prev. dates
5887: l_eam_op_rec.completion_date := l_old_eam_op_rec.completion_date;
5888: END IF;
5889: END IF;
5890:
5891: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO) THEN --not firm and not yet set to schedule for bottom up
5892: IF (l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND
5893: (l_eam_op_rec.start_date<>l_old_eam_op_rec.start_date
5894: OR l_eam_op_rec.completion_date<>l_old_eam_op_rec.completion_date)) THEN
5895: -- l_eam_op_rec.start_date := l_old_eam_op_rec.start_date; --set op dates to prev. dates
5896: -- l_eam_op_rec.completion_date := l_old_eam_op_rec.completion_date;
5956: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
5957: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
5958: END IF;
5959:
5960: 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;
5961:
5962:
5963: --find if scheduler is to be called or not
5964: IF(x_schedule_wo = G_NOT_SCHEDULE_WO) THEN
5961:
5962:
5963: --find if scheduler is to be called or not
5964: IF(x_schedule_wo = G_NOT_SCHEDULE_WO) THEN
5965: IF(l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE)
5966: THEN --if operation is added
5967: x_schedule_wo := G_SCHEDULE_WO;
5968: END IF;
5969: END IF;
5969: END IF;
5970:
5971: --find if bottom up scheduler is to be called or not
5972: IF(x_bottomup_scheduled = G_NOT_BU_SCHEDULE_WO) THEN
5973: IF(l_eam_op_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE)
5974: THEN --if operation is added
5975: x_bottomup_scheduled := G_BU_SCHEDULE_WO;
5976: END IF;
5977: END IF;
5977: END IF;
5978:
5979: ELSE
5980:
5981: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Skipping '|| I || ' record') ; END IF ;
5982:
5983: END IF; -- END IF statement that checks RETURN STATUS
5984:
5985: -- Load tables.
6425: IF l_process_children
6426: THEN
6427:
6428: -- Process Resources that are direct children of this Operation
6429: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling OPERATION_RESOURCES from WO_OPERATIONS') ; END IF ;
6430:
6431: l_out_eam_res_tbl := l_eam_res_tbl;
6432: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
6433: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
6466:
6467:
6468: -- Process Sub Resource that are direct children of this operation
6469:
6470: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling SUB_RESOURCES from WO_OPERATIONS') ; END IF ;
6471:
6472: l_out_eam_sub_res_tbl := l_eam_sub_res_tbl;
6473: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
6474:
6499: END IF;
6500:
6501:
6502: -- Process Material requirements that are direct children of this Operation
6503: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling MATERIAL_REQUIREMENTS from WO_OPERATIONS') ; END IF ;
6504:
6505: l_out_eam_mat_req_tbl := l_eam_mat_req_tbl;
6506:
6507: MATERIAL_REQUIREMENTS
6532:
6533:
6534:
6535: -- Process Direct Items that are direct children of this Operation
6536: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling DIRECT_ITEMS
6537: from WO_OPERATIONS') ; END IF ;
6538:
6539: l_out_eam_direct_items_tbl := l_eam_direct_items_tbl;
6540:
6630: , x_return_status OUT NOCOPY VARCHAR2
6631: )
6632: IS
6633: l_api_version_number CONSTANT NUMBER := 1.0;
6634: l_api_name CONSTANT VARCHAR2(30):= 'EAM_PROCESS_WO_PVT';
6635: l_err_text VARCHAR2(240);
6636:
6637: l_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
6638: l_old_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
6784: END IF;
6785:
6786: /* Assign the correct transaction type for SYNC operations */
6787:
6788: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_SYNC THEN
6789: l_eam_wo_rec.transaction_type := l_old_eam_wo_rec.transaction_type;
6790: END IF;
6791:
6792: --Changes for IB
6825:
6826: END IF;
6827:
6828:
6829: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
6830: x_material_shortage := G_MATERIAL_UPDATE;
6831: END IF;
6832:
6833: IF l_eam_wo_rec.Transaction_Type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
6829: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
6830: x_material_shortage := G_MATERIAL_UPDATE;
6831: END IF;
6832:
6833: IF l_eam_wo_rec.Transaction_Type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
6834: THEN
6835:
6836: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM WO: Populate Null Columns . . .'); END IF;
6837: l_out_eam_wo_rec := l_eam_wo_rec;
6859:
6860: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
6861: THEN
6862:
6863: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
6864: THEN
6865: l_other_message := 'EAM_WO_ATTVAL_CSEV_SKIP';
6866: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
6867: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
6936: l_eam_wo_rec := l_out_eam_wo_rec;
6937:
6938: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
6939: THEN
6940: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
6941: THEN
6942: l_other_message := 'EAM_WO_CONDDEF_CSEV_SKIP';
6943: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
6944: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7016:
7017: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7018: THEN
7019:
7020: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7021: THEN
7022: l_other_message := 'EAM_WO_ATTDEF_CSEV_SKIP';
7023: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7024: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7088:
7089: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7090: THEN
7091:
7092: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7093: THEN
7094: l_other_message := 'EAM_WO_CONREQ_CSEV_SKIP';
7095: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7096: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7164: );
7165: IF l_return_status = EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
7166: THEN
7167:
7168: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7169: THEN
7170: l_other_message := 'EAM_WO_ATTVAL_CSEV_SKIP';
7171: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7172: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7231:
7232: -- Explode Activity
7233:
7234: IF (l_eam_wo_rec.asset_activity_id IS NOT NULL) and
7235: ((l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) or
7236: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
7237: --fix for 3296919.added following condition so that activity is updateable
7238: (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)))
7239: THEN
7232: -- Explode Activity
7233:
7234: IF (l_eam_wo_rec.asset_activity_id IS NOT NULL) and
7235: ((l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) or
7236: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
7237: --fix for 3296919.added following condition so that activity is updateable
7238: (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)))
7239: THEN
7240:
7296: if l_eam_wo_rec.activity_source is null then
7297: l_eam_wo_rec.activity_source := p_eam_wo_rec.activity_source;
7298: end if;
7299:
7300: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling api to update material shortage flag') ; END IF;
7301:
7302:
7303: IF nvl(l_return_status,'S') <> 'S' THEN
7304: x_return_status := l_return_status;
7305: END IF;
7306:
7307: ELSE
7308:
7309: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
7310: THEN
7311: l_other_message := 'EAM_WO_ACTEXP_CSEV_SKIP';
7312: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7313: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7326: l_workflow_enabled := Is_Workflow_Enabled(l_eam_wo_rec.maintenance_object_source,
7327: l_eam_wo_rec.organization_id);
7328:
7329: IF(l_workflow_enabled = 'Y') THEN
7330: IF((l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
7331: OR (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
7332: AND NVL(l_old_eam_wo_rec.pending_flag,'N') = 'N' --old status is not pending
7333: --and old status is not same as new status
7334: AND (l_old_eam_wo_rec.status_type <>l_eam_wo_rec.status_type)
7327: l_eam_wo_rec.organization_id);
7328:
7329: IF(l_workflow_enabled = 'Y') THEN
7330: IF((l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
7331: OR (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
7332: AND NVL(l_old_eam_wo_rec.pending_flag,'N') = 'N' --old status is not pending
7333: --and old status is not same as new status
7334: AND (l_old_eam_wo_rec.status_type <>l_eam_wo_rec.status_type)
7335: )
7334: AND (l_old_eam_wo_rec.status_type <>l_eam_wo_rec.status_type)
7335: )
7336: ) THEN
7337: IF(WF_EVENT.TEST(l_status_pending_event) <> 'NONE') THEN
7338: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling Wkflow required check API...') ; END IF;
7339: EAM_WORKFLOW_DETAILS_PUB.Eam_Wf_Is_Approval_Required(p_old_wo_rec => l_old_eam_wo_rec,
7340: p_new_wo_rec => l_eam_wo_rec,
7341: p_wip_entity_id => NULL,
7342: p_new_system_status => NULL,
7363:
7364: END IF;
7365: END IF; -- end of check for workflow enabled
7366:
7367: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Writing the WO Record to database...') ; END IF;
7368:
7369: if ((l_eam_wo_rec.pm_suggested_start_date is null or
7370: l_eam_wo_rec.pm_suggested_start_date = FND_API.G_MISS_DATE)
7371: and (l_eam_wo_rec.pm_suggested_end_date is null or
7369: if ((l_eam_wo_rec.pm_suggested_start_date is null or
7370: l_eam_wo_rec.pm_suggested_start_date = FND_API.G_MISS_DATE)
7371: and (l_eam_wo_rec.pm_suggested_end_date is null or
7372: l_eam_wo_rec.pm_suggested_end_date = FND_API.G_MISS_DATE)
7373: and l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
7374: ) then
7375: select pm_suggested_start_date, pm_suggested_end_date into
7376: l_eam_wo_rec.pm_suggested_start_date,
7377: l_eam_wo_rec.pm_suggested_end_date
7448: l_eam_wo_rec.manual_rebuild_flag = 'N' AND
7449: l_eam_wo_rec.maintenance_object_type = 3 ) THEN
7450:
7451: IF (l_old_eam_wo_rec.maintenance_object_type = 2 AND
7452: l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
7453:
7454: SELECT serial_number, inventory_item_id, last_vld_organization_id
7455: INTO l_serial_number, l_inv_item_id, l_org_id
7456: FROM csi_item_instances
7455: INTO l_serial_number, l_inv_item_id, l_org_id
7456: FROM csi_item_instances
7457: WHERE instance_id = l_eam_wo_rec.maintenance_object_id;
7458:
7459: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling api to endate eam genealogy') ; END IF;
7460:
7461: wip_eam_genealogy_pvt.update_eam_genealogy
7462: (
7463: p_api_version => 1.0,
7470: x_return_status => l_return_status,
7471: x_msg_count => l_msg_count,
7472: x_msg_data => l_msg_data
7473: );
7474: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Update Genealogy completed with status '||l_return_status) ; END IF;
7475:
7476: IF l_return_status <> 'S' THEN
7477: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7478: EAM_ERROR_MESSAGE_PVT.Write_Debug ('api for endating eam genealogy has errored') ;
7473: );
7474: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Update Genealogy completed with status '||l_return_status) ; END IF;
7475:
7476: IF l_return_status <> 'S' THEN
7477: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7478: EAM_ERROR_MESSAGE_PVT.Write_Debug ('api for endating eam genealogy has errored') ;
7479: END IF;
7480: l_other_message := 'EAM_UPDATE_GENEALOGY_FAIL';
7481: RAISE EXC_SEV_QUIT_RECORD;
7482: END IF;
7483:
7484: END IF;
7485:
7486: 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
7487: (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE )) THEN
7488:
7489: /* If the parent WO is complete, disable meter hierarchy and IB hierarchy */
7490: SELECT status_type INTO l_current_status
7483:
7484: END IF;
7485:
7486: 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
7487: (l_eam_wo_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE )) THEN
7488:
7489: /* If the parent WO is complete, disable meter hierarchy and IB hierarchy */
7490: SELECT status_type INTO l_current_status
7491: FROM wip_discrete_jobs
7492: WHERE wip_entity_id = l_eam_wo_rec.parent_wip_entity_id;
7493:
7494: IF (l_current_status in (4, 5, 12) ) THEN
7495:
7496: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling api to disable counter hierarchy') ; END IF;
7497:
7498: eam_meterreading_utility_pvt.disable_counter_hierarchy
7499: (
7500: p_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl ,
7503: x_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl,
7504: x_return_status => l_return_status ,
7505: x_mesg_token_tbl => l_mesg_token_tbl
7506: );
7507: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug (' disable counter hierarchy API completed with status '||l_return_status) ; END IF;
7508:
7509: IF l_return_status <> 'S' THEN
7510:
7511: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7507: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug (' disable counter hierarchy API completed with status '||l_return_status) ; END IF;
7508:
7509: IF l_return_status <> 'S' THEN
7510:
7511: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7512: EAM_ERROR_MESSAGE_PVT.Write_Debug ('The api to disable counter hierarchy has errored out') ;
7513: END IF;
7514: l_other_message := 'EAM_WOCMPL_DIS_COUNTER_HIER';
7515: l_other_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
7516: l_other_token_tbl(1).token_value := l_eam_wo_rec.wip_entity_name;
7517: RAISE EXC_SEV_QUIT_RECORD;
7518: END IF;
7519:
7520: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling CSI api for wip completion ') ; END IF;
7521:
7522: csi_eam_interface_grp.wip_completion
7523: (
7524: p_wip_entity_id => l_eam_wo_rec.parent_wip_entity_id,
7525: p_organization_id => l_eam_wo_rec.organization_id,
7526: x_return_status => l_return_status,
7527: x_error_message => l_msg_data
7528: );
7529: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('CSI api for wip completion completed with status '||l_return_status) ; END IF;
7530:
7531: IF l_return_status <> 'S' THEN
7532:
7533: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7529: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('CSI api for wip completion completed with status '||l_return_status) ; END IF;
7530:
7531: IF l_return_status <> 'S' THEN
7532:
7533: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
7534: EAM_ERROR_MESSAGE_PVT.Write_Debug ('The CSI api for wip completion has errored out') ;
7535: END IF;
7536:
7537: l_other_message := 'EAM_WOCMPL_IB_WIP_CMPL';
7863: -- baroy - end
7864: -- End of IF condition #101 - Skipping header level validations
7865:
7866: -- END Header processing block
7867: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('WORK_ORDER MAIN Routine compelted with status of '||l_return_status) ; END IF ;
7868:
7869: IF NVL(l_return_status,'S') <> 'S'
7870: THEN
7871: x_return_status := l_return_status;
7898:
7899:
7900: -- Process operations that are orphans but are indirect children of this header
7901:
7902: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling WO_OPERATIONS from WORK_ORDER') ; END IF ;
7903:
7904: l_out_eam_wo_rec := l_eam_wo_rec;
7905: l_out_eam_op_tbl := l_eam_op_tbl;
7906: l_out_eam_op_network_tbl := l_eam_op_network_tbl;
7911: l_out_eam_mat_req_tbl := l_eam_mat_req_tbl;
7912: l_out_eam_direct_items_tbl := l_eam_direct_items_tbl;
7913:
7914:
7915: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking for standard operation from WORK_ORDER') ; END IF ;
7916:
7917: if (l_eam_wo_rec.asset_activity_id IS NOT NULL and
7918: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE
7919: or
7923: then
7924: null ;
7925: else
7926:
7927: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Exploding standard operation from WORK_ORDER') ; END IF ;
7928:
7929: -- Need to explode standard operations
7930:
7931: IF l_eam_op_tbl.COUNT > 0 THEN
8038: l_eam_res_tbl(l_res_cnt).RETURN_STATUS := l_eam_op_tbl(J).RETURN_STATUS ;
8039: l_eam_res_tbl(l_res_cnt).TRANSACTION_TYPE := l_eam_op_tbl(J).TRANSACTION_TYPE ;
8040: END LOOP;
8041: END;
8042: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Completed Exploding standard operation from WORK_ORDER') ; END IF ;
8043:
8044: END IF;
8045:
8046: END LOOP;
8048: END IF;
8049:
8050: l_out_eam_res_tbl := l_eam_res_tbl;
8051:
8052: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling WO_OPERATIONS from WORK_ORDER') ; END IF ;
8053:
8054: WO_OPERATIONS
8055: ( p_validation_level => p_validation_level
8056: , p_wip_entity_id => l_eam_wo_rec.wip_entity_id
8087: l_eam_res_usage_tbl := l_out_eam_res_usage_tbl;
8088: l_eam_mat_req_tbl := l_out_eam_mat_req_tbl;
8089: l_eam_direct_items_tbl := l_out_eam_direct_items_tbl;
8090:
8091: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('WO_OPERATIONS compelted with status of '||l_return_status) ; END IF ;
8092:
8093: IF l_return_status <> 'S'
8094: THEN
8095: l_bo_return_status := l_return_status;
8099: -- Process Resources
8100:
8101: IF l_eam_res_tbl.count <> 0 then
8102:
8103: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling OPERATION_RESOURCES from WORK_ORDER') ; END IF ;
8104:
8105: l_out_eam_res_tbl := l_eam_res_tbl;
8106: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
8107: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
8133: END IF;
8134:
8135:
8136:
8137: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('OPERATION_RESOURCE completed with status of '||l_return_status) ; END IF ;
8138:
8139: END IF;
8140:
8141: -- Process Material Requirements
8141: -- Process Material Requirements
8142:
8143: IF l_eam_mat_req_tbl.count <> 0 then
8144:
8145: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling MATERIAL_REQUIREMENTS from WORK_ORDER') ; END IF ;
8146:
8147: l_out_eam_mat_req_tbl := l_eam_mat_req_tbl;
8148:
8149: MATERIAL_REQUIREMENTS
8165: l_bo_return_status := l_return_status;
8166: END IF;
8167:
8168:
8169: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('MATERIAL_REQUIREMENTS completed with status of '||l_return_status) ; END IF ;
8170:
8171: END IF;
8172:
8173:
8174: -- Process Direct Items
8175:
8176: IF l_eam_direct_items_tbl.count <> 0 then
8177:
8178: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling DIRECT ITEMS from WORK_ORDER') ; END IF ;
8179:
8180: l_out_eam_direct_items_tbl := l_eam_direct_items_tbl;
8181:
8182: DIRECT_ITEMS
8198: l_bo_return_status := l_return_status;
8199: END IF;
8200:
8201:
8202: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('DIRECT_ITEMS completed with status of '||l_return_status) ; END IF ;
8203:
8204: END IF;
8205:
8206:
8207: -- Process Operation Networks
8208:
8209: IF l_eam_op_network_tbl.count <> 0 then
8210:
8211: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling OPERATION_NETWORKS from WORK_ORDER') ; END IF ;
8212:
8213: l_out_eam_op_network_tbl := l_eam_op_network_tbl;
8214:
8215: OPERATION_NETWORKS
8230: THEN
8231: l_bo_return_status := l_return_status;
8232: END IF;
8233:
8234: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('OPERATION_NETWORKS completed with status of '||l_return_status) ; END IF ;
8235:
8236: END IF;
8237:
8238:
8302: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_UPDATE and
8303: l_eam_wo_rec.status_type <> l_old_eam_wo_rec.status_type
8304: )
8305: ) then
8306: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling Change_Status API') ; END IF ;
8307:
8308: -- Defaulting the date_released only when workflow is approved /no workflow and work order is actually released.
8309: --Removed following code from EAMVWODB.pls and added it here
8310:
8307:
8308: -- Defaulting the date_released only when workflow is approved /no workflow and work order is actually released.
8309: --Removed following code from EAMVWODB.pls and added it here
8310:
8311: IF ( (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE and
8312: l_eam_wo_rec.status_type = 3 ) OR
8313: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
8314: l_old_eam_wo_rec.status_type <> 3 and l_eam_wo_rec.status_type = 3)
8315: )
8309: --Removed following code from EAMVWODB.pls and added it here
8310:
8311: IF ( (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE and
8312: l_eam_wo_rec.status_type = 3 ) OR
8313: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE and
8314: l_old_eam_wo_rec.status_type <> 3 and l_eam_wo_rec.status_type = 3)
8315: )
8316: THEN
8317:
8367: , x_msg_data => l_other_message
8368: , x_Mesg_Token_Tbl => l_mesg_token_tbl
8369: );
8370:
8371: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Status Change WO completed with status ' || l_return_status) ; END IF ;
8372: IF NVL(l_return_status, 'S') <> 'S' THEN
8373: l_return_status := FND_API.G_RET_STS_ERROR;
8374: RAISE G_ERR_STATUS_CHANGE;
8375:
8374: RAISE G_ERR_STATUS_CHANGE;
8375:
8376: END IF;
8377:
8378: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Status Change WO completed with status ' || l_return_status) ; END IF ;
8379:
8380:
8381: END IF;
8382: -- baroy - End if for condition #100
8487: END IF;
8488:
8489: /* call for cost estimator to estimate work orders created with activity */
8490:
8491: 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) THEN
8492:
8493: /* Verify if there are departments, before launching cost estimation */
8494:
8495: Begin
8530: WHERE wip_entity_id=l_eam_wo_rec.wip_entity_id
8531: AND organization_id=l_eam_wo_rec.organization_id;
8532:
8533: BEGIN
8534: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling the Estimate_Workorder_Grp procedure ...') ; END IF ;
8535: CSTPECEP.Estimate_WorkOrder_Grp(
8536: p_api_version => 1.0,
8537: p_init_msg_list => fnd_api.g_false,
8538: p_commit => fnd_api.g_false,
8541: p_organization_id => l_eam_wo_rec.organization_id,
8542: x_return_status => l_return_status,
8543: x_msg_data => l_err_text,
8544: x_msg_count => l_msg_count );
8545: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Estimate_Workorder_Grp procedure completed with status '||l_return_status) ; END IF ;
8546:
8547: IF (l_return_status <> 'S') THEN
8548: l_bo_return_status := l_return_status;
8549: END IF;
8556:
8557:
8558: --Raise workflow events
8559: IF(l_workflow_enabled = 'Y') THEN --if workflow is enabled
8560: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling the Raise_Workflow_Events procedure ...') ; END IF ;
8561: Raise_Workflow_Events
8562: (
8563: p_api_version => 1.0,
8564: p_validation_level => p_validation_level,
8571: x_return_status => l_return_status,
8572: x_mesg_token_tbl => l_mesg_token_tbl
8573: );
8574:
8575: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Raise_Workflow_Events procedure completed with status '||l_return_status) ; END IF ;
8576: IF(l_return_status <> 'S') THEN
8577: l_bo_return_status := l_return_status;
8578: END IF;
8579: END IF; --end of check for workflow enabled
8810: , x_eam_direct_items_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type
8811: )
8812: IS
8813: l_api_version_number CONSTANT NUMBER := 1.0;
8814: l_api_name CONSTANT VARCHAR2(30):= 'EAM_PROCESS_WO_PVT';
8815: l_err_text VARCHAR2(240);
8816: l_return_status VARCHAR2(1);
8817:
8818: l_eam_return_status VARCHAR2(1);
8927:
8928:
8929: -- baroy - query the old row for use in scheduling decisions later on
8930: -- in this procedure.
8931: IF l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE THEN
8932: EAM_WO_UTILITY_PVT.Query_Row
8933: ( p_wip_entity_id => p_eam_wo_rec.wip_entity_id
8934: , p_organization_id => p_eam_wo_rec.organization_id
8935: , x_eam_wo_rec => l_old_eam_wo_rec
8967: l_organization_id := l_eam_res_usage_tbl(l_eam_res_usage_tbl.first).organization_id;
8968: end if;
8969:
8970:
8971: if l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE then
8972: l_wip_entity_id := l_eam_wo_rec.wip_entity_id;
8973: l_organization_id := l_eam_wo_rec.organization_id;
8974: end if;
8975:
8985: END IF;
8986:
8987: -- Start with processing of the EAM Work Order Header
8988:
8989: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling WORK_ORDER from PROCESS_WO') ; END IF ;
8990:
8991:
8992: l_out_eam_wo_rec := l_eam_wo_rec;
8993: l_out_eam_op_tbl := l_eam_op_tbl;
9011: exception when others then
9012: null;
9013: end;
9014:
9015: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling the WORK_ORDER procedure...') ; END IF ;
9016:
9017: WORK_ORDER
9018: ( p_validation_level => p_validation_level
9019: , p_wip_entity_id => l_wip_entity_id
9064:
9065: END IF;
9066:
9067:
9068: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('WORK_ORDER completed with status of '||l_eam_return_status) ; END IF ;
9069:
9070: if nvl(l_eam_return_status,'S') = 'S' then
9071:
9072: IF(l_eam_wo_rec.transaction_type IS NOT NULL) THEN -- wip_entity_id will be defaulted when creating workorder
9088: if( l_eam_wo_rec.status_type = 3
9089: and l_old_eam_wo_rec.status_type = 3
9090: and nvl(l_eam_wo_rec.po_creation_time,2)=WIP_CONSTANTS.AT_JOB_SCHEDULE_RELEASE
9091: ) then
9092: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Call code to create requisitions for osp item for already released workorder'); END IF;
9093: EAM_RES_UTILITY_PVT.CREATE_OSP_REQ
9094: (
9095: p_eam_res_tbl => p_eam_res_tbl,
9096: x_return_status => l_return_status
9124: -- do not call material shortage for CMRO
9125: IF l_eam_wo_rec.maintenance_object_source = 1 THEN
9126:
9127: IF l_material_shortage = G_MATERIAL_UPDATE THEN
9128: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling teh Check_Shortage procedure for materials ...'); END IF;
9129: eam_material_validate_pub.Check_Shortage
9130: (
9131: p_api_version => 1.0
9132: , x_return_status => l_return_status
9152: END IF;
9153:
9154: IF l_scheduled=G_SCHEDULE_WO AND NVL(l_eam_wo_rec.ds_scheduled_flag,'N')='N' THEN
9155:
9156: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Scheduling WO') ; END IF ;
9157: EAM_WO_SCHEDULE_PVT.SCHEDULE_WO
9158: ( p_organization_id => l_eam_wo_rec.organization_id
9159: , p_wip_entity_id => l_eam_wo_rec.wip_entity_id
9160: , p_start_date => l_eam_wo_rec.requested_start_date
9181: l_out_eam_res_tbl := l_eam_res_tbl;
9182: l_out_eam_res_inst_tbl := l_eam_res_inst_tbl;
9183: l_out_eam_res_usage_tbl := l_eam_res_usage_tbl;
9184:
9185: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling update_resource_usage for firm work orders') ; END IF ;
9186:
9187: EAM_SCHED_BOTTOM_UP_PVT.update_resource_usage(
9188: p_eam_res_tbl => l_eam_res_tbl
9189: , p_eam_res_inst_tbl => l_eam_res_inst_tbl
9194: , x_return_status => l_return_status
9195: , x_message_name => l_err_text
9196: ) ;
9197:
9198: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' update_resource_usage for firm work orders returned status is ' || l_return_status ) ; END IF ;
9199: IF NVL(l_return_status, 'T') <> 'S' THEN
9200: l_eam_return_status := l_return_status;
9201: l_return_status := 'E';
9202: RAISE UPDATE_RES_USAGE_BU_ERR;
9211: END IF;
9212:
9213: if l_scheduled = G_FIRM_WORKORDER or NVL(l_eam_wo_rec.ds_scheduled_flag,'N')= 'Y' then
9214:
9215: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking WO dates to see whether they are correctly encompassed...') ; END IF ;
9216:
9217: EAM_WO_NETWORK_DEFAULT_PVT.Check_Wo_Dates
9218: (
9219: p_api_version => 1.0,
9227: x_msg_count => l_msg_count,
9228: x_msg_data => l_err_text
9229: );
9230:
9231: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Wo_Dates completed with status of '||l_return_status) ; END IF ;
9232:
9233: IF NVL(l_return_status, 'T') <> 'S' THEN
9234:
9235:
9232:
9233: IF NVL(l_return_status, 'T') <> 'S' THEN
9234:
9235:
9236: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling schedule_bottom_up_pvt for firm work orders') ; END IF ;
9237:
9238: --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
9239:
9240: EAM_SCHED_BOTTOM_UP_PVT.schedule_bottom_up_pvt (
9328:
9329:
9330: /*7570880 end -Fp of 7003588 for eAM Reconcilation */
9331:
9332: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' schedule_bottom_up_pvt for firm work orders returned status is ' || l_return_status ) ; END IF ;
9333: IF NVL(l_return_status, 'T') <> 'S' THEN
9334: l_eam_return_status := l_return_status;
9335: l_return_status := 'E';
9336: RAISE SCHEDULE_BOTTOM_UP_ERR;
9353: END IF;
9354:
9355: IF ( l_emp_assignment = TRUE ) THEN
9356:
9357: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Updating assignment details of an employee ') ; END IF ;
9358:
9359: Update eam_work_order_details
9360: set ASSIGNMENT_COMPLETE = EAM_ASSIGN_EMP_PUB.Get_Emp_Assignment_Status(l_eam_wo_rec.wip_entity_id,l_eam_wo_rec.organization_id)
9361: where wip_entity_id = l_eam_wo_rec.wip_entity_id;
9360: set ASSIGNMENT_COMPLETE = EAM_ASSIGN_EMP_PUB.Get_Emp_Assignment_Status(l_eam_wo_rec.wip_entity_id,l_eam_wo_rec.organization_id)
9361: where wip_entity_id = l_eam_wo_rec.wip_entity_id;
9362: END IF;
9363:
9364: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking Operation Network Dates... ') ; END IF ;
9365:
9366: EAM_OP_VALIDATE_PVT.Check_Operation_Netwrok_Dates
9367: (
9368: p_api_version => 1.0,
9374: x_pri_operation_no => l_prior_op_no,
9375: x_next_operation_no => l_next_op_no
9376: );
9377:
9378: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Operation_Netwrok_Dates completed with status of '||l_return_status) ; END IF ;
9379:
9380: IF NVL(l_return_status, 'T') <> 'S' THEN
9381: l_eam_return_status := l_return_status;
9382: l_return_status := 'E';
9383: RAISE CHECK_OP_NETWORK_DATES_ERR;
9384: END IF;
9385:
9386:
9387: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Scheduling WO completed with status ' || l_return_status) ; END IF ;
9388:
9389: -- Even for firm work orders, make sure that the work order dates
9390: -- encompass the operation dates and that the operation dates
9391: -- encompass the resource dates and that the resource dates
9392: -- encompass the resource instance dates.
9393:
9394: if l_scheduled = G_FIRM_WORKORDER then
9395:
9396: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling Check_Resource_Dates procedure ...') ; END IF ;
9397:
9398: EAM_WO_NETWORK_DEFAULT_PVT.Check_Resource_Dates
9399: (
9400: p_api_version => 1.0,
9407: x_return_status => l_return_status,
9408: x_msg_count => l_msg_count,
9409: x_msg_data => l_err_text
9410: );
9411: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Resource_Dates completed with status of '||l_return_status) ; END IF ;
9412:
9413: IF NVL(l_return_status, 'T') <> 'S' THEN
9414: l_eam_return_status := l_return_status;
9415: l_return_status := 'E';
9418:
9419: end if;
9420:
9421: begin
9422: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling Check_Wo_Negative_Dates procedure ... ') ; END IF ;
9423: EAM_WO_NETWORK_DEFAULT_PVT.Check_Wo_Negative_Dates
9424: (
9425: p_api_version => 1.0,
9426: p_init_msg_list => FND_API.G_FALSE,
9432: x_msg_count => l_msg_count,
9433: x_msg_data => l_err_text
9434: );
9435:
9436: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Wo_Negative_Dates completed with status of '||l_return_status) ; END IF ;
9437:
9438: IF NVL(l_return_status, 'T') <> 'S' THEN
9439: l_eam_return_status := l_return_status;
9440: l_return_status := 'E';
9445:
9446:
9447: if NVL(l_eam_wo_rec.validate_structure,'N') <> 'Y' then -- check added for bug# 3544860
9448:
9449: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling Validate_Structure API'); END IF;
9450:
9451: EAM_WO_NETWORK_VALIDATE_PVT.Validate_Structure
9452: (
9453: p_api_version => 1.0,
9475: RAISE VALIDATE_NETWORK_ERR;
9476: END IF;
9477: end if;
9478:
9479: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('enters inside update'); END IF;
9480: UPDATE_DATES(l_eam_wo_rec,
9481: l_eam_op_tbl,
9482: l_eam_res_tbl,
9483: l_eam_res_inst_tbl);
9491: END IF;
9492:
9493: IF l_eam_return_status = 'S' THEN
9494:
9495: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Updating WIP_REQUIREMENT_OPERATIONS'); END IF;
9496:
9497: begin
9498: select operation_seq_num,first_unit_start_date
9499: bulk collect into l_wkorder_new_op_tbl,l_wkorder_new_op_dt_tbl
9534: END LOOP;
9535: END IF;
9536: END IF; --- end of l_wkorder_old_op_tbl.COUNT
9537:
9538: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Updating date required columns for WIP_REQUIREMENT_OPERATIONS'); END IF;
9539:
9540: IF l_wip_entity_id IS NOT NULL THEN
9541: select SCHEDULED_START_DATE into l_wo_new_sch_start_date
9542: from wip_discrete_jobs
9609: (l_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE and
9610: l_eam_wo_rec.status_type = 3)
9611: ) then
9612:
9613: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling material Allocation procedure at wo release/cancel ... ') ; END IF ;
9614:
9615: EAM_MATERIALISSUE_PVT.alloc_at_release_cancel (
9616: p_api_version => 1.0,
9617: p_init_msg_list => fnd_api.g_false,
9625: x_msg_count => l_msg_count
9626: );
9627:
9628:
9629: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Allocation creation at wo release/cancel completed with status of '||l_return_status) ; END IF ;
9630:
9631: IF NVL(l_return_status, 'T') <> 'S' THEN
9632: l_eam_return_status := 'E';
9633: RAISE ALLOC_CREATION_ERR;
9661:
9662: END IF;
9663:
9664: IF l_old_eam_wo_rec.status_type in (3,4) -- released, complete
9665: and l_out_eam_mat_req_tbl(kk).transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE
9666: THEN
9667: EAM_MATERIALISSUE_PVT.cancel_alloc_matl_del
9668: (
9669: p_api_version => 1.0,
9684: END LOOP;
9685:
9686: END IF; --end of if l_out_eam_mat_req_tbl.COUNT
9687:
9688: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling UPDATE_INTERMEDIA_INDEX'); END IF;
9689:
9690: IF(l_eam_wo_rec.maintenance_object_source =1 ) THEN --update intermedia index only for EAM workorders
9691: UPDATE_INTERMEDIA_INDEX
9692: (
9699: END IF; --end of check for maint. object source...
9700:
9701: END IF; --end of l_eam_return_status='S'
9702:
9703: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Assigning Out Parameters'); END IF;
9704:
9705: x_msg_count := l_msg_count;
9706: x_eam_wo_rec := l_eam_wo_rec;
9707: x_eam_op_tbl := l_eam_op_tbl;
10605: x_valid_transaction := TRUE;
10606:
10607:
10608: IF (p_entity_name IN ('WORK_ORDER')
10609: 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)
10610: )
10611: OR
10612: (p_entity_name IN ('OPERATION','OPERATION_RESOURCE','RESOURCE_INSTANCE','SUB_RESOURCE','DIRECT_ITEMS','MATERIAL_REQUIREMENTS')
10613: 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)
10609: 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)
10610: )
10611: OR
10612: (p_entity_name IN ('OPERATION','OPERATION_RESOURCE','RESOURCE_INSTANCE','SUB_RESOURCE','DIRECT_ITEMS','MATERIAL_REQUIREMENTS')
10613: 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)
10614: )
10615: OR
10616: (p_entity_name IN ('OPERATION_NETWORK', 'RESOURCE_USAGE')
10617: 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)
10613: 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)
10614: )
10615: OR
10616: (p_entity_name IN ('OPERATION_NETWORK', 'RESOURCE_USAGE')
10617: 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)
10618: )
10619: OR
10620: (p_entity_name IN ('WORK_ORDER_COMPLETEION','OPERATION_COMPLETEION')
10621: 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)
10617: 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)
10618: )
10619: OR
10620: (p_entity_name IN ('WORK_ORDER_COMPLETEION','OPERATION_COMPLETEION')
10621: 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)
10622: )
10623: OR
10624: (p_entity_name IN ('QUALITY_ENTRY','METER_READING')
10625: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE)
10621: 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)
10622: )
10623: OR
10624: (p_entity_name IN ('QUALITY_ENTRY','METER_READING')
10625: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE)
10626: )
10627: OR
10628: (p_entity_name IN ('WORK_ORDER_COMPL_REBUILD','W_ORDER_COMPL_METER_READING')
10629: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
10625: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_CREATE)
10626: )
10627: OR
10628: (p_entity_name IN ('WORK_ORDER_COMPL_REBUILD','W_ORDER_COMPL_METER_READING')
10629: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
10630: )
10631: OR
10632: (p_entity_name IN ('WORK_SERVICE_REQUEST')
10633: 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)
10629: AND NVL(p_transaction_type, FND_API.G_MISS_NUM) NOT IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE)
10630: )
10631: OR
10632: (p_entity_name IN ('WORK_SERVICE_REQUEST')
10633: 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)
10634: )
10635:
10636: THEN
10637:
10881: OPEN operations(x_eam_wo_rec.wip_entity_id,x_eam_wo_rec.organization_id
10882: ,x_eam_op_tbl(i).operation_seq_num);
10883:
10884: FETCH operations INTO l_operations;
10885: 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;
10886: IF(operations%FOUND) THEN
10887: x_eam_op_tbl(i).start_date := l_operations.first_unit_start_date;
10888: x_eam_op_tbl(i).completion_date := l_operations.last_unit_completion_date;
10889: END IF;
10896: END LOOP;
10897: END IF;
10898: --end of populating operation dates
10899:
10900: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(x_eam_res_tbl.COUNT); END IF;
10901: --start of populating resource dates
10902: IF(x_eam_res_tbl.COUNT > 0) THEN
10903: i:=x_eam_res_tbl.FIRST;
10904: LOOP
10906: OPEN resources(x_eam_wo_rec.wip_entity_id,x_eam_wo_rec.organization_id
10907: ,x_eam_res_tbl(i).operation_seq_num,x_eam_res_tbl(i).resource_seq_num);
10908:
10909: FETCH resources INTO l_resources;
10910: 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;
10911: IF(resources%FOUND) THEN
10912: x_eam_res_tbl(i).start_date := l_resources.start_date;
10913: x_eam_res_tbl(i).completion_date := l_resources.completion_date;
10914: END IF;
10931: ,x_eam_res_inst_tbl(i).operation_seq_num,x_eam_res_inst_tbl(i).resource_seq_num
10932: ,x_eam_res_inst_tbl(i).instance_id,x_eam_res_inst_tbl(i).serial_number);
10933:
10934: FETCH resource_instances INTO l_resource_instances;
10935: 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;
10936: IF(resource_instances%FOUND) THEN
10937: x_eam_res_inst_tbl(i).start_date := l_resource_instances.start_date;
10938: x_eam_res_inst_tbl(i).completion_date := l_resource_instances.completion_date;
10939: END IF;
10948: --end of populating resource instance dates
10949:
10950: EXCEPTION
10951: WHEN OTHERS THEN
10952: 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 ;
10953: END UPDATE_DATES;
10954:
10955:
10956:
11162: l_workflow_enabled := Is_Workflow_Enabled(l_maint_obj_source, l_eam_wo_comp_rec.organization_id);
11163: l_status_changed_event := 'oracle.apps.eam.workorder.status.changed';
11164: l_status_pending_event := 'oracle.apps.eam.workorder.status.change.pending';
11165:
11166: IF(l_eam_wo_comp_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_COMPLETE) THEN
11167: l_new_system_status := 4; --can be complete/complete-no-charges...get from completion record
11168: l_new_eam_status := 4; --get value from completion record
11169: ELSE
11170: l_new_system_status := 3;
11260: RAISE EXC_SEV_QUIT_RECORD;
11261: END IF;
11262:
11263:
11264: IF(l_workflow_enabled='Y' AND l_eam_wo_comp_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE
11265: AND (WF_EVENT.TEST(l_status_pending_event) <> 'NONE') )THEN
11266: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking WF Approval mandatory . . . '); END IF;
11267: EAM_WORKFLOW_DETAILS_PUB.Eam_Wf_Is_Approval_Required(p_old_wo_rec => NULL,
11268: p_new_wo_rec => NULL,
11386:
11387: --Invoke Update_Pm_When_Uncomplete to reverse last service dates and last service reading if this is the last work order
11388: --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
11389: -- will be inserted into Eam_Job_Completion_Txns for uncompletion transaction.
11390: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UNCOMPLETE THEN
11391: if( l_maint_obj_source = 1) then -- added to check whether work order is of 'EAM' or 'CRMO'.'EAM=1'
11392: eam_pm_utils.update_pm_when_uncomplete(l_eam_wo_comp_rec.organization_id, l_eam_wo_comp_rec.wip_entity_id);
11393: end if; -- end of source entity check
11394: END IF;
11423: l_other_token_tbl(1).token_value := l_wip_entity_name;
11424: RAISE EXC_SEV_QUIT_RECORD;
11425: END IF;
11426:
11427: IF p_eam_wo_quality_tbl.COUNT > 0 AND l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
11428:
11429: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing quality records...') ; END IF ;
11430:
11431: FOR I IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
11425: END IF;
11426:
11427: IF p_eam_wo_quality_tbl.COUNT > 0 AND l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
11428:
11429: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing quality records...') ; END IF ;
11430:
11431: FOR I IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
11432: BEGIN
11433:
11430:
11431: FOR I IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
11432: BEGIN
11433:
11434: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
11435:
11436: l_eam_wo_quality_rec := l_eam_wo_quality_tbl(I);
11437: colllection_id_temp := l_eam_wo_quality_rec.collection_id;
11438:
11453: l_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
11454: RAISE EXC_SEV_QUIT_RECORD;
11455: END IF ;
11456:
11457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quality : Check_Required...') ; END IF ;
11458:
11459: EAM_WO_QUA_VALIDATE_PVT.Check_Required
11460: (
11461: p_eam_wo_quality_rec => l_eam_wo_quality_rec
11518:
11519:
11520: BEGIN
11521:
11522: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quality : Insert_Row...') ; END IF ;
11523:
11524: EAM_WO_QUA_UTILITY_PVT.insert_row
11525: (
11526: p_collection_id => colllection_id_temp
11572: END ; -- END For Quality Insert row
11573:
11574: END IF; -- END FOR Quality records.COUNT > 0
11575:
11576: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
11577: BEGIN
11578:
11579: IF l_asset_number IS NOT NULL THEN
11580:
11587: AND wdj.maintenance_object_id = cii.instance_id
11588: AND cii.serial_number = l_asset_number;
11589: END IF;
11590:
11591: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
11592: EAM_ERROR_MESSAGE_PVT.Write_Debug('Quality : Checking whether mandatory quality plans remain...') ; END IF ;
11593: mandatory_qua_plan :=qa_web_txn_api.quality_mandatory_plans_remain(
11594: p_txn_number => 31 ,
11595: p_organization_id => l_org_id ,
11631:
11632: END IF;
11633: END;
11634: END IF;
11635: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
11636: /* Failure Analysis Project Start */
11637: --Failure Entry data to be processed at work order completion
11638: --For Normal EAM Work Orders and Serialized rebuildable work orders
11639:
11644:
11645: FOR i in 1..l_eam_failure_codes_tbl.count
11646: LOOP
11647:
11648: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing failure entry records...') ; END IF ;
11649:
11650: IF l_eam_failure_codes_tbl(i).comments IS NOT NULL THEN
11651: l_comments_exists := 'Y';
11652: END IF;
11727: OR l_comments_exists = 'Y'
11728: OR l_eam_failure_entry_record.failure_id IS NOT NULL
11729: )
11730: THEN
11731: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling process_failure_entry procedure...') ; END IF ;
11732: Eam_Process_Failure_Entry_PUB.process_failure_entry
11733: (
11734: p_eam_failure_entry_record => l_eam_failure_entry_record
11735: , p_eam_failure_codes_tbl => l_eam_failure_codes_tbl
11756: /* Failure Analysis Project End */
11757:
11758: END IF;
11759:
11760: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
11761:
11762: BEGIN
11763: contextStr := '162='||l_asset_group_id||'@163='
11764: ||l_asset_number||'@2147483550='||l_asset_instance_id||'@165='||l_wip_entity_id
11763: contextStr := '162='||l_asset_group_id||'@163='
11764: ||l_asset_number||'@2147483550='||l_asset_instance_id||'@165='||l_wip_entity_id
11765: ||'@164='||l_asset_activity_id;
11766:
11767: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling post_background_results procedure...') ; END IF ;
11768: qa_web_txn_api.post_background_results(
11769: p_txn_number => 31 ,
11770: p_org_id => l_org_id ,
11771: p_context_values => contextStr ,
11788:
11789: RAISE EXC_SEV_QUIT_RECORD;
11790: END ;
11791:
11792: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling enable_and_fire_action procedure...') ; END IF ;
11793:
11794: qa_result_grp.enable_and_fire_action(
11795: p_api_version => 1.0 ,
11796: p_collection_id => l_eam_wo_comp_rec.qa_collection_id ,
11818: END IF;
11819:
11820: END IF; -- end if for p_eam_wo_quality_tbl.COUNT > 0
11821:
11822: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and l_maint_object_type =3 THEN
11823: 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 ;
11824: EAM_METERREADING_VALIDATE_PVT.MANDATORY_ENTERED
11825: (
11826: p_wip_entity_id => l_eam_wo_comp_rec.wip_entity_id
11819:
11820: END IF; -- end if for p_eam_wo_quality_tbl.COUNT > 0
11821:
11822: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and l_maint_object_type =3 THEN
11823: 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 ;
11824: EAM_METERREADING_VALIDATE_PVT.MANDATORY_ENTERED
11825: (
11826: p_wip_entity_id => l_eam_wo_comp_rec.wip_entity_id
11827: , p_instance_id => l_maint_object_id
11838: RAISE EXC_SEV_QUIT_RECORD;
11839: END IF;
11840: END IF;
11841:
11842: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and p_eam_meter_reading_tbl.COUNT > 0 THEN
11843: 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 ;
11844: EAM_METERREADING_UTILITY_PVT.INSERT_ROW
11845: (
11846: p_eam_meter_reading_tbl => p_eam_meter_reading_tbl
11839: END IF;
11840: END IF;
11841:
11842: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE and p_eam_meter_reading_tbl.COUNT > 0 THEN
11843: 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 ;
11844: EAM_METERREADING_UTILITY_PVT.INSERT_ROW
11845: (
11846: p_eam_meter_reading_tbl => p_eam_meter_reading_tbl
11847: , p_eam_counter_prop_tbl => p_eam_counter_prop_tbl
11861: END IF;
11862:
11863: /* Bug # 5255459 : call DISABLE_COUNTER_HIERARCHY every time */
11864:
11865: 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 ;
11866: EAM_METERREADING_UTILITY_PVT.DISABLE_COUNTER_HIERARCHY
11867: (
11868: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
11869: p_subinventory_id => l_eam_wo_comp_rec.completion_subinventory ,
11880: END IF;
11881:
11882: IF p_eam_wo_comp_rebuild_tbl.COUNT > 0 THEN
11883:
11884: 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 ;
11885: EAM_METERREADING_UTILITY_PVT.UPDATE_GENEALOGY
11886: (
11887: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
11888: x_eam_wo_comp_rebuild_tbl => x_eam_wo_comp_rebuild_tbl ,
11896: l_other_token_tbl(1).token_value := l_wip_entity_name;
11897: RAISE EXC_SEV_QUIT_RECORD;
11898: END IF;
11899:
11900: 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 ;
11901: EAM_METERREADING_UTILITY_PVT.UPDATE_REBUILD_WORK_ORDER
11902: (
11903: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
11904: x_eam_wo_comp_rebuild_tbl => x_eam_wo_comp_rebuild_tbl ,
11912: RAISE EXC_SEV_QUIT_RECORD;
11913: END IF;
11914:
11915:
11916: 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 ;
11917: EAM_METERREADING_UTILITY_PVT.UPDATE_ACTIVITY
11918: (
11919: p_eam_wo_comp_rebuild_tbl => p_eam_wo_comp_rebuild_tbl ,
11920: x_eam_wo_comp_rebuild_tbl => x_eam_wo_comp_rebuild_tbl ,
11930:
11931: END IF;
11932:
11933: IF p_eam_wo_comp_mr_read_tbl.COUNT > 0 THEN
11934: 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 ;
11935: EAM_METERREADING_UTILITY_PVT.ENABLE_SOURCE_METER
11936: (
11937: p_eam_wo_comp_mr_read_tbl => p_eam_wo_comp_mr_read_tbl ,
11938: x_eam_wo_comp_mr_read_tbl => x_eam_wo_comp_mr_read_tbl ,
11948: END IF;
11949:
11950: /* -- For work order completeion call Eam_Meters_util. Update_Last_Service_Reading_Dates
11951:
11952: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND p_eam_meter_reading_tbl.COUNT > 0 THEN
11953:
11954: 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 ;
11955: EAM_METERREADING_UTILITY_PVT.UPDATE_LAST_SERVICE_READING
11956: (
11950: /* -- For work order completeion call Eam_Meters_util. Update_Last_Service_Reading_Dates
11951:
11952: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND p_eam_meter_reading_tbl.COUNT > 0 THEN
11953:
11954: 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 ;
11955: EAM_METERREADING_UTILITY_PVT.UPDATE_LAST_SERVICE_READING
11956: (
11957: p_eam_meter_reading_tbl => p_eam_meter_reading_tbl
11958: , x_eam_meter_reading_tbl => x_eam_meter_reading_tbl
11966: RAISE EXC_SEV_QUIT_RECORD;
11967: END IF;
11968: END IF; */
11969:
11970: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND
11971: l_eam_wo_comp_rec.completion_subinventory IS NULL THEN
11972:
11973: 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 ;
11974: csi_eam_interface_grp.wip_completion
11969:
11970: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE AND
11971: l_eam_wo_comp_rec.completion_subinventory IS NULL THEN
11972:
11973: 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 ;
11974: csi_eam_interface_grp.wip_completion
11975: (
11976: p_wip_entity_id => l_eam_wo_comp_rec.wip_entity_id,
11977: p_organization_id => l_eam_wo_comp_rec.organization_id,
11986: RAISE EXC_SEV_QUIT_RECORD;
11987: END IF;
11988: END IF;
11989:
11990: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
11991: declare
11992:
11993: TYPE plan_id_tbl is TABLE OF number INDEX BY BINARY_INTEGER;
11994: TYPE plan_name_tbl is TABLE OF varchar2(30) INDEX BY BINARY_INTEGER;
12005: and collection_id = l_eam_wo_comp_rec.qa_collection_id;
12006:
12007: IF l_plan_id_tbl.COUNT > 0 THEN
12008: FOR N IN l_plan_id_tbl.FIRST..l_plan_id_tbl.LAST LOOP
12009: 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 ;
12010: EAM_ASSET_LOG_PVT.INSERT_ROW
12011: (
12012: p_api_version => 1.0,
12013: p_event_date => sysdate,
12080: WF_CORE.CONTEXT('Enterprise Asset Management...','Work Order Status Changed Event','After raising event');
12081: END IF; --end of check for status change event
12082:
12083: IF(l_maint_obj_source =1 ) THEN --modify intermedia index only for EAM workorders
12084: 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 ;
12085: EAM_TEXT_UTIL.PROCESS_WO_EVENT
12086: (
12087: p_event => 'UPDATE',
12088: p_wip_entity_id =>l_eam_wo_comp_rec.wip_entity_id,
12093: );
12094: END IF; --end of check for EAM workorders
12095:
12096:
12097: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12098: 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 ;
12099: EAM_ASSET_LOG_PVT.INSERT_ROW
12100: (
12101: p_api_version => 1.0,
12094: END IF; --end of check for EAM workorders
12095:
12096:
12097: IF l_eam_wo_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12098: 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 ;
12099: EAM_ASSET_LOG_PVT.INSERT_ROW
12100: (
12101: p_api_version => 1.0,
12102: p_event_date => sysdate,
12113: x_msg_count => l_asset_ops_msg_count,
12114: x_msg_data => l_asset_ops_msg_data
12115: );
12116: ELSE
12117: 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 ;
12118: EAM_ASSET_LOG_PVT.INSERT_ROW
12119: (
12120: p_api_version => 1.0,
12121: p_event_date => sysdate,
12367: ( p_eam_op_comp_rec => l_eam_op_comp_rec
12368: , x_return_status => l_return_status
12369: , x_mesg_token_tbl => l_mesg_token_tbl
12370: ) ;
12371: 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 ;
12372:
12373: IF l_return_status <> 'S'
12374: THEN
12375: x_eam_op_comp_tbl(i).return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR;
12434:
12435: x_eam_op_comp_tbl(i) := l_eam_op_comp_rec;
12436:
12437:
12438: IF l_eam_wo_quality_tbl.COUNT > 0 AND l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12439: FOR J IN l_eam_wo_quality_tbl.FIRST..l_eam_wo_quality_tbl.LAST LOOP
12440: IF l_eam_wo_quality_tbl(j).operation_seq_number = p_eam_op_compl_tbl(i).operation_seq_num THEN
12441: l_eam_wo_quality_temp_tbl(j) := l_eam_wo_quality_tbl(j);
12442: END IF;
12444:
12445: FOR K IN l_eam_wo_quality_temp_tbl.FIRST..l_eam_wo_quality_temp_tbl.LAST LOOP
12446: BEGIN
12447:
12448: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing '|| I || ' record') ; END IF ;
12449:
12450: -- Load local records.
12451: l_eam_wo_quality_rec := l_eam_wo_quality_temp_tbl(K);
12452:
12513: END IF;
12514: END ;
12515: END IF; -- END FOR Quality records > 0
12516:
12517: IF l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12518: BEGIN
12519:
12520: IF l_asset_number IS NOT NULL THEN
12521:
12557: END;
12558: END IF;
12559:
12560: IF p_eam_wo_quality_tbl.COUNT > 0 AND
12561: l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE THEN
12562:
12563: BEGIN
12564: contextStr := '162='||l_asset_group_id||'@163='
12565: ||l_asset_number||'@2147483550='||l_asset_instance_id||'@165='
12621: END IF;
12622:
12623:
12624:
12625: IF(l_workflow_enabled='Y' AND (l_eam_op_comp_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_COMPLETE)
12626: AND (Wf_Event.TEST(l_op_completed_event)<>'NONE' ) ) THEN
12627:
12628: SELECT last_unit_completion_date
12629: INTO l_op_sched_end_date
12856: END IF;
12857:
12858: IF GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Work Request Service Request association: : Associating/Disassociating Work /Service Request. . .'); END IF;
12859:
12860: IF l_eam_request_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
12861: EAM_REQUEST_UTILITY_PVT.INSERT_ROW
12862: ( p_eam_request_rec => l_eam_request_rec
12863: , x_return_status => l_return_status
12864: , x_mesg_token_tbl => l_mesg_token_tbl
12864: , x_mesg_token_tbl => l_mesg_token_tbl
12865: );
12866: END IF;
12867:
12868: IF l_eam_request_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE THEN
12869: EAM_REQUEST_UTILITY_PVT.DELETE_ROW
12870: ( p_eam_request_rec => l_eam_request_rec
12871: , x_return_status => l_return_status
12872: , x_mesg_token_tbl => l_mesg_token_tbl
12923:
12924: END SERVICE_WORKREQUEST_ASSO;
12925:
12926:
12927: END EAM_PROCESS_WO_PVT;