VIABU.m

VIABU ;AITC/BWF - General Utilites for Windows Calls;2/12/16  15:15

 ;;1.0;VISTA INTEGRATION ADAPTER;**5**;06-FEB-2014;Build 8

 ;

EXTNAME(VAL,IEN,FN) ; return external form of pointer

 ; IEN=internal number, FN=file number

 N REF S REF=$G(^DIC(FN,0,"GL")),VAL=""

 I $L(REF),+IEN S VAL=$P($G(@(REF_IEN_",0)")),U)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VIABU   323     printed  Dec 13, 2024@02:45:27                                                                                                                                                                                                        Page 2

VIABU     ;AITC/BWF - General Utilites for Windows Calls;2/12/16  15:15

 +1       ;;1.0;VISTA INTEGRATION ADAPTER;**5**;06-FEB-2014;Build 8

 +2       ;

EXTNAME(VAL,IEN,FN) ; return external form of pointer

 +1       ; IEN=internal number, FN=file number

 +2        NEW REF

           SET REF=$GET(^DIC(FN,0,"GL"))

           SET VAL=""

 +3        IF $LENGTH(REF)

               IF +IEN

                   SET VAL=$PIECE($GET(@(REF_IEN_",0)")),U)

 +4        QUIT