STANDARD DATA DICTIONARY #45.81 -- STATION TYPE FILE                                                              3/24/25    PAGE 1
STORED IN ^DIC(45.81,  (19 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                     (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the different types of stations available.  It contains both the station type (a numeric code), name, and the
allowable suffixes for the station type.  This is pointed to by both File #45.1-SOURCE OF ADMISSION and #45.82-CATEGORY OF 
BENEFICIARY.  


              DD ACCESS: @
              RD ACCESS: d
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
IDENTIFIED BY: NAME (#2)

POINTED TO BY: STATION TYPE field (#.01) of the STATION TYPE sub-field (#45.11) of the SOURCE OF ADMISSION File (#45.1) 
               STATION TYPE field (#.01) of the STATION TYPE sub-field (#45.821) of the CATEGORY OF BENEFICIARY File (#45.82) 
               

CROSS
REFERENCED BY: NUMBER(B), NAME(C), SUFFIXES(D), SUFFIX PTR(D1)



45.81,.01     NUMBER                 0;1 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<10)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
              LAST EDITED:      MAY 22, 1990 
              HELP-PROMPT:      Enter the number of the station type between 10 and 99. 
              DESCRIPTION:
                                This field contains a station type. Valid station type are numbers between '10' and '99'.  

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

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


45.81,2       NAME                   0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
              HELP-PROMPT:      Enter the station type name, 3-40 characters. 
              DESCRIPTION:
                                This field contains the station type name.  

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


45.81,10      *SUFFIXES              SU;0 Multiple #45.811

              LAST EDITED:      JUN 23, 1995 
              DESCRIPTION:      This multiple is no longer in use and has been starred for deletion.  It will be removed in a
                                future release of the PIMS (MAS) package.  Previously, this multiple contained the suffixes
                                assigned to various stations or facilities.  It has been replaced by the Suffix Ptr field (#.01) of
                                the Suffix Ptr multiple (#45.813) which is a pointer to the Facility Suffix file (#45.68).  The
                                Facility Suffix file is a table file which contains the suffixes, effective date(s), and 
                                active/inactive flag(s).  


45.811,.01      SUFFIXES               0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
                HELP-PROMPT:      Enter the allowable suffixes for this station type, 1-3 characters. 
                DESCRIPTION:
                                  This sub-field contains the suffixes assigned to various stations or facilities.  

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




45.81,50      SUFFIX PTR             S;0 POINTER Multiple #45.813


45.813,.01      SUFFIX PTR             0;1 POINTER TO FACILITY SUFFIX FILE (#45.68) (Required)

                LAST EDITED:      JUN 20, 1995 
                DESCRIPTION:      This field points to the Facility Suffix file which contains the suffix, effective date, and
                                  active/inactive flag.  

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

                CROSS-REFERENCE:  45.81^D1^MUMPS 
                                  1)= S ^DIC(45.81,"D1",$P($G(^DIC(45.68,X,0)),U),DA(1),DA)=""
                                  2)= K ^DIC(45.81,"D1",$P($G(^DIC(45.68,X,0)),U),DA(1),DA)





      FILES POINTED TO                      FIELDS

FACILITY SUFFIX (#45.68)          SUFFIX PTR:SUFFIX PTR (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):