Ref cursor stopped returning values for the output.

Question

Hi Everyone,
My DB version is
BANNER                                                        
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - 64bi
PL/SQL Release 10.2.0.1.0 - Production                          
CORE 10.2.0.1.0 Production                                        
TNS for Linux: Version 10.2.0.1.0 - Production                  
NLSRTL Version 10.2.0.1.0 - Production  
Please do have a look at the code, and let me know where I've gone wrong, because select query is fetching data. Previously procedure was returning values too through ref cursor. Please correct me where I've gone wrong.
create or replace
PROCEDURE
SPL_SPN_MISSING_EMR_AOE_DTL (IN_PATIENT_ID            NUMBER,
                             IN_FACILITY_ID           NUMBER,
                             IN_DRAW_DT               DATE,
                             IN_REQUISITION_NUMBER    ORDER_REQUISITION_HEADER.REQUISITION_NUMBER%TYPE,
                             IN_CORP_ACRONYM          CORPORATION.CORPORATION_ACRONYM%TYPE,
                             IN_ABCDEF_MRN           PATIENT.ABCDEF_MRN%TYPE,
                             IN_ACCOUNT_NUMBER        FACILITY_ACCOUNT_DETAIL.ACCOUNT_NUMBER%TYPE,
                             IN_HLAB_NUM              FACILITY_ACCOUNT_DETAIL.HLAB_NUM%TYPE,
                             OV_COMMENTS              OUT   VARCHAR2,
                             OR_QUES_AND_ANS          OUT   SYS_REFCURSOR) AS                               
*  Copyright (C) 2013 ABCDEF Laboratories
*  All Rights Reserved
*  This Work Contains Trade Secrets And Confidential Material Of
*  ABCDEF Laboratories., And Its Use Of Disclosure In Whole Or In Part
*  Without Express Written Permission Of ABCDEF Laboratories Is Prohibited.
*  Company              : ABCDEF Laboratories
*  Project              : ABCDEF Scorpion
*  Name                 : SPL_SPN_MISSING_EMR_AOE_DTL
* In Parameters         : In_Patient_Id            Number
*                         In_Facility_Id           Number
*                         In_Draw_Dt               Date
*                         In_Requisition_Number    Order_Requisition_Header.Requisition_Number%Type,
*                         In_Corp_Acronym          Corporation.Corporation_Acronym%Type
*                         In_ABCDEF_Mrn           Patient.ABCDEF_Mrn%Type
*                         In_Account_Number        Facility_Account_Detail.Account_Number%Type
*                         In_Hlab_Num              Facility_Account_Detail.Hlab_Num%Type
* Out Parameters        : OV_COMMENTS           Out   Varchar2
*                         OR_QUES_AND_ANS       Out   Sys_Refcursor
* Description           : This Procedure Will Fetch The Mising Emr Aoe Detail And Provide
*                         Necessary Comments As Well.
* Modification History  :
*   Date       Version No.        Author                 Description
* 21/01/2014      1.0            ABCDEF               Initial Version  
* 27/01/2014      1.1            ABCDEF               Restricted the output for duplicate questions
*                                                     and answers, partially answered AOE. Also renamed
*                                                     the output variable names.
    CC_PACKAGE_NAME             CONSTANT VARCHAR2(50)  := 'SPL_SPN_MISSING_EMR_AOE_DTL';   
    CC_PROCEDURE_NAME           CONSTANT VARCHAR2(50)  := 'SPL_SPN_MISSING_EMR_AOE_DTL';
    VC_AVL_PAT_QUES             VARCHAR2(1000);
    VC_DUP_PAT_QUES             VARCHAR2(1000);
    VC_ACTUAL_QUES              VARCHAR2(1000);
    VC_ACTUAL_QUES_CNT          NUMBER:= 0;
    VR_QUES_AND_ANS             SYS_REFCURSOR;
    VN_AVL_PAT_QUES_CNT         NUMBER := 0;
    VN_DUP_PAT_QUES_CNT         NUMBER := 0;
    VN_EXACT_PAT_ID_CNT         NUMBER := 0;
    VN_DUPL_PAT_ID              NUMBER := 0;
    VN_EXTERNAL_ID              PATIENT.EXTERNAL_ID%TYPE;
    VC_OBX_QUES                 VARCHAR2(1000);
    VC_OBX_QUES_CNT             NUMBER := 0;
    VN_OBX_QUES_CNT             NUMBER := 0;
    PAT_EXTERNAL_ID             PATIENT.EXTERNAL_ID%TYPE;
    VC_EXACT_BOOLEAN_VAL        VARCHAR2(10) := 'FALSE';
    VC_EXACT_PAR_BOOLEAN_VAL    VARCHAR2(10) := 'FALSE';
    VC_DUPL_BOOLEAN_VAL         VARCHAR2(10) := 'FALSE';
    VC_DUPL_PAR_BOOLEAN_VAL     VARCHAR2(10) := 'FALSE';
    VC_REJECTED_BOOLEAN_VAL     VARCHAR2(10) := 'FALSE';
    VC_REJECTED_PAR_BOOLEAN_VAL VARCHAR2(10) := 'FALSE';
    VC_COMMENTS                 VARCHAR2(100);
    VC_PAR_COMMENTS             VARCHAR2(100);
    VC_RETURN_EXACT_PAT         CHAR(1) := 'N';
    VC_RETURN_DUPL_PAT          CHAR(1) := 'N';
    VC_RETURN_REJECT_PAT        CHAR(1) := 'N';
    VC_CHK_FOR_EXT_ID           CHAR(1) := 'N';
    VN_MAX_MSG_ID               INTERFACE_A04_OBX_SEGMENT.MSG_ID%TYPE;
    VN_MAX_COUNT                NUMBER := 0;
    VN_ITERATION_RUN            NUMBER := 0;
BEGIN
   SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                  (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IN_BATCH_ID        => '100'
                  ,IC_MESSAGE_TEXT    => 'Start of the procedure with Patient_Id:'||IN_PATIENT_ID||' Facility_Id:'||IN_FACILITY_ID||
                                         ' Draw_Dt:'||IN_DRAW_DT||' Requisition_Number:'||IN_REQUISITION_NUMBER||' Corp_Acronym:'||IN_CORP_ACRONYM||
                                         ' ABCDEF_Mrn:'||IN_ABCDEF_MRN||' Account_Number:'||IN_ACCOUNT_NUMBER||' Hlab_Num:'||IN_HLAB_NUM);
    <<AOE_TEST_LOOP>>
    FOR AOE_REC IN (SELECT ORD.TEST_ID
                        FROM ORDER_REQUISITION_DETAIL ORD
                       WHERE ORD.REQUISITION_HDR_ID = (SELECT ORH.REQUISITION_HDR_ID
                                                         FROM ORDER_REQUISITION_HEADER ORH
                                                        WHERE ORH.REQUISITION_NUMBER = IN_REQUISITION_NUMBER)
                        AND ORD.TEST_CODE IN (SELECT TEST_CODE FROM INTERFACE_ADT_AOE_MASTER WHERE SOURCE_SYSTEM = IN_CORP_ACRONYM))
        LOOP
            VN_ITERATION_RUN := VN_ITERATION_RUN + 1;
            SELECT COUNT(DISTINCT PATIENT_ID)
            INTO VN_EXACT_PAT_ID_CNT
            FROM EMR_ADTAOE_DTL
            WHERE PATIENT_ID  = IN_PATIENT_ID
            AND   TEST_ID = AOE_REC.TEST_ID
            AND   FACILITY_ID = IN_FACILITY_ID   
            AND   (DRAW_DATE   = IN_DRAW_DT
                OR DRAW_DATE   = TO_DATE('2999/12/31','YYYY/MM/DD'))
            AND   SOURCE_SYSTEM = IN_CORP_ACRONYM ;
            --Collecting all questions in interface_adt_aoe_master
            SELECT STRAGG(SUB1.QUESTION_CODE), COUNT(SUB1.QUESTION_CODE)
            INTO VC_ACTUAL_QUES, VC_ACTUAL_QUES_CNT
            FROM (SELECT DISTINCT QUESTION_CODE FROM INTERFACE_ADT_AOE_MASTER
                  WHERE TEST_CODE = (SELECT TEST_CODE FROM TEST WHERE TEST_ID = AOE_REC.TEST_ID)
                  AND   SOURCE_SYSTEM = IN_CORP_ACRONYM
                  ORDER BY QUESTION_CODE) SUB1;
             SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                          (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                          ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                          ,IN_BATCH_ID        => '100'
                          ,IC_MESSAGE_TEXT    => 'vc_actual_ques:'||VC_ACTUAL_QUES ||
                                                 ' vn_exact_pat_id_cnt:'||VN_EXACT_PAT_ID_CNT||
                                                 ' aoe_rec.test_id:'||AOE_REC.TEST_ID||
                                                 ' VN_ITERATION_RUN:'||VN_ITERATION_RUN);
            <<MAIN_IF_BLOCK>>
            IF
                VN_EXACT_PAT_ID_CNT = 1 AND
                VN_ITERATION_RUN    >= 1 THEN               
                --Collecting avaliable questions in emr_adtaoe_dtl               
                SELECT STRAGG(SUB.QUESTION_CODE), COUNT(DISTINCT SUB.QUESTION_CODE)
                INTO VC_AVL_PAT_QUES, VN_AVL_PAT_QUES_CNT
                FROM (SELECT DISTINCT QUESTION_CODE FROM EMR_ADTAOE_DTL
                      WHERE TEST_ID = AOE_REC.TEST_ID
                      AND   PATIENT_ID  = IN_PATIENT_ID
                      AND   FACILITY_ID = IN_FACILITY_ID
                      AND   (DRAW_DATE   = IN_DRAW_DT
                          OR DRAW_DATE   = TO_DATE('2999/12/31','YYYY/MM/DD'))
                      AND   SOURCE_SYSTEM = IN_CORP_ACRONYM
                      AND   ANSWER IS NOT NULL
                      ORDER BY QUESTION_CODE) SUB;
                SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                  (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IN_BATCH_ID        => '100'
                  ,IC_MESSAGE_TEXT    => 'vc_avl_pat_ques:'||VC_AVL_PAT_QUES||
                                         ' vn_avl_pat_ques_cnt:'||VN_AVL_PAT_QUES_CNT);
                <<CASE_1_AND_2>>
                IF
                    VC_AVL_PAT_QUES = VC_ACTUAL_QUES THEN
                    VC_EXACT_BOOLEAN_VAL := 'TRUE';
                    VC_COMMENTS := 'AOE AVAILABLE';
                ELSIF--<<case_1_and_2>>
                    (VC_AVL_PAT_QUES != VC_ACTUAL_QUES OR VC_AVL_PAT_QUES IS NULL) AND
                    VN_AVL_PAT_QUES_CNT >= 0 THEN
                    VC_EXACT_PAR_BOOLEAN_VAL := 'TRUE';
                    VC_PAR_COMMENTS := 'PARTIAL AOE AVAILABLE';
                END IF;--<<case_1_and_2>>
            ELSIF
                VN_EXACT_PAT_ID_CNT = 0 AND
                VN_ITERATION_RUN    > 1 THEN 
                VC_EXACT_PAR_BOOLEAN_VAL := 'TRUE';
                VC_PAR_COMMENTS := 'PARTIAL AOE AVAILABLE';
            ELSIF--<<Main_if_block>>
                VN_EXACT_PAT_ID_CNT = 0 THEN
                <<DUPL_PAT_LOOP>>
                FOR PAT_ID_REC IN(SELECT DISTINCT PATIENT_ID
                                  FROM PATIENT P
                                  WHERE P.ABCDEF_MRN = IN_ABCDEF_MRN
                                  AND EXISTS(SELECT 1 FROM EMR_ADTAOE_DTL EAD
                                             WHERE EAD.PATIENT_ID  = P.PATIENT_ID
                                             AND   EAD.TEST_ID     = AOE_REC.TEST_ID
                                             AND   EAD.FACILITY_ID = IN_FACILITY_ID
                                             AND  (EAD.DRAW_DATE  = IN_DRAW_DT
                                                OR EAD.DRAW_DATE  = TO_DATE('2999/12/31','YYYY/MM/DD'))
                                             AND   EAD.SOURCE_SYSTEM   = IN_CORP_ACRONYM)
                                  AND P.PATIENT_ID != IN_PATIENT_ID)
                LOOP
                    --Collecting avaliable questions in emr_adtaoe_dtl
                    SELECT STRAGG(SUB.QUESTION_CODE), COUNT(QUESTION_CODE)
                    INTO VC_DUP_PAT_QUES, VN_DUP_PAT_QUES_CNT
                    FROM (SELECT QUESTION_CODE FROM EMR_ADTAOE_DTL   
                           WHERE TEST_ID     = AOE_REC.TEST_ID
                           AND   PATIENT_ID  = PAT_ID_REC.PATIENT_ID
                           AND   FACILITY_ID = IN_FACILITY_ID
                           AND   (DRAW_DATE   = IN_DRAW_DT
                               OR DRAW_DATE   = TO_DATE('2999/12/31','YYYY/MM/DD'))
                           AND   SOURCE_SYSTEM = IN_CORP_ACRONYM
                           AND   ANSWER IS NOT NULL
                           ORDER BY QUESTION_CODE) SUB;
                    <<CASE_3_AND_4>>
                    IF 
                        VC_DUP_PAT_QUES = VC_ACTUAL_QUES THEN
                        VC_DUPL_BOOLEAN_VAL  := 'TRUE';
                        VC_COMMENTS := 'AOE AVAILABLE FOR DUPLICATE PATIENT';
                    ELSIF
                        VC_DUP_PAT_QUES != VC_ACTUAL_QUES AND
                        VN_DUP_PAT_QUES_CNT >= 0 THEN
                        VC_DUPL_PAR_BOOLEAN_VAL := 'TRUE';
                        VC_PAR_COMMENTS := 'PARTIAL AOE AVAILABLE FOR DUPLICATE PATIENT';
                    END IF;--<<case_3_and_4>>
                    VN_DUPL_PAT_ID := PAT_ID_REC.PATIENT_ID;
                    SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                              (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                              ,IC_PROCEDURE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                              ,IN_BATCH_ID        => '100'
                              ,IC_MESSAGE_TEXT    => 'vc_dup_pat_ques:'||VC_DUP_PAT_QUES||
                                                     ' vn_dup_pat_ques_cnt:'||VN_DUP_PAT_QUES_CNT||
                                                     ' VC_COMMENTS:'||VC_COMMENTS||
                                                     ' VC_PAR_COMMENTS:'||VC_PAR_COMMENTS);
                END LOOP DUPL_PAT_LOOP;
                VC_CHK_FOR_EXT_ID := 'Y';
                IF
                  VC_CHK_FOR_EXT_ID = 'Y' THEN
                  <<EXTERNAL_ID_LOOP>>
                  FOR P_PAT_EXT_ID_REC IN (SELECT DISTINCT P.EXTERNAL_ID
                                             FROM PATIENT P
                                            WHERE P.ABCDEF_MRN = IN_ABCDEF_MRN
                                              AND P.EXTERNAL_ID IS NOT NULL)
                  LOOP 
                      INSERT INTO TT_A04_OBX_QUES_ANS_DTL
                      (SELECT IAOBX.MSG_ID, IAOBX.OBSERVATION_IDENTIFIER, IAOBX.OBSERVATION_VALUE, IAM.UOM
                        FROM INTERFACE_A04_OBX_SEGMENT IAOBX, INTERFACE_ADT_AOE_MASTER IAM
                        WHERE IAOBX.OBSERVATION_IDENTIFIER = IAM.QUESTION_CODE
                        AND   (IAOBX.OBSERVATION_DTM  = TO_CHAR(IN_DRAW_DT,'YYYYMMDD')
                            OR IAOBX.OBSERVATION_DTM = TO_CHAR(TO_DATE('2999/12/31','YYYY/MM/DD'),'YYYYMMDD'))
                        AND   IAOBX.MSG_ID IN (SELECT IPID.MSG_ID
                                                 FROM   INTERFACE_A04_PID_SEGMENT IPID
                                                WHERE   IPID.PATIENT_ID_EXTERNAL  = P_PAT_EXT_ID_REC.EXTERNAL_ID
                                                  AND   IPID.MSG_ID IN (SELECT IMSH.MSG_ID
                                                                         FROM  INTERFACE_A04_MSH_SEGMENT IMSH
                                                                         WHERE (TRIM('W' FROM SUBSTR(IMSH.SENDING_FACILITY,5,LENGTH(IMSH.SENDING_FACILITY))) = IN_ACCOUNT_NUMBER
                                                                             OR SUBSTR(IMSH.SENDING_FACILITY,2,LENGTH(IMSH.SENDING_FACILITY))    = IN_HLAB_NUM))));
                      BEGIN
                        SELECT STRAGG(SUB3.OBSERVATION_IDENTIFIER), COUNT(OBSERVATION_IDENTIFIER)
                        INTO VC_OBX_QUES, VC_OBX_QUES_CNT
                        FROM (SELECT DISTINCT OBSERVATION_IDENTIFIER
                              FROM TT_A04_OBX_QUES_ANS_DTL
                              ORDER BY OBSERVATION_IDENTIFIER)SUB3;
                         IF
                            VC_OBX_QUES = VC_ACTUAL_QUES THEN
                            VC_COMMENTS := 'AOE RECEIVED IN A REJECTED ADT';
                            VC_REJECTED_BOOLEAN_VAL := 'TRUE';
                         ELSIF
                            VC_OBX_QUES != VC_ACTUAL_QUES AND
                            VC_OBX_QUES_CNT > 0 THEN
                            VC_PAR_COMMENTS := 'PARTIAL AOE RECEIVED IN A REJECTED ADT';
                            VC_REJECTED_PAR_BOOLEAN_VAL := 'TRUE';
                         END IF;
                        VN_EXTERNAL_ID := P_PAT_EXT_ID_REC.EXTERNAL_ID;
                    EXCEPTION
                      WHEN NO_DATA_FOUND THEN
                        VC_REJECTED_BOOLEAN_VAL := 'FALSE';
                        VC_REJECTED_PAR_BOOLEAN_VAL := 'FALSE';
                    END;
                     SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                                (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IC_PROCEDURE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IN_BATCH_ID        => '100'
                                ,IC_MESSAGE_TEXT    => 'vc_obx_ques:'||VC_OBX_QUES||
                                                       ' vc_obx_ques_cnt:'||VC_OBX_QUES_CNT);
                  END LOOP EXTERNAL_ID_LOOP;
                END IF;
            END IF;--<<Main_if_block>>
      END LOOP AOE_TEST_LOOP;
  --Returning output as per the execution result.
  IF
     VC_EXACT_BOOLEAN_VAL = 'TRUE' AND
     VC_EXACT_PAR_BOOLEAN_VAL = 'FALSE' THEN
     OV_COMMENTS := VC_COMMENTS;
     VC_DUPL_BOOLEAN_VAL         := NULL;
     VC_DUPL_PAR_BOOLEAN_VAL     := NULL;
     VC_REJECTED_BOOLEAN_VAL     := NULL;
     VC_REJECTED_PAR_BOOLEAN_VAL := NULL;
     VC_RETURN_EXACT_PAT := 'Y';
  ELSIF
     --VC_EXACT_BOOLEAN_VAL = 'TRUE' AND
     VC_EXACT_PAR_BOOLEAN_VAL = 'TRUE' THEN
     OV_COMMENTS := VC_PAR_COMMENTS;
     VC_DUPL_BOOLEAN_VAL         := NULL;
     VC_DUPL_PAR_BOOLEAN_VAL     := NULL;
     VC_REJECTED_BOOLEAN_VAL     := NULL;
     VC_REJECTED_PAR_BOOLEAN_VAL := NULL;
     VC_RETURN_EXACT_PAT := 'Y';
  END IF;
  IF
    VC_RETURN_EXACT_PAT = 'Y' THEN
    --Returning result set (OV_COMMENTS,Question and Answer) for the exact patient.(Case 1 (AOE) and 2 (PARTIAL AOE))
    SELECT MAX (SUB.COUNT_QUES_ANS)
    INTO VN_MAX_COUNT FROM (SELECT COUNT(*) OVER (PARTITION BY EAD.QUESTION_CODE, EAD.ANSWER) AS COUNT_QUES_ANS
                            FROM  EMR_ADTAOE_DTL EAD , INTERFACE_ADT_AOE_MASTER IAM, TEST T
                            WHERE T.TEST_ID = EAD.TEST_ID
                            AND   IAM.TEST_CODE = T.TEST_CODE
                            AND   EAD.SOURCE_SYSTEM = IAM.SOURCE_SYSTEM
                            AND   EAD.QUESTION_CODE = IAM.QUESTION_CODE
                            AND   EAD.PATIENT_ID    = IN_PATIENT_ID
                            AND   EAD.FACILITY_ID   = IN_FACILITY_ID
                            AND   (TRUNC(EAD.DRAW_DATE)   = IN_DRAW_DT
                                  OR TRUNC(EAD.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                            AND   EAD.SOURCE_SYSTEM = IN_REQUISITION_NUMBER) SUB;
     IF
        VN_MAX_COUNT > 1 THEN
        SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                                (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IN_BATCH_ID        => '100'
                                ,IC_MESSAGE_TEXT    => 'exact patient duplicate scenario'||' vn_max_count:'||VN_MAX_COUNT);
        OPEN VR_QUES_AND_ANS FOR                                 
        SELECT DISTINCT IAM.QUESTION_CODE,
              (SELECT DISTINCT CASE
                               WHEN EAD.ANSWER IS NULL THEN NULL
                               WHEN LENGTH(TRIM(TRANSLATE(EAD.ANSWER, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', ' '))) IS NULL THEN EAD.ANSWER
                               ELSE TO_CHAR(TRUNC(EAD.ANSWER *  DECODE(UPPER(IAM.UOM), 'KGS', 2.20462,1),2))
                               END
                FROM  EMR_ADTAOE_DTL EAD , TEST T
                WHERE T.TEST_ID = EAD.TEST_ID
                AND   IAM.TEST_CODE = T.TEST_CODE
                AND   EAD.SOURCE_SYSTEM = IAM.SOURCE_SYSTEM
                AND   EAD.QUESTION_CODE = IAM.QUESTION_CODE
                AND   EAD.PATIENT_ID    = IN_PATIENT_ID
                AND   EAD.FACILITY_ID   = IN_FACILITY_ID
                AND   (TRUNC(EAD.DRAW_DATE)    = IN_DRAW_DT
                        OR TRUNC(EAD.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                AND   EAD.SOURCE_SYSTEM = IN_CORP_ACRONYM
                AND   EAD.ANSWER IS NOT NULL
                AND   EAD.STATUS = DECODE(IAM.MATCH_TYPE, 'AT', EAD.STATUS, 'N')
                ) AS ANSWER
        FROM INTERFACE_ADT_AOE_MASTER IAM
        WHERE IAM.SOURCE_SYSTEM = IN_CORP_ACRONYM
        AND IAM.TEST_CODE IN  (SELECT ORD.TEST_CODE
                                 FROM ORDER_REQUISITION_DETAIL ORD
                                WHERE ORD.REQUISITION_HDR_ID = (SELECT ORH.REQUISITION_HDR_ID
                                                                  FROM ORDER_REQUISITION_HEADER ORH
                                                                 WHERE ORH.REQUISITION_NUMBER = IN_REQUISITION_NUMBER)   
                                AND EXISTS (SELECT 1 FROM EMR_ADTAOE_DTL EAD1, INTERFACE_ADT_AOE_MASTER IAM1, TEST T1
                                             WHERE  ORD.TEST_ID = EAD1.TEST_ID
                                              AND   IAM1.TEST_CODE = T1.TEST_CODE
                                              AND   EAD1.SOURCE_SYSTEM = IAM1.SOURCE_SYSTEM
                                              AND   EAD1.QUESTION_CODE = IAM1.QUESTION_CODE
                                              AND   EAD1.PATIENT_ID    = IN_PATIENT_ID
                                              AND   EAD1.FACILITY_ID   = IN_FACILITY_ID
                                              AND   (TRUNC(EAD1.DRAW_DATE)    = IN_DRAW_DT
                                                    OR TRUNC(EAD1.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                                              AND   EAD1.SOURCE_SYSTEM = IN_CORP_ACRONYM
                                              AND   EAD1.ANSWER IS NOT NULL
                                              AND   EAD1.STATUS = DECODE(IAM1.MATCH_TYPE, 'AT', EAD1.STATUS, 'N')));
     ELSIF
       VN_MAX_COUNT = 1 THEN
       SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                                (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IN_BATCH_ID        => '100'
                                ,IC_MESSAGE_TEXT    => 'exact patient unique scenario'||' vn_max_count:'||VN_MAX_COUNT);
       OPEN VR_QUES_AND_ANS FOR                                 
       SELECT DISTINCT IAM.QUESTION_CODE,
              (SELECT DISTINCT CASE
                               WHEN EAD.ANSWER IS NULL THEN NULL
                               WHEN LENGTH(TRIM(TRANSLATE(EAD.ANSWER, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', ' '))) IS NULL THEN EAD.ANSWER
                               ELSE TO_CHAR(TRUNC(EAD.ANSWER *  DECODE(UPPER(IAM.UOM), 'KGS', 2.20462,1),2))
                               END
                FROM  EMR_ADTAOE_DTL EAD , TEST T
                WHERE T.TEST_ID = EAD.TEST_ID
                AND   IAM.TEST_CODE = T.TEST_CODE
                AND   EAD.SOURCE_SYSTEM = IAM.SOURCE_SYSTEM
                AND   EAD.QUESTION_CODE = IAM.QUESTION_CODE
                AND   EAD.PATIENT_ID    = IN_PATIENT_ID
                AND   EAD.FACILITY_ID   = IN_FACILITY_ID
                AND   (TRUNC(EAD.DRAW_DATE)    = IN_DRAW_DT
                        OR TRUNC(EAD.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                AND   EAD.SOURCE_SYSTEM = IN_CORP_ACRONYM
                AND   EAD.ANSWER IS NOT NULL
                AND   EAD.STATUS = DECODE(IAM.MATCH_TYPE, 'AT', EAD.STATUS, 'N')
                ) AS ANSWER
        FROM INTERFACE_ADT_AOE_MASTER IAM
        WHERE IAM.SOURCE_SYSTEM = IN_CORP_ACRONYM
        AND IAM.TEST_CODE IN  (SELECT ORD.TEST_CODE
                                 FROM ORDER_REQUISITION_DETAIL ORD
                                WHERE ORD.REQUISITION_HDR_ID = (SELECT ORH.REQUISITION_HDR_ID
                                                                  FROM ORDER_REQUISITION_HEADER ORH
                                                                 WHERE ORH.REQUISITION_NUMBER = IN_REQUISITION_NUMBER));
     END IF;                           
     OR_QUES_AND_ANS := VR_QUES_AND_ANS;
    SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                  (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IN_BATCH_ID        => '100'
                  ,IC_MESSAGE_TEXT    => 'vc_exact_boolean_val:'||VC_EXACT_BOOLEAN_VAL||
                                         ' vc_exact_par_boolean_val:'||VC_EXACT_PAR_BOOLEAN_VAL||
                                         ' OV_COMMENTS:'||OV_COMMENTS);
  END IF;               
  IF
      VC_DUPL_BOOLEAN_VAL = 'TRUE' AND
      VC_DUPL_PAR_BOOLEAN_VAL = 'FALSE' THEN
      OV_COMMENTS := VC_COMMENTS;
      VC_EXACT_BOOLEAN_VAL        := NULL;
      VC_EXACT_PAR_BOOLEAN_VAL    := NULL;
      VC_REJECTED_BOOLEAN_VAL     := NULL;
      VC_REJECTED_PAR_BOOLEAN_VAL := NULL;
      VC_RETURN_DUPL_PAT := 'Y';
  ELSIF
     --VC_DUPL_BOOLEAN_VAL = 'TRUE' AND
     VC_DUPL_PAR_BOOLEAN_VAL = 'TRUE' THEN
     OV_COMMENTS := VC_PAR_COMMENTS;
     VC_EXACT_BOOLEAN_VAL        := NULL;
     VC_EXACT_PAR_BOOLEAN_VAL    := NULL;
     VC_REJECTED_BOOLEAN_VAL     := NULL;
     VC_REJECTED_PAR_BOOLEAN_VAL := NULL;
     VC_RETURN_DUPL_PAT := 'Y';
  END IF;
  IF
    VC_RETURN_DUPL_PAT = 'Y' THEN
    --Returning result set (OV_COMMENTS,Question and Answer) for the duplicate patient.(Case 3 (AOE) and 4 (PARTIAL AOE))
    SELECT MAX (SUB.COUNT_QUES_ANS)
    INTO VN_MAX_COUNT FROM (SELECT COUNT(*) OVER (PARTITION BY EAD.QUESTION_CODE, EAD.ANSWER) AS COUNT_QUES_ANS
                            FROM  EMR_ADTAOE_DTL EAD , INTERFACE_ADT_AOE_MASTER IAM, TEST T
                            WHERE T.TEST_ID = EAD.TEST_ID
                            AND   IAM.TEST_CODE = T.TEST_CODE
                            AND   EAD.SOURCE_SYSTEM = IAM.SOURCE_SYSTEM
                            AND   EAD.QUESTION_CODE = IAM.QUESTION_CODE
                            AND   EAD.PATIENT_ID    = VN_DUPL_PAT_ID
                            AND   EAD.FACILITY_ID   = IN_FACILITY_ID
                            AND   (TRUNC(EAD.DRAW_DATE)   = IN_DRAW_DT
                                  OR TRUNC(EAD.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                            AND   EAD.SOURCE_SYSTEM = IN_REQUISITION_NUMBER) SUB;
     IF
        VN_MAX_COUNT > 1 THEN
        SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                                (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IN_BATCH_ID        => '100'
                                ,IC_MESSAGE_TEXT    => 'duplicate patient duplicate scenario'||' vn_max_count:'||VN_MAX_COUNT);
        OPEN VR_QUES_AND_ANS FOR                                 
        SELECT DISTINCT IAM.QUESTION_CODE,
              (SELECT DISTINCT CASE
                               WHEN EAD.ANSWER IS NULL THEN NULL
                               WHEN LENGTH(TRIM(TRANSLATE(EAD.ANSWER, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', ' '))) IS NULL THEN EAD.ANSWER
                               ELSE TO_CHAR(TRUNC(EAD.ANSWER *  DECODE(UPPER(IAM.UOM), 'KGS', 2.20462,1),2))
                               END
                FROM  EMR_ADTAOE_DTL EAD , TEST T
                WHERE T.TEST_ID = EAD.TEST_ID
                AND   IAM.TEST_CODE = T.TEST_CODE
                AND   EAD.SOURCE_SYSTEM = IAM.SOURCE_SYSTEM
                AND   EAD.QUESTION_CODE = IAM.QUESTION_CODE
                AND   EAD.PATIENT_ID    = VN_DUPL_PAT_ID
                AND   EAD.FACILITY_ID   = IN_FACILITY_ID
                AND   (TRUNC(EAD.DRAW_DATE)    = IN_DRAW_DT
                        OR TRUNC(EAD.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                AND   EAD.SOURCE_SYSTEM = IN_CORP_ACRONYM
                AND   EAD.ANSWER IS NOT NULL
                AND   EAD.STATUS = DECODE(IAM.MATCH_TYPE, 'AT', EAD.STATUS, 'N')
                ) AS ANSWER
        FROM INTERFACE_ADT_AOE_MASTER IAM
        WHERE IAM.SOURCE_SYSTEM = IN_CORP_ACRONYM
        AND IAM.TEST_CODE IN  (SELECT ORD.TEST_CODE
                                 FROM ORDER_REQUISITION_DETAIL ORD
                                WHERE ORD.REQUISITION_HDR_ID = (SELECT ORH.REQUISITION_HDR_ID
                                                                  FROM ORDER_REQUISITION_HEADER ORH
                                                                 WHERE ORH.REQUISITION_NUMBER = IN_REQUISITION_NUMBER)   
                                AND EXISTS (SELECT 1 FROM EMR_ADTAOE_DTL EAD1, INTERFACE_ADT_AOE_MASTER IAM1, TEST T1
                                             WHERE  ORD.TEST_ID = EAD1.TEST_ID
                                              AND   IAM1.TEST_CODE = T1.TEST_CODE
                                              AND   EAD1.SOURCE_SYSTEM = IAM1.SOURCE_SYSTEM
                                              AND   EAD1.QUESTION_CODE = IAM1.QUESTION_CODE
                                              AND   EAD1.PATIENT_ID    = VN_DUPL_PAT_ID
                                              AND   EAD1.FACILITY_ID   = IN_FACILITY_ID
                                              AND   (TRUNC(EAD1.DRAW_DATE)    = IN_DRAW_DT
                                                    OR TRUNC(EAD1.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                                              AND   EAD1.SOURCE_SYSTEM = IN_CORP_ACRONYM
                                              AND   EAD1.ANSWER IS NOT NULL
                                              AND   EAD1.STATUS = DECODE(IAM1.MATCH_TYPE, 'AT', EAD1.STATUS, 'N')));
     ELSIF
       VN_MAX_COUNT = 1 THEN
        SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                                (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                                ,IN_BATCH_ID        => '100'
                                ,IC_MESSAGE_TEXT    => 'duplicate patient unique scenario'||' vn_max_count:'||VN_MAX_COUNT);
        OPEN VR_QUES_AND_ANS FOR                                 
        SELECT DISTINCT IAM.QUESTION_CODE,
              (SELECT DISTINCT CASE
                               WHEN EAD.ANSWER IS NULL THEN NULL
                               WHEN LENGTH(TRIM(TRANSLATE(EAD.ANSWER, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', ' '))) IS NULL THEN EAD.ANSWER
                               ELSE TO_CHAR(TRUNC(EAD.ANSWER *  DECODE(UPPER(IAM.UOM), 'KGS', 2.20462,1),2))
                               END
                FROM  EMR_ADTAOE_DTL EAD , TEST T
                WHERE T.TEST_ID = EAD.TEST_ID
                AND   IAM.TEST_CODE = T.TEST_CODE
                AND   EAD.SOURCE_SYSTEM = IAM.SOURCE_SYSTEM
                AND   EAD.QUESTION_CODE = IAM.QUESTION_CODE
                AND   EAD.PATIENT_ID    = VN_DUPL_PAT_ID
                AND   EAD.FACILITY_ID   = IN_FACILITY_ID
                AND   (TRUNC(EAD.DRAW_DATE)    = IN_DRAW_DT
                        OR TRUNC(EAD.DRAW_DATE) = TRUNC(TO_DATE('12-31-2999','mm-dd-yyyy')))
                AND   EAD.SOURCE_SYSTEM = IN_CORP_ACRONYM
                AND   EAD.ANSWER IS NOT NULL
                AND   EAD.STATUS = DECODE(IAM.MATCH_TYPE, 'AT', EAD.STATUS, 'N')
                ) AS ANSWER
        FROM INTERFACE_ADT_AOE_MASTER IAM
        WHERE IAM.SOURCE_SYSTEM = IN_CORP_ACRONYM
        AND IAM.TEST_CODE IN  (SELECT ORD.TEST_CODE
                                 FROM ORDER_REQUISITION_DETAIL ORD
                                WHERE ORD.REQUISITION_HDR_ID = (SELECT ORH.REQUISITION_HDR_ID
                                                                  FROM ORDER_REQUISITION_HEADER ORH
                                                                 WHERE ORH.REQUISITION_NUMBER = IN_REQUISITION_NUMBER));
     END IF; 
    OR_QUES_AND_ANS := VR_QUES_AND_ANS;
    SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                  (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                  ,IN_BATCH_ID        => '100'
                  ,IC_MESSAGE_TEXT    => 'vc_dup_pat_ques:'||VC_DUP_PAT_QUES||
                                         ' vc_dupl_boolean_val:'||VC_DUPL_BOOLEAN_VAL||
                                         ' vc_dupl_par_boolean_val:'||VC_DUPL_PAR_BOOLEAN_VAL||
                                         ' OV_COMMENTS:'||OV_COMMENTS);
  END IF;               
  IF
     VC_REJECTED_BOOLEAN_VAL = 'TRUE' AND
     VC_REJECTED_PAR_BOOLEAN_VAL = 'FALSE' THEN
     OV_COMMENTS := VC_COMMENTS;
     VC_EXACT_BOOLEAN_VAL        := NULL;
     VC_EXACT_PAR_BOOLEAN_VAL    := NULL;
     VC_DUPL_BOOLEAN_VAL         := NULL;
     VC_DUPL_PAR_BOOLEAN_VAL     := NULL;
     VC_RETURN_REJECT_PAT := 'Y';
  ELSIF
     --VC_REJECTED_BOOLEAN_VAL = 'FALSE' AND
     VC_REJECTED_PAR_BOOLEAN_VAL = 'TRUE' THEN
     OV_COMMENTS := VC_PAR_COMMENTS;
     VC_EXACT_BOOLEAN_VAL        := NULL;
     VC_EXACT_PAR_BOOLEAN_VAL    := NULL;
     VC_DUPL_BOOLEAN_VAL         := NULL;
     VC_DUPL_PAR_BOOLEAN_VAL     := NULL;
     VC_RETURN_REJECT_PAT := 'Y';
  ELSIF
     VC_REJECTED_BOOLEAN_VAL = 'FALSE' AND
     VC_REJECTED_PAR_BOOLEAN_VAL = 'FALSE' THEN
     --Returning result set (OV_COMMENTS) for the rejected ADT.(Case 7)
     OV_COMMENTS := 'AOE NOT RECEIVED IN ADT';
     OR_QUES_AND_ANS := NULL;
     SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                    (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IN_BATCH_ID        => '100'
                    ,IC_MESSAGE_TEXT    => 'vc_obx_ques:'||VC_OBX_QUES||
                                           ' vc_rejected_boolean_val:'||VC_REJECTED_BOOLEAN_VAL||
                                           ' vc_rejected_par_boolean_val:'||VC_REJECTED_PAR_BOOLEAN_VAL||
                                           ' OV_COMMENTS:'||OV_COMMENTS);
     VC_EXACT_BOOLEAN_VAL        := NULL;
     VC_EXACT_PAR_BOOLEAN_VAL    := NULL;
     VC_DUPL_BOOLEAN_VAL         := NULL;
     VC_DUPL_PAR_BOOLEAN_VAL     := NULL;
  END IF;
  IF
    VC_RETURN_REJECT_PAT = 'Y' THEN
    --Returning result set (OV_COMMENTS,Question and Answer) for the rejected ADT.(Case 5 (AOE) and 6 (PARTIAL AOE))
    --In case of multiple external id with same patient, facility and draw date; the lastest record should be picked.
    SELECT MAX(MSG_ID) INTO VN_MAX_MSG_ID FROM TT_A04_OBX_QUES_ANS_DTL;
    OPEN VR_QUES_AND_ANS FOR
    SELECT DISTINCT IAM.QUESTION_CODE,
                   (SELECT DISTINCT
                     CASE
                        WHEN TOBX.OBSERVATION_VALUE IS NULL THEN NULL
                        WHEN LENGTH(TRIM(TRANSLATE(TOBX.OBSERVATION_VALUE, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', ' '))) IS NULL THEN TOBX.OBSERVATION_VALUE
                        ELSE TO_CHAR(TRUNC(TOBX.OBSERVATION_VALUE *  DECODE(UPPER(TOBX.UOM), 'KGS', 2.20462,1),2))
                     END
                     FROM TT_A04_OBX_QUES_ANS_DTL TOBX
                    WHERE TOBX.OBSERVATION_IDENTIFIER = IAM.QUESTION_CODE
                      AND TOBX.MSG_ID = VN_MAX_MSG_ID) AS ANSWER
     FROM INTERFACE_ADT_AOE_MASTER IAM
    WHERE SOURCE_SYSTEM = IN_CORP_ACRONYM;
    OR_QUES_AND_ANS := VR_QUES_AND_ANS;
    SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                    (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IN_BATCH_ID        => '100'
                    ,IC_MESSAGE_TEXT    => 'vc_rejected_boolean_val:'||VC_REJECTED_BOOLEAN_VAL||
                                           ' vc_rejected_par_boolean_val:'||VC_REJECTED_PAR_BOOLEAN_VAL||
                                           ' OV_COMMENTS:'||OV_COMMENTS);
  END IF;
   SPL_SPN_ERROR_LOGGING_SPK.INFO_PROC
                    (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IN_BATCH_ID        => '100'
                    ,IC_MESSAGE_TEXT    => 'End of the procedure with Patient_Id:'||IN_PATIENT_ID||' Facility_Id:'||IN_FACILITY_ID||
                                           ' Draw_Dt:'||IN_DRAW_DT||' Requisition_Number:'||IN_REQUISITION_NUMBER||' Corp_Acronym:'||IN_CORP_ACRONYM||
                                           ' ABCDEF_Mrn:'||IN_ABCDEF_MRN||' Account_Number:'||IN_ACCOUNT_NUMBER||' Hlab_Num:'||IN_HLAB_NUM);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    SPL_SPN_ERROR_LOGGING_SPK.ERROR_PROC
                    (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IN_BATCH_ID        => '100'
                    ,IC_MESSAGE_TEXT    => SQLERRM);
  WHEN OTHERS THEN
    SPL_SPN_ERROR_LOGGING_SPK.ERROR_PROC
                    (IC_PACKAGE_NAME    => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IC_PROCEDURE_NAME  => 'SPL_SPN_MISSING_EMR_AOE_DTL'
                    ,IN_BATCH_ID        => '100'
                    ,IC_MESSAGE_TEXT    => SQLERRM);
END SPL_SPN_MISSING_EMR_AOE_DTL;
Regards,
BS2012.

Answer 1

Hey Guys,
I'm sorry, that I troubled you all. But I found the issue and solved it.
The actual problem is residing at that max of that partition by query. I had a misconception that this query will always return a value which is positive number like 1,2 etc.
But sometimes it's returning null as well. So the ref cursor is fetching nothing. Now I've modified my code and everything is working fine. Thanks for your help and support.
Regards,
BS2012.