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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLCP1P

Package: Patient Care Component Reports

Routine: APCLCP1P


Information

APCLCP1P ; IHS/CMI/LAB - tally activity ;

Source Information

Source file <APCLCP1P.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Patient Care Component Reports 5 APCLCP3P  APCLCP5P  APCLCP6P  APCLCP8P  APCLCP9P  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
HEAD
SUBHEAD ;
HEAD1 ;
P ;
CTR(X,Y) ;EP - Center X in a field Y wide.
NOTE ;
START ;
DONE ;

External References

Name Field # of Occurrence
DD^%DT START+2, START+4
NOW^%DTC START+2
NOTE^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",APCLAP,X),7)
  • Line Location: LOC+5
Function Call: WRITE
  • Prompt: ?Z,$J(^XTMP(APCLNSP,APCLJOB,APCLBT,"SUBTOTAL",APCLAP,X)/60,7,2)
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: !!!,"* -- ",^XTMP(APCLNSP,APCLJOB,APCLBT,APCLAP,"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,APCLAP,APCLVAL,X)):^(X),1:0),7)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?Z,$J($S($D(^XTMP(APCLNSP,APCLJOB,APCLBT,APCLAP,APCLVAL,X)):^(X),1:0)/60,7,2)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: ?(80-(11+APCLLENG)/2),"PROVIDER: ",$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLAP,0),U),1:$P(^DIC(16,APCLAP,0),U))
  • Line Location: SUBHEAD+3
Function Call: WRITE
  • Prompt: !!?28,"TOTAL",?38,"# CONTS",?48,"# CONTS"
  • Line Location: SUBHEAD+4
Function Call: WRITE
  • Prompt: !?28,"PATIENT",?38,"AS PRIM.",?48,"AS SEC.",?58,"ACTIVITY",?69,"TRAVEL"
  • Line Location: SUBHEAD+5
Function Call: WRITE
  • Prompt: !,APCLSORT,?28,"CONTACTS",?38,"PROVIDER",?48,"PROVIDER",?58,"TIME*",?69,"TIME"
  • Line Location: SUBHEAD+6
Function Call: WRITE
  • Prompt: !,APCL80S,!
  • Line Location: SUBHEAD+7
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-(33+APCLLENG)/2),"PRIMARY DX REPORT BY PROVIDER ",$P(^APCLACTG(APCLACTG,0),U)," STAFF",!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+12
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLACTG - [#9001003.6] HEAD1+4, HEAD1+5
^DD(9000010.06 SUBHEAD+2, SUBHEAD+3
^DIC(16 - [#16] SUBHEAD+2, SUBHEAD+3
^DIC(4 - [#4] P+3, HEAD1+8
^DIC(40.7 - [#40.7] HEAD1+11
^VA(200 - [#200] SUBHEAD+2, SUBHEAD+3
^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
$$CTR HEAD1+9, HEAD1+12
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+1*, SUBHEAD+7
>> APCLACTG HEAD1+4, HEAD1+5
>> APCLAP START+5*, START+8*, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6, P+7
, SUBHEAD+2, SUBHEAD+3
>> APCLBD START+4
>> APCLBDD START+4*, HEAD1+6
>> 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+10, HEAD1+11
>> APCLCLN( HEAD1+11
>> APCLDT START+2*, HEAD1+3
>> APCLED START+4
>> APCLEDD START+4*, HEAD1+6
>> 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, HEAD1+4*, HEAD1+5
>> APCLLOC HEAD1+7, HEAD1+8
>> APCLLOC( HEAD1+8
>> 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
>> APCLSORT SUBHEAD+6
>> APCLSORV P+3, P+4
>> 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
>> 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
IOM CTR+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+5, HEAD1+8, HEAD1+11
X START+2, LOC+2*, LOC+5*, LOC+6*, P+1*, P+6*, P+7*, HEAD1+7*, HEAD1+8*, HEAD1+9
, HEAD1+10*, HEAD1+11*, HEAD1+12, CTR~, CTR+1
Y START+2*, START+4*, LOC+2*, LOC+5*, LOC+6*, P+1*, P+6*, P+7*, HEAD+1, HEAD1+8*
, HEAD1+11*, CTR~, CTR+1
>> Z LOC+5*, LOC+6*, P+6*, P+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All