eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.EAM_SCHED_BOTTOM_UP_PVT dependencies on EAM_ERROR_MESSAGE_PVT

Line 81: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_resource ') ; END IF ;

77: l_return_status := FND_API.G_RET_STS_SUCCESS;
78:
79: x_return_status := l_return_status ;
80:
81: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_resource ') ; END IF ;
82:
83: l_eam_res_tbl_index := l_eam_res_tbl.FIRST;
84:
85: WHILE l_eam_res_tbl_index IS NOT NULL LOOP

Line 152: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WOR ') ; END IF ;

148: END IF;
149:
150: IF ( NVL( l_change_date, 'N' ) = 'Y' ) THEN
151:
152: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WOR ') ; END IF ;
153:
154: UPDATE wip_operation_resources
155: SET start_date = l_res_start_date ,
156: completion_date = l_res_end_date ,

Line 166: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU start date for resource') ; END IF ;

162: WHERE wip_entity_id = l_wip_id
163: AND operation_seq_num = l_op_seq_num
164: AND resource_seq_num = l_res_seq_num;
165:
166: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU start date for resource') ; END IF ;
167:
168: UPDATE wip_operation_resource_usage
169: SET start_date = l_res_start_date ,
170: last_update_date = sysdate ,

Line 188: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU end date for resource') ; END IF ;

184: AND serial_number IS NULL)
185: AND instance_id IS NULL
186: AND serial_number IS NULL;
187:
188: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU end date for resource') ; END IF ;
189:
190: UPDATE wip_operation_resource_usage
191: SET completion_date = l_res_end_date ,
192: last_update_date = sysdate ,

Line 215: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_resource ') ; END IF ;

211:
212: x_eam_res_tbl := l_eam_res_tbl;
213: x_return_status := l_return_status ;
214:
215: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_resource ') ; END IF ;
216: EXCEPTION
217: WHEN FND_API.G_EXC_ERROR THEN
218:
219: x_return_status := l_return_status ;

Line 273: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_operations ') ; END IF ;

269:
270: x_return_status := l_return_status;
271: l_eam_op_tbl_index := l_eam_op_tbl.FIRST;
272:
273: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_operations ') ; END IF ;
274:
275: WHILE l_eam_op_tbl_index IS NOT NULL LOOP
276:
277: IF ( l_eam_op_tbl(l_eam_op_tbl_index).wip_entity_id = l_wip_id AND l_eam_op_tbl(l_eam_op_tbl_index).operation_seq_num = l_op_seq_num ) THEN

Line 339: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating Wip_operations ') ; END IF ;

335: END IF;
336:
337: IF ( NVL( l_change_date, 'N' ) = 'Y' ) THEN
338:
339: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating Wip_operations ') ; END IF ;
340:
341: UPDATE wip_operations
342: SET first_unit_start_date = l_op_start_date,
343: first_unit_completion_date = l_op_end_date,

Line 358: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_operations ') ; END IF ;

354:
355: x_eam_op_tbl := l_eam_op_tbl;
356: x_return_status := l_return_status ;
357:
358: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_operations ') ; END IF ;
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: x_return_status := l_return_status ;
362: END update_operations;

Line 405: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_workorder ') ; END IF ;

401: l_return_status := FND_API.G_RET_STS_SUCCESS;
402:
403: x_return_status := l_return_status ;
404:
405: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_workorder ') ; END IF ;
406:
407: IF ( l_eam_wo_rec.transaction_type IS NULL ) THEN -- query up from DB
408: EAM_WO_UTILITY_PVT.Query_Row ( p_curr_op_rec.wip_entity_id ,
409: p_curr_op_rec.organization_id ,

Line 437: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WDJ') ; END IF ;

433: END IF ;
434:
435: IF ( NVL( l_wo_date_change , 'N' ) = 'Y' ) THEN
436:
437: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WDJ') ; END IF ;
438:
439: UPDATE wip_discrete_jobs
440: SET scheduled_start_date = l_wo_start_date,
441: scheduled_completion_date = l_wo_end_date ,

Line 457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_workorder') ; END IF ;

453: END IF;
454:
455: x_eam_wo_rec := l_eam_wo_rec;
456: x_return_status := l_return_status ;
457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_workorder') ; END IF ;
458:
459: EXCEPTION
460: WHEN FND_API.G_EXC_ERROR THEN
461: x_return_status := l_return_status ;

Line 597: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering schedule_bottom_up_pvt ') ; END IF ;

593:
594: BEGIN
595: -- Initialize variables
596:
597: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering schedule_bottom_up_pvt ') ; END IF ;
598:
599: SAVEPOINT SCHED_BOTTOM_UP;
600:
601: l_return_status := FND_API.G_RET_STS_SUCCESS;

Line 734: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Adjusting operation dates ') ;

730: --/* Adjust WOR and WO dates
731:
732: FOR c_operation_rec IN get_op_dates_csr( p_wip_entity_id) LOOP
733: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
734: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Adjusting operation dates ') ;
735: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op date ' || c_operation_rec.last_unit_completion_date) ;
736: END IF ;
737:
738: select min(start_date), max(completion_date)

Line 735: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op date ' || c_operation_rec.last_unit_completion_date) ;

731:
732: FOR c_operation_rec IN get_op_dates_csr( p_wip_entity_id) LOOP
733: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
734: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Adjusting operation dates ') ;
735: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op date ' || c_operation_rec.last_unit_completion_date) ;
736: END IF ;
737:
738: select min(start_date), max(completion_date)
739: into l_min_res_date, l_max_res_date

Line 776: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Adjusting WO dates ') ;

772: FETCH get_wo_dates_csr into l_scheduled_start_date, l_scheduled_completion_date;
773: CLOSE get_wo_dates_csr;
774:
775: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
776: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Adjusting WO dates ') ;
777: END IF ;
778:
779: select min(first_unit_start_date), max(last_unit_completion_date)
780: into l_min_date, l_max_date

Line 785: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op start dates ' || l_min_date) ;

781: from wip_operations
782: where wip_entity_id = p_wip_entity_id;
783:
784: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
785: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op start dates ' || l_min_date) ;
786: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op end dates ' || l_max_date) ;
787: EAM_ERROR_MESSAGE_PVT.Write_Debug(' wo end dates ' || l_scheduled_completion_date) ;
788: END IF ;
789:

Line 786: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op end dates ' || l_max_date) ;

782: where wip_entity_id = p_wip_entity_id;
783:
784: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
785: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op start dates ' || l_min_date) ;
786: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op end dates ' || l_max_date) ;
787: EAM_ERROR_MESSAGE_PVT.Write_Debug(' wo end dates ' || l_scheduled_completion_date) ;
788: END IF ;
789:
790: IF l_min_date < l_scheduled_start_date THEN

Line 787: EAM_ERROR_MESSAGE_PVT.Write_Debug(' wo end dates ' || l_scheduled_completion_date) ;

783:
784: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
785: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op start dates ' || l_min_date) ;
786: EAM_ERROR_MESSAGE_PVT.Write_Debug(' op end dates ' || l_max_date) ;
787: EAM_ERROR_MESSAGE_PVT.Write_Debug(' wo end dates ' || l_scheduled_completion_date) ;
788: END IF ;
789:
790: IF l_min_date < l_scheduled_start_date THEN
791: UPDATE wip_discrete_jobs

Line 803: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WO completion date ') ;

799: END IF;
800:
801: IF l_max_date > l_scheduled_completion_date THEN
802: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
803: EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WO completion date ') ;
804: END IF ;
805:
806: UPDATE wip_discrete_jobs
807: SET scheduled_completion_date = l_max_date,

Line 817: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting schedule_bottom_up_pvt ') ; END IF ;

813:
814: END IF;
815:
816:
817: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting schedule_bottom_up_pvt ') ; END IF ;
818:
819: EXCEPTION
820:
821: WHEN FND_API.G_EXC_ERROR THEN

Line 822: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occured in schedule_bottom_up_pvt API ') ; END IF ;

818:
819: EXCEPTION
820:
821: WHEN FND_API.G_EXC_ERROR THEN
822: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occured in schedule_bottom_up_pvt API ') ; END IF ;
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: x_message_name := ' EAM_SCHED_BOTTOMUP_ERR';
825:
826: END schedule_bottom_up_pvt ;

Line 866: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside insert_into_woru' ) ; END IF ;

862: l_return_status VARCHAR2(1) ;
863:
864: BEGIN
865:
866: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside insert_into_woru' ) ; END IF ;
867:
868: l_return_status := FND_API.G_RET_STS_SUCCESS ;
869: x_return_status := l_return_status ;
870: l_rec_exists := 2 ;

Line 890: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Insert record in WORU ' ) ; END IF ;

886: END IF ;
887:
888: IF ( l_rec_exists = 0 ) THEN
889:
890: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Insert record in WORU ' ) ; END IF ;
891:
892: BEGIN
893: INSERT INTO WIP_OPERATION_RESOURCE_USAGE
894: ( wip_entity_id

Line 934: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occurred ' ||SQLERRM ) ; END IF ;

930: , SYSDATE);
931:
932: EXCEPTION WHEN OTHERS THEN
933: l_return_status := FND_API.G_RET_STS_ERROR ;
934: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occurred ' ||SQLERRM ) ; END IF ;
935: END ;
936:
937: END IF; -- end of l_rec_exists
938:

Line 939: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting insert_into_woru with status ' || l_return_status ) ; END IF ;

935: END ;
936:
937: END IF; -- end of l_rec_exists
938:
939: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting insert_into_woru with status ' || l_return_status ) ; END IF ;
940: x_return_status := l_return_status ;
941:
942: END insert_into_woru;
943:

Line 956: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_woru: Updating resource record ' ) ; END IF ;

952:
953: BEGIN
954: IF p_eam_res_usage_rec.instance_id IS NULL THEN
955:
956: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_woru: Updating resource record ' ) ; END IF ;
957:
958: UPDATE WIP_OPERATION_RESOURCE_USAGE
959: SET start_date = p_eam_res_usage_rec.start_date ,
960: completion_date = p_eam_res_usage_rec.completion_date ,

Line 974: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_woru: Updating resource Instance record ' ) ; END IF ;

970: AND start_date = p_eam_res_usage_rec.old_start_date
971: AND completion_date = p_eam_res_usage_rec.old_completion_date
972: AND instance_id IS NULL ;
973: ELSE
974: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_woru: Updating resource Instance record ' ) ; END IF ;
975:
976: UPDATE WIP_OPERATION_RESOURCE_USAGE
977: SET start_date = p_eam_res_usage_rec.start_date ,
978: completion_date = p_eam_res_usage_rec.completion_date ,

Line 994: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_woru' ) ; END IF ;

990: AND instance_id = p_eam_res_usage_rec.instance_id
991: AND (serial_number IS NULL OR (serial_number = p_eam_res_usage_rec.serial_number));
992: END IF;
993:
994: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_woru' ) ; END IF ;
995: END update_woru ;
996:
997: /*************************************************************************************************************************
998: * Procedure : delete_from_woru

Line 1007: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside delete_from_woru' ) ; END IF ;

1003: procedure delete_from_woru( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type ) IS
1004: l_count NUMBER;
1005: BEGIN
1006:
1007: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside delete_from_woru' ) ; END IF ;
1008:
1009: DELETE FROM WIP_OPERATION_RESOURCE_USAGE
1010: WHERE wip_entity_id = p_eam_res_usage_rec.wip_entity_id
1011: AND operation_seq_num = p_eam_res_usage_rec.operation_seq_num

Line 1045: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting delete_from_woru' ) ; END IF ;

1041: AND instance_id = p_eam_res_usage_rec.instance_id
1042: AND (serial_number IS NULL OR (serial_number = p_eam_res_usage_rec.serial_number));
1043: END IF;
1044:
1045: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting delete_from_woru' ) ; END IF ;
1046: END delete_from_woru ;
1047:
1048:
1049: /*************************************************************************************************************************

Line 1097: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_wori ' ) ; END IF ;

1093: x_eam_res_inst_tbl := l_eam_res_inst_tbl;
1094:
1095: -- place check for no rows returned in SELECT .This may occur when last record of woru gets deleted !
1096:
1097: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_wori ' ) ; END IF ;
1098:
1099:
1100: SELECT count(*)
1101: INTO l_count

Line 1125: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Update WORI' ) ; END IF ;

1121: AND instance_id = l_instance_id
1122: AND (serial_number IS NULL OR (serial_number = l_serial_number));
1123:
1124:
1125: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Update WORI' ) ; END IF ;
1126:
1127:
1128: UPDATE wip_op_resource_instances
1129: SET start_date = l_min_start_date,

Line 1202: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_wori ' ) ; END IF ;

1198:
1199: x_return_status := l_return_status;
1200: x_eam_res_inst_tbl := l_eam_res_inst_tbl;
1201:
1202: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_wori ' ) ; END IF ;
1203:
1204: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
1205: x_return_status := l_return_status;
1206: END update_wori;

Line 1253: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_wor' ) ; END IF ;

1249: x_eam_res_tbl := l_eam_res_tbl;
1250:
1251: -- place check for no rows returned in SELECT .This may occur when last record of woru gets deleted !
1252:
1253: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Inside update_wor' ) ; END IF ;
1254:
1255: BEGIN
1256:
1257: SELECT min(start_date), max(completion_date)

Line 1273: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating dates in from WOR ' ) ; END IF ;

1269: END ;
1270:
1271: IF ( NVL(l_update,'Y') = 'Y' ) THEN
1272:
1273: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating dates in from WOR ' ) ; END IF ;
1274:
1275: UPDATE wip_operation_resources
1276: SET start_date = l_min_start_date,
1277: completion_date = l_max_completion_date ,

Line 1338: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' exiting update_wor ' ) ; END IF ;

1334:
1335: x_return_status := l_return_status;
1336: x_eam_res_tbl := l_eam_res_tbl;
1337:
1338: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' exiting update_wor ' ) ; END IF ;
1339:
1340: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
1341: x_return_status := l_return_status;
1342: END update_wor;

Line 1419: l_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;

1415: AND operation_seq_num = c_op_seq_num
1416: AND resource_seq_num = c_res_seq_num;
1417:
1418:
1419: l_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
1420: l_return_status VARCHAR2(1) ;
1421: l_eam_res_usage_rec EAM_PROCESS_WO_PUB.eam_res_usage_rec_type;
1422: l_eam_res_inst_rec EAM_PROCESS_WO_PUB.eam_res_inst_rec_type;
1423: l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;

Line 1455: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering update_resource_usage ') ; END IF ;

1451: l_min_found :='N';
1452: l_max_found :='N';
1453:
1454:
1455: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering update_resource_usage ') ; END IF ;
1456:
1457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_tbl.count = '|| l_eam_res_tbl.count) ; END IF ;
1458: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_inst_tbl.count = '|| l_eam_res_inst_tbl.count) ; END IF ;
1459: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_usage_tbl.count = '|| l_eam_res_usage_tbl.count) ; END IF ;

Line 1457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_tbl.count = '|| l_eam_res_tbl.count) ; END IF ;

1453:
1454:
1455: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering update_resource_usage ') ; END IF ;
1456:
1457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_tbl.count = '|| l_eam_res_tbl.count) ; END IF ;
1458: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_inst_tbl.count = '|| l_eam_res_inst_tbl.count) ; END IF ;
1459: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_usage_tbl.count = '|| l_eam_res_usage_tbl.count) ; END IF ;
1460:
1461:

Line 1458: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_inst_tbl.count = '|| l_eam_res_inst_tbl.count) ; END IF ;

1454:
1455: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering update_resource_usage ') ; END IF ;
1456:
1457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_tbl.count = '|| l_eam_res_tbl.count) ; END IF ;
1458: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_inst_tbl.count = '|| l_eam_res_inst_tbl.count) ; END IF ;
1459: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_usage_tbl.count = '|| l_eam_res_usage_tbl.count) ; END IF ;
1460:
1461:
1462: l_res_inst_tbl_index := l_eam_res_inst_tbl.FIRST ;

Line 1459: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_usage_tbl.count = '|| l_eam_res_usage_tbl.count) ; END IF ;

1455: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Entering update_resource_usage ') ; END IF ;
1456:
1457: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_tbl.count = '|| l_eam_res_tbl.count) ; END IF ;
1458: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_inst_tbl.count = '|| l_eam_res_inst_tbl.count) ; END IF ;
1459: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' l_eam_res_usage_tbl.count = '|| l_eam_res_usage_tbl.count) ; END IF ;
1460:
1461:
1462: l_res_inst_tbl_index := l_eam_res_inst_tbl.FIRST ;
1463:

Line 1467: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing instance record ' || l_res_inst_tbl_index) ; END IF ;

1463:
1464: WHILE l_res_inst_tbl_index IS NOT NULL LOOP
1465:
1466:
1467: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing instance record ' || l_res_inst_tbl_index) ; END IF ;
1468:
1469: IF ( l_eam_res_inst_tbl(l_res_inst_tbl_index).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE )THEN
1470:
1471: -- when adding a resource add one record into WORU too .

Line 1473: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Creating usage record for instance ') ; END IF ;

1469: IF ( l_eam_res_inst_tbl(l_res_inst_tbl_index).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE )THEN
1470:
1471: -- when adding a resource add one record into WORU too .
1472:
1473: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Creating usage record for instance ') ; END IF ;
1474:
1475: l_eam_res_usage_rec.wip_entity_id := l_eam_res_inst_tbl(l_res_inst_tbl_index).wip_entity_id ;
1476: l_eam_res_usage_rec.organization_id := l_eam_res_inst_tbl(l_res_inst_tbl_index).organization_id ;
1477: l_eam_res_usage_rec.operation_seq_num := l_eam_res_inst_tbl(l_res_inst_tbl_index).operation_seq_num ;

Line 1499: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU with start date for instance') ; END IF ;

1495: l_serial_num := l_eam_res_inst_tbl(l_res_inst_tbl_index).serial_number ;
1496:
1497: BEGIN
1498:
1499: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU with start date for instance') ; END IF ;
1500:
1501: OPEN get_inst_usage_min_date( l_wip_entity_id ,l_op_seq_num , l_res_seq_num , l_instance_id , l_serial_num) ;
1502: FETCH get_inst_usage_min_date INTO l_min_date ;
1503: CLOSE get_inst_usage_min_date ;

Line 1594: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing resource record ' || l_res_tbl_index) ; END IF ;

1590: l_res_tbl_index := l_eam_res_tbl.FIRST ;
1591:
1592: WHILE l_res_tbl_index IS NOT NULL LOOP
1593:
1594: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing resource record ' || l_res_tbl_index) ; END IF ;
1595:
1596: IF ( l_eam_res_tbl(l_res_tbl_index).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE )THEN
1597:
1598: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Creating usage record for resource') ; END IF ;

Line 1598: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Creating usage record for resource') ; END IF ;

1594: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing resource record ' || l_res_tbl_index) ; END IF ;
1595:
1596: IF ( l_eam_res_tbl(l_res_tbl_index).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_CREATE )THEN
1597:
1598: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Creating usage record for resource') ; END IF ;
1599:
1600: -- when adding a resource add one record into WORU too .
1601: l_eam_res_usage_rec.wip_entity_id := l_eam_res_tbl(l_res_tbl_index).wip_entity_id ;
1602: l_eam_res_usage_rec.organization_id := l_eam_res_tbl(l_res_tbl_index).organization_id ;

Line 1635: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU with start date for resource') ; END IF ;

1631: AND serial_number IS NULL ;
1632:
1633: BEGIN
1634:
1635: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Updating WORU with start date for resource') ; END IF ;
1636:
1637: OPEN get_res_usage_min_date( l_wip_entity_id ,l_op_seq_num , l_res_seq_num );
1638: FETCH get_res_usage_min_date INTO l_min_date ;
1639: CLOSE get_res_usage_min_date ;

Line 1794: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Purging resource and instance records for update from WORU ' ) ; END IF ;

1790: l_res_tbl_index := l_eam_res_tbl.NEXT(l_res_tbl_index);
1791:
1792: END LOOP; -- end looping through l_eam_res_tbl
1793:
1794: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Purging resource and instance records for update from WORU ' ) ; END IF ;
1795:
1796: IF ( l_eam_res_usage_tbl.count > 0 ) THEN
1797: FOR i IN l_eam_res_usage_tbl.FIRST..l_eam_res_usage_tbl.LAST LOOP
1798: IF ( l_eam_res_usage_tbl(i).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_UPDATE ) THEN

Line 1825: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing resource usage record ' || l_res_usage_tbl_index) ; END IF ;

1821: l_res_usage_tbl_index := l_eam_res_usage_tbl.FIRST ;
1822:
1823: WHILE l_res_usage_tbl_index IS NOT NULL LOOP
1824:
1825: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Processing resource usage record ' || l_res_usage_tbl_index) ; END IF ;
1826:
1827: l_eam_res_usage_rec := l_eam_res_usage_tbl(l_res_usage_tbl_index);
1828:
1829: IF ( l_eam_res_usage_rec.transaction_type IN ( EAM_PROCESS_WO_PUB.G_OPR_CREATE , EAM_PROCESS_WO_PUB.G_OPR_UPDATE) ) THEN

Line 1831: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Txn: Create resource usage ') ; END IF ;

1827: l_eam_res_usage_rec := l_eam_res_usage_tbl(l_res_usage_tbl_index);
1828:
1829: IF ( l_eam_res_usage_rec.transaction_type IN ( EAM_PROCESS_WO_PUB.G_OPR_CREATE , EAM_PROCESS_WO_PUB.G_OPR_UPDATE) ) THEN
1830: -- call insert usage method
1831: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Txn: Create resource usage ') ; END IF ;
1832:
1833: insert_into_woru( l_eam_res_usage_rec , l_return_status ) ;
1834:
1835: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN

Line 1842: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Txn:Delete resource usage ') ; END IF ;

1838:
1839: ELSIF ( l_eam_res_usage_rec.transaction_type = EAM_PROCESS_WO_PUB.G_OPR_DELETE ) THEN
1840: -- call method delete usage and update inst table.
1841:
1842: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Txn:Delete resource usage ') ; END IF ;
1843:
1844: delete_from_woru( l_eam_res_usage_rec ) ;
1845:
1846: END IF; -- end of checking l_eam_res_usage_tbl(i).transaction_type

Line 1852: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Sync up resource and instance records with usage records ') ; END IF ;

1848: l_res_usage_tbl_index := l_eam_res_usage_tbl.NEXT(l_res_usage_tbl_index);
1849:
1850: END LOOP; -- end of looping through l_eam_res_usage_tbl
1851:
1852: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Sync up resource and instance records with usage records ') ; END IF ;
1853:
1854: IF ( l_eam_res_usage_tbl.count > 0 ) THEN
1855: FOR i IN l_eam_res_usage_tbl.FIRST..l_eam_res_usage_tbl.LAST LOOP
1856:

Line 1890: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_resource_usage ') ; END IF ;

1886: x_eam_res_inst_tbl := l_eam_res_inst_tbl ;
1887: x_eam_res_tbl := l_eam_res_tbl ;
1888: x_return_status := l_return_status ;
1889:
1890: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_resource_usage ') ; END IF ;
1891:
1892: EXCEPTION
1893: WHEN FND_API.G_EXC_ERROR THEN
1894: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occured in update_resource_usage API ') ; END IF ;

Line 1894: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occured in update_resource_usage API ') ; END IF ;

1890: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Exiting update_resource_usage ') ; END IF ;
1891:
1892: EXCEPTION
1893: WHEN FND_API.G_EXC_ERROR THEN
1894: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Error occured in update_resource_usage API ') ; END IF ;
1895: ROLLBACK TO UPDATE_RES_USAGE ;
1896: x_return_status := l_return_status ;
1897: x_message_name := ' ' ;
1898: