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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLWL1

Package: Patient Care Component Reports

Routine: APCLWL1


Information

APCLWL1 ; IHS/CMI/LAB - CLINIC HOURLY WORKLOAD REPORT ;

Source Information

Source file <APCLWL1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  
Patient Care Component Reports 1 DEMOCHK^APCLUTL  

Entry Points

Name Comments DBIA/ICR reference
BD ;Get beginning date
LOC ;Enter facility
CLIN1 ;
ERR
START ;Start of routine
DOC ;See INFORM section for documentation notes for this routine
AGE ;Age Screening
PROV ;Provider Screening
AGER ;Age Screening
INFORM ;
GETDATES ;This section gets BEGINNING and ENDING dates:
XIT ;
PROV1 ;Provider Screening
ED ;Get ending date
CLIN ;Select Clinic(s)
DEMO ;
ZIS ;

External References

Name Field # of Occurrence
DD^%DT ED+2
C^%DTC ED+6
DEMOCHK^APCLUTL DEMO+1
^DIC LOC+1, CLIN1+1, PROV1+2
^DIR BD+1, ED+2, CLIN+1, AGE+4, AGER+2, PROV+2
^XBDBQUE DEMO+5

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: !," ******* TALLY OF DAILY VISITS BY 24-HOUR TIME FRAMES *******"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"- This report will generate an hourly visit count, 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, Ancillary,",!?31,"Hospitalizations, Events, Telecommunications",!
  • 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 totaled by hourly time frames.",!
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AGER+1
Function Call: WRITE
  • Prompt: !!,"No age range entered."
  • Line Location: AGER+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20."
  • Line Location: AGER+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!!
  • Line Location: DEMO+3
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
Routine Call
  • DIC
  • Line Location:
    • LOC+1
    • CLIN1+1
    • PROV1+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+2
    • CLIN+1
    • AGE+4
    • AGER+2
    • PROV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010.06 PROV1+2
^DIC(4 - [#4] LOC+1

Label References

Name Line Occurrences
AGE CLIN+3, AGER+3
AGER AGER+4
BD ED+4, LOC+1, CLIN+2, PROV+3
CLIN CLIN1+1, AGE+5
PROV AGE+6, PROV1+2, DEMO+2
XIT BD+3, DEMO+6
ZIS PROV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCL1 XIT+2!
APCL132S XIT+1!
APCL2 XIT+2!
APCLAGE AGE+1!
APCLAGET AGE+1!, AGER+5*, XIT+1!
APCLBD BD+4*, ED+1, ED+2, ED+5, ED+6, XIT+1!
APCLBDD XIT+1!
APCLBT XIT+2!
APCLCLIN XIT+2!
APCLCLN CLIN+3*, CLIN1+2*, XIT+1!
APCLCLNT XIT+1!
APCLDATE XIT+2!
>> APCLDEMO DEMO+1, DEMO+2
APCLDOW XIT+2!
APCLDT XIT+1!
APCLED ED+5*, XIT+1!
APCLEDD XIT+1!
APCLET XIT+1!
APCLFILE XIT+2!
APCLGTOT XIT+1!
APCLJOB XIT+2!
APCLLENG XIT+2!
APCLLOC LOC+2*, XIT+2!
APCLLOCT XIT+2!
APCLODAT XIT+1!
APCLPG XIT+1!
APCLPROV PROV+4*, PROV1+3*, XIT+2!
APCLQUIT XIT+2!
APCLSD ED+6*, XIT+1!
APCLSITE START+1!, START+2*, XIT+1!
APCLSRT2 XIT+1!
APCLTAB XIT+1!
APCLTIME XIT+1!
APCLVDFN XIT+2!
APCLVLOC XIT+2!
APCLVREC XIT+2!
DA LOC+1!, CLIN1+1!, PROV1+2!, XIT+3!
DIC LOC+1*!, CLIN1+1*!, PROV1+2*!, XIT+3!
DIC("A" LOC+1*, CLIN1+1*, PROV1+2*
DIC("B" LOC+1*
DIC(0 LOC+1*, CLIN1+1*, PROV1+2*
DIG XIT+3!
DIH XIT+3!
DIR BD+2!, ED+3!, CLIN+1!, AGE+4!, PROV+2!, XIT+3!
DIR("?" CLIN+1*, AGE+3*, PROV+2*
DIR("A" BD+1*, ED+1*, CLIN+1*, AGE+2*, AGER+2*, PROV+2*
DIR("B" CLIN+1*, AGE+2*, PROV+2*
DIR(0 BD+1*, ED+1*, CLIN+1*, AGE+2*, AGER+2*, PROV+2*
DIRUT BD+2*, BD+3, ED+3*, ED+4, CLIN+2, AGE+5, PROV+3, XIT+3!
DIU XIT+3!
DIV XIT+3!
>> DUOUT BD+2, ED+3
DUZ(2 START+1, START+2, LOC+1
IOF INFORM+1
U LOC+1, PROV1+2
X ED+6, XIT+3!
X1 ED+5*, ED+6*, XIT+3!
X2 ED+5*, ED+6*, XIT+3!
XBNS DEMO+4*, XIT+3!
XBRC DEMO+4*, XIT+3!
XBRP DEMO+4*, XIT+3!
XBRX DEMO+4*, XIT+3!
Y BD+4, ED+2*, ED+5, LOC+1, LOC+2, CLIN+3, CLIN1+1, CLIN1+2, AGE+6, AGER+3
, AGER+4, AGER+5, PROV+4, PROV1+2, PROV1+3, XIT+3!
ZTSK XIT+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All