[Home] [Help]
189: , x_msg_count OUT NOCOPY NUMBER
190: , x_msg_data OUT NOCOPY VARCHAR2)
191: IS
192:
193: l_in_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
194: l_out_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
195: l_estimate_id NUMBER := p_estimate_id;
196: l_return_status VARCHAR2(1);
197:
190: , x_msg_data OUT NOCOPY VARCHAR2)
191: IS
192:
193: l_in_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
194: l_out_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
195: l_estimate_id NUMBER := p_estimate_id;
196: l_return_status VARCHAR2(1);
197:
198: BEGIN
223:
224: -- All the associated acitivites are exploeded and
225: -- available in l_out_eam_ce_wo_lines_tbl
226: -- Insert all the work order lines in to
227: -- EAM_CE_WORK_ORDER_LINES, but dont commit the data
228: debug('Calling API - INSERT_ALL_WO_LINES');
229: INSERT_ALL_WO_LINES(
230: p_api_version => 1.0
231: , p_init_msg_list => FND_API.G_FALSE
297: --FND_MSG_PUB.ADD;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
300:
301: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW(
302: p_work_order_line_id => p_work_order_line_id
303: );
304:
305: IF NVL(p_commit,'F') = 'T' THEN
346:
347: IS
348:
349: l_estimate_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CONSTRUCTION_ESTIMATE_REC;
350: l_parent_ce_wo_line_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_REC;
351: l_creation_date DATE := SYSDATE;
352: l_created_by NUMBER := FND_GLOBAL.USER_ID;
353: l_last_updated_date DATE := SYSDATE;
354: l_last_updated_by NUMBER := FND_GLOBAL.USER_ID;
443: AND NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') <> 'N' THEN
444:
445: l_wo_line_id_seq := l_estimate_parent_rec.PARENT_WO_ID;
446:
447: debug(' Updating EAM_CE_WORK_ORDER_LINES_PKG Parent Work Order line - ' || l_wo_line_id_seq);
448: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
449: p_estimate_work_order_line_id => l_wo_line_id_seq
450: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
451: ,p_src_cu_id => FND_API.G_MISS_NUM
444:
445: l_wo_line_id_seq := l_estimate_parent_rec.PARENT_WO_ID;
446:
447: debug(' Updating EAM_CE_WORK_ORDER_LINES_PKG Parent Work Order line - ' || l_wo_line_id_seq);
448: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
449: p_estimate_work_order_line_id => l_wo_line_id_seq
450: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
451: ,p_src_cu_id => FND_API.G_MISS_NUM
452: ,p_src_activity_id => FND_API.G_MISS_NUM
522: );
523:
524: ELSE
525:
526: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
527: debug(' Generating new Parent Work order - ' || l_wo_line_id_seq);
528:
529: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
530: p_estimate_work_order_line_id => l_wo_line_id_seq
525:
526: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
527: debug(' Generating new Parent Work order - ' || l_wo_line_id_seq);
528:
529: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
530: p_estimate_work_order_line_id => l_wo_line_id_seq
531: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
532: ,p_src_cu_id => FND_API.G_MISS_NUM
533: ,p_src_activity_id => FND_API.G_MISS_NUM
688: IF NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') = 'Y' AND
689: NVL(l_estimate_parent_rec.PARENT_WO_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
690:
691: debug(' Create parent work order flag flipped. Deleting existing work order line');
692: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW (
693: p_work_order_line_id => l_estimate_parent_rec.PARENT_WO_ID
694: );
695: END IF; -- NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') = 'Y'
696: ELSE
729: );
730:
731: IF NVL(l_estimate_parent_rec.CREATE_PARENT_WO_FLAG,'N') = 'Y' AND
732: NVL(l_estimate_parent_rec.PARENT_WO_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
733: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW (
734: p_work_order_line_id => l_estimate_parent_rec.PARENT_WO_ID
735: );
736: END IF;
737: END IF;
884: RAISE FND_API.G_EXC_ERROR;
885: END IF; -- nvl(l_return_status,'S') <> 'S'
886: END IF;
887:
888: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
889: -- to insert wo line row
890:
891: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
892: p_estimate_work_order_line_id => NULL
887:
888: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
889: -- to insert wo line row
890:
891: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
892: p_estimate_work_order_line_id => NULL
893: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
894: ,p_src_cu_id => NULL
895: ,p_src_activity_id => NULL
995: p_api_version IN NUMBER := 1.0
996: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
997: , p_commit IN VARCHAR2
998: , p_estimate_id IN NUMBER
999: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1000: , x_return_status OUT NOCOPY VARCHAR2
1001: , x_msg_count OUT NOCOPY NUMBER
1002: , x_msg_data OUT NOCOPY VARCHAR2
1003: )
1078: -- When new set of work order lines are being estimated
1079: -- The old WO lines needs to be deleted
1080: -- None of these operations are committed until saved
1081: --
1082: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ALL_WITH_ESTIMATE_ID(
1083: p_estimate_id => p_estimate_id
1084: );
1085: */
1086: -- If the p_estimate_work_order_line_id exists then update the
1087: -- ce work order lines, else insert new row
1088:
1089: --EAM_CONSTRUCTION_MESSAGE_PVT.DUMP_CE_WO_TBL(
1090: --p_eam_ce_wo_lines_tbl => p_eam_ce_wo_lines_tbl);
1091: debug(' Beginning insert/update in to EAM_CE_WORK_ORDER_LINES');
1092: FOR l_ce_tab_index IN p_eam_ce_wo_lines_tbl.FIRST .. p_eam_ce_wo_lines_tbl.LAST
1093: LOOP
1094:
1095: -- Assigning unit cost before recalculating
1127: l_system_status_rec.SYSTEM_STATUS := p_eam_ce_wo_lines_tbl(l_ce_tab_index).USER_DEFINED_STATUS_ID;
1128: END;
1129:
1130: -- Call UPDATE_ROW TO update the changes
1131: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
1132: p_estimate_work_order_line_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID
1133: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
1134: ,p_src_cu_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_CU_ID
1135: ,p_src_activity_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_ACTIVITY_ID
1237: WHEN OTHERS THEN
1238: l_system_status_rec.SYSTEM_STATUS := p_eam_ce_wo_lines_tbl(l_ce_tab_index).USER_DEFINED_STATUS_ID;
1239: END;
1240:
1241: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
1242: -- to insert wo line row
1243:
1244: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
1245: p_estimate_work_order_line_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID
1240:
1241: -- Call EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
1242: -- to insert wo line row
1243:
1244: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
1245: p_estimate_work_order_line_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID
1246: ,p_estimate_work_order_id => FND_API.G_MISS_NUM
1247: ,p_src_cu_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_CU_ID
1248: ,p_src_activity_id => p_eam_ce_wo_lines_tbl(l_ce_tab_index).SRC_ACTIVITY_ID
1317: );
1318: END IF; -- p_eam_ce_wo_lines_tbl(l_ce_tab_index).ESTIMATE_WORK_ORDER_LINE_ID IS NOT NULL
1319: END LOOP; -- l_ce_tab_index IN p_eam_ce_wo_lines_tbl.FIRST .. p_eam_ce_wo_lines_tbl.LAST
1320: END IF; -- p_eam_ce_wo_lines_tbl.COUNT > 0
1321: debug(' End of insert/update in to EAM_CE_WORK_ORDER_LINES. Total Inserted - ' || p_eam_ce_wo_lines_tbl.count);
1322:
1323: IF NVL(p_commit,'F') = 'T' THEN
1324: debug('Committing');
1325: COMMIT;
1351: END INSERT_ALL_WO_LINES;
1352:
1353: PROCEDURE EXPLODE_CE_ACTIVITIES(
1354: p_estimate_id IN NUMBER
1355: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1356: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1357: , x_ce_msg_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_MESSAGE_TBL
1358: , x_return_status OUT NOCOPY VARCHAR2
1359: )
1352:
1353: PROCEDURE EXPLODE_CE_ACTIVITIES(
1354: p_estimate_id IN NUMBER
1355: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1356: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1357: , x_ce_msg_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_MESSAGE_TBL
1358: , x_return_status OUT NOCOPY VARCHAR2
1359: )
1360: IS
1380: l_ce_association_rec EAM_EST_DATASTRUCTURES_PUB.EAM_ESTIMATE_ASSOCIATIONS_REC;
1381:
1382: l_return_status VARCHAR2(1);
1383: l_estimate_id NUMBER := p_estimate_id;
1384: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL := p_eam_ce_wo_lines_tbl;
1385: x_upd_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1386:
1387: l_debug_filename VARCHAR(50) := G_DEBUG_FILENAME;
1388: l_debug VARCHAR2(1) := 'N';
1381:
1382: l_return_status VARCHAR2(1);
1383: l_estimate_id NUMBER := p_estimate_id;
1384: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL := p_eam_ce_wo_lines_tbl;
1385: x_upd_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1386:
1387: l_debug_filename VARCHAR(50) := G_DEBUG_FILENAME;
1388: l_debug VARCHAR2(1) := 'N';
1389:
1556:
1557: PROCEDURE POPULATE_CE_WORK_ORDER_LINES(
1558: p_estimate_id IN NUMBER
1559: , p_ce_associatin_rec IN EAM_EST_DATASTRUCTURES_PUB.EAM_ESTIMATE_ASSOCIATIONS_REC
1560: , p_eam_ce_wo_lines_tbl IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1561: , p_eam_op_tbl IN EAM_PROCESS_WO_PUB.eam_op_tbl_type
1562: , p_eam_op_network_tbl IN EAM_PROCESS_WO_PUB.eam_op_network_tbl_type
1563: , p_eam_res_tbl IN EAM_PROCESS_WO_PUB.eam_res_tbl_type
1564: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1564: , p_eam_res_inst_tbl IN EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type
1565: , p_eam_sub_res_tbl IN EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type
1566: , p_eam_res_usage_tbl IN EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type
1567: , p_eam_mat_req_tbl IN EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type
1568: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1569: , x_return_status OUT NOCOPY VARCHAR2)
1570: IS
1571:
1572: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1568: , x_eam_ce_wo_lines_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
1569: , x_return_status OUT NOCOPY VARCHAR2)
1570: IS
1571:
1572: l_eam_ce_wo_lines_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
1573: l_wo_lines_count NUMBER := p_eam_ce_wo_lines_tbl.COUNT;
1574: l_op_tbl_count NUMBER := p_eam_op_tbl.COUNT;
1575: l_res_tbl_count NUMBER := p_eam_res_tbl.COUNT;
1576: l_mat_tbl_count NUMBER := p_eam_mat_req_tbl.COUNT;
1839: debug(' Total Populated in l_eam_ce_wo_lines_tbl - ' || l_eam_ce_wo_lines_tbl.count);
1840:
1841: -- This block populates the common attributes for all the work order lines
1842: -- Also once all the attribute are populated, it calles
1843: -- EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW
1844: /* IF l_wo_ind > 0 THEN
1845: FOR l_ce_tab_index IN l_eam_ce_wo_lines_tbl.FIRST .. l_eam_ce_wo_lines_tbl.LAST
1846: LOOP
1847:
2801: p_data => x_msg_data);
2802: END SET_ACTIVITIES_FOR_CE;
2803:
2804: --This is a private procedure which will retrive the wo lines for a construction
2805: --estimate from the EAM_CE_WORK_ORDER_LINES table in the proper order based on
2806: --the p_group_option parameter.
2807: --This procedure does not do any error handling, but it may throw error, thus
2808: --the calling procedure should have logic in place to catch possible error thrown
2809: --from this procedure.
2809: --from this procedure.
2810: PROCEDURE GET_CE_WO_LNS_BY_GROUP_OPT(
2811: p_ce_id IN NUMBER,
2812: p_group_option IN VARCHAR2,
2813: x_ce_wo_ln_tbl OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL)
2814: IS
2815: --The group by 'None' option gets the lines in the order they are stored in the table.
2816: CURSOR none_cur IS
2817: SELECT *
2814: IS
2815: --The group by 'None' option gets the lines in the order they are stored in the table.
2816: CURSOR none_cur IS
2817: SELECT *
2818: FROM EAM_CE_WORK_ORDER_LINES
2819: WHERE ESTIMATE_ID = p_ce_id
2820: AND estimate_work_order_line_id NOT IN (SELECT parent_wo_id
2821: FROM EAM_CONSTRUCTION_ESTIMATES
2822: WHERE estimate_id = p_ce_id
2832: -- 3. Display the direct items last, order by di_description
2833: CURSOR general_cur IS
2834: SELECT ECWOL.*,
2835: NVL(ECWOL.OP_SEQ_NUM, ECWOL.SRC_OP_SEQ_NUM) OP_SEQ_NUM_DERIVED
2836: FROM EAM_CE_WORK_ORDER_LINES ECWOL
2837: WHERE ECWOL.ESTIMATE_ID = p_ce_id
2838: AND ECWOL.estimate_work_order_line_id NOT IN (SELECT parent_wo_id
2839: FROM EAM_CONSTRUCTION_ESTIMATES
2840: WHERE estimate_id = p_ce_id
2857: -- 3. Display the direct items last, order by di_description
2858: CURSOR wip_acct_cur IS
2859: SELECT ECWOL.*,
2860: NVL(ECWOL.OP_SEQ_NUM, ECWOL.SRC_OP_SEQ_NUM) OP_SEQ_NUM_DERIVED
2861: FROM EAM_CE_WORK_ORDER_LINES ECWOL
2862: WHERE ECWOL.ESTIMATE_ID = p_ce_id
2863: AND ECWOL.estimate_work_order_line_id NOT IN (SELECT parent_wo_id
2864: FROM EAM_CONSTRUCTION_ESTIMATES
2865: WHERE estimate_id = p_ce_id
2871: ECWOL.RES_SEQ_NUM,
2872: ECWOL.MAT_COMPONENT_SEQ_NUM,
2873: ECWOL.DI_DESCRIPTION;
2874:
2875: l_ce_wo_ln_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_REC;
2876: l_wo_ln_index NUMBER := 0;
2877: BEGIN
2878: IF p_group_option = 'None' THEN
2879: --Populate x_ce_wo_ln_tbl
3131: --from this procedure.
3132: PROCEDURE SET_WO_LNS_FROM_WO_DEFAULTS(
3133: p_ce_wo_defaults IN EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WO_DEFAULTS_REC,
3134: p_group_option IN VARCHAR2,
3135: px_ce_wo_ln_tbl IN OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
3136: )
3137: IS
3138: BEGIN
3139: IF px_ce_wo_ln_tbl.COUNT > 0 THEN
3194: --the calling procedure should have logic in place to catch possible error thrown
3195: --from this procedure.
3196: PROCEDURE RESOLVE_SORT_CONTENTION(
3197: p_group_option IN VARCHAR2,
3198: px_ce_wo_ln_tbl IN OUT NOCOPY EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL
3199: )
3200: IS
3201: l_new_wo_seq_num NUMBER;
3202: l_new_op_seq_num NUMBER;
3429: l_api_version CONSTANT NUMBER := 1.0;
3430: l_debug_filename VARCHAR(50) := G_DEBUG_FILENAME;
3431: l_debug VARCHAR2(1) := 'N';
3432: l_group_option VARCHAR2(80);
3433: l_ce_wo_ln_tbl EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_TBL;
3434: BEGIN
3435: SAVEPOINT UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3436:
3437: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3527:
3528: --Now update the wo lines
3529: IF l_ce_wo_ln_tbl.COUNT > 0 THEN
3530: FOR i IN l_ce_wo_ln_tbl.FIRST..l_ce_wo_ln_tbl.LAST LOOP
3531: EAM_CE_WORK_ORDER_LINES_PKG.UPDATE_ROW(
3532: p_estimate_work_order_line_id => l_ce_wo_ln_tbl(i).ESTIMATE_WORK_ORDER_LINE_ID,
3533: p_estimate_work_order_id => FND_API.G_MISS_NUM,
3534: p_src_cu_id => l_ce_wo_ln_tbl(i).SRC_CU_ID,
3535: p_src_activity_id => l_ce_wo_ln_tbl(i).SRC_ACTIVITY_ID,
3683: msg_index number;
3684: temp_err_mesg varchar2(4000);
3685:
3686:
3687: l_ce_lines_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3688: l_ce_parent_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3689: --l_ce_lines_tbl celines_table_type;
3690:
3691: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3684: temp_err_mesg varchar2(4000);
3685:
3686:
3687: l_ce_lines_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3688: l_ce_parent_rec EAM_CE_WORK_ORDER_LINES%ROWTYPE;
3689: --l_ce_lines_tbl celines_table_type;
3690:
3691: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3692: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
3759: l_eam_direct_items_tbl_1 EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
3760:
3761: CURSOR c_ecwl IS
3762: SELECT *
3763: FROM EAM_CE_WORK_ORDER_LINES
3764: WHERE organization_id = p_organization_id
3765: AND estimate_id = p_estimate_id
3766: AND estimate_work_order_line_id NOT IN (SELECT parent_wo_id
3767: FROM EAM_CONSTRUCTION_ESTIMATES
3897: IF nvl(l_create_parent, 'N') = 'N' THEN
3898: --dbms_output.put_line('create parent no');
3899: SELECT 1
3900: INTO l_wo_seq_exists
3901: FROM EAM_CE_WORK_ORDER_LINES
3902: WHERE organization_id = p_organization_id
3903: AND estimate_id = p_estimate_id
3904: AND work_order_seq_num IS NULL
3905: AND rownum = 1;
3907: ELSE
3908: --dbms_output.put_line('create parent yes');
3909: SELECT 1
3910: INTO l_wo_seq_exists
3911: FROM EAM_CE_WORK_ORDER_LINES
3912: WHERE organization_id = p_organization_id
3913: AND estimate_id = p_estimate_id
3914: AND work_order_seq_num IS NULL
3915: AND estimate_work_order_line_id <> l_parent_job_id
3939: BEGIN
3940: --dbms_output.put_line('3');
3941: SELECT 1
3942: INTO l_wo_exists
3943: FROM EAM_CE_WORK_ORDER_LINES
3944: WHERE organization_id = p_organization_id
3945: AND estimate_id = p_estimate_id
3946: AND estimate_work_order_id IS NOT NULL
3947: AND rownum = 1;
3966: BEGIN
3967: --dbms_output.put_line('5');
3968: SELECT 1
3969: INTO l_noasset
3970: FROM EAM_CE_WORK_ORDER_LINES
3971: WHERE organization_id = p_organization_id
3972: AND estimate_id = p_estimate_id
3973: AND maintenance_object_id IS NULL
3974: AND rownum = 1;
4001: --dbms_output.put_line('Creating parent 2' || l_parent_job_id);
4002: BEGIN
4003: SELECT *
4004: INTO l_ce_parent_rec
4005: FROM EAM_CE_WORK_ORDER_LINES
4006: WHERE estimate_work_order_line_id = l_parent_job_id;
4007: --dbms_output.put_line('Creating parent 3' || l_parent_job_id);
4008:
4009: l_eam_wo_rec := l_eam_empty_wo_rec;
4093: -- ROLLBACK TO CREATE_CU_WORKORDERS;
4094: RAISE FND_API.G_EXC_ERROR;
4095: END IF;
4096:
4097: UPDATE EAM_CE_WORK_ORDER_LINES
4098: SET estimate_work_order_id = l_eam_wo_tbl1(1).wip_entity_id
4099: WHERE estimate_work_order_line_id = l_parent_job_id;
4100:
4101: UPDATE eam_work_order_details
4412: -- Bug 10082577
4413: IF l_eam_wo_tbl1.count > 0 THEN
4414: FOR i IN l_eam_wo_tbl1.FIRST..l_eam_wo_tbl1.LAST LOOP
4415: BEGIN
4416: UPDATE EAM_CE_WORK_ORDER_LINES
4417: SET estimate_work_order_id = l_eam_wo_tbl1(i).wip_entity_id
4418: WHERE work_order_seq_num = l_eam_wo_tbl1(i).batch_id
4419: and estimate_id = p_estimate_id;
4420:
4478:
4479: procedure populate_WO(
4480: p_parent_wo IN NUMBER
4481: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4482: , p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4483: , x_eam_wo_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
4484: , x_return_status OUT NOCOPY VARCHAR2
4485: , x_msg_count OUT NOCOPY NUMBER
4486: , x_msg_data OUT NOCOPY VARCHAR2
4646:
4647: END populate_WO;
4648:
4649: procedure POPULATE_OPERATION(
4650: p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4651: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4652: , x_eam_op_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_rec_type
4653: , x_return_status OUT NOCOPY VARCHAR2
4654: , x_msg_count OUT NOCOPY NUMBER
4730:
4731: END POPULATE_OPERATION;
4732:
4733: procedure POPULATE_RESOURCE(
4734: p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4735: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4736: , x_eam_res_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_res_rec_type
4737: , x_return_status OUT NOCOPY VARCHAR2
4738: , x_msg_count OUT NOCOPY NUMBER
4839:
4840: END POPULATE_RESOURCE;
4841:
4842: procedure POPULATE_MATERIAL(
4843: p_ce_line_rec IN EAM_CE_WORK_ORDER_LINES%ROWTYPE
4844: , p_init_msg_list VARCHAR2 := FND_API.G_FALSE
4845: , x_eam_mat_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_mat_req_rec_type
4846: , x_eam_direct_rec IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_direct_items_rec_type
4847: , x_return_status OUT NOCOPY VARCHAR2
4966:
4967: IS
4968:
4969:
4970: l_est_workorder_line_rec EAM_EST_DATASTRUCTURES_PUB.EAM_CE_WORK_ORDER_LINES_REC;
4971: l_creation_date DATE := SYSDATE;
4972: l_created_by NUMBER := FND_GLOBAL.USER_ID;
4973: l_last_updated_date DATE := SYSDATE;
4974: l_last_updated_by NUMBER := FND_GLOBAL.USER_ID;
4977: l_wo_line_id_seq NUMBER :=0;
4978:
4979: CURSOR SRC_EST_WORKORDER_LINES_CUR IS
4980: SELECT CEWOL.*
4981: FROM EAM_CE_WORK_ORDER_LINES CEWOL
4982: WHERE ESTIMATE_ID = p_src_estimate_id
4983: AND ORGANIZATION_ID = p_org_id
4984: ORDER BY ESTIMATE_WORK_ORDER_LINE_ID;
4985:
4993: BEGIN
4994: SAVEPOINT COPY_EST_WORKBENCH;
4995: -- Copy the following from the src estimate id
4996: -- Estimate Entries in EAM_CONSTRUCTION_ESTIMATES
4997: -- Estimate Work Bench Enteries in EAM_CE_WORK_ORDER_LINES
4998: -- Clear out WO Order Related details
4999:
5000: -- Checking input parameters
5001: IF (p_org_id IS NULL) THEN
5108: -- and work order related details
5109: IF (l_estimate_rec.CREATE_PARENT_WO_FLAG = 'Y' AND
5110: l_parent_estimate_wo_line_id = l_est_workorder_line_rec.ESTIMATE_WORK_ORDER_LINE_ID) THEN
5111:
5112: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
5113:
5114: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
5115: p_estimate_work_order_line_id => l_wo_line_id_seq
5116: ,p_estimate_work_order_id => NULL
5110: l_parent_estimate_wo_line_id = l_est_workorder_line_rec.ESTIMATE_WORK_ORDER_LINE_ID) THEN
5111:
5112: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
5113:
5114: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
5115: p_estimate_work_order_line_id => l_wo_line_id_seq
5116: ,p_estimate_work_order_id => NULL
5117: ,p_src_cu_id => l_est_workorder_line_rec.SRC_CU_ID
5118: ,p_src_activity_id => l_est_workorder_line_rec.SRC_ACTIVITY_ID
5218: p_ATTRIBUTE15 => l_estimate_rec.attribute15
5219: );
5220:
5221: ELSE
5222: EAM_CE_WORK_ORDER_LINES_PKG.INSERT_ROW(
5223: p_estimate_work_order_line_id => NULL
5224: ,p_estimate_work_order_id => NULL
5225: ,p_src_cu_id => l_est_workorder_line_rec.SRC_CU_ID
5226: ,p_src_activity_id => l_est_workorder_line_rec.SRC_ACTIVITY_ID