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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLAP4

Package: Patient Care Component Reports

Routine: APCLAP4


Information

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

Source Information

Source file <APCLAP4.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Patient Care Component Reports 2 $$GETLOC^APCLOCCK  DEMOCHK^APCLUTL  
IHS VA Utilities 1 ^XBDBQUE  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC ;
ZIS ;call to XBDBQUE
INFORM ;
ED ;get ending date
CLINIC1 ;
START ;
CLINIC ;
GETDATES ;
XIT ;
DEMO ;
CHECK ;
DEF

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
PEP^AMQQGTX0 CLINIC1+2
$$GETLOC^APCLOCCK LOC+1
DEMOCHK^APCLUTL DEMO+1
^DIC CLINIC1+1, DEF, DEF+2
^DIR BD+1, ED+1, CLINIC+2
^XBDBQUE DEMO+4

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: !
  • Line Location: CLINIC+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLINIC1+1
Function Call: WRITE
  • Prompt: !!,"CLINIC CODE 25 - OTHER MISSING FROM FILE - NOTIFY YOUR SITE MANAGER!!"
  • Line Location: DEF+0
Function Call: WRITE
  • Prompt: !!,"PHARMACY CLINIC CODE 39 NOT IN FILE - NOTIFY SITE MANAGER!!"
  • Line Location: DEF+2
Function Call: WRITE
  • Prompt: !,"This report will generate average daily outpatient visit counts for a date range ",!,"that you specify.",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"The only visits counted are those that are considered to be",!,"APC workload reportable.",!
  • Line Location: INFORM+5
Routine Call
  • DIC
  • Line Location:
    • CLINIC1+1
    • DEF
    • DEF+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CLINIC+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^AMQQ(5 - [#9009075] Classic Fileman Calls

Label References

Name Line Occurrences
BD ED+2, LOC+2
CLINIC CLINIC1+3, DEMO+2
DEF CLINIC+4
INFORM START+4
LOC CLINIC+3
XIT BD+2, CLINIC1+1, DEF, DEF+2, DEMO+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+4!
AMQQATN XIT+3!
AMQQCOMP XIT+3!
AMQQCTXS XIT+3!
AMQQLINK XIT+3!
AMQQTAX XIT+3!
APCL1 XIT+1!
APCL2 XIT+1!
APCL80S XIT+2!
APCLADIS XIT+2!
APCLAP XIT+1!
APCLAPCC XIT+1!
APCLBD BD+3*, ED+1, ED+4, XIT+1!
APCLBDD XIT+2!
APCLBT XIT+2!
APCLBTH START+3*, XIT+2!
APCLCLIN XIT+1!
APCLCLNT CLINIC+1!, CLINIC1+3, CLINIC1+4!, XIT+3!
APCLCLNT("*" CLINIC1+4
APCLCLT XIT+3!
APCLDA1 XIT+2!
APCLDA2 XIT+2!
APCLDATE XIT+1!
APCLDAY XIT+3!
>> APCLDEMO DEMO+1, DEMO+2
APCLDISC XIT+1!
APCLDT XIT+1!
APCLDX XIT+2!
APCLED ED+3*, XIT+1!
APCLEDD XIT+2!
APCLHD1 XIT+2!
APCLHD2 XIT+2!
APCLHIGH XIT+1!
APCLICD XIT+2!
APCLINF XIT+1!
APCLINFO XIT+1!
APCLJOB START+3*, XIT+1!, XIT+3!
APCLLENG XIT+2!
APCLLOC LOC+1*, LOC+2, XIT+1!
APCLLOCC XIT+2!
APCLLOCT XIT+2!
APCLLOW XIT+2!
APCLODAT XIT+1!
APCLOTHC DEF+1*, XIT+3!
APCLPG XIT+2!
APCLPPOV XIT+1!
APCLPRNT XIT+1!
APCLPROC XIT+1!
APCLPROV XIT+2!
APCLQUIT XIT+2!
APCLRPT XIT+1!
APCLRXCL DEF+3*, XIT+3!
APCLSD ED+4*, XIT+1!
APCLSEC XIT+2!
APCLSITE START+2*, XIT+1!
APCLSKIP XIT+1!
APCLSORT XIT+1!
APCLSRT2 XIT+2!
APCLTITL XIT+2!
APCLTOT XIT+2!
APCLVDFN XIT+1!
APCLVLOC XIT+1!
APCLVREC XIT+1!
APCLX XIT+1!
APCLY XIT+2!
APCLZ XIT+2!
DA CLINIC1+1!
DIC CLINIC1+1*!, DEF*!, DEF+2*!
DIC("S" CLINIC1+1*
DIC(0 CLINIC1+1*, DEF*, DEF+2*
DIR BD+1!, ED+1!, CLINIC+2!
DIR("A" BD+1*, ED+1*, CLINIC+2*
DIR(0 BD+1*, ED+1*, CLINIC+2*
DIRUT BD+1*, BD+2, ED+1*, ED+2, CLINIC+2*, CLINIC+3, XIT+4!
>> DUOUT BD+1, ED+1, CLINIC+2
DUZ(2 START+1, START+2
H XIT+4!
IO("Q" XIT+4!
IOF INFORM+1
M XIT+4!
POP XIT+4!
S XIT+4!
TS XIT+4!
X ED+4, CLINIC1+1*, DEF*!, DEF+2*, XIT+4!
X1 ED+4*, XIT+4!
X2 ED+4*, XIT+4!
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y BD+3, ED+1*, ED+3, CLINIC+4, CLINIC1+1, CLINIC1+2, DEF, DEF+1, DEF+2, DEF+3
, XIT+4!
ZTQUEUED XIT+4!
ZTSK XIT+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All