STANDARD DATA DICTIONARY #2040 -- VIST ROSTER FILE 9/29/25 PAGE 1
STORED IN ^ANRV(2040, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains information on the VIST veterans of interest to the VIST Coordinator.
APPLICATION GROUP(S): ANRV
POINTED TO BY: NAME field (#.01) of the VIST BENEFITS AND SERVICES CHECKLIST File (#2041.7)
NAME field (#.01) of the VIST REFERRAL ROSTER File (#2042.5)
NAME field (#.01) of the VARO CLAIMS File (#2043.5)
CROSS
REFERENCED BY: VIS TEAM REVIEW DATE(AB), VIST FIELD VISIT DATE (AMIS)(AC), NAME(B)
2040,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: MAY 28, 1998
HELP-PROMPT: Enter the veteran's name.
DESCRIPTION:
This is the name of the VIST veteran.
LAYGO TEST: .01,0)= D:$P($G(^DPT(+X,.35)),"^") EN^DDIOL("Patient Deceased, cannot be added!") I '$P($G(^DPT(+X,
.35)),"^")
CROSS-REFERENCE: 2040^B
1)= S ^ANRV(2040,"B",$E(X,1,30),DA)=""
2)= K ^ANRV(2040,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^2040^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S
DIU=X K Y X ^DD(2040,.01,1,2,1.1) X ^DD(2040,.01,1,2,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.3
6)):^(.36),1:"") S X=$S('$D(^DIC(8,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
1.4)= S DIH=$S($D(^ANRV(2040,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=2040,DIG=3 D ^DICR:
$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S
DIU=X K Y S X="" X ^DD(2040,.01,1,2,2.4)
2.4)= S DIH=$S($D(^ANRV(2040,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=2040,DIG=3 D ^DICR:
$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= #.01:ELIGIBILITY CODE
DELETE VALUE)= @
FIELD)= VA ELIGIBILITY
2040,.015 ENROLLMENT DATE 7;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 20, 1998
HELP-PROMPT: Enter date of enrollment.
DESCRIPTION:
This is the date the veteran was added to the VIST roster.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2040,.5 REFERRAL SOURCE 9;1 SET
'1' FOR VA EYE CLINIC;
'2' FOR NON-VA EYE CLINIC;
'3' FOR STATE AGENCY;
'4' FOR COMMUNITY AGENCY;
'5' FOR VA STAFF;
'6' FOR VETERANS SERVICE ORGANIZATION;
'7' FOR FAMILY/FRIEND;
'8' FOR SELF;
'9' FOR OTHER;
LAST EDITED: MAY 17, 1993
HELP-PROMPT: Enter source of referral.
DESCRIPTION:
This is the person, organization, service or other source for the referral to the VIST program.
2040,1 NUMBER OF DEPENDENTS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Type a number between 0 and 99, 0 decimal digits.
DESCRIPTION: This is the number of people in addition to the veteran for whom the veteran has financial
responsibility.
2040,1.2 LIVING ARRANGEMENT 7;5 SET
'1' FOR ALONE;
'2' FOR FAMILY;
'3' FOR NURSING HOME;
'4' FOR STATE VETERANS CENTER;
'5' FOR UNKNOWN;
'6' FOR LIVES WITH FRIEND;
'7' FOR BOARD AND CARE;
'8' FOR OTHER;
LAST EDITED: MAY 18, 1993
HELP-PROMPT: Enter the veteran's living arrangements.
DESCRIPTION:
This describes with whom the veteran resides.
2040,1.5 SPOUSE'S NAME 13;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Enter the name of the veteran's spouse (3-80 characters in length).
DESCRIPTION:
This is the name of the veteran's spouse.
2040,2 DEPENDENT'S NAME & INFO 1;0 Multiple #2040.02
DESCRIPTION: These are the names of the veteran's dependents. You can also include other information, i.e.
phone numbers, etc.
2040.02,.01 NAME OF DEPENDENT & INFO 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Enter name of dependents and pertinent information. (3-80 characters in length)
DESCRIPTION: These are the names of the veteran's dependents. You can also include other information, i.e.
phone numbers, etc.
CROSS-REFERENCE: 2040.02^B
1)= S ^ANRV(2040,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ANRV(2040,DA(1),1,"B",$E(X,1,30),DA)
2040,2.3 DATE OF BIRTH ; COMPUTED DATE
MUMPS CODE: X ^DD(2040,2.3,9.2) S Y(2040,2.3,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(2040,2.3,101),U,3) S D0
=Y(2040,2.3,80)
9.2 = S Y(2040,2.3,80)=$S($D(D0):D0,1:""),Y(2040,2.3,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),D0=$P(Y(
2040,2.3,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1
ALGORITHM: NAME:DATE OF BIRTH
2040,2.5 AGE ; COMPUTED
MUMPS CODE: X ^DD(2040,2.5,9.2) X $P(^DD(2,.033,0),U,5,99) S Y(2040,2.5,101)=X S X=Y(2040,2.5,101) S D0=Y(2040,
2.5,80)
9.2 = S Y(2040,2.5,80)=$S($D(D0):D0,1:""),Y(2040,2.5,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),D0=$P(Y(
2040,2.5,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1
ALGORITHM: NAME:AGE
2040,3 VIST ELIGIBILITY 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: MAR 30, 1998
HELP-PROMPT: Answer must be 3-80 characters in length.
DESCRIPTION:
This describes the category of VA eligibility of the veteran.
NOTES: TRIGGERED by the NAME field of the VIST ROSTER File
2040,3.3 PERIOD OF SERVICE ; COMPUTED
MUMPS CODE: X ^DD(2040,3.3,9.3) S X=$S('$D(^DIC(21,+$P(Y(2040,3.3,101),U,3),0)):"",1:$P(^(0),U,1)) S D0=Y(2040,
3.3,80)
9.2 = S Y(2040,3.3,80)=$S($D(D0):D0,1:""),Y(2040,3.3,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),D0=$P(Y(
2040,3.3,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(2040,3.3,180)=$S($D(D0):D0,1:"")
9.3 = X ^DD(2040,3.3,9.2) S Y(2040,3.3,101)=$S($D(^DPT(D0,.32)):^(.32),1:""),D0=$P(Y(2040,3.3,101),
U,3) S:'$D(^DIC(21,+D0,0)) D0=-1
ALGORITHM: NAME:PERIOD OF SERVICE:PERIOD OF SERVICE
LAST EDITED: APR 11, 1989
DESCRIPTION:
This is the last period of active service the veteran served.
2040,3.5 VA ENTITLEMENT (AMIS) 5;1 SET
'022' FOR 0% ONLY (022);
'023' FOR 10% SC THRU SMC (023);
'024' FOR SC FOR BLINDNESS (024);
'025' FOR NSC PENSION A&A/HB (025);
'NSC' FOR NSC PENSION ONLY;
'OTH' FOR NSC OTHER ELIGIBILITY;
LAST EDITED: SEP 05, 1991
HELP-PROMPT: Enter VA entitlement.
DESCRIPTION:
This is the category of VIST eligibility as prescribed on the VIST AMIS.
2040,4 EYE EXAM DATE & VISUAL STATUS 3;0 DATE Multiple #2040.04
DESCRIPTION: This is the date of the eye examination and the entry of the veteran's visual acuities and/or
fields.
2040.04,.01 EYE EXAM DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date of the last eye exam.
DESCRIPTION: This is the date of the eye examination and the determination of legal blindness, low vision, or
normal sight.
2040.04,1 EYE DIAGNOSIS NARRATIVE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: MAY 23, 1993
HELP-PROMPT: Enter a free text narrative, 3-80 characters in length.
DESCRIPTION:
This is a free text narrative of the eye exam conducted on this date.
2040.04,2 VISUAL ACUITY RIGHT EYE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Enter the visual acuity for the veteran's right eye (free text 1-25 characters).
DESCRIPTION:
This is the visual acuity of the veteran's right eye.
2040.04,3 VISUAL ACUITY LEFT EYE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Enter the visual acuity for the veteran's left eye (free text 1-25 characters).
DESCRIPTION:
This is the visual acuity of the veteran's left eye.
2040.04,4 VISUAL FIELD RIGHT EYE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Enter the visual field for the veteran's right eye (free text 1-25 characters).
DESCRIPTION:
This is the visual field for the veteran's right eye.
2040.04,5 VISUAL FIELD LEFT EYE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAY 02, 1989
HELP-PROMPT: Enter the visual field for the veteran's left eye (free text 1-25 characters).
DESCRIPTION:
This is the visual field for the veteran's left eye.
2040,4.2 EYE DIAGNOSIS 15;0 POINTER Multiple #2040.01
DESCRIPTION:
This states the diagnosis causing the veteran's visual loss.
2040.01,.01 EYE DIAGNOSIS 0;1 POINTER TO VIST EYE DIAGNOSIS FILE (#2041.5) (Multiply asked)
LAST EDITED: FEB 11, 1998
HELP-PROMPT: Enter Eye Diagnosis.
DESCRIPTION:
This states the diagnosis of the cause of the veteran's visual loss.
CROSS-REFERENCE: 2040.01^B
1)= S ^ANRV(2040,DA(1),15,"B",$E(X,1,30),DA)=""
2)= K ^ANRV(2040,DA(1),15,"B",$E(X,1,30),DA)
2040,4.5 VISUAL ACTIVITY (AMIS) 7;3 SET (Required)
'004' FOR NO SIGHT (004);
'005' FOR LP UP TO & INCLUDING 5/200 (005);
'006' FOR LP OF 6/200 TO 20/200 (006);
'007' FOR FIELD RESTRICTION (007);
'008' FOR NOT KNOWN (008);
LAST EDITED: MAR 27, 1989
HELP-PROMPT: Enter Visual Acuities or fields per AMIS guidelines.
DESCRIPTION:
This describes the veteran's degree of vision loss.
2040,5 GENERAL HEALTH 4;0 WORD-PROCESSING #2040.05
DESCRIPTION:
This provides a summary of the veteran's general health.
LAST EDITED: MAR 07, 1989
HELP-PROMPT: Enter narrative description of the veteran's current health.
DESCRIPTION:
This narrative provides a summary of the veteran's general health.
2040,6 VIS TEAM REVIEW DATE 6;0 DATE Multiple #2040.06
DESCRIPTION:
This is the date of the most recent VIST Review.
2040.06,.01 VIS TEAM REVIEW DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 20, 1998
HELP-PROMPT: Enter date of VIST Review.
DESCRIPTION:
This is the date of the most recent VIST Review.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 2040^AB
1)= S ^ANRV(2040,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^ANRV(2040,"AB",$E(X,1,30),DA(1),DA)
This is a regular cross reference on the VIS TEAM REVIEW DATE field. It sets the "AB" cross
reference in the following format;
^ANRV(2040,"AB",2980204,4,1)=""
20980204 - VIS TEAM REVIEW DATE
4 - Internal Entry # of the Patient in the VIST ROSTER file
1 - Internal Entry # of the VIS TEAM REVIEW DATE multiple
CROSS-REFERENCE: ^^TRIGGER^2040.06^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ANRV(2040,D0,6,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(2040.06,.01,1,2,1.1) X ^DD(2040.06,.01,1,2,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"") S X=$P(Y(1),U,1)
1.4)= S DIH=$S($D(^ANRV(2040,DIV(0),6,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2040.06,DI
G=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ANRV(2040,D0,6,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2040.06,.01,1,2,2.4)
2.4)= S DIH=$S($D(^ANRV(2040,DIV(0),6,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2040.06,DI
G=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= VA ELIGIBILITY
DELETE VALUE)= @
FIELD)= ELIGIBILITY ON REVIEW DATE
2040.06,1 AMIS-STATUS OF REVIEW 0;2 SET
'035' FOR COMPLETE (035);
'036' FOR DECLINED (036);
'037' FOR NO SHOW (037);
LAST EDITED: MAR 29, 1989
HELP-PROMPT: Enter the AMIS status at the time of review.
DESCRIPTION:
This is the AMIS status on the date of review.
2040.06,2 TYPE OF REVIEW 0;3 SET
'1' FOR FORMAL;
'2' FOR COMPONENT;
LAST EDITED: MAY 04, 1989
HELP-PROMPT: Enter the type of review.
DESCRIPTION:
This determines the type of review. Possible choices are "FORMAL" and "COMPONENT".
2040.06,3 ELIGIBILITY ON REVIEW DATE 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3) X
LAST EDITED: MAR 20, 1998
HELP-PROMPT: Answer must be 3-80 characters in length.
DESCRIPTION:
This is the veteran's eligibility status on the date of this review.
NOTES: TRIGGERED by the VIS TEAM REVIEW DATE field of the VIS TEAM REVIEW DATE sub-field of the VIST
ROSTER File
2040,6.5 VIST FIELD VISIT DATE (AMIS) 10;0 DATE Multiple #2040.03
DESCRIPTION:
This is the date of the most recent field or home visit to the veteran.
2040.03,.01 VIST FIELD VISIT DATE (AMIS) 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 18, 1989
HELP-PROMPT: Enter date of VIST Field Visit.
DESCRIPTION:
This is the date of the most recent field or home visit to the veteran.
CROSS-REFERENCE: 2040^AC
1)= S ^ANRV(2040,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^ANRV(2040,"AC",$E(X,1,30),DA(1),DA)
2040,7 VIST ELIGIBLE (AMIS) 13;2 SET (Required)
'001' FOR YES (001);
'002' FOR NO - REVIEWED FOR BRC ATTENDANCE (002);
'003' FOR NO - OTHER (003);
'NO' FOR NO - NOT LEGALLY BLIND;
'I' FOR INACTIVE;
LAST EDITED: MAY 23, 1989
HELP-PROMPT: Enter veteran's eligibility for VIST services.
DESCRIPTION:
This states whether the veteran is eligible for VIST services.
2040,8 NON VIST ELIGIBLE (AMIS) 7;2 SET
'002' FOR REVIEWED FOR BRC (002);
'003' FOR OTHER (003);
LAST EDITED: MAR 27, 1989
HELP-PROMPT: Enter if veteran is not eligible for VIST services.
DESCRIPTION:
This denotes veterans not eligible for VIST Services.
2040,8.5 PERIOD OF SERVICE (AMIS) ; COMPUTED
MUMPS CODE: X ^DD(2040,8.5,9.5) S X=$S(Y(2040,8.5,2):Y(2040,8.5,3),Y(2040,8.5,4):Y(2040,8.5,5),Y(2040,8.5,6):Y(
2040,8.5,7),Y(2040,8.5,8):Y(2040,8.5,9),Y(2040,8.5,10):Y(2040,8.5,11),Y(2040,8.5,12):X)
9.2 = X $P(^DD(2040,3.3,0),U,5,99) S Y(2040,8.5,1)=X S X=Y(2040,8.5,1)="WORLD WAR I",Y(2040,8.5,2)=
X S X="016",Y(2040,8.5,3)=X S X=Y(2040,8.5,1)
9.3 = X ^DD(2040,8.5,9.2) S X=X="SPANISH AMERICAN",Y(2040,8.5,4)=X S X="016",Y(2040,8.5,5)=X S X=Y(
2040,8.5,1)="WORLD WAR II",Y(2040,8.5,6)=X S X="017"
9.4 = X ^DD(2040,8.5,9.3) S Y(2040,8.5,7)=X S X=Y(2040,8.5,1)="KOREAN",Y(2040,8.5,8)=X S X="018",Y(
2040,8.5,9)=X S X=Y(2040,8.5,1)="VIETNAM ERA"
9.5 = X ^DD(2040,8.5,9.4) S Y(2040,8.5,10)=X S X="019",Y(2040,8.5,11)=X S X=1,Y(2040,8.5,12)=X S X=
" "
ALGORITHM: $S(PERIOD OF SERVICE="WORLD WAR I":"016",PERIOD OF SERVICE="SPANISH AMERICAN":"016",PERIOD OF SERVI
CE="WORLD WAR II":"017",PERIOD OF SERVICE="KOREAN":"018",PERIOD OF SERVICE="VIETNAM ERA":"019",1:"
")
LAST EDITED: JUL 24, 1989
DESCRIPTION:
This is the period of Service the veteran spent in the military.
2040,8.6 PERIOD OF SERVICE (AMIS) II ; COMPUTED
MUMPS CODE: X ^DD(2040,8.6,9.5) S X=$S(Y(2040,8.6,2):Y(2040,8.6,3),Y(2040,8.6,4):Y(2040,8.6,5),Y(2040,8.6,6):Y(
2040,8.6,7),Y(2040,8.6,8):Y(2040,8.6,9),Y(2040,8.6,10):Y(2040,8.6,11),Y(2040,8.6,12):X)
9.2 = X $P(^DD(2040,3.3,0),U,5,99) S Y(2040,8.6,1)=X S X=Y(2040,8.6,1)="POST-KOREAN",Y(2040,8.6,2)=
X S X="020",Y(2040,8.6,3)=X S X=Y(2040,8.6,1)
9.3 = X ^DD(2040,8.6,9.2) S X=X="POST-VIETNAM",Y(2040,8.6,4)=X S X="020",Y(2040,8.6,5)=X S X=Y(2040
,8.6,1)="PRE-KOREAN",Y(2040,8.6,6)=X S X="020"
9.4 = X ^DD(2040,8.6,9.3) S Y(2040,8.6,7)=X S X=Y(2040,8.6,1)="OTHER OR NONE",Y(2040,8.6,8)=X S X="
020",Y(2040,8.6,9)=X S X=Y(2040,8.6,1)="PERSIAN GULF WAR"
9.5 = X ^DD(2040,8.6,9.4) S Y(2040,8.6,10)=X S X="020",Y(2040,8.6,11)=X S X=1,Y(2040,8.6,12)=X S X=
" "
ALGORITHM: $S(PERIOD OF SERVICE="POST-KOREAN":"020",PERIOD OF SERVICE="POST-VIETNAM":"020",PERIOD OF SERVICE="
PRE-KOREAN":"020",PERIOD OF SERVICE="OTHER OR NONE":"020",PERIOD OF SERVICE="PERSIAN GULF WAR":"020
",1:" ")
LAST EDITED: JUL 24, 1989
DESCRIPTION:
This is the AMIS field for period of service.
2040,8.7 AGE CATEGORY I ; COMPUTED
MUMPS CODE: X ^DD(2040,8.7,9.7) S X=$S(Y(2040,8.7,2):Y(2040,8.7,3),Y(2040,8.7,5):Y(2040,8.7,6),Y(2040,8.7,8):Y(
2040,8.7,9),Y(2040,8.7,11):Y(2040,8.7,12),Y(2040,8.7,14):Y(2040,8.7,15),Y(2040,8.7,16):X)
9.2 = X $P(^DD(2040,2.5,0),U,5,99) S Y(2040,8.7,1)=X S X=Y(2040,8.7,1)<25,Y(2040,8.7,2)=X S X="026"
,Y(2040,8.7,3)=X S X=Y(2040,8.7,1)>24
9.3 = X ^DD(2040,8.7,9.2) S Y(2040,8.7,4)=X S X=Y(2040,8.7,1)<35,Y=X,X=Y(2040,8.7,4),X=X&Y,Y(2040,8
.7,5)=X S X="027",Y(2040,8.7,6)=X S X=Y(2040,8.7,1)
9.4 = X ^DD(2040,8.7,9.3) S X=X>34,Y(2040,8.7,7)=X S X=Y(2040,8.7,1)<45,Y=X,X=Y(2040,8.7,7),X=X&Y,Y
(2040,8.7,8)=X S X="028",Y(2040,8.7,9)=X S X=Y(2040,8.7,1)
9.5 = X ^DD(2040,8.7,9.4) S X=X>44,Y(2040,8.7,10)=X S X=Y(2040,8.7,1)<55,Y=X,X=Y(2040,8.7,10),X=X&Y
,Y(2040,8.7,11)=X S X="029",Y(2040,8.7,12)=X S X=Y(2040,8.7,1)
9.6 = X ^DD(2040,8.7,9.5) S X=X>54,Y(2040,8.7,13)=X S X=Y(2040,8.7,1)<65,Y=X,X=Y(2040,8.7,13),X=X&Y
,Y(2040,8.7,14)=X S X="030",Y(2040,8.7,15)=X S X=Y(2040,8.7,1)
9.7 = X ^DD(2040,8.7,9.6) S X=X>64,Y(2040,8.7,16)=X S X=" "
ALGORITHM: $S(AGE<25:"026",AGE>24&(AGE<35):"027",AGE>34&(AGE<45):"028",AGE>44&(AGE<55):"029",AGE>54&(AGE<65):"
030",AGE>64:" ")
LAST EDITED: APR 04, 1989
DESCRIPTION:
This is the field denoting the age category in which the veteran is currently.
2040,8.9 AGE CATEGORY II ; COMPUTED
MUMPS CODE: X ^DD(2040,8.9,9.5) S X=$S(Y(2040,8.9,2):Y(2040,8.9,3),Y(2040,8.9,5):Y(2040,8.9,6),Y(2040,8.9,8):Y(
2040,8.9,9),Y(2040,8.9,10):X)
9.2 = X $P(^DD(2040,2.5,0),U,5,99) S Y(2040,8.9,1)=X S X=Y(2040,8.9,1)<65,Y(2040,8.9,2)=X S X=" ",Y
(2040,8.9,3)=X S X=Y(2040,8.9,1)>64
9.3 = X ^DD(2040,8.9,9.2) S Y(2040,8.9,4)=X S X=Y(2040,8.9,1)<75,Y=X,X=Y(2040,8.9,4),X=X&Y,Y(2040,8
.9,5)=X S X="031",Y(2040,8.9,6)=X S X=Y(2040,8.9,1)
9.4 = X ^DD(2040,8.9,9.3) S X=X>74,Y(2040,8.9,7)=X S X=Y(2040,8.9,1)<85,Y=X,X=Y(2040,8.9,7),X=X&Y,Y
(2040,8.9,8)=X S X="032",Y(2040,8.9,9)=X S X=Y(2040,8.9,1)
9.5 = X ^DD(2040,8.9,9.4) S X=X>84,Y(2040,8.9,10)=X S X="033"
ALGORITHM: $S(AGE<65:" ",AGE>64&(AGE<75):"031",AGE>74&(AGE<85):"032",AGE>84:"033")
LAST EDITED: APR 04, 1989
DESCRIPTION:
This is the field that denotes the age of the veteran.
2040,9 MAJOR ACTIVITY (AMIS) 7;4 SET (Required)
'009' FOR EMP FOR PAY (009);
'010' FOR ENG IN TRN/SCHOOL (010);
'011' FOR VOL WORK 10HRS/WK (011);
'012' FOR RETIRED W/APPROP. ACT. (012);
'013' FOR TOO ILL OR TOO DISABLED (013);
'014' FOR NO WELL DEFINED ACT. (014);
'015' FOR NOT KNOWN (015);
LAST EDITED: MAR 27, 1989
HELP-PROMPT: Enter the code corresponding to the veteran's major activity.
DESCRIPTION: This field denotes the veteran's major activities, work, school, volunteer activities, retired, too
ill.
2040,10 COUNTY ; COMPUTED MULTIPLE
MUMPS CODE: X ^DD(2040,10,9.6) S X=X_$P(Y(2040,10,303),U,3)_$P(Y(2040,10,303),U,1) S D0=Y(2040,10,80) S D1=Y(20
40,10,281)
9.2 = S I(200)="^DIC(5,",J(200)=5 F D=0:0 S (D,D1)=$N(^DIC(5,D0,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P
(^(0),U,1) X DICMX Q:'$D(D) S D=D1
9.3 = S Y(2040,10,80)=$S($D(D0):D0,1:""),Y(2040,10,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),D0=$P(Y(20
40,10,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(2040,10,180)=$S($D(D0):D0,1:"")
9.4 = X ^DD(2040,10,9.3) S Y(2040,10,101)=$S($D(^DPT(D0,.11)):^(.11),1:""),D0=$P(Y(2040,10,101),U,5
) S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(2040,10,280)=$S($D(D0):D0,1:"")
9.5 = X ^DD(2040,10,9.4) S Y(2040,10,281)=$S($D(D1):D1,1:"") X ^DD(2040,10,9.2):D0>0 S X="" K DIC S
Y=-1,DIC="^DIC(5,D0,1,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y
9.6 = X ^DD(2040,10,9.5) S Y(2040,10,302)=$S($D(^DIC(5,D0,0)):^(0),1:""),Y(2040,10,303)=$S($D(^DIC(
5,D0,1,D1,0)):^(0),1:"") S X=$P(Y(2040,10,302),U,1)
ALGORITHM: NAME:STATE:COUNTY:COUNTY:NAME_VA COUNTY CODE_COUNTY
LAST EDITED: APR 13, 1989
DESCRIPTION:
This denotes the county in which the veteran resides.
2040,11 VIST COORDINATOR 7;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 26, 1994
HELP-PROMPT: Enter the name of the VIST Coordinator.
DESCRIPTION:
This is the VIST coordinator responsible for providing the veteran the VIST services.
2040,11.5 DATE VETERAN DISCHARGED (AMIS) 14;0 DATE Multiple #2040.07
DESCRIPTION:
This is the date a veteran was discharged from a blind rehabilitation program.
2040.07,.01 DATE VETERAN DISCHARGED (AMIS) 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 24, 1989
HELP-PROMPT: Enter the date that the veteran was discharged from Blind Rehabilitation.
DESCRIPTION:
This is the date a veteran was discharged from a blind rehabilitation program.
2040,12 *ASSESSMENT 11;0 WORD-PROCESSING #2040.012
LAST EDITED: MAY 17, 1993
DESCRIPTION:
This is an outline of the veteran's general functioning within his environment. (freetext)
LAST EDITED: MAR 07, 1989
HELP-PROMPT: Enter your assessment of the veteran's current level of functioning.
DESCRIPTION:
This is an outline of the veteran's general functioning within his environment. (freetext)
2040,12.1 FINANCIAL AND BENEFITS INFO 16;0 WORD-PROCESSING #2040.08
LAST EDITED: JAN 27, 1998
DESCRIPTION:
This indicates the veteran's financial status.
LAST EDITED: JAN 27, 1998
HELP-PROMPT: Enter current financial and benefits information for the veteran.
DESCRIPTION:
This indicates the veteran's financial status.
2040,12.2 PATIENT HISTORY 17;0 WORD-PROCESSING #2040.09
DESCRIPTION: This provides an outline for the veteran's family, education, military, marital and work history.
(freetext)
LAST EDITED: AUG 17, 1993
HELP-PROMPT: Enter patient history.
DESCRIPTION: This provides an outline for the veteran's family, education, military, marital and work history.
(freetext)
2040,12.3 ACTIVITIES 18;0 WORD-PROCESSING #2040.1
DESCRIPTION:
This outlines the veteran's general activities within his environment. (freetext)
LAST EDITED: MAY 17, 1993
HELP-PROMPT: Enter veteran's current activities.
DESCRIPTION:
This outlines the veteran's general activities within his environment. (freetext)
2040,12.4 ADJUSTMENT TO BLINDNESS 19;0 WORD-PROCESSING #2040.11
DESCRIPTION:
This summarizes the degree to which the veteran has adjusted to the loss of sight. (freetext)
LAST EDITED: MAY 17, 1993
HELP-PROMPT: Enter your assessment of the veteran's adjustment to blindness.
DESCRIPTION:
This summarizes the degree to which the veteran has adjusted to the loss of sight. (freetext)
2040,12.5 IMPRESSIONS 20;0 WORD-PROCESSING #2040.12
DESCRIPTION: This outlines observations regarding the veteran's general functioning with respect to his/her
vision loss. (freetext)
LAST EDITED: MAY 17, 1993
HELP-PROMPT: Enter your assessment of the veteran's overall abilities and needs.
DESCRIPTION: This outlines observations regarding the veteran's general functioning with respect to his/her
vision loss. (freetext)
2040,13 PLAN 12;0 WORD-PROCESSING #2040.013
DESCRIPTION:
This states the proposed action steps to meet the presented needs. (freetext)
LAST EDITED: MAR 07, 1989
HELP-PROMPT: Enter your plan.
DESCRIPTION:
This states the proposed action steps to meet the presented needs. (freetext)
2040,14 INACTIVATION DATE 8;0 DATE Multiple #2040.014 (Add New Entry without Asking)
DESCRIPTION:
The date after which the veteran was no longer carried on the active VIST ROSTER.
2040.014,.01 INACTIVATION DATE 0;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 23, 1989
HELP-PROMPT: Enter date when placed on inactive roster.
DESCRIPTION:
The date after which the veteran was no longer carried on the active VIST ROSTER.
2040.014,1 REASON 0;2 SET (Required)
'1' FOR DECEASED;
'2' FOR RELOCATED;
'3' FOR NOT LEGALLY BLIND;
LAST EDITED: MAY 23, 1989
HELP-PROMPT: Enter the reason that this veteran was inactivated.
DESCRIPTION:
This is the reason why the veteran was inactivated from the VIST Roster.
FILES POINTED TO FIELDS
NEW PERSON (#200) VIST COORDINATOR (#11)
PATIENT (#2) NAME (#.01)
VIST EYE DIAGNOSIS (#2041.5) EYE DIAGNOSIS:EYE DIAGNOSIS (#.01)
INPUT TEMPLATE(S):
ANRVEID FEB 20, 1998@06:34 USER #0
ANRVRE FEB 20, 1998@06:41 USER #0
PRINT TEMPLATE(S):
ANRV AGE LIST MAY 21, 1993@10:07 USER #0 VIST ROSTER BY AGE
ANRV BIRTH LIST MAY 20, 1993@14:56 USER #0 VIST ROSTER BY DATE OF BIRTH
ANRV DECEASED LIST JUN 01, 1993@07:22 USER #0 DECEASED LISTING OF VIST PATIENTS
ANRV ELIG AMIS LIST MAR 31, 1994@10:54 USER #0 VIST ELIGIBLE (AMIS) LIST
ANRV EYE DIAG INQ JUN 22, 1993@08:26 USER #0 @
ANRV EYE DIAG NAR SEP 13, 1993@11:58 USER #0 VIST ROSTER BY EYE DIAGNOSIS
ANRV EYE DIAG PRINT JUN 04, 1993@15:55 USER #0 VIST ROSTER BY EYE DIAGNOSIS
ANRV FEE PT AUG 05, 1993@13:54 USER #0 FEE PATIENT LISTING
ANRV INC AMIS JUN 05, 1991@12:45 USER #0 INCOMPLETE AMIS ROSTER
ANRV REFERRAL LIST JUN 20, 1993@19:05 USER #0 VIST ROSTER BY REFERRAL SOURCE
ANRV REVIEW INQ JUN 05, 1991@12:35 USER #0 ANNUAL REVIEW INQUIRY
ANRV ROSTER A/R FEB 26, 1998@09:58 USER #0 VIST ROSTER PRINTOUT
ANRVAD APR 30, 1998@10:49 USER #0 VIST INPATIENT ROSTER LIST
ANRVED FEB 26, 1998@14:57 USER #0 ADDITIONS TO VIST ROSTER
ANRVFVD FEB 27, 1998@07:55 USER #0 FIELD VISIT(S) DATE LIST
ANRVID FEB 27, 1998@08:00 USER #0
VIST ROSTER INACTIVATION LIST **BE SURE VIST ELIGIBLE READS INACTIVE**
ANRVREV MAY 31, 1989 USER #0 VIST REVIEW LIST
SORT TEMPLATE(S):
ANRV AGE LIST MAY 22, 1993@14:44 USER #0
SORT BY: @INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1// (INTERNAL(VIST ELIGIBLE (AMIS))'=""I"")
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: @NAME:AGE;"AGE";S// (User is asked range)
WITHIN NAME:AGE, SORT BY: @NAME// (NAME not null)
ANRV BIRTH LIST MAY 22, 1993@14:47 USER #0
SORT BY: @INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1// (INTERNAL(VIST ELIGIBLE (AMIS))'=""I"")
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: @NAME:MONTHNAME(+$E(DATE OF BIRTH,4,5));"DATE OF BIRTH MONTH"// (User is asked range)
WITHIN NAME:MONTHNAME(+$E(DATE OF BIRTH,4,5)), SORT BY: @NAME// (NAME not null)
ANRV DECEASED LIST JUN 01, 1993@13:40 USER #0
SORT BY: NAME:;L1//
PATIENT FIELD: DATE OF DEATH'=""// (DATE OF DEATH'="""")
WITHIN DATE OF DEATH'="", SORT BY: @NAME:DATE OF DEATH// (User is asked range)
WITHIN NAME:DATE OF DEATH, SORT BY: @NAME// (NAME not null)
ANRV ELIG AMIS LIST MAR 31, 1994@10:26 USER #0
SORT BY: INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1// (INTERNAL(VIST ELIGIBLE (AMIS))'=""I"")
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: @+VIST ELIGIBLE (AMIS);S// (VIST ELIGIBLE (AMIS) not null)
WITHIN VIST ELIGIBLE (AMIS), SORT BY: @NAME// (NAME not null)
ANRV EYE DIAG NAR SEP 13, 1993@11:56 USER #0
SORT BY: @INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1// (INTERNAL(VIST ELIGIBLE (AMIS))'=""I"")
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: @NAME// (NAME not null)
ANRV EYE DIAG PRINT MAY 15, 1998@09:12 USER #0
SORT BY: @+EYE DIAGNOSIS;S//
EYE DIAGNOSIS SUB-FIELD: EYE DIAGNOSIS// (EYE DIAGNOSIS not null)
WITHIN EYE DIAGNOSIS, SORT BY: @NAME// (NAME not null)
ANRV FEE PT AUG 05, 1993@13:50 USER #0
SORT BY: @INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1// (INTERNAL(VIST ELIGIBLE (AMIS))'=""I"")
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: @NAME// (NAME not null)
WITHIN NAME, SORT BY: AUTHORIZATION;L1//
AUTHORIZATION SUB-FIELD: TREATMENT TYPE CODE["CARD"&(TO DATE>T)// (TREATMENT TYPE CODE[""CARD""&(TO DATE>T))
ANRV INC AMIS JUN 05, 1991@12:46 USER #0
SORT BY: (#4.5="")!(#7="")!(#9="");L1// ((#4.5="""")!(#7="""")!(#9=""""))
WITHIN (#4.5="")!(#7="")!(#9=""), SORT BY: NAME// (NAME not null)
ANRV REFERRAL LIST JUN 21, 1993@13:56 USER #0
SORT BY: @INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1// (INTERNAL(VIST ELIGIBLE (AMIS))'=""I"")
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: 'ENROLLMENT DATE// (User is asked range)
WITHIN ENROLLMENT DATE, SORT BY: +@REFERRAL SOURCE;S// (REFERRAL SOURCE not null)
WITHIN REFERRAL SOURCE, SORT BY: NAME// (NAME not null)
ANRVAD NOV 02, 1989@16:51 USER #0
SORT BY: NAME:;S1//
PATIENT FIELD: WARD LOCATION// (WARD LOCATION not null)
WITHIN WARD LOCATION, SORT BY: @NAME:ROOM-BED// (All NAME:ROOM-BED (includes nulls))
ANRVED MAY 26, 1989 USER #0
SORT BY: ENROLLMENT DATE// (User is asked range)
WITHIN ENROLLMENT DATE, SORT BY: NAME// (NAME not null)
ANRVFVD MAY 26, 1989 USER #0
SORT BY: VIST FIELD VISIT DATE (AMIS)//
VIST FIELD VISIT DATE (AMIS) SUB-FIELD: VIST FIELD VISIT DATE (AMIS)// (User is asked range)
WITHIN VIST FIELD VISIT DATE (AMIS), SORT BY: NAME// (NAME not null)
ANRVID MAY 23, 1989 USER #0
SORT BY: INACTIVATION DATE//
INACTIVATION DATE SUB-FIELD: INACTIVATION DATE// (User is asked range)
WITHIN INACTIVATION DATE, SORT BY: NAME// (NAME not null)
ANRVREV1 MAY 31, 1989 USER #0
SORT BY: VIS TEAM REVIEW DATE//
VIS TEAM REVIEW DATE SUB-FIELD: VIS TEAM REVIEW DATE// (User is asked range)
WITHIN VIS TEAM REVIEW DATE, SORT BY: NAME// (NAME not null)
FORM(S)/BLOCK(S):