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