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

Package: Patient Care Component Reports

Routine: APCLYV42


Information

APCLYV42 ; IHS/CMI/LAB - CLINIC VISIT COUNTS PRINT ;

Source Information

Source file <APCLYV42.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Patient Care Component Reports 2 DONE^APCLOSUT  ^APCLYV43  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLYV43  

Entry Points

Name Comments DBIA/ICR reference
HEAD
SET ;set up print fields
END ;
HEAD0 ;EP
TIME
TOTALS ;print totals
INIT ;initialize variables
SET0
SET1
SET2
PAGE ;form feed to new page
FINAL ;print grand totals

External References

Name Field # of Occurrence
DONE^APCLOSUT END+1
^APCLYV43 INIT+1
^DIR TOTALS+5, PAGE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?21,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",$E(APCLVDT,2,3)
  • Line Location: SET2+4
Function Call: WRITE
  • Prompt: ?45,$J(APCLCNT,5)
  • Line Location: SET2+5
Function Call: WRITE
  • Prompt: !!?30,"TOTAL VISITS: ",$J(APCLTOT,5),!!
  • Line Location: FINAL+3
Function Call: WRITE
  • Prompt: !!?21,"TOTAL VISITS FOR CLINIC:",?45,$J(APCLCTOT,5)
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPAGE
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?(80-$L(X)/2),X
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?28,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3)
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",$E(APCLED,2,3)
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!?20,"VISIT DATES",?41,"NUMBER OF VISITS"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPAGE
  • Line Location: HEAD0+2
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD0+3
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD0+5
Function Call: WRITE
  • Prompt: ?28,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3)
  • Line Location: HEAD0+6
Function Call: WRITE
  • Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",$E(APCLED,2,3)
  • Line Location: HEAD0+7
Function Call: WRITE
  • Prompt: !!!!,"NUMBER OF VISITS: ","No visits to report."
  • Line Location: HEAD0+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Routine Call
  • DIR
  • Line Location:
    • TOTALS+5
    • PAGE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD+6, HEAD0+5
^DIC(4 - [#4] HEAD, HEAD0+1
^DIC(40.7 - [#40.7] HEAD+3, HEAD0+4
^VA(200 - [#200] HEAD+1, HEAD0+2
^XTMP("APCLYV4" INIT+2, SET0, SET1, SET2, SET2+2, END+4!

Label References

Name Line Occurrences
END SET2+1, SET2+3, FINAL+1, FINAL+2, TOTALS+1, HEAD0+8
FINAL SET0
HEAD SET1+1, PAGE+1, PAGE+4
HEAD0 INIT+2
PAGE SET2+3, FINAL+2, TOTALS+1
SET0 SET1
SET1 SET2+1
SET2 SET2+5
TIME HEAD+2, HEAD0+3
TOTALS SET2+1

Naked Globals

Name Field # of Occurrence
^(0 HEAD+3, HEAD0+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%A TIME+1*, TIME+2, TIME+3!
%B TIME+1*, TIME+3!
%C TIME+2*, TIME+3!
>> APCLBD INIT+1, HEAD+7, HEAD0+6
>> APCLBT INIT+2, SET0, SET1, SET2, SET2+2, END+4
>> APCLCL INIT+1, FINAL+1
APCLCLP SET+1*, SET0*, SET1, SET2, SET2+2, END+2!, HEAD+4
APCLCLX SET0+1*, SET1*, SET2, SET2+2, END+2!, HEAD+3, HEAD0+4
APCLCNT SET2+2*, SET2+5, END+2!
APCLCTOT SET1+1*, SET2+2*, END+2!, TOTALS+2, TOTALS+3
>> APCLED INIT+1, HEAD+8, HEAD0+7
>> APCLJOB INIT+2, SET0, SET1, SET2, SET2+2, END+4
APCLPAGE INIT+2*, INIT+3*, END+2!, HEAD*, HEAD+1, HEAD0+1*, HEAD0+2
APCLSTOP INIT+2*, INIT+3*, SET2+1, SET2+3, FINAL+2, END+2!, TOTALS+1, TOTALS+5*, PAGE+3*, PAGE+4
APCLTOT INIT+3*, FINAL+3, END+2!, TOTALS+3*
APCLVDT SET1+1*, SET2*, SET2+1, SET2+2, SET2+4, END+2!
DIR TOTALS+5!, PAGE+3!
DIR(0 TOTALS+5*, PAGE+3*
DT HEAD+6, HEAD0+5
>> DTOUT TOTALS+5, PAGE+3
DUZ HEAD+1, HEAD0+2
DUZ(2 HEAD, HEAD0+1
IO TOTALS+5, PAGE+3
IO(0 TOTALS+5, PAGE+3
IOF END+3, HEAD, HEAD0+1
IOSL SET2+3, FINAL+2, TOTALS+1
IOST END+3, TOTALS+5, PAGE+1, PAGE+3
>> X HEAD*, HEAD+1, HEAD+2*, HEAD+4*, HEAD+5, HEAD0+1*, HEAD0+2, HEAD0+3*, TIME, TIME+1
>> Y TOTALS+5, HEAD+2, HEAD+3*, HEAD+4, HEAD+6*, HEAD0+3, HEAD0+4*, HEAD0+5*, PAGE+3, TIME*
, TIME+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All