STANDARD DATA DICTIONARY #604.26 -- ASI PROGRAM TYPE FILE                                                         9/29/25    PAGE 1
STORED IN ^YSTX(604.26,  (21 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                  (VERSION 5.01)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
These are the substance abuse program types as defined in the substance aduse annual report from VA Headquarters.  This is a static
file and local modifications are not permitted.  


IDENTIFIED BY: TITLE (#1)[R], ACTIVE (#3)

POINTED TO BY: PROGRAM field (#2) of the ADDICTION SEVERITY INDEX File (#604) 
               

CROSS
REFERENCED BY: ID(B), TITLE(C)



604.26,.01    ID                     0;1 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      JAN 23, 1997 
              HELP-PROMPT:      Type a Number between 1 and 99, 0 Decimal Digits 
              DESCRIPTION:      This field contains the IDentification number for the substance abuse program type as defined in
                                the substance abuse annual report from VA headquarters.  

              CROSS-REFERENCE:  604.26^B 
                                1)= S ^YSTX(604.26,"B",$E(X,1,30),DA)=""
                                2)= K ^YSTX(604.26,"B",$E(X,1,30),DA)


604.26,1      TITLE                  0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
              LAST EDITED:      JAN 23, 1997 
              HELP-PROMPT:      Answer must be 1-70 characters in length. 
              DESCRIPTION:      This field contains the TITLE of the substance abuse program type as defined in the substance abuse
                                annual report from VA headquarters.  

              CROSS-REFERENCE:  604.26^C^MUMPS 
                                1)= S ^YSTX(604.26,"C",X,DA)=""
                                2)= K ^YSTX(604.26,"C",X,DA)


604.26,3      ACTIVE                 0;3 SET

                                '1' FOR ACTIVE; 
                                '0' FOR INACTIVE; 
              LAST EDITED:      JAN 23, 1997 
              DESCRIPTION:
                                Activate a program only if its available at your site.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):