[Home] [Help]
107: )
108: )
109: )
110: INTO l_file_dir
111: FROM dual;
112:
113: -- check if the dir is valid
114: BEGIN
115: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');
3342: BEGIN
3343:
3344: SELECT AHL_WORKORDERS_S.NEXTVAL
3345: INTO p_x_prd_workorder_rec.WORKORDER_ID
3346: FROM DUAL;
3347:
3348: IF p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG = 'Y' AND p_x_prd_workorder_rec.VISIT_TASK_ID IS NULL THEN
3349: -- As per ER 4460913
3350: -- AVIKUKUM ::Bug #9002741 :: 30-NOV-2010
3370: WHERE ORGANIZATION_ID=p_x_prd_workorder_rec.ORGANIZATION_ID;
3371:
3372: SELECT p_x_prd_workorder_rec.JOB_NUMBER||TO_CHAR(AHL_WORKORDER_JOB_S.NEXTVAL)
3373: INTO p_x_prd_workorder_rec.JOB_NUMBER
3374: FROM DUAL;
3375:
3376: --Adithya added for Accounting class bug#
3377: IF p_x_prd_workorder_rec.CLASS_CODE is NULL and p_x_prd_workorder_rec.ROUTE_ID IS NOT NULL THEN
3378: OPEN get_route_acc_class_code(p_x_prd_workorder_rec.ROUTE_ID);
11107: --allow cancelation if wo status is 1, 3 or 7
11108: --added status '17' for USAF VWPE Enh. Visit can now contain a mix of draft and released/unreleased work orders.
11109: CURSOR wo_status_csr( c_visit_id NUMBER ) IS
11110: select 'x'
11111: from dual
11112: where exists (select 'x' from ahl_workorders
11113: where visit_id = c_visit_id
11114: and status_code NOT IN ('1','3','7', '17')
11115: );
11116:
11117: --allow cancelation if no operation is complete
11118: CURSOR op_complete_csr( c_visit_id NUMBER ) IS
11119: select 'x'
11120: from dual
11121: where exists (select 'x'
11122: from ahl_workorders awo, ahl_workorder_operations awop
11123: where awo.workorder_id = awop.workorder_id
11124: and awo.visit_id = c_visit_id
11127:
11128: --allow cancelation if no parts change txn
11129: CURSOR part_chg_txn_csr( c_visit_id NUMBER ) IS
11130: select 'x'
11131: from dual
11132: where exists (select 'x'
11133: from ahl_workorders awo, ahl_workorder_operations awop, ahl_part_changes apc
11134: where awo.workorder_id = awop.workorder_id
11135: and awop.workorder_operation_id = apc.workorder_operation_id
11139: /* Not required as wo_material_csr and part_chg_txn_csr will cover this
11140: * validation and wo_material_csr applies across the Visit.
11141: CURSOR tracked_material_csr( c_visit_id NUMBER ) IS
11142: select 'x'
11143: from dual
11144: where exists (select 'x'
11145: from ahl_workorders awo, csi_item_instances cii
11146: where awo.wip_entity_id = cii.wip_job_id
11147: and cii.location_type_code = 'WIP'
11153:
11154: --allow cancelation if no resource txns done
11155: CURSOR resource_txn_csr( c_visit_id NUMBER ) IS
11156: select 'x'
11157: from dual
11158: where exists (select 'x'
11159: from ahl_workorders awo, wip_transactions wipt
11160: where awo.wip_entity_id = wipt.wip_entity_id
11161: and awo.visit_id = c_visit_id
11169:
11170: --allow cancelation if no item/serial change txns present.
11171: CURSOR item_chg_txn_csr(c_visit_id NUMBER ) IS
11172: SELECT 'x'
11173: FROM dual
11174: WHERE EXISTS
11175: ( SELECT 'X'
11176: FROM csi_transactions cst ,
11177: csi_txn_types cstrntyp,