PACKAGE F25FORM1_PKG AS
TYPE type_refcursor IS REF CURSOR;
PROCEDURE GETPsn_1st(
P_FORMKIND in VARCHAR2,
P_FORMNO in NUMBER,
O_RESULT out type_refcursor
);
END F25FORM1_PKG;
PACKAGE BODY F25FORM1_PKG AS
PROCEDURE GETPsn_1st(
P_FORMKIND in VARCHAR2,
P_FORMNO in NUMBER,
O_RESULT out type_refcursor
) AS
BEGIN
OPEN O_RESULT FOR
SELECT P.FLOWER_EMP_ID AS APPROVER_ID,'3' AS SEQUENCE_NO, '1st Line Manager' AS APPROVER_ROLE
FROM EHR.ORGMULRECORDS@EHR_LINK K
INNER JOIN EHR.ORGStdStruct@EHR_LINK O ON K.UNITID = O.UNITID
INNER JOIN EHR.PSNACCOUNT@EHR_LINK P ON P.PERSONID = K.PERSONID
WHERE K.EMPTYPE = '56_5' AND O.MANAGEUNIT = '259f1fd7-7103-41ff-9498-17395b75189f'
AND O.UNITCODE IN (SELECT SUBSTR(UNIT_CODE,1,4) AS UNIT_CODE FROM F25FORM1 WHERE FORM_NO = P_FORMNO);
END;
END F25FORM1_PKG;