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

Package: Patient Care Component Reports

Routine: APCLAP3P


Information

APCLAP3P ; IHS/CMI/LAB - print visits by prov ;

Source Information

Source file <APCLAP3P.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT START+2, START+3
NOW^%DTC START+3
DONE^APCLOSUT DONE+1
^DIR HEAD+1
$$VAL^XBDIQ1 P+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?53,"-------",!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: ?15,"Total Number of Provider Contacts:",?53,$J(APCLTOT,6),!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"Provider ",$S(APCLPSRT="D":"Discipline",APCLPSRT="A":"Discipline",1:"of Service"),": "
  • Line Location: P+2
Function Call: WRITE
  • Prompt: $S(APCLPSRT="D":$P(^DIC(7,APCLPOS,0),U),APCLPSRT="A":$P(^DIC(7,APCLPOS,0),U),1:$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLPOS,0),U),1:$P(^DIC(16,APCLPOS,0),U)))
  • Line Location: P+3
Function Call: WRITE
  • Prompt: " [",$$VAL^XBDIQ1(200,APCLPOS,53.5),"]"
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !?5,$P(^DIC(4,APCLVLOC,0),U)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !?10,APCLCAT,?53,$J(^XTMP("APCLAP3",APCLJOB,APCLBTH,APCLPOS,APCLVLOC,APCLCAT),6)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !?53,"------",!?40,"Subtotal: ",?53,$J(^XTMP("APCLAP3",APCLJOB,APCLBTH,APCLPOS,"TOTAL"),6)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?58,APCLDT,?72,"Page ",APCLPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?9,"NUMBER OF CONTACTS BY PROVIDER, LOCATION AND SERVICE CATEGORY"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?((80-APCLLENG)/2),"LOCATION OF VISITS: ",APCLLOCT,!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: ?((80-APCLLENG)/2),APCLPROT,APCLPROS,!
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: ?APCLTAB,APCLTEXT,!
  • Line Location: HEAD1+13
Function Call: WRITE
  • Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,!
  • Line Location: HEAD1+14
Function Call: WRITE
  • Prompt: !?5,"LOCATION OF VISIT"
  • Line Location: HEAD1+15
Function Call: WRITE
  • Prompt: !?10,"SERVICE CATEGORY",?50,"# PROVIDER CONTACTS",!
  • Line Location: HEAD1+16
Function Call: WRITE
  • Prompt: APCL80S
  • Line Location: HEAD1+17
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010.06 P+3, HEAD1+7
^DIC(16 - [#16] P+3, HEAD1+7
^DIC(4 - [#4] P+6
^DIC(7 - [#7] P+3, HEAD1+7
^VA(200 - [#200] P+3, HEAD1+7
^XTMP("APCLAP3" START+6, DONE+2!, P+5, P+7, P+9, P+12, P+13

Label References

Name Line Occurrences
DONE START+7, START+8
HEAD START+4, START+8, P+1, P+8, P+11
HEAD1 HEAD
P START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80S START+1*, HEAD1+17
>> APCLBDD HEAD1+14
>> APCLBTH START+6, DONE+2, P+5, P+7, P+9, P+12, P+13
>> APCLCAT P+7*, P+9
>> APCLDISC HEAD1+7
>> APCLDT START+3*, HEAD1+3
>> APCLED START+2
>> APCLEDD START+2*, HEAD1+14
>> APCLJOB START+6, DONE+2, P+5, P+7, P+9, P+12, P+13
>> APCLLENG HEAD1+8*, HEAD1+9, HEAD1+10*, HEAD1+11
>> APCLLOC HEAD1+5
>> APCLLOCT HEAD1+5*, HEAD1+8, HEAD1+9
>> APCLPG START+4*, HEAD, HEAD1+1*, HEAD1+3
>> APCLPOS START+5*, START+6*, P+3, P+4, P+5, P+7, P+9, P+12, P+13
>> APCLPRIM HEAD1+12
>> APCLPROS HEAD1+7*, HEAD1+10, HEAD1+11
>> APCLPROT HEAD1+6*, HEAD1+10, HEAD1+11
>> APCLPROV HEAD1+7
>> APCLPSRT P+2, P+3, P+4, HEAD1+6, HEAD1+7
APCLQUIT START+5!, START+6, START+7, START+8, P+1, P+5, P+7, P+8, P+10, P+11
, HEAD+1*
>> APCLTAB HEAD1+12*, HEAD1+13
>> APCLTEXT HEAD1+12*, HEAD1+13
>> APCLTOT START+4*, START+5*, START+10, P+13*
>> APCLVLOC P+5*, P+6, P+7, P+9
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL START+8, P+1, P+8, P+11
IOST HEAD+1
U P+3, P+6, HEAD1+7
>> X START+3
>> Y START+2*, START+3*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All