142 lines
6.7 KiB
Mathematica
142 lines
6.7 KiB
Mathematica
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
|