[Home] [Help]
355: X_ATTRIBUTE15 IN VARCHAR2
356: )
357: IS
358: BEGIN
359: INSERT INTO AHL_WORK_ASSIGNMENTS (
360: ASSIGNMENT_ID,
361: OBJECT_VERSION_NUMBER,
362: LAST_UPDATE_DATE,
363: LAST_UPDATED_BY,
461: )
462: IS
463:
464: BEGIN
465: UPDATE AHL_WORK_ASSIGNMENTS SET
466: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
467: ASSIGNMENT_ID = X_ASSIGNMENT_ID,
468: OPERATION_RESOURCE_ID = X_OPERATION_RESOURCE_ID,
469: EMPLOYEE_ID = X_EMPLOYEE_ID,
516: PROCEDURE DELETE_ROW (
517: X_ASSIGNMENT_ID IN NUMBER
518: ) IS
519: BEGIN
520: DELETE FROM AHL_WORK_ASSIGNMENTS
521: WHERE ASSIGNMENT_ID = X_ASSIGNMENT_ID;
522: END DELETE_ROW;
523:
524: ---------------------------------------------------------------------
1021: -- Check to see schedule Resource id exists
1022: CURSOR Sch_id_exists (x_id IN NUMBER) IS
1023: SELECT 1 FROM dual
1024: WHERE EXISTS (SELECT 1
1025: FROM AHL_WORK_ASSIGNMENTS
1026: WHERE ASSIGNMENT_ID = x_id);
1027:
1028: /*CURSOR c_oper_resrc (x_id IN NUMBER, x_oper IN NUMBER, x_resrc IN NUMBER) IS
1029: SELECT requirement_id, operation_id, resource_id FROM AHL_PP_REQUIREMENT_V
1824: END IF;
1825:
1826: --
1827: -- Get Sequence Number for Resource Assignment ID
1828: SELECT AHL_WORK_ASSIGNMENTS_S.NEXTVAL
1829: INTO l_assignment_id FROM DUAL;
1830:
1831: --Check for Record Exists
1832: OPEN Sch_id_exists(l_assignment_id);
2006: )
2007: IS
2008: -- To find all information from AHL_OPERATION_RESOURCES view
2009: CURSOR c_assign (x_id IN NUMBER) IS
2010: SELECT * FROM AHL_WORK_ASSIGNMENTS
2011: WHERE ASSIGNMENT_ID = x_id;
2012: c_assign_rec c_assign%ROWTYPE;
2013:
2014: /*CURSOR c_resource (x_id IN NUMBER) IS
2021: WOP.workorder_id job_id,
2022: BOM.resource_type resource_type_code,
2023: OPR.resource_id
2024: FROM ahl_operation_resources OPR,
2025: ahl_work_assignments WOA,
2026: ahl_workorder_operations WOP,
2027: bom_resources BOM
2028: WHERE OPR.operation_resource_id = WOA.operation_resource_id
2029: AND OPR.workorder_operation_id = WOP.workorder_operation_id
2911: IS
2912: -- Get the current record
2913: CURSOR get_resrc_assign_cur(c_assign_id IN NUMBER)
2914: IS
2915: SELECT * FROM AHL_WORK_ASSIGNMENTS
2916: WHERE assignment_id = c_assign_id;
2917:
2918: -- Get the workorder details
2919: /*CURSOR get_resource_details (c_oper_resource_id IN NUMBER)
3097: IF p_x_resrc_assign_tbl.count > 0 THEN
3098: FOR i IN p_x_resrc_assign_tbl.FIRST..p_x_resrc_assign_tbl.LAST
3099: LOOP
3100: --
3101: DELETE FROM AHL_WORK_ASSIGNMENTS
3102: WHERE ASSIGNMENT_ID = p_x_resrc_assign_tbl(i).assignment_id;
3103: --
3104: END LOOP;
3105: END IF;