43: x_return_status
44: * Purpose : Procedure will propagate changes from instance level to resource level during
45: Bottom Up Scheduling.
46: ************************************************************************************************************************/
47: procedure update_resource( p_curr_inst_rec IN EAM_PROCESS_WO_PUB.eam_res_inst_rec_type,
48: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type,
49: x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type,
50: x_return_status OUT NOCOPY VARCHAR2 ) IS
51:
44: * Purpose : Procedure will propagate changes from instance level to resource level during
45: Bottom Up Scheduling.
46: ************************************************************************************************************************/
47: procedure update_resource( p_curr_inst_rec IN EAM_PROCESS_WO_PUB.eam_res_inst_rec_type,
48: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type,
49: x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type,
50: x_return_status OUT NOCOPY VARCHAR2 ) IS
51:
52:
45: Bottom Up Scheduling.
46: ************************************************************************************************************************/
47: procedure update_resource( p_curr_inst_rec IN EAM_PROCESS_WO_PUB.eam_res_inst_rec_type,
48: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type,
49: x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type,
50: x_return_status OUT NOCOPY VARCHAR2 ) IS
51:
52:
53: l_resource_rec EAM_PROCESS_WO_PUB.eam_res_rec_type;
49: x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type,
50: x_return_status OUT NOCOPY VARCHAR2 ) IS
51:
52:
53: l_resource_rec EAM_PROCESS_WO_PUB.eam_res_rec_type;
54: l_wip_id NUMBER ;
55: l_op_seq_num NUMBER ;
56: l_org_id NUMBER ;
57: l_res_seq_num NUMBER ;
56: l_org_id NUMBER ;
57: l_res_seq_num NUMBER ;
58: l_inst_start_date DATE ;
59: l_inst_end_date DATE ;
60: l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
61: l_res_rec_found VARCHAR2(1) ;
62: l_change_date VARCHAR2(1) ;
63: l_res_start_date DATE;
64: l_res_end_date DATE;
127: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
128: RAISE FND_API.G_EXC_ERROR ;
129: END IF;
130:
131: l_resource_rec.transaction_type := EAM_PROCESS_WO_PUB.G_OPR_UPDATE;
132: l_eam_res_tbl( l_eam_res_tbl.COUNT+1) := l_resource_rec ;
133: l_res_end_date := l_resource_rec.completion_date;
134: l_res_start_date := l_resource_rec.start_date;
135:
234: Bottom Up Scheduling.
235: ************************************************************************************************************************/
236:
237:
238: procedure update_operations ( p_curr_res_rec IN EAM_PROCESS_WO_PUB.eam_res_rec_type,
239: p_eam_op_tbl IN EAM_PROCESS_WO_PUB.eam_op_tbl_type,
240: x_eam_op_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_tbl_type,
241: x_return_status OUT NOCOPY VARCHAR2 ) IS
242:
235: ************************************************************************************************************************/
236:
237:
238: procedure update_operations ( p_curr_res_rec IN EAM_PROCESS_WO_PUB.eam_res_rec_type,
239: p_eam_op_tbl IN EAM_PROCESS_WO_PUB.eam_op_tbl_type,
240: x_eam_op_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_tbl_type,
241: x_return_status OUT NOCOPY VARCHAR2 ) IS
242:
243: l_operation_rec EAM_PROCESS_WO_PUB.eam_op_rec_type ;
236:
237:
238: procedure update_operations ( p_curr_res_rec IN EAM_PROCESS_WO_PUB.eam_res_rec_type,
239: p_eam_op_tbl IN EAM_PROCESS_WO_PUB.eam_op_tbl_type,
240: x_eam_op_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_tbl_type,
241: x_return_status OUT NOCOPY VARCHAR2 ) IS
242:
243: l_operation_rec EAM_PROCESS_WO_PUB.eam_op_rec_type ;
244: l_wip_id NUMBER ;
239: p_eam_op_tbl IN EAM_PROCESS_WO_PUB.eam_op_tbl_type,
240: x_eam_op_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_tbl_type,
241: x_return_status OUT NOCOPY VARCHAR2 ) IS
242:
243: l_operation_rec EAM_PROCESS_WO_PUB.eam_op_rec_type ;
244: l_wip_id NUMBER ;
245: l_org_id NUMBER ;
246: l_op_seq_num NUMBER ;
247: l_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type ;
243: l_operation_rec EAM_PROCESS_WO_PUB.eam_op_rec_type ;
244: l_wip_id NUMBER ;
245: l_org_id NUMBER ;
246: l_op_seq_num NUMBER ;
247: l_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type ;
248: l_op_rec_found VARCHAR2(1);
249: l_res_start_date DATE ;
250: l_res_end_date DATE ;
251: l_op_start_date DATE;
314: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
315: RAISE FND_API.G_EXC_ERROR ;
316: END IF;
317:
318: l_operation_rec.transaction_type := EAM_PROCESS_WO_PUB.G_OPR_UPDATE;
319: l_eam_op_tbl( l_eam_op_tbl.COUNT+1) := l_operation_rec;
320: l_op_start_date := l_operation_rec.start_date ;
321: l_op_end_date := l_operation_rec.completion_date ;
322:
377: ************************************************************************************************************************/
378:
379:
380:
381: procedure update_workorder( p_curr_op_rec IN EAM_PROCESS_WO_PUB.eam_op_rec_type,
382: p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type,
383: x_eam_wo_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type,
384: x_return_status OUT NOCOPY VARCHAR2 ) IS
385:
378:
379:
380:
381: procedure update_workorder( p_curr_op_rec IN EAM_PROCESS_WO_PUB.eam_op_rec_type,
382: p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type,
383: x_eam_wo_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type,
384: x_return_status OUT NOCOPY VARCHAR2 ) IS
385:
386: l_op_start_date DATE ;
379:
380:
381: procedure update_workorder( p_curr_op_rec IN EAM_PROCESS_WO_PUB.eam_op_rec_type,
382: p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type,
383: x_eam_wo_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type,
384: x_return_status OUT NOCOPY VARCHAR2 ) IS
385:
386: l_op_start_date DATE ;
387: l_op_end_date DATE ;
386: l_op_start_date DATE ;
387: l_op_end_date DATE ;
388: l_wo_start_date DATE ;
389: l_wo_end_date DATE ;
390: l_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type ;
391: l_wo_date_change VARCHAR2(1) ;
392: l_return_status VARCHAR2(1);
393: --l_wo_req_start_date DATE ;
394: --l_wo_due_date DATE ;
832: * Parameters OUT : x_return_status
833: * Purpose : Inserts a resource usage record in wip_operation_resource_usage table
834: ************************************************************************************************************************/
835:
836: procedure insert_into_woru ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type,
837: x_return_status OUT NOCOPY VARCHAR2 ) IS
838:
839: CURSOR res_usage_rec_check_csr IS
840: SELECT 1
947: * Purpose : Table Handler :- Updates a resource usage record in wip_operation_resource_usage table
948: ************************************************************************************************************************/
949:
950:
951: procedure update_woru( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type) IS
952:
953: BEGIN
954: IF p_eam_res_usage_rec.instance_id IS NULL THEN
955:
999: * Parameters IN : p_eam_res_usage_rec
1000: * Purpose : Table Handler :- Deletes a resource usage record in wip_operation_resource_usage table
1001: ************************************************************************************************************************/
1002:
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 ;
1055: * Purpose : Updates/Deletes record from wip_op_resource_instances table . Returns changed
1056: instance records in x_eam_res_inst_tbl.
1057: ************************************************************************************************************************/
1058:
1059: procedure update_wori ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type
1060: ,p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1061: ,x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1062: ,x_return_status OUT NOCOPY VARCHAR ) IS
1063:
1056: instance records in x_eam_res_inst_tbl.
1057: ************************************************************************************************************************/
1058:
1059: procedure update_wori ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type
1060: ,p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1061: ,x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1062: ,x_return_status OUT NOCOPY VARCHAR ) IS
1063:
1064: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1057: ************************************************************************************************************************/
1058:
1059: procedure update_wori ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type
1060: ,p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1061: ,x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1062: ,x_return_status OUT NOCOPY VARCHAR ) IS
1063:
1064: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1065: l_eam_res_inst_rec EAM_PROCESS_WO_PUB.eam_res_inst_rec_type ;
1060: ,p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1061: ,x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1062: ,x_return_status OUT NOCOPY VARCHAR ) IS
1063:
1064: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1065: l_eam_res_inst_rec EAM_PROCESS_WO_PUB.eam_res_inst_rec_type ;
1066: l_min_start_date DATE;
1067: l_max_completion_date DATE;
1068: l_wip_entity_id NUMBER ;
1061: ,x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1062: ,x_return_status OUT NOCOPY VARCHAR ) IS
1063:
1064: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1065: l_eam_res_inst_rec EAM_PROCESS_WO_PUB.eam_res_inst_rec_type ;
1066: l_min_start_date DATE;
1067: l_max_completion_date DATE;
1068: l_wip_entity_id NUMBER ;
1069: l_operation_seq_num NUMBER ;
1214: * Purpose : Updates/Deletes record from wip_op_resource_instances table . Returns changed
1215: instance records in x_eam_res_tbl.
1216: ************************************************************************************************************************/
1217:
1218: procedure update_wor ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type
1219: ,p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1220: ,x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1221: ,x_return_status OUT NOCOPY VARCHAR ) IS
1222:
1215: instance records in x_eam_res_tbl.
1216: ************************************************************************************************************************/
1217:
1218: procedure update_wor ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type
1219: ,p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1220: ,x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1221: ,x_return_status OUT NOCOPY VARCHAR ) IS
1222:
1223: l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1216: ************************************************************************************************************************/
1217:
1218: procedure update_wor ( p_eam_res_usage_rec IN EAM_PROCESS_WO_PUB.eam_res_usage_rec_type
1219: ,p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1220: ,x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1221: ,x_return_status OUT NOCOPY VARCHAR ) IS
1222:
1223: l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1224: l_resource_rec EAM_PROCESS_WO_PUB.eam_res_rec_type ;
1219: ,p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1220: ,x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1221: ,x_return_status OUT NOCOPY VARCHAR ) IS
1222:
1223: l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1224: l_resource_rec EAM_PROCESS_WO_PUB.eam_res_rec_type ;
1225: l_min_start_date DATE;
1226: l_max_completion_date DATE;
1227: l_wip_entity_id NUMBER ;
1220: ,x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1221: ,x_return_status OUT NOCOPY VARCHAR ) IS
1222:
1223: l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1224: l_resource_rec EAM_PROCESS_WO_PUB.eam_res_rec_type ;
1225: l_min_start_date DATE;
1226: l_max_completion_date DATE;
1227: l_wip_entity_id NUMBER ;
1228: l_operation_seq_num NUMBER ;
1359: or usage record is added/updated/deleted. Corresponding changes are also done to WORI
1360: ************************************************************************************************************************/
1361:
1362: procedure update_resource_usage(
1363: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1364: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1365: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1366: , x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1367: , x_eam_res_usage_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1360: ************************************************************************************************************************/
1361:
1362: procedure update_resource_usage(
1363: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1364: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1365: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1366: , x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1367: , x_eam_res_usage_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1368: , x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1361:
1362: procedure update_resource_usage(
1363: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1364: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1365: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1366: , x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1367: , x_eam_res_usage_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1368: , x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1369: , x_return_status OUT NOCOPY VARCHAR2
1362: procedure update_resource_usage(
1363: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1364: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1365: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1366: , x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1367: , x_eam_res_usage_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1368: , x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1369: , x_return_status OUT NOCOPY VARCHAR2
1370: , x_message_name OUT NOCOPY VARCHAR2
1363: p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1364: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1365: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1366: , x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1367: , x_eam_res_usage_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1368: , x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1369: , x_return_status OUT NOCOPY VARCHAR2
1370: , x_message_name OUT NOCOPY VARCHAR2
1371: ) IS
1364: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1365: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1366: , x_eam_res_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_tbl_type
1367: , x_eam_res_usage_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1368: , x_eam_res_inst_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1369: , x_return_status OUT NOCOPY VARCHAR2
1370: , x_message_name OUT NOCOPY VARCHAR2
1371: ) IS
1372:
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 ;
1424: l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1425: l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type ;
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 ;
1424: l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1425: l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type ;
1426: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
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 ;
1424: l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1425: l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type ;
1426: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1427: l_min_found VARCHAR2(1) ;
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 ;
1424: l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1425: l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type ;
1426: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1427: l_min_found VARCHAR2(1) ;
1428: l_max_found 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 ;
1424: l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1425: l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type ;
1426: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1427: l_min_found VARCHAR2(1) ;
1428: l_max_found VARCHAR2(1) ;
1429: l_res_tbl_index NUMBER;
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 ;
1424: l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type ;
1425: l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type ;
1426: l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type ;
1427: l_min_found VARCHAR2(1) ;
1428: l_max_found VARCHAR2(1) ;
1429: l_res_tbl_index NUMBER;
1430: l_res_inst_tbl_index NUMBER;
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 .
1472:
1473: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug(' Creating usage record for instance ') ; END IF ;
1485:
1486: -- insert record into the resource usage pl/sql table
1487: l_eam_res_usage_tbl( l_eam_res_usage_tbl.COUNT + 1) := l_eam_res_usage_rec ;
1488:
1489: ELSIF ( l_eam_res_inst_tbl(l_res_inst_tbl_index).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_UPDATE )THEN
1490:
1491: l_wip_entity_id := l_eam_res_inst_tbl(l_res_inst_tbl_index).wip_entity_id ;
1492: l_op_seq_num := l_eam_res_inst_tbl(l_res_inst_tbl_index).operation_seq_num ;
1493: l_res_seq_num := l_eam_res_inst_tbl(l_res_inst_tbl_index).resource_seq_num ;
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 ;
1599:
1600: -- when adding a resource add one record into WORU too .
1615:
1616: -- insert record into the resource usage pl/sql table
1617: l_eam_res_usage_tbl( l_eam_res_usage_tbl.COUNT + 1) := l_eam_res_usage_rec ;
1618:
1619: ELSIF ( l_eam_res_tbl(l_res_tbl_index).transaction_type = EAM_PROCESS_WO_PUB.G_OPR_UPDATE )THEN
1620:
1621: l_wip_entity_id := l_eam_res_tbl(l_res_tbl_index).wip_entity_id ;
1622: l_op_seq_num := l_eam_res_tbl(l_res_tbl_index).operation_seq_num ;
1623: l_res_seq_num := l_eam_res_tbl(l_res_tbl_index).resource_seq_num ;
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
1799: IF ( l_eam_res_usage_tbl(i).instance_id IS NULL ) THEN
1800: DELETE FROM wip_operation_resource_usage
1801: WHERE wip_entity_id = l_eam_res_usage_tbl(i).wip_entity_id
1802: AND operation_seq_num = l_eam_res_usage_tbl(i).operation_seq_num
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
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 ) ;
1835: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1836: RAISE FND_API.G_EXC_ERROR;
1837: 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: