ANRVAP ;MUSK/MFW,HCIOFO/NDH - VIST AMIS PRINT ; 30 Jan 98 / 12:10 PM
;;4.0; Visual Impairment Service Team ;**2**;12 Jun 98
S ANRP=0,QFLG=0 U IO D HED G AMIS
HED I $E(IOST)="C",ANRP>0 S DIR(0)="E" D ^DIR K DIR I 'Y S QFLG=1 Q
S ANRP=ANRP+1
W:$Y!($E(IOST)="C")&('$D(ANRVFILE)) @IOF Q:(ANRP>1)&($E(IOST)="C")
W !!!,?80-$L("VISUAL IMPAIRMENT SERVICE TEAM (VIST)")/2,"VISUAL IMPAIRMENT SERVICE TEAM (VIST)",!?80-$L("AMIS CODE SHEET")/2,"AMIS CODE SHEET"
W !!,?15,"FACILITY: ",^DD("SITE"),?70,"Page ",ANRP
S Y=ANQBD X ^DD("DD") W !!,?15,"Period Beginning: ",Y
S Y=ANQED X ^DD("DD") W !,?15,"Period Ending: ",Y,!!!,?55,"FIELD",!,?55,"CODE",?65,"TOTAL" Q
AMIS W !!,?15,$P($T(DESC+1),";",4),?56,"001",?65,^TMP("ANRV",$J,1)
W !,?15,"NON VIST ELIGIBLE VETERANS"
W !,?20,$P($T(DESC+2),";",4),?56,"002",?65,^TMP("ANRV",$J,2)
W !,?20,$P($T(DESC+3),";",4),?56,"003",?65,^TMP("ANRV",$J,3)
W !,?64,"______"
W !,?65,(^TMP("ANRV",$J,1)+^TMP("ANRV",$J,2)+^TMP("ANRV",$J,3)) D:$Y+8>IOSL HED Q:QFLG
VISACT W !!,?15,"VISUAL ACTIVITY"
W !,?20,$P($T(DESC+4),";",4),?56,"004",?65,^TMP("ANRV",$J,4)
W !,?20,$P($T(DESC+5),";",4),?56,"005",?65,^TMP("ANRV",$J,5)
W !,?20,$P($T(DESC+6),";",4),?56,"006",?65,^TMP("ANRV",$J,6)
W !,?20,$P($T(DESC+7),";",4),?56,"007",?65,^TMP("ANRV",$J,7)
W !,?20,$P($T(DESC+8),";",4),?56,"008",?65,^TMP("ANRV",$J,8)
W !,?64,"______",!,?65,(^TMP("ANRV",$J,4)+^TMP("ANRV",$J,5)+^TMP("ANRV",$J,6)+^TMP("ANRV",$J,7)+^TMP("ANRV",$J,8)) D:$Y+10>IOSL HED Q:QFLG
MAJACT W !!,?15,"MAJOR ACTIVITY"
W !,?20,$P($T(DESC+9),";",4),?56,"009",?65,^TMP("ANRV",$J,9)
W !,?20,$P($T(DESC+10),";",4),?56,"010",?65,^TMP("ANRV",$J,10)
W !,?20,$P($T(DESC+11),";",4),?56,"011",?65,^TMP("ANRV",$J,11)
W !,?20,$P($T(DESC+12),";",4),?56,"012",?65,^TMP("ANRV",$J,12)
W !,?20,$P($T(DESC+13),";",4),?56,"013",?65,^TMP("ANRV",$J,13)
W !,?20,$P($T(DESC+14),";",4),?56,"014",?65,^TMP("ANRV",$J,14)
W !,?20,$P($T(DESC+15),";",4),?56,"015",?65,^TMP("ANRV",$J,15)
W !,?64,"_____"
W !,?65,(^TMP("ANRV",$J,9)+^TMP("ANRV",$J,10)+^TMP("ANRV",$J,11)+^TMP("ANRV",$J,12)+^TMP("ANRV",$J,13)+^TMP("ANRV",$J,14)+^TMP("ANRV",$J,15)) D:$Y+9>IOSL HED Q:QFLG
POS W !!,?15,"PERIOD OF SERVICE"
W !,?20,$P($T(DESC+16),";",4),?56,"016",?65,^TMP("ANRV",$J,16)
W !,?20,$P($T(DESC+17),";",4),?56,"017",?65,^TMP("ANRV",$J,17)
W !,?20,$P($T(DESC+18),";",4),?56,"018",?65,^TMP("ANRV",$J,18)
W !,?20,$P($T(DESC+19),";",4),?56,"019",?65,^TMP("ANRV",$J,19)
W !,?20,$P($T(DESC+20),";",4),?56,"020",?65,^TMP("ANRV",$J,20)
W !,?20,$P($T(DESC+21),";",4),?56,"021",?65,^TMP("ANRV",$J,21)
W !,?64,"______"
W !,?65,(^TMP("ANRV",$J,16)+^TMP("ANRV",$J,17)+^TMP("ANRV",$J,18)+^TMP("ANRV",$J,19)+^TMP("ANRV",$J,20)+^TMP("ANRV",$J,21)) D:$Y+8>IOSL HED Q:QFLG
ENT W !!,?15,"ENTITLEMENT"
W !,?20,"Service Connected"
W !,?25,$P($T(DESC+22),";",4),?56,"022",?65,^TMP("ANRV",$J,22)
W !,?25,$P($T(DESC+23),";",4),?56,"023",?65,^TMP("ANRV",$J,23)
W !,?25,$P($T(DESC+24),";",4),?56,"024",?65,^TMP("ANRV",$J,24)
W !,?20,$P($T(DESC+25),";",4),?56,"025",?65,^TMP("ANRV",$J,25)
W !,?64,"______"
W !,?65,(^TMP("ANRV",$J,22)+^TMP("ANRV",$J,23)+^TMP("ANRV",$J,24)+^TMP("ANRV",$J,25))
D:$Y+12>IOSL HED Q:QFLG
AGE W !,?15,"AGE CATAGORY"
W !!,?20,$P($T(DESC+26),";",4),?56,"026",?65,^TMP("ANRV",$J,26)
W !,?20,$P($T(DESC+27),";",4),?56,"027",?65,^TMP("ANRV",$J,27)
W !,?20,$P($T(DESC+28),";",4),?56,"028",?65,^TMP("ANRV",$J,28)
W !,?20,$P($T(DESC+29),";",4),?56,"029",?65,^TMP("ANRV",$J,29)
W !,?20,$P($T(DESC+30),";",4),?56,"030",?65,^TMP("ANRV",$J,30)
W !,?20,$P($T(DESC+31),";",4),?56,"031",?65,^TMP("ANRV",$J,31)
W !,?20,$P($T(DESC+32),";",4),?56,"032",?65,^TMP("ANRV",$J,32)
W !,?20,$P($T(DESC+33),";",4),?56,"033",?65,^TMP("ANRV",$J,33)
W !,?20,$P($T(DESC+34),";",4),?56,"034",?65,^TMP("ANRV",$J,34)
W !,?64,"______"
W !,?65,(^TMP("ANRV",$J,26)+^TMP("ANRV",$J,27)+^TMP("ANRV",$J,28)+^TMP("ANRV",$J,29)+^TMP("ANRV",$J,30)+^TMP("ANRV",$J,31)+^TMP("ANRV",$J,32)+^TMP("ANRV",$J,33)+^TMP("ANRV",$J,34)) D:$Y+4>IOSL HED Q:QFLG
VISREV W !!,?15,$P($T(DESC+35),";",4),?56,"035",?65,^TMP("ANRV",$J,35)
W !,?15,$P($T(DESC+36),";",4),?56,"036",?65,^TMP("ANRV",$J,36)
W !,?15,$P($T(DESC+37),";",4),?56,"037",?65,^TMP("ANRV",$J,37)
W !,?15,$P($T(DESC+38),";",4),?56,"038",?65,^TMP("ANRV",$J,38)
W !,?20,$P($T(DESC+38),";",5) D:$Y+9>IOSL HED Q:QFLG
VISREF W !,?15,"VIST REFERRALS"
W !,?20,"Blind Rehabilitation Center"
W !,?25,$P($T(DESC+39),";",4),?56,"039",?65,^TMP("ANRV",$J,39)
W !,?25,$P($T(DESC+40),";",4),?56,"040",?65,^TMP("ANRV",$J,40)
W !,?20,"Blind Rehabilitation Clinic"
W !,?25,$P($T(DESC+41),";",4),?56,"041",?65,^TMP("ANRV",$J,41)
W !,?25,$P($T(DESC+42),";",4),?56,"042",?65,^TMP("ANRV",$J,42)
W !,?20,"Other Non-VA Agencies"
W !,?25,$P($T(DESC+43),";",4),?56,"043",?65,^TMP("ANRV",$J,43)
W !,?25,$P($T(DESC+44),";",4),?56,"044",?65,^TMP("ANRV",$J,44) D:$Y+4>IOSL HED Q:QFLG
BLREH W !,?15,"VETERANS NOT ACCEPTED FOR BLIND"
W !,?20,"REHABILITATION"
W !,?25,$P($T(DESC+45),";",4),?56,"045",?65,^TMP("ANRV",$J,45)
W !,?25,$P($T(DESC+46),";",4),?56,"046",?65,^TMP("ANRV",$J,46) D:$Y+6>IOSL HED Q:QFLG
DISC W !,?15,"VETERANS DISCHARGED DURING"
W !,?20,"REPORT PERIOD"
W !,?25,$P($T(DESC+47),";",4),?56,"047",?65,^TMP("ANRV",$J,47)
W !,?25,$P($T(DESC+48),";",4),?56,"048",?65,^TMP("ANRV",$J,48)
W !,?25,$P($T(DESC+49),";",4),?56,"049",?65,?65,^TMP("ANRV",$J,49)
W !,?15,$P($T(DESC+50),";",4),?56,"050",?65,"______ hours"
W !,?20,$P($T(DESC+50),";",5) D:$Y+5>IOSL HED Q:QFLG
Q
DESC ; List of field codes and totals descriptions
;;001;TOTAL VIST ELIGIBLE VETERANS
;;002;Reviewed for BRC Attendance
;;003;Other
;;004;No Sight
;;005;LP up to and including 5/200
;;006;LP of 6/200 to 20/200
;;007;Legally Blind by field restriction
;;008;Not Known
;;009;Employed for pay
;;010;Engaged in training or school
;;011;Volunteer work (10 hrs/wk)
;;012;Retired w/approp. activities
;;013;Too ill or too disabled
;;014;No well defined activity
;;015;Not Known
;;016;WWI, Spanish American War
;;017;WWII
;;018;Korean
;;019;Vietnam Era
;;020;Peacetime
;;021;Other/Not known
;;022;0% only
;;023;Comp. SC, 10% - SMC
;;024;SC for blindness
;;025;NSC Pension A&A/HB
;;026;Under 25
;;027;25-34
;;028;35-44
;;029;45-54
;;030;55-64
;;031;65-74
;;032;75-84
;;033;85 and over
;;034;Not known
;;035;TOTAL NUMBER OF VIST ANNUAL REVIEWS
;;036;DECLINED VIST ANNUAL REVIEW
;;037;'NO SHOW' FOR VIST ANNUAL REVIEW
;;038;VIST COORDINATOR AND COORDINATOR;INITIATED FIELD VISITS
;;039;First Experience
;;040;Additional Training
;;041;First Experience
;;042;Additional Training
;;043;First Experience
;;044;Additional Training
;;045;Blind Rehabilitation Center
;;046;Blind Rehabilitation Clinic
;;047;Blind Rehabilitation Center
;;048;Blind Rehabilitation Clinic
;;049;Other Non-VA
;;050;AVERAGE MAN HOURS EXPENSED BY;VIST COORDINATOR PER WEEK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HANRVAP 6991 printed Dec 13, 2024@02:45:37 Page 2
ANRVAP ;MUSK/MFW,HCIOFO/NDH - VIST AMIS PRINT ; 30 Jan 98 / 12:10 PM
+1 ;;4.0; Visual Impairment Service Team ;**2**;12 Jun 98
+2 SET ANRP=0
SET QFLG=0
USE IO
DO HED
GOTO AMIS
HED IF $EXTRACT(IOST)="C"
IF ANRP>0
SET DIR(0)="E"
DO ^DIR
KILL DIR
IF 'Y
SET QFLG=1
QUIT
+1 SET ANRP=ANRP+1
+2 if $Y!($EXTRACT(IOST)="C")&('$DATA(ANRVFILE))
WRITE @IOF
if (ANRP>1)&($EXTRACT(IOST)="C")
QUIT
+3 WRITE !!!,?80-$LENGTH("VISUAL IMPAIRMENT SERVICE TEAM (VIST)")/2,"VISUAL IMPAIRMENT SERVICE TEAM (VIST)",!?80-$LENGTH("AMIS CODE SHEET")/2,"AMIS CODE SHEET"
+4 WRITE !!,?15,"FACILITY: ",^DD("SITE"),?70,"Page ",ANRP
+5 SET Y=ANQBD
XECUTE ^DD("DD")
WRITE !!,?15,"Period Beginning: ",Y
+6 SET Y=ANQED
XECUTE ^DD("DD")
WRITE !,?15,"Period Ending: ",Y,!!!,?55,"FIELD",!,?55,"CODE",?65,"TOTAL"
QUIT
AMIS WRITE !!,?15,$PIECE($TEXT(DESC+1),";",4),?56,"001",?65,^TMP("ANRV",$JOB,1)
+1 WRITE !,?15,"NON VIST ELIGIBLE VETERANS"
+2 WRITE !,?20,$PIECE($TEXT(DESC+2),";",4),?56,"002",?65,^TMP("ANRV",$JOB,2)
+3 WRITE !,?20,$PIECE($TEXT(DESC+3),";",4),?56,"003",?65,^TMP("ANRV",$JOB,3)
+4 WRITE !,?64,"______"
+5 WRITE !,?65,(^TMP("ANRV",$JOB,1)+^TMP("ANRV",$JOB,2)+^TMP("ANRV",$JOB,3))
if $Y+8>IOSL
DO HED
if QFLG
QUIT
VISACT WRITE !!,?15,"VISUAL ACTIVITY"
+1 WRITE !,?20,$PIECE($TEXT(DESC+4),";",4),?56,"004",?65,^TMP("ANRV",$JOB,4)
+2 WRITE !,?20,$PIECE($TEXT(DESC+5),";",4),?56,"005",?65,^TMP("ANRV",$JOB,5)
+3 WRITE !,?20,$PIECE($TEXT(DESC+6),";",4),?56,"006",?65,^TMP("ANRV",$JOB,6)
+4 WRITE !,?20,$PIECE($TEXT(DESC+7),";",4),?56,"007",?65,^TMP("ANRV",$JOB,7)
+5 WRITE !,?20,$PIECE($TEXT(DESC+8),";",4),?56,"008",?65,^TMP("ANRV",$JOB,8)
+6 WRITE !,?64,"______",!,?65,(^TMP("ANRV",$JOB,4)+^TMP("ANRV",$JOB,5)+^TMP("ANRV",$JOB,6)+^TMP("ANRV",$JOB,7)+^TMP("ANRV",$JOB,8))
if $Y+10>IOSL
DO HED
if QFLG
QUIT
MAJACT WRITE !!,?15,"MAJOR ACTIVITY"
+1 WRITE !,?20,$PIECE($TEXT(DESC+9),";",4),?56,"009",?65,^TMP("ANRV",$JOB,9)
+2 WRITE !,?20,$PIECE($TEXT(DESC+10),";",4),?56,"010",?65,^TMP("ANRV",$JOB,10)
+3 WRITE !,?20,$PIECE($TEXT(DESC+11),";",4),?56,"011",?65,^TMP("ANRV",$JOB,11)
+4 WRITE !,?20,$PIECE($TEXT(DESC+12),";",4),?56,"012",?65,^TMP("ANRV",$JOB,12)
+5 WRITE !,?20,$PIECE($TEXT(DESC+13),";",4),?56,"013",?65,^TMP("ANRV",$JOB,13)
+6 WRITE !,?20,$PIECE($TEXT(DESC+14),";",4),?56,"014",?65,^TMP("ANRV",$JOB,14)
+7 WRITE !,?20,$PIECE($TEXT(DESC+15),";",4),?56,"015",?65,^TMP("ANRV",$JOB,15)
+8 WRITE !,?64,"_____"
+9 WRITE !,?65,(^TMP("ANRV",$JOB,9)+^TMP("ANRV",$JOB,10)+^TMP("ANRV",$JOB,11)+^TMP("ANRV",$JOB,12)+^TMP("ANRV",$JOB,13)+^TMP("ANRV",$JOB,14)+^TMP("ANRV",$JOB,15))
if $Y+9>IOSL
DO HED
if QFLG
QUIT
POS WRITE !!,?15,"PERIOD OF SERVICE"
+1 WRITE !,?20,$PIECE($TEXT(DESC+16),";",4),?56,"016",?65,^TMP("ANRV",$JOB,16)
+2 WRITE !,?20,$PIECE($TEXT(DESC+17),";",4),?56,"017",?65,^TMP("ANRV",$JOB,17)
+3 WRITE !,?20,$PIECE($TEXT(DESC+18),";",4),?56,"018",?65,^TMP("ANRV",$JOB,18)
+4 WRITE !,?20,$PIECE($TEXT(DESC+19),";",4),?56,"019",?65,^TMP("ANRV",$JOB,19)
+5 WRITE !,?20,$PIECE($TEXT(DESC+20),";",4),?56,"020",?65,^TMP("ANRV",$JOB,20)
+6 WRITE !,?20,$PIECE($TEXT(DESC+21),";",4),?56,"021",?65,^TMP("ANRV",$JOB,21)
+7 WRITE !,?64,"______"
+8 WRITE !,?65,(^TMP("ANRV",$JOB,16)+^TMP("ANRV",$JOB,17)+^TMP("ANRV",$JOB,18)+^TMP("ANRV",$JOB,19)+^TMP("ANRV",$JOB,20)+^TMP("ANRV",$JOB,21))
if $Y+8>IOSL
DO HED
if QFLG
QUIT
ENT WRITE !!,?15,"ENTITLEMENT"
+1 WRITE !,?20,"Service Connected"
+2 WRITE !,?25,$PIECE($TEXT(DESC+22),";",4),?56,"022",?65,^TMP("ANRV",$JOB,22)
+3 WRITE !,?25,$PIECE($TEXT(DESC+23),";",4),?56,"023",?65,^TMP("ANRV",$JOB,23)
+4 WRITE !,?25,$PIECE($TEXT(DESC+24),";",4),?56,"024",?65,^TMP("ANRV",$JOB,24)
+5 WRITE !,?20,$PIECE($TEXT(DESC+25),";",4),?56,"025",?65,^TMP("ANRV",$JOB,25)
+6 WRITE !,?64,"______"
+7 WRITE !,?65,(^TMP("ANRV",$JOB,22)+^TMP("ANRV",$JOB,23)+^TMP("ANRV",$JOB,24)+^TMP("ANRV",$JOB,25))
+8 if $Y+12>IOSL
DO HED
if QFLG
QUIT
AGE WRITE !,?15,"AGE CATAGORY"
+1 WRITE !!,?20,$PIECE($TEXT(DESC+26),";",4),?56,"026",?65,^TMP("ANRV",$JOB,26)
+2 WRITE !,?20,$PIECE($TEXT(DESC+27),";",4),?56,"027",?65,^TMP("ANRV",$JOB,27)
+3 WRITE !,?20,$PIECE($TEXT(DESC+28),";",4),?56,"028",?65,^TMP("ANRV",$JOB,28)
+4 WRITE !,?20,$PIECE($TEXT(DESC+29),";",4),?56,"029",?65,^TMP("ANRV",$JOB,29)
+5 WRITE !,?20,$PIECE($TEXT(DESC+30),";",4),?56,"030",?65,^TMP("ANRV",$JOB,30)
+6 WRITE !,?20,$PIECE($TEXT(DESC+31),";",4),?56,"031",?65,^TMP("ANRV",$JOB,31)
+7 WRITE !,?20,$PIECE($TEXT(DESC+32),";",4),?56,"032",?65,^TMP("ANRV",$JOB,32)
+8 WRITE !,?20,$PIECE($TEXT(DESC+33),";",4),?56,"033",?65,^TMP("ANRV",$JOB,33)
+9 WRITE !,?20,$PIECE($TEXT(DESC+34),";",4),?56,"034",?65,^TMP("ANRV",$JOB,34)
+10 WRITE !,?64,"______"
+11 WRITE !,?65,(^TMP("ANRV",$JOB,26)+^TMP("ANRV",$JOB,27)+^TMP("ANRV",$JOB,28)+^TMP("ANRV",$JOB,29)+^TMP("ANRV",$JOB,30)+^TMP("ANRV",$JOB,31)+^TMP("ANRV",$JOB,32)+^TMP("ANRV",$JOB,33)+^TMP("ANRV",$JOB,34))
if $Y+4>IOSL
DO HED
if QFLG
QUIT
VISREV WRITE !!,?15,$PIECE($TEXT(DESC+35),";",4),?56,"035",?65,^TMP("ANRV",$JOB,35)
+1 WRITE !,?15,$PIECE($TEXT(DESC+36),";",4),?56,"036",?65,^TMP("ANRV",$JOB,36)
+2 WRITE !,?15,$PIECE($TEXT(DESC+37),";",4),?56,"037",?65,^TMP("ANRV",$JOB,37)
+3 WRITE !,?15,$PIECE($TEXT(DESC+38),";",4),?56,"038",?65,^TMP("ANRV",$JOB,38)
+4 WRITE !,?20,$PIECE($TEXT(DESC+38),";",5)
if $Y+9>IOSL
DO HED
if QFLG
QUIT
VISREF WRITE !,?15,"VIST REFERRALS"
+1 WRITE !,?20,"Blind Rehabilitation Center"
+2 WRITE !,?25,$PIECE($TEXT(DESC+39),";",4),?56,"039",?65,^TMP("ANRV",$JOB,39)
+3 WRITE !,?25,$PIECE($TEXT(DESC+40),";",4),?56,"040",?65,^TMP("ANRV",$JOB,40)
+4 WRITE !,?20,"Blind Rehabilitation Clinic"
+5 WRITE !,?25,$PIECE($TEXT(DESC+41),";",4),?56,"041",?65,^TMP("ANRV",$JOB,41)
+6 WRITE !,?25,$PIECE($TEXT(DESC+42),";",4),?56,"042",?65,^TMP("ANRV",$JOB,42)
+7 WRITE !,?20,"Other Non-VA Agencies"
+8 WRITE !,?25,$PIECE($TEXT(DESC+43),";",4),?56,"043",?65,^TMP("ANRV",$JOB,43)
+9 WRITE !,?25,$PIECE($TEXT(DESC+44),";",4),?56,"044",?65,^TMP("ANRV",$JOB,44)
if $Y+4>IOSL
DO HED
if QFLG
QUIT
BLREH WRITE !,?15,"VETERANS NOT ACCEPTED FOR BLIND"
+1 WRITE !,?20,"REHABILITATION"
+2 WRITE !,?25,$PIECE($TEXT(DESC+45),";",4),?56,"045",?65,^TMP("ANRV",$JOB,45)
+3 WRITE !,?25,$PIECE($TEXT(DESC+46),";",4),?56,"046",?65,^TMP("ANRV",$JOB,46)
if $Y+6>IOSL
DO HED
if QFLG
QUIT
DISC WRITE !,?15,"VETERANS DISCHARGED DURING"
+1 WRITE !,?20,"REPORT PERIOD"
+2 WRITE !,?25,$PIECE($TEXT(DESC+47),";",4),?56,"047",?65,^TMP("ANRV",$JOB,47)
+3 WRITE !,?25,$PIECE($TEXT(DESC+48),";",4),?56,"048",?65,^TMP("ANRV",$JOB,48)
+4 WRITE !,?25,$PIECE($TEXT(DESC+49),";",4),?56,"049",?65,?65,^TMP("ANRV",$JOB,49)
+5 WRITE !,?15,$PIECE($TEXT(DESC+50),";",4),?56,"050",?65,"______ hours"
+6 WRITE !,?20,$PIECE($TEXT(DESC+50),";",5)
if $Y+5>IOSL
DO HED
if QFLG
QUIT
+7 QUIT
DESC ; List of field codes and totals descriptions
+1 ;;001;TOTAL VIST ELIGIBLE VETERANS
+2 ;;002;Reviewed for BRC Attendance
+3 ;;003;Other
+4 ;;004;No Sight
+5 ;;005;LP up to and including 5/200
+6 ;;006;LP of 6/200 to 20/200
+7 ;;007;Legally Blind by field restriction
+8 ;;008;Not Known
+9 ;;009;Employed for pay
+10 ;;010;Engaged in training or school
+11 ;;011;Volunteer work (10 hrs/wk)
+12 ;;012;Retired w/approp. activities
+13 ;;013;Too ill or too disabled
+14 ;;014;No well defined activity
+15 ;;015;Not Known
+16 ;;016;WWI, Spanish American War
+17 ;;017;WWII
+18 ;;018;Korean
+19 ;;019;Vietnam Era
+20 ;;020;Peacetime
+21 ;;021;Other/Not known
+22 ;;022;0% only
+23 ;;023;Comp. SC, 10% - SMC
+24 ;;024;SC for blindness
+25 ;;025;NSC Pension A&A/HB
+26 ;;026;Under 25
+27 ;;027;25-34
+28 ;;028;35-44
+29 ;;029;45-54
+30 ;;030;55-64
+31 ;;031;65-74
+32 ;;032;75-84
+33 ;;033;85 and over
+34 ;;034;Not known
+35 ;;035;TOTAL NUMBER OF VIST ANNUAL REVIEWS
+36 ;;036;DECLINED VIST ANNUAL REVIEW
+37 ;;037;'NO SHOW' FOR VIST ANNUAL REVIEW
+38 ;;038;VIST COORDINATOR AND COORDINATOR;INITIATED FIELD VISITS
+39 ;;039;First Experience
+40 ;;040;Additional Training
+41 ;;041;First Experience
+42 ;;042;Additional Training
+43 ;;043;First Experience
+44 ;;044;Additional Training
+45 ;;045;Blind Rehabilitation Center
+46 ;;046;Blind Rehabilitation Clinic
+47 ;;047;Blind Rehabilitation Center
+48 ;;048;Blind Rehabilitation Clinic
+49 ;;049;Other Non-VA
+50 ;;050;AVERAGE MAN HOURS EXPENSED BY;VIST COORDINATOR PER WEEK
