DECLARE
   CURSOR c1 (
      cp    IN VARCHAR2,
      cp2   IN VARCHAR2)
   IS
      SELECT DISTINCT
            TO_CHAR (HCP_REQ_ID) HCP_REQ_ID,
            HCARE_NAME,
            --MKGPROF_ID,
            FNC_MPO_NAME(MKGPROF_ID) MPO_NAME,
            --MKGAREA_ID,
            AREA_NAME(MKGAREA_ID) AREA_NAME,
            HCARE_ADDR,
            UDMHCPA_NO,
            M_LATITUDE,
            M_LONGITDE,
            M_LONGITDE || ' - '||M_LATITUDE as Location,
            HCP_MOBILE,
            HCP_EMAILS,
            HOTLINE_NO,
            HCPINFO_ID,
            HCP_REQ_DT,
            case
                when HCPREQ_TYP = 1 then '<div style="font-weight:bold;font-size:16px; color: #DC6A10;">New Request</div>'
                when HCPREQ_TYP = 2 then '<div style="font-weight:bold;font-size:16px; color: #105EDC;">Update Request</div>'
                when HCPREQ_TYP = 3 then '<div style="font-weight:bold;font-size:16px; color: #7aa90a;">Delete Request</div>'
                else null
            end as HCPREQ_TYP
        FROM BO_REQS_HCP
       WHERE HCP_REQ_ID = cp AND MKGPROF_ID = cp2;

   rec1   BO_REQS_HCP%ROWTYPE;
BEGIN
   FOR i IN c1 (:P526_MPO_REQ,:P526_MPO)
   LOOP
        :P526_REQ_ID     := i.HCPINFO_ID;
        --:P526_MPO_ID     := i.MKGPROF_ID;
        :P526_MPO_ID     := i.MPO_NAME;
        --:P526_AREA_ID    := i.MKGAREA_ID;
        :P526_AREA_ID    := i.AREA_NAME;
        :P526_HOS_NAME   := i.HCARE_NAME;
        :P526_HOS_CODE   := i.UDMHCPA_NO;
        :P526_HOS_MOB    := i.HCP_MOBILE;
        :P526_HOTLINE_NO := i.HOTLINE_NO;
        :P526_HOS_ADD    := i.HCARE_ADDR;
        :P526_HOS_EMAIL  := i.HCP_EMAILS;
        :P526_REQ_DATE   := i.HCP_REQ_DT;
        :P526_REQ_TYP    := i.HCPREQ_TYP;
   END LOOP;
END;