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

Package: Patient Care Component Reports

Routine: APCLCZP


Information

APCLCZP ; IHS/CMI/LAB - All visit report driver ;

Source Information

Source file <APCLCZP.m>

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC
ZIS ;CALL TO XBDBQUE
ERR
INFORM ;
ED ;get ending date
LOC1 ;enter location
START ;
GETDATES ;
XIT ;
DEMO ;
CHECK ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
GETINFO^APCLAP0 START+4, CHECK+7
DEMOCHK^APCLUTL DEMO+1
^DIC LOC1+1
^DIR CHECK+3, BD+1, ED+1, LOC+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: !,$C(7),$C(7),"REPORT TYPE MISSING!! NOTIFY PROGRAMMER",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
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: !,"***** VISIT COUNTS BY ",APCLTITL," *****",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will generate a count of visits by ",APCLINF,!,"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, and Telephone Calls..",!
  • 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
Function Call: WRITE
  • Prompt: !!,"THIS REPORT WILL BE SUB-TOTALED BY ZIP CODE.",!
  • Line Location: INFORM+8
Routine Call
  • DIC
  • Line Location:
    • LOC1+1
Routine Call
  • DIR
  • Line Location:
    • CHECK+3
    • BD+1
    • ED+1
    • LOC+1

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
BD ED+2, LOC+2
GETDATES CHECK+1
INFORM START+6
LOC LOC1+1, DEMO+2
XIT START+4, CHECK+4, BD+2, DEMO+5
ZIS LOC, LOC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCL1 XIT+1!
APCL2 XIT+1!
APCL80S XIT+2!
APCLADIS XIT+1!
APCLAP XIT+1!
APCLBD BD+3*, ED+1, ED+4, XIT+1!
APCLBDD XIT+2!
APCLBT XIT+2!
APCLBTH START+5*, XIT+2!
APCLCAT XIT+2!
APCLCLIN XIT+1!
APCLCZP XIT+1!
APCLDA1 XIT+2!
APCLDA2 XIT+2!
APCLDATE XIT+1!
>> 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!, INFORM+3
APCLINFO XIT+1!
APCLJOB START+5*, XIT+1!
APCLLENG XIT+2!
APCLLOC LOC*, LOC+3*, LOC1+2*, XIT+1!
APCLLOCT XIT+2!
APCLLOW XIT+2!
APCLODAT XIT+1!
APCLPG XIT+2!
APCLPPOV XIT+1!
APCLPRNT XIT+2!
APCLPROC XIT+1!
APCLPROV XIT+2!
APCLQUIT START+4, XIT+2!
APCLRPT START+2*, START+3, CHECK+1, CHECK+5*, CHECK+6*, LOC, XIT+1!
APCLSD ED+4*, XIT+1!
APCLSEC XIT+2!
APCLSITE START+1!, XIT+1!, XIT+2!
APCLSKIP XIT+1!
APCLSORT XIT+1!
APCLSRT2 XIT+2!
APCLTITL XIT+2!, INFORM+2
APCLTOT XIT+2!
APCLVDFN XIT+1!
APCLVLOC XIT+1!
APCLVREC XIT+1!
APCLX XIT+1!
APCLY XIT+2!
APCLZ XIT+2!
DA LOC1+1!
DIC LOC1+1*!
DIC("A" LOC1+1*
DIC(0 LOC1+1*
DIR CHECK+3!, BD+1!, ED+1!, LOC+1!
DIR("?" CHECK+3*, LOC+1*
DIR("A" CHECK+2*, BD+1*, ED+1*, LOC+1*
DIR("B" ED+1*
DIR(0 CHECK+2*, BD+1*, ED+1*, LOC+1*
>> DIRUT CHECK+4, BD+1*, BD+2, ED+1*, ED+2, LOC+2
>> DUOUT BD+1, ED+1
DUZ(2 START+1
IOF INFORM+1
>> X ED+4
>> X1 ED+4*
>> X2 ED+4*
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
>> Y CHECK+5, CHECK+6, BD+3, ED+1*, ED+3, LOC+3, LOC1+1, LOC1+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All