Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: VIABU

VIABU.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVIABU   323     printed  Apr 09, 2024@21:47:21                                                                                                                                                                                                        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