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

Package: Patient Care Component Reports

Routine: APCLVPVC


Information

APCLVPVC ; IHS/CMI/LAB - APC visit counts by selected vars ;

Source Information

Source file <APCLVPVC.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
IHS VA Utilities 2 ^XBDBQUE  ($$PROVCLS,$$PROVCLSC)^XBFUNC1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 (DONE,XTMP)^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
CHKDISC ;
EOJ
HEAD
DONE ;
PRINT ;
PRINT1 ;
SEARCH ;
INFORM ;
C1 ;
C ;clinic
P1 ;
END ;
ZIS ;call to XBDBQUE
ED ;get ending date
P ;
S ;
XIT ;
CHKDISC2 ;CHECK DISC IF CONVERTED TO FILE 200
CP ;
HEAD1 ;
START ;
PROCESS ;
GETDATES ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
DONE^APCLOSUT DONE+1
XTMP^APCLOSUT PROCESS+3
^DIC SEARCH+1
^DIR CP+2, BD+1, ED+1, HEAD+1
^XBDBQUE ZIS+2
$$PROVCLS^XBFUNC1 CHKDISC2+2
$$PROVCLSC^XBFUNC1 CHKDISC2+3
$$FMTE^XLFDT PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,?10,"****PROVIDER OR CLINIC VISIT COUNTS FROM A TEMPLATE OF PATIENTS****",!!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This report will tally the number of times a certain pre-defined set of ",!,"patients (within a Template) were seen by various providers",!,"or went to various clinics.",!!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: "The Template of Patients must first be created prior to running this report!",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !?61,"-------",!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?52,"Total:",?60,$J(APCLTOT,8),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?5,$E(APCLPRNT,1,25),?35,$E(APCLSRT2,1,20),?60,$J(^TMP("APCLVPVC",APCLJOB,APCLBTH,APCLSORT,APCLSRT2),8)
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: APCL80S,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: "*",?3,$P(^DIC(4,APCLSITE,0),U),?58,APCLDT,?72,"Page ",APCLPG,?78,"*",!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: "*",?78,"*",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: "*",?((80-APCLLENG)/2),"NUMBER OF VISITS BY PROVIDER",?78,"*",!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: "*",?26,"SEARCH TEMPLATE: ",$P(^DIBT(APCLSEAT,0),U),?78,"*",!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: APCL80S,!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: ?5,"PROVIDER",?35,"CLASS",?60,"# VISITS",!
  • Line Location: HEAD1+10
Routine Call
  • DIC
  • Line Location:
    • SEARCH+1
Routine Call
  • DIR
  • Line Location:
    • CP+2
    • BD+1
    • ED+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPRV - [#9000010.06] P+1, P1+1
^AUPNVPRV("AC" P+1
^AUPNVSIT - [#9000010] C+1, C1+1, C1+4, C1+5, P1+3, P1+4
^AUPNVSIT("AC" C+1
^DD(9000010.06 P1+7, CHKDISC+1
^DIBT( S+1, HEAD1+7
^DIC(16 - [#16] P1+7
^DIC(4 - [#4] HEAD1+3
^DIC(40.7 - [#40.7] C1+4, C1+5
^DIC(6 - [#6] CHKDISC+2
^DIC(7 - [#7] CHKDISC+4
^TMP("APCLVPVC" PROCESS+2!, C1+6, P1+10, PRINT+5, DONE+2!, PRINT1+2, PRINT1+4, PRINT1+5
^VA(200 - [#200] P1+7, CHKDISC2+1

Label References

Name Line Occurrences
@( S+1
BD ED+2
C1 C+1
CHKDISC P1+8
CHKDISC2 CHKDISC+1
CP BD+2
DONE PRINT+6, PRINT+7
EOJ END+2, P+1
HEAD PRINT+3, PRINT+7, PRINT1+1
HEAD1 HEAD
INFORM START+4
P1 P+1
PRINT1 PRINT+5
XIT SEARCH+2, CP+3, ZIS+3

Naked Globals

Name Field # of Occurrence
^( C1+6*, P1+10*
^(0 P+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+4!
A XIT+2!
APCL1 EOJ!
APCL2 EOJ!
APCL80S XIT+1!, PRINT+1*, HEAD1+2, HEAD1+8
APCLADIS XIT+1!
APCLAP P1+7*, EOJ!, CHKDISC+2, CHKDISC2+1, CHKDISC2+2, CHKDISC2+3
>> APCLBD BD+3*, ED+1, ED+4, C1+2, P1+5
APCLBDD XIT+1!
APCLBT XIT+1!, PROCESS+1*
APCLBTH START+3*, XIT+1!, PROCESS+2, C1+6, P1+10, PRINT+5, DONE+2, PRINT1+2, PRINT1+4, PRINT1+5
APCLCLIN EOJ!
APCLCLN XIT+1!, C1+4*, C1+6
APCLCLNC XIT+1!, C1+5*, C1+6
APCLCP CP+1*, CP+4*, XIT+1!, S+1
APCLDA1 XIT+1!, EOJ!
APCLDA2 XIT+1!, EOJ!
APCLDATE EOJ!
APCLDISC P1+8*, P1+10, EOJ!, CHKDISC+3*, CHKDISC+4*, CHKDISC2+2*, CHKDISC2+3*
>> APCLDPTR CHKDISC2+2*
APCLDT XIT+2!, PRINT+2*, HEAD1+3
APCLDX XIT+1!, EOJ!
>> APCLED ED+3*, C1+3, P1+6
APCLEDD XIT+1!
>> APCLET END+1*
APCLHD1 XIT+1!
APCLHD2 XIT+1!
APCLHIGH EOJ!
APCLICD XIT+1!, EOJ!
APCLJOB START+3*, XIT+3!, PROCESS+2, C1+6, P1+10, PRINT+5, DONE+2, PRINT1+2, PRINT1+4, PRINT1+5
APCLLENG XIT+1!, HEAD1+5*, HEAD1+6
APCLLOCC XIT+1!, EOJ!
APCLLOCT XIT+1!
APCLLOW XIT+1!, EOJ!
>> APCLNAME P1+7*, P1+10
APCLOTHC XIT+3!
APCLPDFN XIT+2!, C+1*, C1+1, C1+4, C1+5, P+1*, P1+1
APCLPG XIT+1!, PRINT+3*, HEAD, HEAD1+1*, HEAD1+3
APCLPPOV EOJ!
APCLPRNT XIT+2!, PRINT1+3*, PRINT1+4
APCLPROV XIT+1!, EOJ!
APCLQUIT XIT+1!, PRINT+4!, PRINT+5, PRINT+6, PRINT+7, PRINT1+1, HEAD+1*
APCLRXCL XIT+3!
>> APCLSD ED+4*
APCLSEAT SEARCH+3*, XIT+2!, S+1, HEAD1+7
APCLSEC XIT+1!, EOJ!
APCLSITE START+2*, XIT+2!, HEAD1+3
APCLSKIP P1+9, EOJ!, CHKDISC2+1*
APCLSORT XIT+2!, PRINT+4*, PRINT+5*, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5
APCLSRT2 XIT+1!, EOJ!, PRINT1+2*, PRINT1+4, PRINT1+5
APCLTITL XIT+1!
APCLTOT XIT+1!, PRINT+3*, PRINT+9, PRINT1+5*
APCLVLOC EOJ!
APCLVREC P+1*, P1+7, EOJ!
APCLX EOJ!
APCLY XIT+1!, EOJ!, CHKDISC+2*, CHKDISC+3, CHKDISC+4
APCLZ XIT+1!, EOJ!
B XIT+2!
C XIT+2!
D XIT+2!, C1+1*, C1+2, C1+3, P1+1*, P1+2, P1+3, P1+4*, P1+5, P1+6
DA SEARCH+1!
>> DFN S+1*, C+1, P+1
DIC SEARCH+1*!
DIC("A" SEARCH+1*
DIC("S" SEARCH+1*
DIC(0 SEARCH+1*
DICR SEARCH+1!
DIR CP+2!, BD+1!, ED+1!, HEAD+1!
DIR("A" CP+2*, BD+1*, ED+1*
DIR("B" CP+2*
DIR(0 CP+2*, BD+1*, ED+1*, HEAD+1*
DIRUT CP+2*, CP+3, BD+1*, BD+2, ED+1*, ED+2, XIT+4!
DR SEARCH+1!
DT PRINT+2
>> DTOUT HEAD+1
>> DUOUT CP+2, BD+1, ED+1
DUZ(2 START+1, START+2
E XIT+2!
F XIT+2!
H XIT+4!
I XIT+2!, PRINT+5*
IO HEAD+1
IO("Q" XIT+4!
IO(0 HEAD+1
IOF INFORM+1, HEAD1+1
IOSL PRINT+7, PRINT1+1
IOST HEAD+1
J XIT+2!
M XIT+4!
POP XIT+4!
S XIT+4!
TS XIT+4!
U C+1, C1+1, C1+4, C1+5, P1+1, P1+4, P1+7, CHKDISC+1, CHKDISC+2, CHKDISC+4
, HEAD1+3, HEAD1+7
X ED+4, XIT+2!, XIT+4!
X1 ED+4*, XIT+4!
X2 ED+4*, XIT+4!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y SEARCH+2, SEARCH+3, CP+4, BD+3, ED+1*, ED+3, XIT+4!, HEAD+1
Z XIT+2!
ZTQUEUED XIT+4!
ZTSK XIT+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All