The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
plans.organization_id,
plans.sr_instance_id,
plans.compile_designator
INTO
l_OrgId,
l_InsId,
l_PlanName
FROM
msc_plans plans,
msc_designators desig
WHERE
plans.organization_id = desig.organization_id AND
plans.sr_instance_id = desig.sr_instance_id AND
plans.compile_designator = desig.designator AND
NVL(desig.disable_date, TRUNC(SYSDATE) + 1) > TRUNC(SYSDATE) AND
plans.organization_selection <> 1 AND
plans.curr_plan_type in (1,2,3,4,5,8,9) AND
plans.plan_completion_date IS NOT NULL AND
plans.data_completion_date IS NOT NULL AND
plans.plan_id <> -1 AND
( (plans.curr_plan_type in (1,2,3,4,8,9) AND
plans.organization_selection <> 1) or
plans.curr_plan_type = 5 ) AND
NVL(plans.copy_plan_id,-1) = -1 AND
NVL(desig.copy_designator_id, -1) = -1 AND
plans.plan_id = PlanId;
SELECT 1 INTO l_Dummy
FROM
msc_plans plans
WHERE
plans.organization_id = OrgId AND
plans.sr_instance_id = InsId AND
plans.compile_designator = PlanName;
FUNCTION GET_DEST_ORG_SELECTION(
OrgId IN NUMBER,
InsId IN NUMBER,
PlanName IN VARCHAR2
) RETURN NUMBER AS
l_Dest_OrgSel NUMBER;
SELECT organization_selection INTO l_Dest_OrgSel
FROM msc_designators
WHERE
designator = PlanName AND
organization_id = OrgId AND
sr_instance_id = InsId;
END GET_DEST_ORG_SELECTION;
SELECT
designator_id INTO l_DesignatorId
FROM
msc_designators
WHERE
designator_id = DesignatorId AND
nvl(copy_designator_id,-1) = -1 AND
(
-- 2,3,4 for ASCP. 8 is DRP. 11 is SRP
( designator_type IN (2, 3, 4, 8, 11) AND nvl(collected_flag,2) <> 1 ) OR
-- IO plan
/*
This decode statement is copied from the 'Name' form of IO plan.
Will come back and re-look at this decode, it always returns 5,
why?
*/
( designator_type = decode(4, 1,3,2,2,3,4,4,5,9,12) )
);
SELECT NVL(archive_flag, 2)
INTO ArchiveFlag
FROM
msc_plans plans,
msc_designators desig
WHERE
plans.organization_id = desig.organization_id AND
plans.sr_instance_id = desig.sr_instance_id AND
plans.compile_designator = desig.designator AND
NVL(desig.disable_date, TRUNC(SYSDATE) + 1) > TRUNC(SYSDATE) AND
plans.organization_selection <> 1 AND
plans.curr_plan_type in (1,2,3,4,5,8,9) AND
plans.plan_completion_date IS NOT NULL AND
plans.data_completion_date IS NOT NULL AND
plans.plan_id <> -1 AND
( (plans.curr_plan_type in (1,2,3,4,8,9) AND
plans.organization_selection <> 1) or
plans.curr_plan_type = 5 ) AND
NVL(plans.copy_plan_id,-1) = -1 AND
NVL(desig.copy_designator_id, -1) = -1 AND
plans.plan_id = PlanId;
l_DestOrgSelection NUMBER;
l_DestOrgSelection := GET_DEST_ORG_SELECTION(l_OrgId, l_InsId, l_SrcPlanName);
SELECT curr_plan_type INTO l_PlanType
FROM msc_plans
WHERE plan_id = SrcPlanId;
argument4 => l_DestOrgSelection,
argument5 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestATP),
argument6 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestProd),
argument7 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestNoti),
argument8 => to_char(DestInacOn, 'DD-MM-YYYY'),
argument9 => l_OrgId,
argument10 => l_InsId
);
UPDATE msc_designators
SET disable_date = sysdate
WHERE designator_id = DesignatorId;