Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Visual Impairment Service Team 1 ANRVAM1  

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

External References

Name Field # of Occurrence
^DIR HED

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
Routine Call
  • DIR
  • Line Location:
    • HED

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HED+5, HED+6
^DD("SITE" HED+4
^TMP("ANRV" AMIS, AMIS+2, AMIS+3, AMIS+5, VISACT+1, VISACT+2, VISACT+3, VISACT+4, VISACT+5, VISACT+6
, MAJACT+1, MAJACT+2, MAJACT+3, MAJACT+4, MAJACT+5, MAJACT+6, MAJACT+7, MAJACT+9, POS+1, POS+2
, POS+3, POS+4, POS+5, POS+6, POS+8, ENT+2, ENT+3, ENT+4, ENT+5, ENT+7
, AGE+1, AGE+2, AGE+3, AGE+4, AGE+5, AGE+6, AGE+7, AGE+8, AGE+9, AGE+11
, VISREV, VISREV+1, VISREV+2, VISREV+3, VISREF+2, VISREF+3, VISREF+5, VISREF+6, VISREF+8, VISREF+9
, BLREH+2, BLREH+3, DISC+2, DISC+3, DISC+4

Label References

Name Line Occurrences
AMIS ANRVAP+2
HED ANRVAP+2, AMIS+5, VISACT+6, MAJACT+9, POS+8, ENT+8, AGE+11, VISREV+4, VISREF+9, BLREH+3
, DISC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANQBD HED+5
>> ANQED HED+6
>> ANRP ANRVAP+2*, HED, HED+1*, HED+2, HED+4
>> ANRVFILE HED+2
DIR HED!
DIR(0 HED*
IO ANRVAP+2
IOF HED+2
IOSL AMIS+5, VISACT+6, MAJACT+9, POS+8, ENT+8, AGE+11, VISREV+4, VISREF+9, BLREH+3, DISC+6
IOST HED, HED+2
>> QFLG ANRVAP+2*, HED*, AMIS+5, VISACT+6, MAJACT+9, POS+8, ENT+8, AGE+11, VISREV+4, VISREF+9
, BLREH+3, DISC+6
>> Y HED, HED+5*, HED+6*

Marked Items

Name Field # of Occurrence
$T(DESC+1 AMIS
$T(DESC+10 MAJACT+2
$T(DESC+11 MAJACT+3
$T(DESC+12 MAJACT+4
$T(DESC+13 MAJACT+5
$T(DESC+14 MAJACT+6
$T(DESC+15 MAJACT+7
$T(DESC+16 POS+1
$T(DESC+17 POS+2
$T(DESC+18 POS+3
$T(DESC+19 POS+4
$T(DESC+2 AMIS+2
$T(DESC+20 POS+5
$T(DESC+21 POS+6
$T(DESC+22 ENT+2
$T(DESC+23 ENT+3
$T(DESC+24 ENT+4
$T(DESC+25 ENT+5
$T(DESC+26 AGE+1
$T(DESC+27 AGE+2
$T(DESC+28 AGE+3
$T(DESC+29 AGE+4
$T(DESC+3 AMIS+3
$T(DESC+30 AGE+5
$T(DESC+31 AGE+6
$T(DESC+32 AGE+7
$T(DESC+33 AGE+8
$T(DESC+34 AGE+9
$T(DESC+35 VISREV
$T(DESC+36 VISREV+1
$T(DESC+37 VISREV+2
$T(DESC+38 VISREV+3, VISREV+4
$T(DESC+39 VISREF+2
$T(DESC+4 VISACT+1
$T(DESC+40 VISREF+3
$T(DESC+41 VISREF+5
$T(DESC+42 VISREF+6
$T(DESC+43 VISREF+8
$T(DESC+44 VISREF+9
$T(DESC+45 BLREH+2
$T(DESC+46 BLREH+3
$T(DESC+47 DISC+2
$T(DESC+48 DISC+3
$T(DESC+49 DISC+4
$T(DESC+5 VISACT+2
$T(DESC+50 DISC+5, DISC+6
$T(DESC+6 VISACT+3
$T(DESC+7 VISACT+4
$T(DESC+8 VISACT+5
$T(DESC+9 MAJACT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All