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):