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

Package: Patient Care Component Reports

Routine: APCLCP3P


Information

APCLCP3P ; IHS/CMI/LAB - activity report print ;

Source Information

Source file <APCLCP3P.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Care Component Reports 3 $$CTR^APCLCP1P  NOTE2^APCLCPUT  DONE^APCLOSUT  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
HEAD
SUBHEAD ;
HEAD1 ;
P ;
NOTE ;
START ;
DONE ;

External References

Name Field # of Occurrence
DD^%DT START+1, START+4
NOW^%DTC START+1
$$CTR^APCLCP1P HEAD1+8, HEAD1+11
NOTE2^APCLCPUT NOTE+2
DONE^APCLOSUT DONE+1
^DIR HEAD+1
$$ICDDX^ICDEX P+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No visits to report",!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!?10,"TOTAL:"
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: ?Z,$J(^XTMP(APCLNSP,APCLJOB,APCLBT,"SUBTOTAL",APCLSU,X),7)
  • Line Location: LOC+5
Function Call: WRITE
  • Prompt: ?Z,$J(^XTMP(APCLNSP,APCLJOB,APCLBT,"SUBTOTAL",APCLSU,X)/60,7,2)
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: !!!,"* -- ",^XTMP(APCLNSP,APCLJOB,APCLBT,APCLSU,"NOACT")," of the visits did not have an activity time recorded."
  • Line Location: LOC+7
Function Call: WRITE
  • Prompt: !,APCLZ
  • Line Location: P+5
Function Call: WRITE
  • Prompt: ?Z,$J($S($D(^XTMP(APCLNSP,APCLJOB,APCLBT,APCLSU,APCLVAL,X)):^(X),1:0),7)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?Z,$J($S($D(^XTMP(APCLNSP,APCLJOB,APCLBT,APCLSU,APCLVAL,X)):^(X),1:0)/60,7,2)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: ?(80-($L(APCLSECS)+APCLLENG)/2),APCLSECS,": ",APCLVALP
  • Line Location: SUBHEAD+4
Function Call: WRITE
  • Prompt: !!?28,"TOTAL",?38,"# VISITS",?48,"# VISITS"
  • Line Location: SUBHEAD+5
Function Call: WRITE
  • Prompt: !?28,"PATIENT",?38,"AS PRIM.",?48,"AS SEC.",?58,"ACTIVITY",?69,"TRAVEL"
  • Line Location: SUBHEAD+6
Function Call: WRITE
  • Prompt: !,APCLSORT,?28,"CONTACTS",?38,"PROVIDER",?48,"PROVIDER",?58,"TIME*",?69,"TIME"
  • Line Location: SUBHEAD+7
Function Call: WRITE
  • Prompt: !,APCL80S,!
  • Line Location: SUBHEAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: APCLDT,?72,"Page ",APCLPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?((80-APCLLENG)/2),APCLSORT," REPORT BY ",APCLSECS," FOR ",$P(^APCLACTG(APCLACTG,0),U)," STAFF",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR^APCLCP1P(X),!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: $$CTR^APCLCP1P(X),!
  • Line Location: HEAD1+11
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLACTG - [#9001003.6] HEAD1+4
^AUTTSU - [#9999999.22] SUBHEAD+2
^DIC(4 - [#4] P+3, SUBHEAD+3, HEAD1+7
^DIC(40.7 - [#40.7] HEAD1+10
^XTMP( START+7, START+8, DONE+2!, LOC+2*, LOC+3, LOC+5, LOC+6, LOC+7, P+1*, P+6
, P+7

Label References

Name Line Occurrences
DONE START+7
HEAD START+7, LOC+1, P+2, NOTE+1
HEAD1 HEAD
LOC START+8
NOTE LOC+8
P LOC+3
SUBHEAD LOC+1, P+2

Naked Globals

Name Field # of Occurrence
^( P+6, P+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80S START+2*, SUBHEAD+8
>> APCLACTG HEAD1+4
>> APCLBD START+4
>> APCLBDD START+4*, HEAD1+5
>> APCLBT START+7, START+8, DONE+2, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6
, P+7
>> APCLCLN HEAD1+9, HEAD1+10
>> APCLCLN( HEAD1+10
>> APCLDT START+1*, HEAD1+3
>> APCLED START+4
>> APCLEDD START+4*, HEAD1+5
>> APCLGLOB P+4
>> APCLJOB START+7, START+8, DONE+2, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6
, P+7
>> APCLLENG SUBHEAD+2*, SUBHEAD+3*, SUBHEAD+4, HEAD1+4*
>> APCLLOC HEAD1+6, HEAD1+7
>> APCLLOC( HEAD1+7
>> APCLNSP START+7, START+8, DONE+2, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6
, P+7
>> APCLPG START+5*, HEAD, HEAD1+1*, HEAD1+3
>> APCLPIEC P+4
APCLQUIT START+6!, START+8, LOC+1, LOC+3, P+2, SUBHEAD+1, HEAD+1*, NOTE+1
>> APCLSECS SUBHEAD+4, HEAD1+4
>> APCLSECV SUBHEAD+2, SUBHEAD+3
>> APCLSORT SUBHEAD+7, HEAD1+4
>> APCLSORV P+3, P+4
>> APCLSU START+5*, START+8*, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6, P+7
, SUBHEAD+2, SUBHEAD+3
>> APCLSUB START+3*, LOC+2, LOC+5, LOC+6, P+1, P+6, P+7
>> APCLVAL LOC+3*, P+1, P+3, P+4, P+6, P+7
>> APCLVALP SUBHEAD+2*, SUBHEAD+3*, SUBHEAD+4
>> APCLZ P+3*, P+4*, P+5
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
>> G P+4*
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL P+2, NOTE+1
IOST HEAD+1
U LOC+2, LOC+5, LOC+6, P+1, P+3, P+4, P+6, P+7, SUBHEAD+2, SUBHEAD+3
, HEAD1+4, HEAD1+7, HEAD1+10
X START+1, LOC+2*, LOC+5*, LOC+6*, P+1*, P+6~*, P+7*, HEAD1+6*, HEAD1+7*, HEAD1+8
, HEAD1+9*, HEAD1+10*, HEAD1+11
>> Y START+1*, START+4*, LOC+2*, LOC+5*, LOC+6*, P+1*, P+6*, P+7*, HEAD+1, HEAD1+7*
, HEAD1+10*
Z LOC+5*, LOC+6*, P+6~*, P+7*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All