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: AMHRP3P

Package: Mental Health Social Services

Routine: AMHRP3P


Information

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

Source Information

Source file <AMHRP3P.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
Mental Health Social Services 2 ^AMHEKL  DONE^AMHLEIN  

Entry Points

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

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

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: ?23,"ACTIVITY REPORT BY PRIMARY PURPOSE",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?10,"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+5
Function Call: WRITE
  • Prompt: ?17,"RECORD DATES: ",AMHBDD," TO ",AMHEDD,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: "# PATS is the total number of unique, identified patients when",!,"a patient name was entered on the record. # served is a tally of the ",!,"number served data value.",!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !?43,"# RECS",?53,"ACT TIME",?62,"# PATS",?72,"# SERVED",!,?54,"(hrs)"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD1+9
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("AMHRP3" AREA+1, DONE+2!, SU+1, LOC+1, PROV+1, ACT+1, PROB+1, PROB+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+3
, ACT+7, PROB+2
HEAD1 HEAD
LOC SU+5
PROB ACT+5
PROV LOC+5
SU AREA+5

Naked Globals

Name Field # of Occurrence
^( PROB+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHACT ACT+1*, ACT+4, PROB+1, PROB+3
>> AMHACTOT START+3*
>> AMHACTOT("AT" ACT+2*, ACT+9, PROB+6*
>> AMHACTOT("NS" ACT+2*, ACT+9, PROB+8*
>> AMHACTOT("P" ACT+2*, ACT+9, PROB+7*
>> AMHACTOT("R" ACT+2*, ACT+9, PROB+5*
>> AMHAREA AREA+1*, AREA+4, SU+1, LOC+1, PROV+1, ACT+1, PROB+1, PROB+3
>> AMHAT PROB+3*, PROB+4, PROB+6
>> AMHATOT START+3*
>> AMHATOT("AT" AREA+2*, AREA+9, PROB+6*
>> AMHATOT("NS" AREA+2*, AREA+9, PROB+8*
>> AMHATOT("P" AREA+2*, AREA+9, PROB+7*
>> AMHATOT("R" AREA+2*, AREA+9, PROB+5*
>> AMHBD START+2
>> AMHBDD START+2*, HEAD1+6
>> AMHBT PROB+3
>> AMHBTH AREA+1, DONE+2, SU+1, LOC+1, PROV+1, ACT+1, PROB+1
>> AMHDT START+1*, HEAD1+3
>> AMHED START+2
>> AMHEDD START+2*, HEAD1+6
>> AMHFTOT START+3*
>> AMHJOB AREA+1, DONE+2, SU+1, LOC+1, PROV+1, ACT+1, PROB+1, PROB+3
>> AMHLOC LOC+1*, LOC+4, PROV+1, ACT+1, PROB+1, PROB+3
>> AMHLTOT("AT" LOC+2*, LOC+9, PROB+6*
>> AMHLTOT("NS" LOC+2*, LOC+9, PROB+8*
>> AMHLTOT("P" LOC+2*, LOC+9, PROB+7*
>> AMHLTOT("R" LOC+2*, LOC+9, PROB+5*
>> AMHNS PROB+3*, PROB+4, PROB+8
>> AMHPAT PROB+3*, PROB+4, PROB+7
>> AMHPG START+3*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPROB PROB+1*, PROB+3, PROB+4
>> AMHPROG HEAD1+5
>> AMHPROV PROV+1*, PROV+4, ACT+1, PROB+1, PROB+3
>> AMHPTOT START+3*
>> AMHPTOT("AT" PROV+2*, PROV+9, PROB+6*
>> AMHPTOT("NS" PROV+2*, PROV+9, PROB+8*
>> AMHPTOT("P" PROV+2*, PROV+9, PROB+7*
>> AMHPTOT("R" PROV+2*, PROV+9, PROB+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+3, ACT+6
, ACT+7, PROB+1, PROB+2, HEAD+1*
>> AMHREC PROB+3*, PROB+4, PROB+5
>> AMHSTOT START+3*
>> AMHSTOT("AT" SU+2*, SU+9, PROB+6*
>> AMHSTOT("NS" SU+2*, SU+9, PROB+8*
>> AMHSTOT("P" SU+2*, SU+9, PROB+7*
>> AMHSTOT("R" SU+2*, SU+9, PROB+5*
>> AMHSU SU+1*, SU+4, LOC+1, PROV+1, ACT+1, PROB+1, PROB+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+3, ACT+7
, PROB+2
IOST HEAD+1
U AREA+4, SU+4, LOC+4, PROB+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