STANDARD DATA DICTIONARY #21 -- PERIOD OF SERVICE FILE 3/24/25 PAGE 1
STORED IN ^DIC(21, (36 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The PERIOD OF SERVICE file contains 37 entries as determined by VACO MAS. Alteration of existing entries or addition of new ones
will undoubtedly have a negative impact on the efficient operation of the MAS module and other modules. Updates to this file will
be provided by the MAS developers by way of regular releases.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
APPLICATION GROUP(S): VA
IDENTIFIED BY:
"WRITE": W:$X>40 ! W ?40,"(",$P(^(0),"^",3),")" W:$X>53 ! W ?53,$P(^(0),"^",20)
POINTED TO BY: PERIOD OF SERVICE field (#.323) of the PATIENT File (#2)
CODE field (#101) of the POW PERIOD File (#22)
PERIOD OF SERVICE field (#.323) of the ROR PATIENT File (#798.4)
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(C), CODE(D), SYNONYM(SYN)
21,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<4) X
LAST EDITED: MAR 26, 1984
HELP-PROMPT: ANSWER MUST BE 4-25 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the name of a period of service as determined by MAS VACO for use in DHCP.
This name should not be altered in any way nor should entries be added to or removed from this
file. This data is maintained by the MAS package and all updates to it will be made by that
package during a release.
CROSS-REFERENCE: 21^B
1)= S ^DIC(21,"B",$E(X,1,30),DA)=""
2)= K ^DIC(21,"B",$E(X,1,30),DA)
21,.02 ABBREVIATION 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>9!($L(X)<2) X
HELP-PROMPT: MAXIMUM LENGTH: 9, MINIMUM LENGTH: 2
DESCRIPTION: This field contains an abbreviation for this period of service. Outputs and displays may
alternately display the abbreviation if insufficient room exists for the full name of the period of
service.
CROSS-REFERENCE: 21^C
1)= S ^DIC(21,"C",X,DA)=""
2)= K ^DIC(21,"C",X,DA)
21,.03 CODE 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: OCT 14, 1982
HELP-PROMPT: ANSWER MUST BE 1 CHARACTER IN LENGTH
DESCRIPTION: This field contains the single character code by which this period of service is known. This
character is supplied by MAS VACO and MUST NOT BE ALTERED. This code is transmitted to Austin with
PTF, OPC, and many other DHCP packages and modules. Editing of this code will have severe negative
implications on the integrity of the data you are transmitting and it could cause rejected records
and loss of reimbursement for your site.
CROSS-REFERENCE: 21^D
1)= S ^DIC(21,"D",$E(X,1,30),DA)=""
2)= K ^DIC(21,"D",$E(X,1,30),DA)
21,.04 BEGIN DATE 0;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
DESCRIPTION: This field contains the beginning date of this period of service whether it be a war, conflict,
police action, or period of peace. This data is determined by MAS VACO and must not be altered in
any way.
21,.05 END DATE 0;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
DESCRIPTION: This field contains the ending date of this period of service whether it be a war, conflict, police
action, or period of peace. This data is determined by MAS VACO and must not be altered in any
way.
21,.06 WAR/PEACE 0;6 SET
'W' FOR WAR;
'P' FOR PEACE;
DESCRIPTION: This field contains a set of codes to determine whether this period of service was a wartime period
or a period of peace. This information is determined by VACO and must not be altered in any way.
21,.07 LATEST DOB 0;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 26, 1984
HELP-PROMPT: Enter the latest year in which a person could be born and still serve in this period.
DESCRIPTION: This field contains the latest date of birth which a patient may have had in order to participate
in this period of service. For example, If this field contained 1975, only persons born in 1975 or
earlier would have been old enough to serve during this period of service.
21,.08 INACTIVE 0;8 SET
'1' FOR YES;
LAST EDITED: NOV 25, 1986
DESCRIPTION: If this period of service has been inactivated and should no longer be selectable, this field
should contain YES. Periods of service are maintained by VACO and the MAS software module.
Therefore, this information should not be altered by the site. Should it be necessary to
inactivate a period of service, this will occur through the release of the MAS module via a regular
software release.
21,.09 PTF CODE 0;9 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1AN) X
LAST EDITED: NOV 30, 1986
HELP-PROMPT: ANSWER MUST BE 1 CHARACTER IN LENGTH
DESCRIPTION: This field contains the code for this period of service which is transmitted as part of the PTF
portion of the MAS module. This field is determined by MAS VACO and is maintained by the MAS
software module. Editing of this information can have severe negative impacts on the operation of
the MAS software and may cause records to be rejected in Austin.
21,10 ELIGIBILITY E;0 POINTER Multiple #21.01
DESCRIPTION:
This multiple contains all eligibilities a person with this period of service may have.
21.01,.01 ELIGIBILITY 0;1 POINTER TO ELIGIBILITY CODE FILE (#8) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I '$P(^(0),""^"",7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: DEC 02, 1986
DESCRIPTION: This field contains a pointer to the ELIGIBILITY CODE file denoting an eligibility which a
patient may have if he service during this period of service.
SCREEN: S DIC("S")="I '$P(^(0),""^"",7)"
EXPLANATION: 'INACTIVE' Eligibilities can't be selected
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
21,15 SYNONYM S;0 Multiple #21.02
DESCRIPTION: This multiple contains all alternate names by which this period of service can be selected. Entry
of either the period of service name or one of the synonyms contained in this multiple will cause
this period of service to be selected.
21.02,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X?1A.E) X
LAST EDITED: NOV 25, 1986
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: This field contains an alternate name by which this period of service can be selected. Wherever
the period of service is prompted, this synonym may be entered instead of the name of the period
of service.
CROSS-REFERENCE: 21.02^B
1)= S ^DIC(21,DA(1),"S","B",$E(X,1,30),DA)=""
2)= K ^DIC(21,DA(1),"S","B",$E(X,1,30),DA)
CROSS-REFERENCE: 21^SYN
1)= S ^DIC(21,"SYN",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(21,"SYN",$E(X,1,30),DA(1),DA)
21,20 BRIEF DESCRIPTION 0;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>26!($L(X)<3) X
LAST EDITED: AUG 04, 1987
HELP-PROMPT: ANSWER MUST BE 3-26 CHARACTERS IN LENGTH
DESCRIPTION: This field contains a brief description of this period of service. It may contain the date range
for the conflict or a brief explanation of the period of service. If the user enters two question
marks at a PERIOD OF SERVICE prompt, this description will appear in addition to the period of
service name and code.
FILES POINTED TO FIELDS
ELIGIBILITY CODE (#8) ELIGIBILITY:ELIGIBILITY (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
CAPTIONED USER #0
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):