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

Package: Patient Care Component Reports

Routine: APCLCAW


Information

APCLCAW ; IHS/CMI/LAB -CLINIC VISITS TALLY OF WALKIN&APPT ;

Source Information

Source file <APCLCAW.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 ;
CLIN1 ;
ERR
INFORM ;
ED ;get ending date
START ;
GETDATES ;
XIT ;
DEMO ;
CLIN ;
ZIS ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
PEP^AMQQGTX0 CLIN1+3
$$GETLOC^APCLOCCK LOC+1
DEMOCHK^APCLUTL DEMO+1
^DIC CLIN1+2
^DIR BD+1, ED+1, CLIN+1
^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: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLIN1+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"***** TALLY OF APPOINTMENTS AND WALKINS FOR CLINIC VISITS *****"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will generate a count of visits by clinic",!,"for a date range that you specify.",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: "ALL Visits in the database will be included in the tabulation with",!,"the exception of the following: "
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"VISIT TYPES: Contract, VA",!,"VISIT SERVICE CATEGORIES: Chart Review, In-Hospital, Hospitalizations,",!,"Historical Events.",!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: "Visits MUST have a Primary Provider and Purpose of Visit.",!
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: "The report will be sub-totaled by Location of Encounter.",!
  • Line Location: INFORM+7
Routine Call
  • DIC
  • Line Location:
    • CLIN1+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CLIN+1

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
BD ED+2, LOC+2, CLIN+2
CLIN CLIN1+4, DEMO+2
INFORM START+3
XIT BD+2, CLIN1+2, DEMO+5
ZIS CLIN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCL80S XIT+1!
APCLAPLT XIT+1!
APCLAPPT XIT+1!
APCLBD BD+3*, ED+1, ED+4, XIT+1!
APCLBDD XIT+1!
APCLBT XIT+2!
APCLCLN CLIN+3*, CLIN1+1!, CLIN1+4, CLIN1+5!*, XIT+1!
APCLCLN("*" CLIN1+5
APCLCLNT XIT+1!
>> APCLDEMO DEMO+1, DEMO+2
APCLDT XIT+1!
APCLED ED+3*, XIT+1!
APCLEDD XIT+1!
APCLGTAP XIT+1!
APCLGTOT XIT+1!
APCLGTUN XIT+1!
APCLGTWI XIT+1!
APCLJOB XIT+2!
APCLLENG XIT+2!
APCLLOC LOC+1*, LOC+2, XIT+2!
APCLLOCT XIT+2!
APCLLTOT XIT+2!
APCLODAT XIT+1!
APCLPG XIT+1!
APCLPRNT XIT+1!
APCLQUIT XIT+2!
APCLSD ED+4*, XIT+1!
APCLSITE START+1!, START+2*, XIT+1!
APCLSORT XIT+1!
APCLSRT2 XIT+1!
APCLSRT3 XIT+1!
APCLTOT XIT+1!
APCLUNLT XIT+1!
APCLUNST XIT+1!
APCLVDFN XIT+2!
APCLVLOC XIT+2!
APCLWILT XIT+2!
APCLWIT XIT+2!
DA CLIN1+2!, XIT+3!
DIC CLIN1+2*!, XIT+3!
DIC("S" CLIN1+2*
DIC(0 CLIN1+2*
DIG XIT+3!
DIH XIT+3!
DIR BD+1!, ED+1!, CLIN+1!, XIT+3!
DIR("?" CLIN+1*
DIR("A" BD+1*, ED+1*, CLIN+1*
DIR(0 BD+1*, ED+1*, CLIN+1*
DIRUT BD+1*, BD+2, ED+1*, ED+2, CLIN+2, XIT+3!
DIU XIT+3!
DIV XIT+3!
>> DUOUT BD+1, ED+1
DUZ(2 START+1, START+2
IOF INFORM+1
X ED+4, CLIN1+2*, XIT+3!
X1 ED+4*, XIT+3!
X2 ED+4*, XIT+3!
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y BD+3, ED+1*, ED+3, CLIN+3, CLIN1+2, CLIN1+3, XIT+3!
ZTSK XIT+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All