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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHRP2P

Package: Mental Health Social Services

Routine: AMHRP2P


Information

AMHRP2P ; IHS/CMI/LAB - = print all visit report ;

Source Information

Source file <AMHRP2P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
Mental Health Social Services 2 ^AMHEKL  DONE^AMHLEIN  
IHS VA Utilities 1 $$EXTSET^XBFUNC  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
HEAD
HEAD1 ;
AREA ;
PROV ;
SU ;
START ;
DONE ;
ACT ;

External References

Name Field # of Occurrence
DD^%DT START+1, START+2
NOW^%DTC START+1
^AMHEKL DONE+1
DONE^AMHLEIN DONE+1
^DIR HEAD+1
$$EXTSET^XBFUNC HEAD1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?58,AMHDT,?62,"Page ",AMHPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?((80-AMHLENG)\2),"ACTIVITY REPORT FOR ",$S(AMHPROG="S":"SOCIAL SERVICES",AMHPROG="M":"MENTAL HEALTH",AMHPROG="C":"CHEMICAL DEPENDENCY or A/SA",1:"ALL PROGRAMS (MH,SS,CD,OTHER)")," PROGRAM",!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?17,"RECORD DATES: ",AMHBDD," TO ",AMHEDD,!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: "# PATS is the total number of unique, identifiable patients when",!,"a patient name was entered on the record. # served is a tally of the ",!,"number served data value.",!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !?43,"# RECS",?53,"ACT TIME",?63,"# PATS",?72,"# SERVED",!?53,"(hrs)"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD1+10
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] AREA+4
^AUTTSU - [#9999999.22] SU+4
^DIC(4 - [#4] LOC+4
^VA(200 - [#200] HEAD1+3
^XTMP("AMHRP2" AREA+1, DONE+2!, SU+1, LOC+1, PROV+1, ACT+1, ACT+3

Label References

Name Line Occurrences
ACT PROV+5
HEAD START+3, AREA+3, AREA+7, SU+3, SU+7, LOC+3, LOC+7, PROV+3, PROV+7, ACT+2
HEAD1 HEAD
LOC SU+5
PROV LOC+5
SU AREA+5

Naked Globals

Name Field # of Occurrence
^( ACT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHACT ACT+1*, ACT+3, ACT+4
>> AMHAREA AREA+1*, AREA+4, SU+1, LOC+1, PROV+1, ACT+1, ACT+3
>> AMHAT ACT+3*, ACT+4, ACT+6
>> AMHATOT START+3*
>> AMHATOT("AT" AREA+2*, AREA+9, ACT+6*
>> AMHATOT("NS" AREA+2*, AREA+9, ACT+8*
>> AMHATOT("P" AREA+2*, AREA+9, ACT+7*
>> AMHATOT("R" AREA+2*, AREA+9, ACT+5*
>> AMHBD START+2
>> AMHBDD START+2*, HEAD1+7
>> AMHBT ACT+3
AMHBTH AREA+1, DONE+2!, SU+1, LOC+1, PROV+1, ACT+1
>> AMHDT START+1*, HEAD1+3
>> AMHED START+2
>> AMHEDD START+2*, HEAD1+7
>> AMHFTOT START+3*
AMHJOB AREA+1, DONE+2!, SU+1, LOC+1, PROV+1, ACT+1, ACT+3
>> AMHLENG HEAD1+4*, HEAD1+5*, HEAD1+6
>> AMHLOC LOC+1*, LOC+4, PROV+1, ACT+1, ACT+3
>> AMHLTOT("AT" LOC+2*, LOC+9, ACT+6*
>> AMHLTOT("NS" LOC+2*, LOC+9, ACT+8*
>> AMHLTOT("P" LOC+2*, LOC+9, ACT+7*
>> AMHLTOT("R" LOC+2*, LOC+9, ACT+5*
>> AMHNS ACT+3*, ACT+4, ACT+8
>> AMHPAT ACT+3*, ACT+4, ACT+7
>> AMHPG START+3*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPROG HEAD1+4, HEAD1+6
>> AMHPROV PROV+1*, PROV+4, ACT+1, ACT+3
>> AMHPTOT START+3*
>> AMHPTOT("AT" PROV+2*, PROV+9, ACT+6*
>> AMHPTOT("NS" PROV+2*, PROV+9, ACT+8*
>> AMHPTOT("P" PROV+2*, PROV+9, ACT+7*
>> AMHPTOT("R" PROV+2*, PROV+9, ACT+5*
AMHQUIT START+4!, AREA+1, AREA+3, AREA+6, AREA+7, SU+1, SU+3, SU+6, SU+7, LOC+1
, LOC+3, LOC+6, LOC+7, PROV+1, PROV+3, PROV+6, PROV+7, ACT+1, ACT+2, HEAD+1*
>> AMHREC ACT+3*, ACT+4, ACT+5
>> AMHSTOT START+3*
>> AMHSTOT("AT" SU+2*, SU+9, ACT+6*
>> AMHSTOT("NS" SU+2*, SU+9, ACT+8*
>> AMHSTOT("P" SU+2*, SU+9, ACT+7*
>> AMHSTOT("R" SU+2*, SU+9, ACT+5*
>> AMHSU SU+1*, SU+4, LOC+1, PROV+1, ACT+1, ACT+3
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ HEAD1+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL AREA+3, AREA+7, SU+3, SU+7, LOC+3, LOC+7, PROV+3, PROV+7, ACT+2
IOST HEAD+1
U AREA+4, SU+4, LOC+4, ACT+3, HEAD1+3
>> X START+1
>> Y START+1*, START+2*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All