Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^ANRV(2040

Package: Visual Impairment Service Team

Global: ^ANRV(2040


Information

FileMan FileNo FileMan Filename Package
2040 VIST ROSTER Visual Impairment Service Team

Description

Directly Accessed By Routines, Total: 49

Package Total Routines
Visual Impairment Service Team 27 ANRV AGE LIST    ANRV BIRTH LIST    ANRV DECEASED LIST    ANRV ELIG AMIS LIST    ANRV EYE DIAG NAR    ANRV EYE DIAG PRINT    ANRVAM1    ANRVAM2
ANRVLET    ANRVML1    ANRVML2    ANRVML3    ANRVML4    ANRVPOST    ANRVPR    ANRVPR1
ANRVPR2    ANRVRP    ANRVRP2    ANRVRP3    ANRVRP4    ANRVRP5    ANRVRP6    ANRVRP7
ANRVRP8    ANRVRP9    ANRVRRL    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Visual Impairment Service Team 5 ANRVDEL    ANRVML4    ANRVPR    ANRVRP7    ANRVRP8    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Visual Impairment Service Team 3 VIST BENEFITS AND SERVICES CHECKLIST(#2041.7)[.01]    VIST REFERRAL ROSTER(#2042.5)[.01]    VARO CLAIMS(#2043.5)[.01]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[11]    
Registration 1 PATIENT(#2)[.01]    
Visual Impairment Service Team 1 VIST EYE DIAGNOSIS(#2041.5)[#2040.01(.01)]    

Fields, Total: 36

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • 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,.36)):^(.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
.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
.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.
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.
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.
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.
2 DEPENDENT'S NAME & INFO 1;0 Multiple #2040.02 2040.02

  • DESCRIPTION:  
    These are the names of the veteran's dependents. You can also include other information, i.e. phone numbers, etc.
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
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
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
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.
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.
4 EYE EXAM DATE & VISUAL STATUS 3;0 DATE Multiple #2040.04 2040.04

  • DESCRIPTION:  
    This is the date of the eye examination and the entry of the veteran's visual acuities and/or fields.
4.2 EYE DIAGNOSIS 15;0 POINTER Multiple #2040.01 2040.01

  • DESCRIPTION:  
    This states the diagnosis causing the veteran's visual loss.
4.5 VISUAL ACTIVITY (AMIS) 7;3 SET
************************REQUIRED FIELD************************
  • '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.
5 GENERAL HEALTH 4;0 WORD-PROCESSING #2040.05

  • DESCRIPTION:  
    This provides a summary of the veteran's general health.
6 VIS TEAM REVIEW DATE 6;0 DATE Multiple #2040.06 2040.06

  • DESCRIPTION:  
    This is the date of the most recent VIST Review.
6.5 VIST FIELD VISIT DATE (AMIS) 10;0 DATE Multiple #2040.03 2040.03

  • DESCRIPTION:  
    This is the date of the most recent field or home visit to the veteran.
7 VIST ELIGIBLE (AMIS) 13;2 SET
************************REQUIRED FIELD************************
  • '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.
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.
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 SERVICE="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.
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.
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.
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.
9 MAJOR ACTIVITY (AMIS) 7;4 SET
************************REQUIRED FIELD************************
  • '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.
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(2040,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(2040,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.
11 VIST COORDINATOR 7;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
11.5 DATE VETERAN DISCHARGED (AMIS) 14;0 DATE Multiple #2040.07 2040.07

  • DESCRIPTION:  
    This is the date a veteran was discharged from a blind rehabilitation program.
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)
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.
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)
12.3 ACTIVITIES 18;0 WORD-PROCESSING #2040.1

  • DESCRIPTION:  
    This outlines the veteran's general activities within his environment. (freetext)
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)
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)
13 PLAN 12;0 WORD-PROCESSING #2040.013

  • DESCRIPTION:  
    This states the proposed action steps to meet the presented needs. (freetext)
14 INACTIVATION DATE 8;0 DATE Multiple #2040.014 2040.014

  • DESCRIPTION:  
    The date after which the veteran was no longer carried on the active VIST ROSTER.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All