STANDARD DATA DICTIONARY #391 -- TYPE OF PATIENT FILE 6/27/25 PAGE 1
STORED IN ^DG(391, (10 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the various types of patient which might be seen at a VA facility. The file is pointed to by the TYPE field of
the PATIENT file and every patient added to the system must have a TYPE specified. Using the 'Patient Type Update' option of ADT
the user should specify the parameters concerning which screens should be displayed during the registration process for these
patient types and what data elements on those screens are editable.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
POINTED TO BY: TYPE field (#391) of the PATIENT File (#2)
CROSS
REFERENCED BY: NAME(B)
391,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: SEP 19, 2012
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: This field contains the names of the various types of patients seen at VA facilities. This file
should not be added to or altered or it could affect daily operations of the MAS software.
UNEDITABLE
CROSS-REFERENCE: 391^B
1)= S ^DG(391,"B",$E(X,1,30),DA)=""
2)= K ^DG(391,"B",$E(X,1,30),DA)
391,.02 IGNORE VETERAN CHECKS? 0;2 SET (Required)
'0' FOR NO;
'1' FOR YES;
DESCRIPTION: If this particular type of patient is non-veteran, but the patient can respond to questions meant
for veterans, respond yes. An example would be MILITARY RETIREE. These patients are seen as
non-veterans, but may have veteran periods of service, prisoner of war dates, etc.
391,.03 *INFO TO ASK 0;3 FREE TEXT (Required)
INFO TO ASK
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!'(X?.N) X
LAST EDITED: NOV 12, 1991
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
This field is no longer used by the MAS package. It will be removed in a future release.
391,.04 MAKE RECORD SENSITIVE? 0;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 29, 1988
HELP-PROMPT: Answer YES if you want this record automatically made sensitive when using the registration
screens.
DESCRIPTION: If it is desirable to automatically make a record sensitive if the patient has this patient type,
answer yes here. An example would be EMPLOYEE. Any record for a patient added to your system with
a patient type of EMPLOYEE will automatically be recorded as sensitive in the security system.
391,.05 VETERAN? 0;5 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter 1 (or yes) if patients of this type are veterans. Otherwise, respond 0 (or no).
DESCRIPTION: Enter YES (or 1) at this prompt if patients of this patient type are veterans. Respond NO
otherwise. This information is necessary to determine whether certain screens may be turned off.
If this is a non-veteran patient type, but patients with this patient type COULD be veterans,
respond YES to the IGNORE VETERAN CHECKS? prompt (field .02).
CROSS-REFERENCE: ^^TRIGGER^391^9
1)= X ^DD(391,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DG(391,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,9),
X=X S DIU=X K Y S X=DIV S X=1 X ^DD(391,.05,1,1,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(391,.05,0)):$P(^(0),U,3),1:"")
S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
1.4)= S DIH=$S($D(^DG(391,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,9)=DIV,DIH=391,DIG=9 D ^DIC
R:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= VETERAN?="YES"
CREATE VALUE)= S X=1
DELETE VALUE)= NO EFFECT
FIELD)= SHOW INCOME SCREENING SCREEN
This trigger will automatically stuff YES into the SHOW INCOME SCREENING SCREEN field if this field
(VETERAN?) is answered YES.
391,3 SHOW CONTACT SCREEN? S;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 31, 1988
DESCRIPTION: Answer yes if you would like to have the contact screen displayed for any patient of this patient
type. This screen contains names and addresses of next of kin, emergency contacts, and designees.
391,4 *SHOW EMPLOYMENT SCREEN? S;4 SET
SHOW EMPLOYMENT SCREEN?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 24, 1992
HELP-PROMPT: This field is no longer used. The employment screen will now for all patients.
DESCRIPTION: This field is no longer used by the MAS package. Due to the increased need for employment data due
to billing, the employment screen can no longer be turned off. This field will be removed in a
future release of the MAS package.
391,5 *SHOW INSURANCE SCREEN? S;5 SET
SHOW INSURANCE SCREEN?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 12, 1991
DESCRIPTION: This field is no longer used by the MAS package (the insurance screen is now displayed for ALL
patients). It will be removed in a future release.
391,6 SHOW SERVICE SCREEN? S;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 31, 1988
DESCRIPTION: Answer yes if you would like the service screen to display for all patients added to your system
with this patient type. The service record screen contains data about service history, prisoner of
war status, combat, Vietnam service, agent orange and ionizing radiation exposure, military
retirement/disability, and service dental history. For non-veterans, you may choose not to display
this screen.
391,7 *SHOW MONETARY SCREEN? S;7 SET
SHOW MONETARY SCREEN?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 12, 1991
DESCRIPTION:
This field is no longer used by the MAS package. It will be removed in a future version of MAS.
391,8 SHOW FAMILY INFO SCREEN S;8 SET (Required)
'0' FOR NO;
'1' FOR YES;
INPUT TRANSFORM: D FAMINF^DGRPDD
LAST EDITED: JUN 29, 1992
HELP-PROMPT: Enter yes to display the family demographic screen during registration.
DESCRIPTION: To display the family demographic screen during registration (screen 8), respond yes here. You
must answer yes for NSC patients as income screening is required for all non-service connected
veterans. You may chose to show this screen for service connected patients or non-veterans.
The family demographic screen holds the name, SSN, date of birth, and sex for all dependents of the
patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
391,8.2 ID FORMAT 8.2;1 POINTER TO IDENTIFICATION FORMAT FILE (#8.2)
LAST EDITED: NOV 06, 1989
DESCRIPTION: This field contains a pointer to the IDENTIFICATION FORMAT file (#8.2). This field will contain
the default ID format for all patients with this patient type. For most VA purposes, this will be
the SSN.
391,9 SHOW INCOME SCREENING SCREEN S;9 SET
'0' FOR NO;
'1' FOR YES;
INPUT TRANSFORM: D INCSCR^DGRPDD
LAST EDITED: JUN 29, 1992
HELP-PROMPT: Enter yes if you want the income screening screen to show for all patients of this patient type.
DESCRIPTION: Enter yes if the income screening screen should be displayed for this type of patient. Answer no
otherwise. You will be unable to edit this question if the VETERAN? prompt (field .05) is answered
yes. This data must be collected for all veterans seen. This screen will contain information on a
patient's income for the previous calendar year. It will also contain information on the patient's
spouse and dependents. This data will, in turn, be used for IRS matching.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the VETERAN? field of the TYPE OF PATIENT File
391,10 SHOW INELIGIBLE SCREEN S;10 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 25, 1992
DESCRIPTION: Enter yes if you wish the ineligible data screen to show for all patients of this patient type.
This screen contains information on the a patient's ineligibility for care and data on missing
patients.
391,11 SHOW VERIFICATION SCREEN? S;11 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 25, 1992
HELP-PROMPT: If you want users to be able to see the verification screen for this type of patient, answer yes.
Otherwise, respond no.
DESCRIPTION: Enter yes if you wish the service verification screen to show for all patients of this patient
type. This screen contains information on the verification of eligility and service record data.
It also contains data on VA rated disabilities.
391,41 *EDIT APPLICANT EMPLOYER? E;41 SET
EDIT APPLICANT EMPLOYER?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 26, 1992
DESCRIPTION: Respond yes if you want users to be able to edit the employer data for the applicant (veteran). If
you say no, this information will appear on the screen display, but will not be editable.
391,42 *EDIT SPOUSE'S EMPLOYER? E;42 SET
EDIT SPOUSE'S EMPLOYER
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 26, 1992
DESCRIPTION: Respond yes if you want users to be able to edit the spouse's employer information for this type of
patient. If you say no, this information will appear on the screen display, but will not be
editable.
391,61 *EDIT SERVICE HISTORY? E;61 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you wish to allow users to edit the service history data for this type of patient. If
you say no, this information will appear on the screen display, but will not be editable.
391,62 *EDIT PRISONER OF WAR DATA? E;62 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you wish to allow users to edit the prisoner of war data (from/to dates, where
imprisoned, etc.) for this type of patient. If you say no, this information will appear on the
screen display, but will not be editable.
391,63 *EDIT COMBAT DATA? E;63 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you want the users to be able to edit combat data for patients of this type. This
data includes combat from/to dates as well as where the combat occurred. If you respond no, this
data will appear on the screen, but will not be editable.
391,64 *EDIT VIETNAM SERVICE DATA? E;64 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you want users to be able to edit Vietnam service data for patients of this type.
This data includes the dates from and to which the veteran served in Vietnam. If you respond no,
this data will appear on the screen, but will be uneditable.
391,65 *EDIT AGENT ORANGE DATA? E;65 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you want users to be able to edit agent orange exposure data for patients of this
type. This data includes the dates of test for AO exposure. If you respond no, this data will
appear on the screen, but will be uneditable.
391,66 *EDIT RADIATION EXPOSURE DATA? E;66 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you want to be able to edit radiation exposure data for patients with this patient
type. This data includes dates of test for radiation. If you respond no, this data will appear on
the screen, but will be uneditable.
391,67 *EDIT MILITARY DISABILITY DATA E;67 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you want the users to be able to edit data relating to military disability for
patients of this type. If you respond no, the data element will appear on the screen, but will not
be editable.
391,68 *EDIT DENTAL HISTORY DATA? E;68 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 23, 1992
DESCRIPTION: Enter yes if you want users to be able to edit data relating to dental history in service if the
patient is of this type. If you respond no, the data element will appear on the screen, but will
not be editable.
391,71 *EDIT VA MONETARY BENEFITS? E;71 SET
EDIT VA MONETARY BENEFITS?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 12, 1991
DESCRIPTION:
This field is no longer used by the MAS package and will be removed in a future version.
391,72 *EDIT OTHER MONETARY BENEFITS? E;72 SET
EDIT OTHER MONETARY BENEFITS?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 12, 1991
DESCRIPTION:
This field is no longer used by the MAS package and will be removed in a future version.
391,74 EDIT SC CONDITIONS PER PT? E;74 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 04, 1991
HELP-PROMPT: Enter YES if you want to allow the user to edit SC conditions as stated by the applicant.
DESCRIPTION: If the user should be allowed to edit SC conditions as stated by the applicant for patients of this
patient type, answer yes here. Otherwise respond no. This data appears on registration screen 7
(Eligibility Status Data).
391,83 *EDIT SC CONDITIONS PER PT? E;83 SET
EDIT SC CONDITIONS PER PT?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 13, 1991
DESCRIPTION: Respond yes if you want to give users the ability to edit service conditions as stated by the
patient for patients of this patient type. If you respond no, the question will appear on the
screen, but it will not be editable.
Note: Due to a change in screen numbering, this field is being *'d for
deletion and will no longer be used (affective with installation
of this version). A new field 73 has been added which is the
same prompt. This is in keeping with the present field numbering
sequence.
391,91 *EDIT INELIGIBLE DATA? E;91 SET
EDIT INELIGIBLE DATA?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 25, 1992
DESCRIPTION: Enter yes if you want users to be allowed to edit data about a patients eligibility for patients of
this patient type. If you respond no, the question will appear on the screen, but it will not be
editable.
391,92 *EDIT MISSING DATA? E;92 SET
EDIT MISSING DATA?
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 25, 1992
DESCRIPTION: Enter yes if you want the user to be allowed to edit data on missing veterans for patients of this
patient type. If you respond no, the question will appear on the screen, but will not be editable.
391,101 EDIT INELIGIBLE DATA? E10;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter yes if you want users to be allowed to edit data about a patients ineligiblility for care.
DESCRIPTION: If, when editing data for patients of this type, you want users to be able edit data about a
patient's ineligibility for care, respond yes here. If you respond no, the data will display on
the screen, but will not be editable by the users.
TECHNICAL DESCR: This data has been placed on the E10 node. Because FM does not allow more than 100 pieces on a
node, it must be kept on a separate node. The registration code will have to check if screen
number is 10 or greater and check the E10 node rather than the E node.
391,102 EDIT MISSING DATA? E10;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 19, 2012
HELP-PROMPT: If you want users to be able to edit the missing data for patients of this type, answer yes.
DESCRIPTION: If, for patients of the specified patient type, you want users to be able to edit data about
missing veterans, answer yes. If you respond no, the user will see the screen, but will not be
able to edit the missing data.
TECHNICAL DESCR: Because FM will not allow more than 100 pieces on a node, editable items on screen 10 or greater
had to be moved to the new E10 node. The fields were numbered so that the field number was equal
to screen#_item# and the piece position on the node was equal to the field number. Because the
missing data is on screen 10, it is not possible to put it on the same node (because there can not
be more than 100 pieces). Registration will need to check to see if the screen is 10 or greater
and, if so, look at this new node.
391,200 NEW PATIENT INPUT DR DR;E1,240 FREE TEXT
INPUT TRANSFORM: W:$S('$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) !?5,"Must have Programmer Access!!! " K:$S('$D(DUZ(0)):1,DUZ(
0)'="@":1,1:0) X I $D(X) K:$L(X)>240!($L(X)<2) X I $D(X) D ^DIM
LAST EDITED: JUN 01, 1991
HELP-PROMPT: Enter the fields (DR string) to be asked for new patients of this type who are entered into the
system. Must have programmer access!!
DESCRIPTION: This field contains a line of code which sets the variable DR for use in a filemanager enter/edit
(DIE) call. In order to add to this field or edit what is in it, you must have programmer mode.
This DR string should contain a listing of the fields you wish to ask whenever a patient of this
patient type is added to the system. These fields would be in addition to the prompts normally
given for NAME, SSN, DOB, VET?, etc. If blank, only the standard questions will be asked.
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
IDENTIFICATION FORMAT (#8.2) ID FORMAT (#8.2)
INPUT TEMPLATE(S):
DG PATIENT TYPE MAY 05, 1992@09:53 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):