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

Package: Patient Care Component Reports

Routine: APCLYV62


Information

APCLYV62 ; IHS/CMI/LAB - VISIT COUNTS BY PROV PRINT ;

Source Information

Source file <APCLYV62.m>

Call Graph

Call Graph Total: 2

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

Entry Points

Name Comments DBIA/ICR reference
HEAD
SET ;set up print fields
END ;
CTR(X,Y) ;EP - Center X in a field Y wide.
TIME
TOTALS ;print totals
SET4
SET5
INIT ;initialize variables
SET1
SET2
SET3
PAGE ;form feed to new page
FINAL ;print grand totals

External References

Name Field # of Occurrence
DONE^APCLOSUT END+1
^DIR TOTALS+4, PAGE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No data to report."
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: !,$E(APCLVDAT,4,5),"/",$E(APCLVDAT,6,7),"/",$E(APCLVDAT,2,3)
  • Line Location: SET5+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: APCLFLG
  • Line Location: SET5+4
Function Call: WRITE
  • Prompt: ?15,APCLCL,?60,$J(APCLCNT,5)
  • Line Location: SET5+4
Function Call: WRITE
  • Prompt: !!?30,"TOTAL PROVIDER ENTRIES: ",?60,$J(APCLTOT,5),!!
  • Line Location: FINAL+2
Function Call: WRITE
  • Prompt: !!?21,"TOTAL VISITS FOR PROVIDER:",?60,$J(APCLPCNT,5)
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+4
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+3
Function Call: WRITE
  • Prompt: !,Y,?80-$L(APCLCS)\2,"(",APCLCS,")"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • 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: !!,"VISIT DATES",?15,"CLINIC",?60,"NUMBER OF VISITS"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"-----------",?15,"------",?60,"----------------"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Routine Call
  • DIR
  • Line Location:
    • TOTALS+4
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD+4
^DIC(4 - [#4] HEAD
^VA(200 - [#200] HEAD+1
^XTMP("APCLYV6" INIT+1, SET1, SET2, SET3, SET4, SET5, END+5!

Label References

Name Line Occurrences
$$CTR HEAD+6
END INIT+1, SET4+1, SET5+2
FINAL SET1
HEAD INIT+1, SET3+1, PAGE+1, PAGE+3
PAGE SET5+1, FINAL+1, TOTALS+1
SET1 SET2
SET2 SET3
SET3 SET4+1
SET4 SET5
SET5 SET5+4
TIME HEAD+2
TOTALS SET4+1

Naked Globals

Name Field # of Occurrence
^( SET5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%A TIME~, TIME+1*, TIME+2, TIME+3!
%B TIME~, TIME+1*, TIME+3!
%C TIME~, TIME+2*, TIME+3!
APCLBD END+3!, HEAD+7
>> APCLBT INIT+1, SET1, SET2, SET3, SET4, SET5, END+5
APCLCL SET4+2*, SET5*, SET5+4, END+2!
APCLCNT SET5*, SET5+4, END+2!
APCLCS SET+1*, SET1*, SET2, SET3, SET4, SET5, END+3!, HEAD+4*
APCLED END+3!, HEAD+8
APCLFLG SET4+2*, SET5+3, SET5+4*, END+3!
>> APCLJOB INIT+1, SET1, SET2, SET3, SET4, SET5, END+5
APCLPAGE INIT+1*, INIT+2*, END+2!, HEAD*, HEAD+1
APCLPCNT SET3+1*, SET5*, END+2!, END+3!, TOTALS+2, TOTALS+3
APCLPDFN END+4!
APCLPR SET2+1*, SET3*, SET4, SET5, END+3!
APCLPRN SET1+1*, SET2*, SET3, SET4, SET5, END+3!, HEAD+3*
APCLPRV END+4!
APCLS END+3!
>> APCLSCAT( HEAD+5
APCLSTOP INIT+2*, SET4+1, SET5+2, END+2!, TOTALS+4*, PAGE+2*, PAGE+3
APCLSTR END+4!
APCLTOT INIT+3*, FINAL+2, END+2!, TOTALS+3*
APCLVDAT SET3+1*, SET4*, SET4+1, SET5, SET5+3, END+2!
DIR TOTALS+4!, PAGE+2!
DIR(0 TOTALS+4*, PAGE+2*
DT HEAD+4
>> DTOUT TOTALS+4, PAGE+2
DUZ HEAD+1
DUZ(2 HEAD
IO TOTALS+4, PAGE+2
IO(0 TOTALS+4, PAGE+2
IOF HEAD
IOM CTR+1
IOSL SET5+1, FINAL+1, TOTALS+1
IOST TOTALS+4, PAGE+1, PAGE+2
X HEAD*, HEAD+1, HEAD+2*, HEAD+3*, HEAD+5*, HEAD+6, TIME, TIME+1, CTR~, CTR+1
Y TOTALS+4, HEAD+2, HEAD+4*, HEAD+5*, PAGE+2, TIME*, TIME+3*, CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All