Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ANRVAP

Package: Visual Impairment Service Team

Routine: ANRVAP


Information

ANRVAP ;MUSK/MFW,HCIOFO/NDH - VIST AMIS PRINT ; 30 Jan 98 / 12:10 PM

Source Information

Source file <ANRVAP.m>

Entry Points

Name Comments DBIA/ICR reference
HED
AMIS
VISACT
MAJACT
POS
ENT
AGE
VISREV
VISREF
BLREH
DISC
DESC ; List of field codes and totals descriptions

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?80-$L("VISUAL IMPAIRMENT SERVICE TEAM (VIST)")/2,"VISUAL IMPAIRMENT SERVICE TEAM (VIST)",!?80-$L("AMIS CODE SHEET")/2,"AMIS CODE SHEET"
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !!,?15,"FACILITY: ",^DD("SITE"),?70,"Page ",ANRP
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !!,?15,"Period Beginning: ",Y
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,?15,"Period Ending: ",Y,!!!,?55,"FIELD",!,?55,"CODE",?65,"TOTAL"
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !!,?15,$P($T(DESC+1),";",4),?56,"001",?65,^TMP("ANRV",$J,1)
  • Line Location: AMIS+0
Function Call: WRITE
  • Prompt: !,?15,"NON VIST ELIGIBLE VETERANS"
  • Line Location: AMIS+1
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+2),";",4),?56,"002",?65,^TMP("ANRV",$J,2)
  • Line Location: AMIS+2
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+3),";",4),?56,"003",?65,^TMP("ANRV",$J,3)
  • Line Location: AMIS+3
Function Call: WRITE
  • Prompt: !,?64,"______"
  • Line Location: AMIS+4
Function Call: WRITE
  • Prompt: !,?65,(^TMP("ANRV",$J,1)+^TMP("ANRV",$J,2)+^TMP("ANRV",$J,3))
  • Line Location: AMIS+5
Function Call: WRITE
  • Prompt: !!,?15,"VISUAL ACTIVITY"
  • Line Location: VISACT+0
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+4),";",4),?56,"004",?65,^TMP("ANRV",$J,4)
  • Line Location: VISACT+1
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+5),";",4),?56,"005",?65,^TMP("ANRV",$J,5)
  • Line Location: VISACT+2
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+6),";",4),?56,"006",?65,^TMP("ANRV",$J,6)
  • Line Location: VISACT+3
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+7),";",4),?56,"007",?65,^TMP("ANRV",$J,7)
  • Line Location: VISACT+4
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+8),";",4),?56,"008",?65,^TMP("ANRV",$J,8)
  • Line Location: VISACT+5
Function Call: WRITE
  • Prompt: !,?64,"______",!,?65,(^TMP("ANRV",$J,4)+^TMP("ANRV",$J,5)+^TMP("ANRV",$J,6)+^TMP("ANRV",$J,7)+^TMP("ANRV",$J,8))
  • Line Location: VISACT+6
Function Call: WRITE
  • Prompt: !!,?15,"MAJOR ACTIVITY"
  • Line Location: MAJACT+0
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+9),";",4),?56,"009",?65,^TMP("ANRV",$J,9)
  • Line Location: MAJACT+1
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+10),";",4),?56,"010",?65,^TMP("ANRV",$J,10)
  • Line Location: MAJACT+2
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+11),";",4),?56,"011",?65,^TMP("ANRV",$J,11)
  • Line Location: MAJACT+3
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+12),";",4),?56,"012",?65,^TMP("ANRV",$J,12)
  • Line Location: MAJACT+4
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+13),";",4),?56,"013",?65,^TMP("ANRV",$J,13)
  • Line Location: MAJACT+5
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+14),";",4),?56,"014",?65,^TMP("ANRV",$J,14)
  • Line Location: MAJACT+6
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+15),";",4),?56,"015",?65,^TMP("ANRV",$J,15)
  • Line Location: MAJACT+7
Function Call: WRITE
  • Prompt: !,?64,"_____"
  • Line Location: MAJACT+8
Function Call: WRITE
  • Prompt: !,?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))
  • Line Location: MAJACT+9
Function Call: WRITE
  • Prompt: !!,?15,"PERIOD OF SERVICE"
  • Line Location: POS+0
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+16),";",4),?56,"016",?65,^TMP("ANRV",$J,16)
  • Line Location: POS+1
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+17),";",4),?56,"017",?65,^TMP("ANRV",$J,17)
  • Line Location: POS+2
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+18),";",4),?56,"018",?65,^TMP("ANRV",$J,18)
  • Line Location: POS+3
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+19),";",4),?56,"019",?65,^TMP("ANRV",$J,19)
  • Line Location: POS+4
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+20),";",4),?56,"020",?65,^TMP("ANRV",$J,20)
  • Line Location: POS+5
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+21),";",4),?56,"021",?65,^TMP("ANRV",$J,21)
  • Line Location: POS+6
Function Call: WRITE
  • Prompt: !,?64,"______"
  • Line Location: POS+7
Function Call: WRITE
  • Prompt: !,?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))
  • Line Location: POS+8
Function Call: WRITE
  • Prompt: !!,?15,"ENTITLEMENT"
  • Line Location: ENT+0
Function Call: WRITE
  • Prompt: !,?20,"Service Connected"
  • Line Location: ENT+1
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+22),";",4),?56,"022",?65,^TMP("ANRV",$J,22)
  • Line Location: ENT+2
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+23),";",4),?56,"023",?65,^TMP("ANRV",$J,23)
  • Line Location: ENT+3
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+24),";",4),?56,"024",?65,^TMP("ANRV",$J,24)
  • Line Location: ENT+4
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+25),";",4),?56,"025",?65,^TMP("ANRV",$J,25)
  • Line Location: ENT+5
Function Call: WRITE
  • Prompt: !,?64,"______"
  • Line Location: ENT+6
Function Call: WRITE
  • Prompt: !,?65,(^TMP("ANRV",$J,22)+^TMP("ANRV",$J,23)+^TMP("ANRV",$J,24)+^TMP("ANRV",$J,25))
  • Line Location: ENT+7
Function Call: WRITE
  • Prompt: !,?15,"AGE CATAGORY"
  • Line Location: AGE+0
Function Call: WRITE
  • Prompt: !!,?20,$P($T(DESC+26),";",4),?56,"026",?65,^TMP("ANRV",$J,26)
  • Line Location: AGE+1
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+27),";",4),?56,"027",?65,^TMP("ANRV",$J,27)
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+28),";",4),?56,"028",?65,^TMP("ANRV",$J,28)
  • Line Location: AGE+3
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+29),";",4),?56,"029",?65,^TMP("ANRV",$J,29)
  • Line Location: AGE+4
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+30),";",4),?56,"030",?65,^TMP("ANRV",$J,30)
  • Line Location: AGE+5
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+31),";",4),?56,"031",?65,^TMP("ANRV",$J,31)
  • Line Location: AGE+6
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+32),";",4),?56,"032",?65,^TMP("ANRV",$J,32)
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+33),";",4),?56,"033",?65,^TMP("ANRV",$J,33)
  • Line Location: AGE+8
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+34),";",4),?56,"034",?65,^TMP("ANRV",$J,34)
  • Line Location: AGE+9
Function Call: WRITE
  • Prompt: !,?64,"______"
  • Line Location: AGE+10
Function Call: WRITE
  • Prompt: !,?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))
  • Line Location: AGE+11
Function Call: WRITE
  • Prompt: !!,?15,$P($T(DESC+35),";",4),?56,"035",?65,^TMP("ANRV",$J,35)
  • Line Location: VISREV+0
Function Call: WRITE
  • Prompt: !,?15,$P($T(DESC+36),";",4),?56,"036",?65,^TMP("ANRV",$J,36)
  • Line Location: VISREV+1
Function Call: WRITE
  • Prompt: !,?15,$P($T(DESC+37),";",4),?56,"037",?65,^TMP("ANRV",$J,37)
  • Line Location: VISREV+2
Function Call: WRITE
  • Prompt: !,?15,$P($T(DESC+38),";",4),?56,"038",?65,^TMP("ANRV",$J,38)
  • Line Location: VISREV+3
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+38),";",5)
  • Line Location: VISREV+4
Function Call: WRITE
  • Prompt: !,?15,"VIST REFERRALS"
  • Line Location: VISREF+0
Function Call: WRITE
  • Prompt: !,?20,"Blind Rehabilitation Center"
  • Line Location: VISREF+1
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+39),";",4),?56,"039",?65,^TMP("ANRV",$J,39)
  • Line Location: VISREF+2
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+40),";",4),?56,"040",?65,^TMP("ANRV",$J,40)
  • Line Location: VISREF+3
Function Call: WRITE
  • Prompt: !,?20,"Blind Rehabilitation Clinic"
  • Line Location: VISREF+4
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+41),";",4),?56,"041",?65,^TMP("ANRV",$J,41)
  • Line Location: VISREF+5
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+42),";",4),?56,"042",?65,^TMP("ANRV",$J,42)
  • Line Location: VISREF+6
Function Call: WRITE
  • Prompt: !,?20,"Other Non-VA Agencies"
  • Line Location: VISREF+7
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+43),";",4),?56,"043",?65,^TMP("ANRV",$J,43)
  • Line Location: VISREF+8
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+44),";",4),?56,"044",?65,^TMP("ANRV",$J,44)
  • Line Location: VISREF+9
Function Call: WRITE
  • Prompt: !,?15,"VETERANS NOT ACCEPTED FOR BLIND"
  • Line Location: BLREH+0
Function Call: WRITE
  • Prompt: !,?20,"REHABILITATION"
  • Line Location: BLREH+1
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+45),";",4),?56,"045",?65,^TMP("ANRV",$J,45)
  • Line Location: BLREH+2
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+46),";",4),?56,"046",?65,^TMP("ANRV",$J,46)
  • Line Location: BLREH+3
Function Call: WRITE
  • Prompt: !,?15,"VETERANS DISCHARGED DURING"
  • Line Location: DISC+0
Function Call: WRITE
  • Prompt: !,?20,"REPORT PERIOD"
  • Line Location: DISC+1
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+47),";",4),?56,"047",?65,^TMP("ANRV",$J,47)
  • Line Location: DISC+2
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+48),";",4),?56,"048",?65,^TMP("ANRV",$J,48)
  • Line Location: DISC+3
Function Call: WRITE
  • Prompt: !,?25,$P($T(DESC+49),";",4),?56,"049",?65,?65,^TMP("ANRV",$J,49)
  • Line Location: DISC+4
Function Call: WRITE
  • Prompt: !,?15,$P($T(DESC+50),";",4),?56,"050",?65,"______ hours"
  • Line Location: DISC+5
Function Call: WRITE
  • Prompt: !,?20,$P($T(DESC+50),";",5)
  • Line Location: DISC+6
Info |  Source |  Entry Points |  Interaction Calls