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

Package: Mental Health Social Services

Routine: AMHRAP2P


Information

AMHRAP2P ; IHS/CMI/LAB - print all visit report ;

Source Information

Source file <AMHRAP2P.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
SORT ;
HEAD
HEAD1 ;
P ;
DONE ;
PRINT ;

External References

Name Field # of Occurrence
DD^%DT PRINT+1, PRINT+2, P+3
NOW^%DTC PRINT+1
^AMHEKL DONE+1
DONE^AMHLEIN DONE+1
COVPAGE^AMHRPTCP PRINT+3
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?42,"------",?50,"------",?59,"-------",?70,"------",!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?58,$J(X,8)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?28,"Totals:",?40,$J(AMHTOT,8)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?58,$J(X,8)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?68,$J(AMHNTOT,8)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,$E(AMHPRNT,1,23),?26,$E(AMHSRT2,1,12),?40,$J(^XTMP("AMHRAP2",AMHJOB,AMHBTH,"TOTAL",AMHSORT,AMHSRT2),8)
  • Line Location: P+4
Function Call: WRITE
  • Prompt: ?48,$S($D(^XTMP("AMHRAP2",AMHJOB,AMHBTH,"PATIENT",AMHSORT,AMHSRT2)):$J(^XTMP("AMHRAP2",AMHJOB,AMHBTH,"PATIENT",AMHSORT,AMHSRT2),8),1:$J(0,8))
  • Line Location: P+5
Function Call: WRITE
  • Prompt: ?58,$J(X,8)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?68,$S($D(^XTMP("AMHRAP2",AMHJOB,AMHBTH,"# SERVED",AMHSORT,AMHSRT2)):$J(^XTMP("AMHRAP2",AMHJOB,AMHBTH,"# SERVED",AMHSORT,AMHSRT2),8),1:$J(0,8))
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?58,AMHDT,?72,"Page ",AMHPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?17,"RECORD DATES: ",AMHBDD," TO ",AMHEDD,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?((80-AMHLENG)/2),"NUMBER OF ACTIVITY RECORDS BY ",AMHTITL,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,AMHHD1,?26,$E(AMHHD2,1,13),?42,"# RECS",?50,"# PATS",?60,"ACTIVITY",?70,"# SERVED",!,?60,"TIME",!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD1+8
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("AMHRAP2" DONE+2!, SORT+2, P+2, P+4, P+5, P+6, P+7, P+8, P+9, P+10
, P+11

Label References

Name Line Occurrences
DONE PRINT+7, PRINT+8
HEAD PRINT+4, PRINT+8, SORT+1, P+1
HEAD1 HEAD
P SORT+2
SORT PRINT+6

Naked Globals

Name Field # of Occurrence
^( P+6, P+9, P+10, P+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHBD PRINT+2
>> AMHBDD PRINT+2*, HEAD1+4
AMHBT DONE+3!
>> AMHBTH DONE+2, SORT+2, P+2, P+4, P+5, P+6, P+7, P+8, P+9, P+10
, P+11
>> AMHDT PRINT+1*, HEAD1+3
>> AMHED PRINT+2
>> AMHEDD PRINT+2*, HEAD1+4
AMHET DONE+3!
>> AMHHD1 HEAD1+7
>> AMHHD2 HEAD1+7
>> AMHJOB DONE+2, SORT+2, P+2, P+4, P+5, P+6, P+7, P+8, P+9, P+10
, P+11
>> AMHLENG HEAD1+5*, HEAD1+6
>> AMHNTOT PRINT+4*, PRINT+12, P+10*
>> AMHPG PRINT+4*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPRNT P+3*, P+4
>> AMHPTOT PRINT+4*, P+9*
AMHQUIT PRINT+5!, PRINT+7, PRINT+8, SORT+1, SORT+2, P+1, HEAD+1*
>> AMHRPROC P+3
>> AMHSORT SORT+2*, P+2, P+3, P+4, P+5, P+6, P+7, P+8, P+9, P+10
, P+11
>> AMHSRT2 P+2*, P+4, P+5, P+6, P+7, P+8, P+9, P+10, P+11
>> AMHTITL HEAD1+5, HEAD1+6
>> AMHTOT PRINT+4*, PRINT+11, P+8*
>> AMHTTOT PRINT+4*, PRINT+11, P+11*
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL PRINT+8, SORT+1, P+1
IOST HEAD+1
>> X PRINT+1, PRINT+11*, P+6*
>> Y PRINT+1*, PRINT+2*, P+3*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All