source: WorldVistAEHR/trunk/r/VISUAL_IMPAIRMENT_SERVICE_TEAM-ANRV/ANRVAP.m@ 1150

Last change on this file since 1150 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 6.7 KB
RevLine 
[613]1ANRVAP ;MUSK/MFW,HCIOFO/NDH - VIST AMIS PRINT ; 30 Jan 98 / 12:10 PM
2 ;;4.0; Visual Impairment Service Team ;**2**;12 Jun 98
3 S ANRP=0,QFLG=0 U IO D HED G AMIS
4HED I $E(IOST)="C",ANRP>0 S DIR(0)="E" D ^DIR K DIR I 'Y S QFLG=1 Q
5 S ANRP=ANRP+1
6 W:$Y!($E(IOST)="C")&('$D(ANRVFILE)) @IOF Q:(ANRP>1)&($E(IOST)="C")
7 W !!!,?80-$L("VISUAL IMPAIRMENT SERVICE TEAM (VIST)")/2,"VISUAL IMPAIRMENT SERVICE TEAM (VIST)",!?80-$L("AMIS CODE SHEET")/2,"AMIS CODE SHEET"
8 W !!,?15,"FACILITY: ",^DD("SITE"),?70,"Page ",ANRP
9 S Y=ANQBD X ^DD("DD") W !!,?15,"Period Beginning: ",Y
10 S Y=ANQED X ^DD("DD") W !,?15,"Period Ending: ",Y,!!!,?55,"FIELD",!,?55,"CODE",?65,"TOTAL" Q
11AMIS W !!,?15,$P($T(DESC+1),";",4),?56,"001",?65,^TMP("ANRV",$J,1)
12 W !,?15,"NON VIST ELIGIBLE VETERANS"
13 W !,?20,$P($T(DESC+2),";",4),?56,"002",?65,^TMP("ANRV",$J,2)
14 W !,?20,$P($T(DESC+3),";",4),?56,"003",?65,^TMP("ANRV",$J,3)
15 W !,?64,"______"
16 W !,?65,(^TMP("ANRV",$J,1)+^TMP("ANRV",$J,2)+^TMP("ANRV",$J,3)) D:$Y+8>IOSL HED Q:QFLG
17VISACT W !!,?15,"VISUAL ACTIVITY"
18 W !,?20,$P($T(DESC+4),";",4),?56,"004",?65,^TMP("ANRV",$J,4)
19 W !,?20,$P($T(DESC+5),";",4),?56,"005",?65,^TMP("ANRV",$J,5)
20 W !,?20,$P($T(DESC+6),";",4),?56,"006",?65,^TMP("ANRV",$J,6)
21 W !,?20,$P($T(DESC+7),";",4),?56,"007",?65,^TMP("ANRV",$J,7)
22 W !,?20,$P($T(DESC+8),";",4),?56,"008",?65,^TMP("ANRV",$J,8)
23 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
24MAJACT W !!,?15,"MAJOR ACTIVITY"
25 W !,?20,$P($T(DESC+9),";",4),?56,"009",?65,^TMP("ANRV",$J,9)
26 W !,?20,$P($T(DESC+10),";",4),?56,"010",?65,^TMP("ANRV",$J,10)
27 W !,?20,$P($T(DESC+11),";",4),?56,"011",?65,^TMP("ANRV",$J,11)
28 W !,?20,$P($T(DESC+12),";",4),?56,"012",?65,^TMP("ANRV",$J,12)
29 W !,?20,$P($T(DESC+13),";",4),?56,"013",?65,^TMP("ANRV",$J,13)
30 W !,?20,$P($T(DESC+14),";",4),?56,"014",?65,^TMP("ANRV",$J,14)
31 W !,?20,$P($T(DESC+15),";",4),?56,"015",?65,^TMP("ANRV",$J,15)
32 W !,?64,"_____"
33 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
34POS W !!,?15,"PERIOD OF SERVICE"
35 W !,?20,$P($T(DESC+16),";",4),?56,"016",?65,^TMP("ANRV",$J,16)
36 W !,?20,$P($T(DESC+17),";",4),?56,"017",?65,^TMP("ANRV",$J,17)
37 W !,?20,$P($T(DESC+18),";",4),?56,"018",?65,^TMP("ANRV",$J,18)
38 W !,?20,$P($T(DESC+19),";",4),?56,"019",?65,^TMP("ANRV",$J,19)
39 W !,?20,$P($T(DESC+20),";",4),?56,"020",?65,^TMP("ANRV",$J,20)
40 W !,?20,$P($T(DESC+21),";",4),?56,"021",?65,^TMP("ANRV",$J,21)
41 W !,?64,"______"
42 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
43ENT W !!,?15,"ENTITLEMENT"
44 W !,?20,"Service Connected"
45 W !,?25,$P($T(DESC+22),";",4),?56,"022",?65,^TMP("ANRV",$J,22)
46 W !,?25,$P($T(DESC+23),";",4),?56,"023",?65,^TMP("ANRV",$J,23)
47 W !,?25,$P($T(DESC+24),";",4),?56,"024",?65,^TMP("ANRV",$J,24)
48 W !,?20,$P($T(DESC+25),";",4),?56,"025",?65,^TMP("ANRV",$J,25)
49 W !,?64,"______"
50 W !,?65,(^TMP("ANRV",$J,22)+^TMP("ANRV",$J,23)+^TMP("ANRV",$J,24)+^TMP("ANRV",$J,25))
51 D:$Y+12>IOSL HED Q:QFLG
52AGE W !,?15,"AGE CATAGORY"
53 W !!,?20,$P($T(DESC+26),";",4),?56,"026",?65,^TMP("ANRV",$J,26)
54 W !,?20,$P($T(DESC+27),";",4),?56,"027",?65,^TMP("ANRV",$J,27)
55 W !,?20,$P($T(DESC+28),";",4),?56,"028",?65,^TMP("ANRV",$J,28)
56 W !,?20,$P($T(DESC+29),";",4),?56,"029",?65,^TMP("ANRV",$J,29)
57 W !,?20,$P($T(DESC+30),";",4),?56,"030",?65,^TMP("ANRV",$J,30)
58 W !,?20,$P($T(DESC+31),";",4),?56,"031",?65,^TMP("ANRV",$J,31)
59 W !,?20,$P($T(DESC+32),";",4),?56,"032",?65,^TMP("ANRV",$J,32)
60 W !,?20,$P($T(DESC+33),";",4),?56,"033",?65,^TMP("ANRV",$J,33)
61 W !,?20,$P($T(DESC+34),";",4),?56,"034",?65,^TMP("ANRV",$J,34)
62 W !,?64,"______"
63 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
64VISREV W !!,?15,$P($T(DESC+35),";",4),?56,"035",?65,^TMP("ANRV",$J,35)
65 W !,?15,$P($T(DESC+36),";",4),?56,"036",?65,^TMP("ANRV",$J,36)
66 W !,?15,$P($T(DESC+37),";",4),?56,"037",?65,^TMP("ANRV",$J,37)
67 W !,?15,$P($T(DESC+38),";",4),?56,"038",?65,^TMP("ANRV",$J,38)
68 W !,?20,$P($T(DESC+38),";",5) D:$Y+9>IOSL HED Q:QFLG
69VISREF W !,?15,"VIST REFERRALS"
70 W !,?20,"Blind Rehabilitation Center"
71 W !,?25,$P($T(DESC+39),";",4),?56,"039",?65,^TMP("ANRV",$J,39)
72 W !,?25,$P($T(DESC+40),";",4),?56,"040",?65,^TMP("ANRV",$J,40)
73 W !,?20,"Blind Rehabilitation Clinic"
74 W !,?25,$P($T(DESC+41),";",4),?56,"041",?65,^TMP("ANRV",$J,41)
75 W !,?25,$P($T(DESC+42),";",4),?56,"042",?65,^TMP("ANRV",$J,42)
76 W !,?20,"Other Non-VA Agencies"
77 W !,?25,$P($T(DESC+43),";",4),?56,"043",?65,^TMP("ANRV",$J,43)
78 W !,?25,$P($T(DESC+44),";",4),?56,"044",?65,^TMP("ANRV",$J,44) D:$Y+4>IOSL HED Q:QFLG
79BLREH W !,?15,"VETERANS NOT ACCEPTED FOR BLIND"
80 W !,?20,"REHABILITATION"
81 W !,?25,$P($T(DESC+45),";",4),?56,"045",?65,^TMP("ANRV",$J,45)
82 W !,?25,$P($T(DESC+46),";",4),?56,"046",?65,^TMP("ANRV",$J,46) D:$Y+6>IOSL HED Q:QFLG
83DISC W !,?15,"VETERANS DISCHARGED DURING"
84 W !,?20,"REPORT PERIOD"
85 W !,?25,$P($T(DESC+47),";",4),?56,"047",?65,^TMP("ANRV",$J,47)
86 W !,?25,$P($T(DESC+48),";",4),?56,"048",?65,^TMP("ANRV",$J,48)
87 W !,?25,$P($T(DESC+49),";",4),?56,"049",?65,?65,^TMP("ANRV",$J,49)
88 W !,?15,$P($T(DESC+50),";",4),?56,"050",?65,"______ hours"
89 W !,?20,$P($T(DESC+50),";",5) D:$Y+5>IOSL HED Q:QFLG
90 Q
91DESC ; List of field codes and totals descriptions
92 ;;001;TOTAL VIST ELIGIBLE VETERANS
93 ;;002;Reviewed for BRC Attendance
94 ;;003;Other
95 ;;004;No Sight
96 ;;005;LP up to and including 5/200
97 ;;006;LP of 6/200 to 20/200
98 ;;007;Legally Blind by field restriction
99 ;;008;Not Known
100 ;;009;Employed for pay
101 ;;010;Engaged in training or school
102 ;;011;Volunteer work (10 hrs/wk)
103 ;;012;Retired w/approp. activities
104 ;;013;Too ill or too disabled
105 ;;014;No well defined activity
106 ;;015;Not Known
107 ;;016;WWI, Spanish American War
108 ;;017;WWII
109 ;;018;Korean
110 ;;019;Vietnam Era
111 ;;020;Peacetime
112 ;;021;Other/Not known
113 ;;022;0% only
114 ;;023;Comp. SC, 10% - SMC
115 ;;024;SC for blindness
116 ;;025;NSC Pension A&A/HB
117 ;;026;Under 25
118 ;;027;25-34
119 ;;028;35-44
120 ;;029;45-54
121 ;;030;55-64
122 ;;031;65-74
123 ;;032;75-84
124 ;;033;85 and over
125 ;;034;Not known
126 ;;035;TOTAL NUMBER OF VIST ANNUAL REVIEWS
127 ;;036;DECLINED VIST ANNUAL REVIEW
128 ;;037;'NO SHOW' FOR VIST ANNUAL REVIEW
129 ;;038;VIST COORDINATOR AND COORDINATOR;INITIATED FIELD VISITS
130 ;;039;First Experience
131 ;;040;Additional Training
132 ;;041;First Experience
133 ;;042;Additional Training
134 ;;043;First Experience
135 ;;044;Additional Training
136 ;;045;Blind Rehabilitation Center
137 ;;046;Blind Rehabilitation Clinic
138 ;;047;Blind Rehabilitation Center
139 ;;048;Blind Rehabilitation Clinic
140 ;;049;Other Non-VA
141 ;;050;AVERAGE MAN HOURS EXPENSED BY;VIST COORDINATOR PER WEEK
Note: See TracBrowser for help on using the repository browser.