SELECT DISTINCT                        
                 '1'    RSVTYP         , 
                 A.RESNO  RESNO          ,
                 c.empnme       ,
                 A.RESNO  RESNUM         ,       
                 A.MEDSCT MEDSCT         ,       
                 A.ORDDAT ORDDAT         ,       
                 A.MEDTYP MEDTYP         ,       
                 A.MEDDAT MEDDAT         ,       
                 A.LVLMOT LVLMOT         ,       
                 A.PRESDR PRESDR         ,       
                 A.STADAT STADAT         ,       
                 A.ENDDAT ENDDAT         ,       
                 A.CARTYP CARTYP         ,       
                 A.REMARK REMARK         ,       
                 A.ENTDAT ENTDAT         ,       
                 B.MEDDR  MEDDR          ,       
                 B.MEDGRA MEDGRA         ,       
                 B.MEDTRM MEDTRM         ,       
                 B.CONCYC CONCYC         ,       
                 B.OCMNUM OCMNUM         ,       
                 B.EDITIP EDITIP         ,       
                 C.EMPNO  EMPNO          ,       
                 C.EMPNME EMPNME         ,       
                 C.DEPTCD DEPTCD         ,       
                 C.TELNO1 TELNO1         ,       
                 C.TELNO2 TELNO2         ,       
                 E.DEPTNM DEPTNM                 
            FROM EXERSVDT A,                     
                 EXERSVMT B,                     
                 HWPATBAT C,                     
                 HWDEPTMT E                      
           WHERE A.RESNO    > ' '              
             AND A.ORDDAT   > ' '
            AND A.ENDDAT =  ' '
            and  a. meddat = '20240124'
             and a.medtyp = 'P'
             AND A.USETYP  <> 'N'              
             AND B.CUSTCD   = A.CUSTCD           
             AND B.RESNO    = A.RESNO            
             AND B.MEDSCT   = A.MEDSCT           
             AND B.ORDDAT   = A.ORDDAT           
             AND B.MEDTRM   > ' '               
             AND C.CUSTCD   = A.CUSTCD           
             AND C.RESNO    = A.RESNO            
             AND E.CUSTCD   = C.CUSTCD           
             AND E.DEPTCD   = C.DEPTCD           
               ORDER BY A.STADAT DESC, A.ENTDAT, C.EMPNME, C.EMPNO  


SELECT * FROM EXERSVDT WHERE RESNO = '7207271101813';
SELECT * FROM EXERSVMT WHERE RESNO = '7207271101813';

SELECT * FROM HWPATBAT WHERE RESNO in ('7207271101813','8509281682713');
SELECT * FROM HWDEPTMT WHERE CUSTCD = 'H0003' AND DEPTCD