Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  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

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.
  • 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.
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)
  • 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)
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.
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)
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)
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)
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)
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)
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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All