STANDARD DATA DICTIONARY #150.2 -- VSIT SITE CODES FILE 3/24/25 PAGE 1 STORED IN ^VSIT(150.2, (247 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file list VHA facilities and their site code. DD ACCESS: @ WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ IDENTIFIED BY: CODE (#.02)[R] POINTED TO BY: SITE PART OF VISIT ID field (#402) of the VISIT TRACKING PARAMETERS File (#150.9) CROSS REFERENCED BY: NAME(B), NAME(C), CODE(D) 150.2,.01 NAME 0;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X LAST EDITED: JUN 20, 1996 HELP-PROMPT: Answer must be 3-30 characters in length. CROSS-REFERENCE: 150.2^B 1)= S ^VSIT(150.2,"B",$E(X,1,30),DA)="" 2)= K ^VSIT(150.2,"B",$E(X,1,30),DA) CROSS-REFERENCE: 150.2^C^KWIC 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ",-"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWI C")'[I S ^VSIT(150.2,"C",I,DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ",-"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^VSIT( 150.2,"C",I,DA) 150.2,.02 CODE 0;2 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>4!($L(X)<3)!'(X?1U2UN!(X="TEST")) X LAST EDITED: JUN 20, 1996 HELP-PROMPT: Answer must be 3-4 characters in length. DESCRIPTION: This is the unique site code. CROSS-REFERENCE: 150.2^D 1)= S ^VSIT(150.2,"D",$E(X,1,30),DA)="" 2)= K ^VSIT(150.2,"D",$E(X,1,30),DA) 150.2,.03 SELECTABLE FLAG 0;3 SET (Required) '1' FOR SELECTABLE; '0' FOR NON-SELECTABLE; LAST EDITED: JUN 19, 1996 DESCRIPTION: This flag determines whether or not an entry may be viewed. INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):