STANDARD DATA DICTIONARY #45.61 -- PTF ABUSED SUBSTANCE FILE                                                      9/29/25    PAGE 1
STORED IN ^DIC(45.61,  (18 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                     (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the choices of possible abused substances used to completed the expanded code questions.  


              DD ACCESS: @
              RD ACCESS: d
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @

POINTED TO BY: SUBSTANCE ABUSE field (#300.04) of the PTF File (#45) 
               SUBSTANCE ABUSE field (#300.04) of the 501 sub-field (#45.02) of the PTF File (#45) 
               ABUSED SUBSTANCE DEFAULT field (#.04) of the PTF EXPANDED CODE File (#45.89) 
               

CROSS
REFERENCED BY: NAME(B)



45.61,.01     NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
              LAST EDITED:      JUN 17, 1991 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                This field contains the name of the substance abused.  

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


45.61,.02     CODE                   0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
              HELP-PROMPT:      Answer must be 4 characters in length. 
              DESCRIPTION:      This field contains the code used in the creation of the PTF record for transmission to Austin.
                                This is a four character code.  


45.61,.03     INACTIVE DATE          0;3 DATE

              INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
              DESCRIPTION:
                                This field contains the date after which this entry is inactive.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):