7 lines
170 B
Mathematica
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"
|