VistA-IHS-VA_UTILITIES-XB/XBIV.m

7 lines
170 B
Mathematica

XBIV(FILE,FIELD,EXTVAL) ;DG/OHPRD;
;;4.0;XB;;Jul 20, 2009;Build 2
;Get Internal Field Value Given External Field Value
;
I '$D(^DD(FILE,FIELD)) Q ""
Q "HELLO"