CRHD.m

CRHD ; CAIRO/CLC - GET THE PATIENT DATA ELEMENTS FOR CHANGEOVER LIST ;04-Mar-2008 16:00;CLC

 ;;1.0;CRHD;****;Jan 28, 2008;Build 19

 ;=================================================================

ALG(CRHDROOT,CRHDSTR) ; Allergies

 D ALG^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

ACTMED(CRHDROOT,CRHDSTR) ;Active Medications

 D ACTMED^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

CONSULT(CRHDROOT,CRHDSTR) ;consults orders - call from cprs

 D CONSULT^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

IMAGING(CRHDROOT,CRHDSTR) ;Radiology orders - call from cprs

 D IMAGING^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

LABS(CRHDROOT,CRHDSTR) ;LABS orders - call from cprs

 D LABS^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

PROC(CRHDROOT,CRHDSTR) ;Procedures orders - call from cprs

 D PROC^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

PROB(CRHDROOT,CRHDSTR) ;DFN,NUM,HDR) ;

 D PROB^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

RECENTLR(ROOT,DFN,NUM,HDR) ;

 D RECNTLAB^CRHDUT(.CRHDROOT,.CRHDSTR)

 Q

PATDEMO(CRHDROOT,CRHDSTR) ;GET PATIENTS DEMOGRAPHICS

 D PATDEMO^CRHDUT2(.CRHDROOT,.CRHDSTR)

 Q

CODESTS(CRHDROOT,CRHDSTR) ; GET CODE STATUS

 D CODESTS^CRHD2(.CRHDROOT,.CRHDSTR)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---CRHD   1106     printed  Apr 09, 2024@21:40:08                                                                                                                                                                                                        Page 2

CRHD      ; CAIRO/CLC - GET THE PATIENT DATA ELEMENTS FOR CHANGEOVER LIST ;04-Mar-2008 16:00;CLC

 +1       ;;1.0;CRHD;****;Jan 28, 2008;Build 19

 +2       ;=================================================================

ALG(CRHDROOT,CRHDSTR) ; Allergies

 +1        DO ALG^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

ACTMED(CRHDROOT,CRHDSTR) ;Active Medications

 +1        DO ACTMED^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

CONSULT(CRHDROOT,CRHDSTR) ;consults orders - call from cprs

 +1        DO CONSULT^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

IMAGING(CRHDROOT,CRHDSTR) ;Radiology orders - call from cprs

 +1        DO IMAGING^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

LABS(CRHDROOT,CRHDSTR) ;LABS orders - call from cprs

 +1        DO LABS^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

PROC(CRHDROOT,CRHDSTR) ;Procedures orders - call from cprs

 +1        DO PROC^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

PROB(CRHDROOT,CRHDSTR) ;DFN,NUM,HDR) ;

 +1        DO PROB^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

RECENTLR(ROOT,DFN,NUM,HDR) ;

 +1        DO RECNTLAB^CRHDUT(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

PATDEMO(CRHDROOT,CRHDSTR) ;GET PATIENTS DEMOGRAPHICS

 +1        DO PATDEMO^CRHDUT2(.CRHDROOT,.CRHDSTR)

 +2        QUIT 

CODESTS(CRHDROOT,CRHDSTR) ; GET CODE STATUS

 +1        DO CODESTS^CRHD2(.CRHDROOT,.CRHDSTR)

 +2        QUIT