HMPXGLAB.m

HMPXGLAB ; ASMR/hrubovcak - Lab data retrieval ;Nov 05, 2015 15:27:37

 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;Sep 01, 2011;Build 28

 ;Per VA Directive 6402, this routine should not be modified.

 ;

 Q

 ;

LABTSTNM(HMPLTIEN) ;function, return NAME field (#.01) from LABORATORY TEST file (#60)

 ; IA 10054 - NAME can be read with FileMan

 ; HMPLTIEN - Lab Test IEN (required)

 Q:'($G(HMPLTIEN)>0) "ERROR: Lab Test IEN missing"

 ;

 N DA,DIC,DIQ,DR,FLAGS,HMPRSLT,HMPTSTNM

 S DIC=60,DR=".01",DA=HMPLTIEN,DIQ="HMPRSLT",DIQ(0)="E",FLAGS="E"

 D EN^DIQ1

 ;

 Q $G(HMPRSLT(60,HMPLTIEN,.01,"E"))

 ;

LRDFN(HMPDFN) ;function, return LRDFN from PATIENT file

 ;

 Q:'($G(HMPDFN)>0) ""  ; patient's DFN required

 ;

 N HMPDEMOG

 D TOP^HMPXGDPT("HMPDEMOG",HMPDFN,"63","I")  ; (#63) LABORATORY REFERENCE

 Q $G(HMPDEMOG(2,HMPDFN,63,"I"))

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HMPXGLAB   853     printed  Apr 09, 2024@20:59:25                                                                                                                                                                                                     Page 2

HMPXGLAB  ; ASMR/hrubovcak - Lab data retrieval ;Nov 05, 2015 15:27:37

 +1       ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;Sep 01, 2011;Build 28

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

LABTSTNM(HMPLTIEN) ;function, return NAME field (#.01) from LABORATORY TEST file (#60)

 +1       ; IA 10054 - NAME can be read with FileMan

 +2       ; HMPLTIEN - Lab Test IEN (required)

 +3        if '($GET(HMPLTIEN)>0)

               QUIT "ERROR: Lab Test IEN missing"

 +4       ;

 +5        NEW DA,DIC,DIQ,DR,FLAGS,HMPRSLT,HMPTSTNM

 +6        SET DIC=60

           SET DR=".01"

           SET DA=HMPLTIEN

           SET DIQ="HMPRSLT"

           SET DIQ(0)="E"

           SET FLAGS="E"

 +7        DO EN^DIQ1

 +8       ;

 +9        QUIT $GET(HMPRSLT(60,HMPLTIEN,.01,"E"))

 +10      ;

LRDFN(HMPDFN) ;function, return LRDFN from PATIENT file

 +1       ;

 +2       ; patient's DFN required

           if '($GET(HMPDFN)>0)

               QUIT ""

 +3       ;

 +4        NEW HMPDEMOG

 +5       ; (#63) LABORATORY REFERENCE

           DO TOP^HMPXGDPT("HMPDEMOG",HMPDFN,"63","I")

 +6        QUIT $GET(HMPDEMOG(2,HMPDFN,63,"I"))

 +7       ;