[Home] [Help]
184: , x_msg_count OUT NOCOPY NUMBER
185: , x_msg_data OUT NOCOPY VARCHAR2)
186: IS
187:
188: l_in_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
189: l_out_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
190: l_estimate_id NUMBER := p_estimate_id;
191: l_return_status VARCHAR2(1);
192:
185: , x_msg_data OUT NOCOPY VARCHAR2)
186: IS
187:
188: l_in_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
189: l_out_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
190: l_estimate_id NUMBER := p_estimate_id;
191: l_return_status VARCHAR2(1);
192:
193: BEGIN
215:
216: -- All the associated acitivites are exploeded and
217: -- available in l_out_eam_ce_wo_lines_tbl
218: -- Insert all the work order lines in to
219: -- EAM_CE_WORK_ORDER_LINES, but dont commit the data
220: INSERT_ALL_WO_LINES(
221: p_api_version => 1.0
222: , p_init_msg_list => FND_API.G_FALSE
223: , p_commit => p_commit
282: --FND_MSG_PUB.ADD;
283: RAISE FND_API.G_EXC_ERROR;
284: END IF;
285:
286: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW(
287: p_work_order_line_id => p_work_order_line_id
288: );
289:
290: IF NVL(p_commit,'F') = 'T' THEN
327:
328: IS
329:
330: l_estimate_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CONSTRUCTION_ESTIMATE_REC;
331: l_parent_ce_wo_line_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_REC;
332: l_creation_date DATE := SYSDATE;
333: l_created_by NUMBER := FND_GLOBAL.USER_ID;
334: l_last_updated_date DATE := SYSDATE;
335: l_last_updated_by NUMBER := FND_GLOBAL.USER_ID;
400: AND NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') <> 'N' THEN
401:
402: l_wo_line_id_seq := l_estimate_parent_rec.PARENT_WO_ID;
403:
404: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
405: p_estimate_work_order_line_id => l_wo_line_id_seq
406: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
407: ,p_src_cu_id => FND_API.G_MISS_NUM
408: ,p_src_activity_id => FND_API.G_MISS_NUM
477: );
478:
479: ELSE
480:
481: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
482:
483: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
484: p_estimate_work_order_line_id => l_wo_line_id_seq
485: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
479: ELSE
480:
481: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
482:
483: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
484: p_estimate_work_order_line_id => l_wo_line_id_seq
485: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
486: ,p_src_cu_id => FND_API.G_MISS_NUM
487: ,p_src_activity_id => FND_API.G_MISS_NUM
636: -- If the create work order flag has been switched from Y to N
637: -- then delete the work order line created when the flag was Y
638: IF NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') = 'Y' AND
639: NVL(l_estimate_parent_rec.PARENT_WO_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
640: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW (
641: p_work_order_line_id => l_estimate_parent_rec.PARENT_WO_ID
642: );
643: END IF; -- NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') = 'Y'
644: ELSE
676: );
677:
678: IF NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') = 'Y' AND
679: NVL(l_estimate_parent_rec.PARENT_WO_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
680: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW (
681: p_work_order_line_id => l_estimate_parent_rec.PARENT_WO_ID
682: );
683: END IF;
684: END IF;
816: RAISE FND_API.G_EXC_ERROR;
817: END IF; -- nvl(l_return_status,'S') <> 'S'
818: END IF;
819:
820: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
821: -- to insert wo line row
822:
823: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
824: p_estimate_work_order_line_id => NULL
819:
820: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
821: -- to insert wo line row
822:
823: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
824: p_estimate_work_order_line_id => NULL
825: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
826: ,p_src_cu_id => NULL
827: ,p_src_activity_id => NULL
923: p_api_version IN NUMBER := 1.0
924: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
925: , p_commit IN VARCHAR2
926: , p_estimate_id IN NUMBER
927: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
928: , x_return_status OUT NOCOPY VARCHAR2
929: , x_msg_count OUT NOCOPY NUMBER
930: , x_msg_data OUT NOCOPY VARCHAR2
931: )
999: -- When new set of work order lines are being estimated
1000: -- The old WO lines needs to be deleted
1001: -- None of these operations are committed until saved
1002: --
1003: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ALL_WITH_ESTIMATE_ID(
1004: p_estimate_id => p_estimate_id
1005: );
1006: */
1007: -- If the p_estimate_work_order_line_id exists then update the
1047: l_system_status_rec.SYSTEM_STATUS := p_eam_ce_wo_lines_tbl(l_ce_tab_index).USER_DEFINED_STATUS_ID;
1048: END;
1049:
1050: -- Call UPDATE_ROW TO update the changes
1051: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
1052: p_estimate_work_order_line_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID
1053: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
1054: ,p_src_cu_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_CU_ID
1055: ,p_src_activity_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_ACTIVITY_ID
1156: WHEN OTHERS THEN
1157: l_system_status_rec.SYSTEM_STATUS := p_eam_ce_wo_lines_tbl(l_ce_tab_index).USER_DEFINED_STATUS_ID;
1158: END;
1159:
1160: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
1161: -- to insert wo line row
1162:
1163: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
1164: p_estimate_work_order_line_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID
1159:
1160: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
1161: -- to insert wo line row
1162:
1163: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
1164: p_estimate_work_order_line_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID
1165: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
1166: ,p_src_cu_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_CU_ID
1167: ,p_src_activity_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_ACTIVITY_ID
1265: END INSERT_ALL_WO_LINES;
1266:
1267: PROCEDURE EXPLODE_CE_ACTIVITIES(
1268: p_estimate_id IN NUMBER
1269: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1270: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1271: , x_ce_msg_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_MESSAGE_TBL
1272: , x_return_status OUT NOCOPY VARCHAR2
1273: )
1266:
1267: PROCEDURE EXPLODE_CE_ACTIVITIES(
1268: p_estimate_id IN NUMBER
1269: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1270: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1271: , x_ce_msg_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_MESSAGE_TBL
1272: , x_return_status OUT NOCOPY VARCHAR2
1273: )
1274: IS
1294: l_ce_association_rec EAM_EST_DATASTRUCTURES_PUB.EAM_ESTIMATE_ASSOCIATIONS_REC;
1295:
1296: l_return_status VARCHAR2(1);
1297: l_estimate_id NUMBER := p_estimate_id;
1298: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL := p_eam_ce_wo_lines_tbl;
1299: x_upd_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1300:
1301: l_debug_filename VARCHAR(50) := G_DEBUG_FILENAME;
1302: l_debug VARCHAR2(1) := 'N';
1295:
1296: l_return_status VARCHAR2(1);
1297: l_estimate_id NUMBER := p_estimate_id;
1298: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL := p_eam_ce_wo_lines_tbl;
1299: x_upd_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1300:
1301: l_debug_filename VARCHAR(50) := G_DEBUG_FILENAME;
1302: l_debug VARCHAR2(1) := 'N';
1303:
1451:
1452: PROCEDURE POPULATE_CE_WORK_ORDER_LINES(
1453: p_estimate_id IN NUMBER
1454: , p_ce_associatin_rec IN EAM_EST_DATASTRUCTURES_PUB.EAM_ESTIMATE_ASSOCIATIONS_REC
1455: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1456: , p_eam_op_tbl IN EAM_PROCESS_WO_PUB.eam_op_tbl_type
1457: , p_eam_op_network_tbl IN EAM_PROCESS_WO_PUB.eam_op_network_tbl_type
1458: , p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1459: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1459: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1460: , p_eam_sub_res_tbl IN EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type
1461: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1462: , p_eam_mat_req_tbl IN EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type
1463: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1464: , x_return_status OUT NOCOPY VARCHAR2)
1465: IS
1466:
1467: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1463: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1464: , x_return_status OUT NOCOPY VARCHAR2)
1465: IS
1466:
1467: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1468: l_wo_lines_count NUMBER := p_eam_ce_wo_lines_tbl.COUNT;
1469: l_op_tbl_count NUMBER := p_eam_op_tbl.COUNT;
1470: l_res_tbl_count NUMBER := p_eam_res_tbl.COUNT;
1471: l_mat_tbl_count NUMBER := p_eam_mat_req_tbl.COUNT;
1705: END IF; -- l_op_tbl_count > 0
1706:
1707: -- This block populates the common attributes for all the work order lines
1708: -- Also once all the attribute are populated, it calles
1709: -- EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
1710: /* IF l_wo_ind > 0 THEN
1711: FOR l_ce_tab_index IN l_eam_ce_wo_lines_tbl.FIRST .. l_eam_ce_wo_lines_tbl.LAST
1712: LOOP
1713:
2622: p_data => x_msg_data);
2623: END SET_ACTIVITIES_FOR_CE;
2624:
2625: --This is a private procedure which will retrive the wo lines for a construction
2626: --estimate from the EAM_CE_WORK_ORDER_LINES table in the proper order based on
2627: --the p_group_option parameter.
2628: --This procedure does not do any error handling, but it may throw error, thus
2629: --the calling procedure should have logic in place to catch possible error thrown
2630: --from this procedure.
2630: --from this procedure.
2631: PROCEDURE GET_CE_WO_LNS_BY_GROUP_OPT(
2632: p_ce_id IN NUMBER,
2633: p_group_option IN VARCHAR2,
2634: x_ce_wo_ln_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL)
2635: IS
2636: --The group by 'None' option gets the lines in the order they are stored in the table.
2637: CURSOR none_cur IS
2638: SELECT *
2635: IS
2636: --The group by 'None' option gets the lines in the order they are stored in the table.
2637: CURSOR none_cur IS
2638: SELECT *
2639: FROM EAM_CE_WORK_ORDER_LINES
2640: WHERE ESTIMATE_ID = p_ce_id
2641: AND estimate_work_order_line_id NOT IN (SELECT parent_wo_id
2642: FROM EAM_CONSTRUCTION_ESTIMATES
2643: WHERE estimate_id = p_ce_id
2653: -- 3. Display the direct items last, order by di_description
2654: CURSOR general_cur IS
2655: SELECT ECWOL.*,
2656: NVL(ECWOL.OP_SEQ_NUM, ECWOL.SRC_OP_SEQ_NUM) OP_SEQ_NUM_DERIVED
2657: FROM EAM_CE_WORK_ORDER_LINES ECWOL
2658: WHERE ECWOL.ESTIMATE_ID = p_ce_id
2659: AND ECWOL.estimate_work_order_line_id NOT IN (SELECT parent_wo_id
2660: FROM EAM_CONSTRUCTION_ESTIMATES
2661: WHERE estimate_id = p_ce_id
2678: -- 3. Display the direct items last, order by di_description
2679: CURSOR wip_acct_cur IS
2680: SELECT ECWOL.*,
2681: NVL(ECWOL.OP_SEQ_NUM, ECWOL.SRC_OP_SEQ_NUM) OP_SEQ_NUM_DERIVED
2682: FROM EAM_CE_WORK_ORDER_LINES ECWOL
2683: WHERE ECWOL.ESTIMATE_ID = p_ce_id
2684: AND ECWOL.estimate_work_order_line_id NOT IN (SELECT parent_wo_id
2685: FROM EAM_CONSTRUCTION_ESTIMATES
2686: WHERE estimate_id = p_ce_id
2692: ECWOL.RES_SEQ_NUM,
2693: ECWOL.MAT_COMPONENT_SEQ_NUM,
2694: ECWOL.DI_DESCRIPTION;
2695:
2696: l_ce_wo_ln_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_REC;
2697: l_wo_ln_index NUMBER := 0;
2698: BEGIN
2699: IF p_group_option = 'None' THEN
2700: --Populate x_ce_wo_ln_tbl
2952: --from this procedure.
2953: PROCEDURE SET_WO_LNS_FROM_WO_DEFAULTS(
2954: p_ce_wo_defaults IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WO_DEFAULTS_REC,
2955: p_group_option IN VARCHAR2,
2956: px_ce_wo_ln_tbl IN OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
2957: )
2958: IS
2959: BEGIN
2960: IF px_ce_wo_ln_tbl.COUNT > 0 THEN
3015: --the calling procedure should have logic in place to catch possible error thrown
3016: --from this procedure.
3017: PROCEDURE RESOLVE_SORT_CONTENTION(
3018: p_group_option IN VARCHAR2,
3019: px_ce_wo_ln_tbl IN OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
3020: )
3021: IS
3022: l_new_wo_seq_num NUMBER;
3023: l_new_op_seq_num NUMBER;
3250: l_api_version CONSTANT NUMBER := 1.0;
3251: l_debug_filename VARCHAR(50) := G_DEBUG_FILENAME;
3252: l_debug VARCHAR2(1) := 'N';
3253: l_group_option VARCHAR2(80);
3254: l_ce_wo_ln_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
3255: BEGIN
3256: SAVEPOINT UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3257:
3258: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3348:
3349: --Now update the wo lines
3350: IF l_ce_wo_ln_tbl.COUNT > 0 THEN
3351: FOR i IN l_ce_wo_ln_tbl.FIRST..l_ce_wo_ln_tbl.LAST LOOP
3352: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
3353: p_estimate_work_order_line_id => l_ce_wo_ln_tbl(i).ESTIMATE_WORK_ORDER_LINE_ID,
3354: p_estimate_work_order_id => FND_API.G_MISS_NUM,
3355: p_src_cu_id => l_ce_wo_ln_tbl(i).SRC_CU_ID,
3356: p_src_activity_id => l_ce_wo_ln_tbl(i).SRC_ACTIVITY_ID,
3504: msg_index number;
3505: temp_err_mesg varchar2(4000);
3506:
3507:
3508: l_ce_lines_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3509: l_ce_parent_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3510: --l_ce_lines_tbl celines_table_type;
3511:
3512: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3505: temp_err_mesg varchar2(4000);
3506:
3507:
3508: l_ce_lines_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3509: l_ce_parent_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3510: --l_ce_lines_tbl celines_table_type;
3511:
3512: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3513: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
3580: l_eam_direct_items_tbl_1 EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
3581:
3582: CURSOR c_ecwl IS
3583: SELECT *
3584: FROM EAM_CE_WORK_ORDER_LINES
3585: WHERE organization_id = p_organization_id
3586: AND estimate_id = p_estimate_id
3587: AND estimate_work_order_line_id NOT IN (SELECT parent_wo_id
3588: FROM EAM_CONSTRUCTION_ESTIMATES
3718: IF nvl(l_create_parent, 'N') = 'N' THEN
3719: --dbms_output.put_line('create parent no');
3720: SELECT 1
3721: INTO l_wo_seq_exists
3722: FROM EAM_CE_WORK_ORDER_LINES
3723: WHERE organization_id = p_organization_id
3724: AND estimate_id = p_estimate_id
3725: AND work_order_seq_num IS NULL
3726: AND rownum = 1;
3728: ELSE
3729: --dbms_output.put_line('create parent yes');
3730: SELECT 1
3731: INTO l_wo_seq_exists
3732: FROM EAM_CE_WORK_ORDER_LINES
3733: WHERE organization_id = p_organization_id
3734: AND estimate_id = p_estimate_id
3735: AND work_order_seq_num IS NULL
3736: AND estimate_work_order_line_id <> l_parent_job_id
3760: BEGIN
3761: --dbms_output.put_line('3');
3762: SELECT 1
3763: INTO l_wo_exists
3764: FROM EAM_CE_WORK_ORDER_LINES
3765: WHERE organization_id = p_organization_id
3766: AND estimate_id = p_estimate_id
3767: AND estimate_work_order_id IS NOT NULL
3768: AND rownum = 1;
3787: BEGIN
3788: --dbms_output.put_line('5');
3789: SELECT 1
3790: INTO l_noasset
3791: FROM EAM_CE_WORK_ORDER_LINES
3792: WHERE organization_id = p_organization_id
3793: AND estimate_id = p_estimate_id
3794: AND maintenance_object_id IS NULL
3795: AND rownum = 1;
3822: --dbms_output.put_line('Creating parent 2' || l_parent_job_id);
3823: BEGIN
3824: SELECT *
3825: INTO l_ce_parent_rec
3826: FROM EAM_CE_WORK_ORDER_LINES
3827: WHERE estimate_work_order_line_id = l_parent_job_id;
3828: --dbms_output.put_line('Creating parent 3' || l_parent_job_id);
3829:
3830: l_eam_wo_rec := l_eam_empty_wo_rec;
3914: -- ROLLBACK TO CREATE_CU_WORKORDERS;
3915: RAISE FND_API.G_EXC_ERROR;
3916: END IF;
3917:
3918: UPDATE EAM_CE_WORK_ORDER_LINES
3919: SET estimate_work_order_id = l_eam_wo_tbl1(1).wip_entity_id
3920: WHERE estimate_work_order_line_id = l_parent_job_id;
3921:
3922: UPDATE eam_work_order_details
4226: --dbms_output.put_line('----x_eam_wo_rec---' || l_eam_wo_tbl1(2).WIP_ENTITY_name);*/
4227:
4228: FOR i IN l_eam_wo_tbl1.FIRST..l_eam_wo_tbl1.LAST LOOP
4229: BEGIN
4230: UPDATE EAM_CE_WORK_ORDER_LINES
4231: SET estimate_work_order_id = l_eam_wo_tbl1(i).wip_entity_id
4232: WHERE work_order_seq_num = l_eam_wo_tbl1(i).batch_id
4233: and estimate_id = p_estimate_id;
4234:
4292:
4293: procedure populate_WO(
4294: p_parent_wo IN NUMBER
4295: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4296: , p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4297: , x_eam_wo_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
4298: , x_return_status OUT NOCOPY VARCHAR2
4299: , x_msg_count OUT NOCOPY NUMBER
4300: , x_msg_data OUT NOCOPY VARCHAR2
4459:
4460: END populate_WO;
4461:
4462: procedure POPULATE_OPERATION(
4463: p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4464: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4465: , x_eam_op_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_rec_type
4466: , x_return_status OUT NOCOPY VARCHAR2
4467: , x_msg_count OUT NOCOPY NUMBER
4543:
4544: END POPULATE_OPERATION;
4545:
4546: procedure POPULATE_RESOURCE(
4547: p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4548: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4549: , x_eam_res_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_rec_type
4550: , x_return_status OUT NOCOPY VARCHAR2
4551: , x_msg_count OUT NOCOPY NUMBER
4652:
4653: END POPULATE_RESOURCE;
4654:
4655: procedure POPULATE_MATERIAL(
4656: p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4657: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4658: , x_eam_mat_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_mat_req_rec_type
4659: , x_eam_direct_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_direct_items_rec_type
4660: , x_return_status OUT NOCOPY VARCHAR2
4777:
4778: IS
4779:
4780:
4781: l_est_workorder_line_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_REC;
4782: l_creation_date DATE := SYSDATE;
4783: l_created_by NUMBER := FND_GLOBAL.USER_ID;
4784: l_last_updated_date DATE := SYSDATE;
4785: l_last_updated_by NUMBER := FND_GLOBAL.USER_ID;
4788: l_wo_line_id_seq NUMBER :=0;
4789:
4790: CURSOR SRC_EST_WORKORDER_LINES_CUR IS
4791: SELECT CEWOL.*
4792: FROM EAM_CE_WORK_ORDER_LINES CEWOL
4793: WHERE ESTIMATE_ID = p_src_estimate_id
4794: AND ORGANIZATION_ID = p_org_id
4795: ORDER BY ESTIMATE_WORK_ORDER_LINE_ID;
4796:
4804: BEGIN
4805: SAVEPOINT COPY_EST_WORKBENCH;
4806: -- Copy the following from the src estimate id
4807: -- Estimate Entries in EAM_CONSTRUCTION_ESTIMATES
4808: -- Estimate Work Bench Enteries in EAM_CE_WORK_ORDER_LINES
4809: -- Clear out WO Order Related details
4810:
4811: -- Checking input parameters
4812: IF (p_org_id IS NULL) THEN
4918: -- and work order related details
4919: IF (l_estimate_rec.CREATE_PARENT_WO_FLAG = 'Y' AND
4920: l_parent_estimate_wo_line_id = l_est_workorder_line_rec.ESTIMATE_WORK_ORDER_LINE_ID) THEN
4921:
4922: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
4923:
4924: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
4925: p_estimate_work_order_line_id => l_wo_line_id_seq
4926: ,p_estimate_work_order_id => NULL
4920: l_parent_estimate_wo_line_id = l_est_workorder_line_rec.ESTIMATE_WORK_ORDER_LINE_ID) THEN
4921:
4922: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
4923:
4924: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
4925: p_estimate_work_order_line_id => l_wo_line_id_seq
4926: ,p_estimate_work_order_id => NULL
4927: ,p_src_cu_id => l_est_workorder_line_rec.SRC_CU_ID
4928: ,p_src_activity_id => l_est_workorder_line_rec.SRC_ACTIVITY_ID
5028: p_ATTRIBUTE15 => l_estimate_rec.attribute15
5029: );
5030:
5031: ELSE
5032: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
5033: p_estimate_work_order_line_id => NULL
5034: ,p_estimate_work_order_id => NULL
5035: ,p_src_cu_id => l_est_workorder_line_rec.SRC_CU_ID
5036: ,p_src_activity_id => l_est_workorder_line_rec.SRC_ACTIVITY_ID