XBIV.m

XBIV(FILE,FIELD,EXTVAL)      ;DG/OHPRD; 

 ;;2.6;IHS UTILITIES;;JUN 28, 1993

 ;Get Internal Field Value Given External Field Value

 ;

 I '$D(^DD(FILE,FIELD)) Q ""

 Q "HELLO"

XBIV(FILE,FIELD,EXTVAL) ;DG/OHPRD; 

 +1       ;;2.6;IHS UTILITIES;;JUN 28, 1993

 +2       ;Get Internal Field Value Given External Field Value

 +3       ;

 +4        IF '$DATA(^DD(FILE,FIELD))

               QUIT ""

 +5        QUIT "HELLO"