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 ---[H[J[2J[HHMPXGLAB 853 printed Nov 22, 2024@17:05:01 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 ;
