STANDARD DATA DICTIONARY #45.68 -- FACILITY SUFFIX FILE                                                           9/29/25    PAGE 1
STORED IN ^DIC(45.68,  (492 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                                    

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains suffixes assigned to various stations and facilities.  These suffixes are determined by VACO MAS and should not
be added to or deleted.  Data in this file is utilized by the PTF portion of PIMS (MAS).  It should be edited through this
application and not edited directly through VA FileMan.  



POINTED TO BY: SUFFIX PTR field (#.01) of the SUFFIX PTR sub-field (#45.813) of the STATION TYPE File (#45.81) 
               

CROSS
REFERENCED BY: SUFFIX(B)



45.68,.01     SUFFIX                 0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'(X'?1P.E) X
              LAST EDITED:      MAY 24, 1995 
              HELP-PROMPT:      Answer must be 2-3 characters in length. 
              DESCRIPTION:
                                This field contains the facility suffix.  

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


45.68,10      EFFECTIVE DATE         E;0 DATE Multiple #45.69

              DESCRIPTION:      The effective date multiple contains the effective date(s) and active/inactive flag(s) for each
                                facility suffix. 


45.69,.01       EFFECTIVE DATE         0;1 DATE (Required)

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      JUL 13, 1995 
                HELP-PROMPT:      Enter date suffix became active/inactive. 
                DELETE TEST:      1,0)= I '$O(^DIC(45.68,DA(1),"E",$O(^DIC(45.68,DA(1),"E",0)))) W !,*7,"There has to be an effecti
                                ve date for this suffix!   "

                NOTES:          XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

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

                CROSS-REFERENCE:45.69^AEFF^MUMPS 
                                1)= S ^DIC(45.68,DA(1),"E","AEFF",-X,DA)=""
                                2)= K ^DIC(45.68,DA(1),"E","AEFF",-X,DA)


45.69,.02       ACTIVE?              0;2 SET (Required)

                                '1' FOR YES; 
                                '0' FOR NO; 
                LAST EDITED:    MAY 24, 1995 
                HELP-PROMPT:    Enter 'Yes' if suffix is active or 'No' if suffix is inactive. 




INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):