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

Package: Patient Care Component Reports

Routine: APCLAP6P


Information

APCLAP6P ; IHS/CMI/LAB - PRINT CLINIC VISITS ;

Source Information

Source file <APCLAP6P.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
HEAD
SET ;
END ;
HEAD1 ;
INIT ;
SET2 ;
PRINT ;

External References

Name Field # of Occurrence
DD^%DT INIT+2
DONE^APCLOSUT END+1
^DIR HEAD+1
$$FMTE^XLFDT INIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No visits to report."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !,$E($S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLAP,0),U),1:$P(^DIC(16,APCLAP,0),U)),1,15)
  • Line Location: SET2+2
Function Call: WRITE
  • Prompt: ?J,$J(Y,7)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPG
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?19,"PRIMARY CARE PROVIDER VISITS - ",$S(APCLDY="Y":"YEARLY",1:"DAILY")," REPORT"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?18,"VISITS DATES: ",APCLBDD," TO ",APCLEDD
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !!?2,"PROVIDER"
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: ?J,$E($P(^DIC(40.7,X,0),U),1,8)
  • Line Location: HEAD1+12
Function Call: WRITE
  • Prompt: ?J,$E($P(^DIC(4,X,0),U),1,8)
  • Line Location: HEAD1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+14
Function Call: WRITE
  • Prompt: $TR($J("",X)," ","-")
  • Line Location: HEAD1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+15
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010.06 SET2+2
^DIC(16 - [#16] SET2+2
^DIC(4 - [#4] HEAD1+3, HEAD1+13
^DIC(40.7 - [#40.7] HEAD1+12
^VA(200 - [#200] SET2+2, HEAD1+4
^XTMP("APCLAP6" INIT+4, SET+3, END+2!, PRINT+1

Label References

Name Line Occurrences
END INIT+4
HEAD INIT+4, SET+1, SET2+1
HEAD1 HEAD
PRINT SET2+4, SET2+5
SET2 SET+3

Naked Globals

Name Field # of Occurrence
^( PRINT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLAP SET+2*, SET+3*, SET2+2, PRINT+1
>> APCLBD INIT+2
>> APCLBDD INIT+2*, HEAD1+6
>> APCLBTH INIT+4, SET+3, END+2, PRINT+1
>> APCLCLNT SET2+4, HEAD1+7, HEAD1+12
>> APCLCLNT( SET2+4, HEAD1+12
>> APCLDT INIT+1*
>> APCLDY HEAD1+5
>> APCLED INIT+2
>> APCLEDD INIT+2*, HEAD1+6
>> APCLJOB INIT+4, SET+3, END+2, PRINT+1
>> APCLL HEAD1+8*, HEAD1+9, HEAD1+10
>> APCLLENG HEAD1+9*, HEAD1+10
>> APCLLOC HEAD1+8
>> APCLLOCT SET2+5, HEAD1+13
>> APCLLOCT( SET2+5, HEAD1+13
>> APCLPG INIT+3*, HEAD, HEAD1+1*, HEAD1+4
>> APCLQUIT SET+3, SET2+1, HEAD+1*
>> APCLX SET2+3*, SET2+4*, SET2+5*, PRINT+1
DIR HEAD+1!
DIR(0 HEAD+1*
DT INIT+1
>> DTOUT HEAD+1
DUZ HEAD1+4
DUZ(2 HEAD1+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL SET2+1
IOST HEAD+1
>> J SET2+3*, PRINT+2*, HEAD1+12*, HEAD1+13*, HEAD1+14
U SET2+2, HEAD1+3, HEAD1+12, HEAD1+13
>> X HEAD1+3*, HEAD1+4, HEAD1+12*, HEAD1+13*, HEAD1+14*
>> Y INIT+2*, PRINT+1*, PRINT+2, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All