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

Package: Patient Care Component Reports

Routine: APCLER1


Information

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

Source Information

Source file <APCLER1.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 ;get location
CLN ;get clinic at which the patient should have been seen prior
ZIS ;call to XBDBQUE
PRV ;get provider which the patient should have been seen prior
INFORM ;
HR ;48 or 72 hr
ED ;get ending date
LOC1 ;enter location
START ;
CLINIC ;
GETDATES ;
XIT ;
PROV ;one provider or all
DEMO ;
DEF

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
DEMOCHK^APCLUTL DEMO+1
^DIC CLN+3, LOC1+1, DEF, PRV+3
^DIR BD+1, ED+1, CLINIC+2, LOC+1, HR+2, PROV+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: !!,"You must indicate in which clinic the patient was to have seen seen prior",!,"to returning to the Emergency Room",!
  • Line Location: CLN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !!,"CLINIC CODE 30 - EMERGENCY ROOM MISSING FROM FILE - NOTIFY YOUR SITE MANAGER!!"
  • Line Location: DEF+0
Function Call: WRITE
  • Prompt: !!,"You must indicate in which provider the patient was to have seen seen prior",!,"to returning to the Emergency Room",!
  • Line Location: PRV+2
Function Call: WRITE
  • Prompt: !!,"This report will produce a list of patient visits. The visits are those",!,"for which the patient had a clinic visit and then returned within 48/72 hours "
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"of that visit to the Emergency Room. The user selects which clinic"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"and which location of encounter.",!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: "The user may limit the list to just visits to a particular provider."
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"This list of visits can potentially be used for Ambulatory Indicator A-1",!,"of the Maryland Hospital Association Project.",!
  • Line Location: INFORM+6
Routine Call
  • DIC
  • Line Location:
    • CLN+3
    • LOC1+1
    • DEF
    • PRV+3
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CLINIC+2
    • LOC+1
    • HR+2
    • PROV+2

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
BD ED+2, LOC+2
CLINIC CLN+3
CLN CLN+3
GETDATES CLINIC+3, PROV+3
HR LOC+3
INFORM START+4
LOC CLINIC+4, LOC1+1, HR+3
PROV PRV+3, DEMO+2
PRV PRV+3
XIT BD+2, DEF, DEMO+5
ZIS PROV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+3!
APCL1 XIT+1!
APCL2 XIT+1!
APCL3D XIT+1!
APCLAGE XIT+1!
APCLAP XIT+1!
APCLBD BD+3*, ED+1, ED+4, XIT+1!
APCLBDD XIT+1!
APCLBT XIT+1!
APCLBTH START+3*, XIT+1!
APCLCLIN XIT+1!
APCLCLN CLINIC+1*, CLN+4*, XIT+1!
APCLDATE XIT+1!
>> APCLDEMO DEMO+1, DEMO+2
APCLDFN XIT+1!
APCLDISC XIT+1!
APCLDT XIT+1!
APCLED ED+3*, XIT+1!
APCLEDD XIT+1!
APCLERCL DEF+1*, XIT+1!
APCLET XIT+1!
APCLFAC XIT+1!
APCLFRST XIT+1!
APCLFVD XIT+1!
APCLHIGH XIT+1!
>> APCLHR HR+1*, HR+4*
APCLHRCN XIT+1!
APCLIVD XIT+1!
APCLJOB START+3*, XIT+1!
APCLLOC LOC+3*, LOC1+2*, XIT+1!
APCLLOCC XIT+1!
APCLNAME XIT+1!
APCLODAT XIT+2!
APCLP XIT+2!
APCLPG XIT+2!
>> APCLPROV PROV+1*, PRV+4*
APCLQUIT XIT+2!
APCLSD ED+4*, XIT+2!
APCLSITE START+2*, XIT+2!
APCLSKIP XIT+2!
APCLT1 XIT+2!
APCLT2 XIT+2!
APCLV XIT+2!
APCLVD XIT+2!
APCLVDFN XIT+2!
APCLVLOC XIT+2!
APCLVREC XIT+2!
APCLX XIT+2!
APCLY XIT+2!
APCLZ XIT+2!
APLCPPOV XIT+2!
D0 XIT+3!
DA CLINIC+2!, CLN+3!, LOC1+1!, HR+2!, PROV+2!, PRV+3!, XIT+3!
DIC CLN+3*!, LOC1+1*!, DEF*!, PRV+3*!, XIT+3!
DIC("A" CLN+3*, LOC1+1*, PRV+3*
DIC(0 CLN+3*, LOC1+1*, DEF*, PRV+3*
DIE XIT+3!
DIR BD+1!, ED+1!, CLINIC+2!, LOC+1!, HR+2!, PROV+2!, XIT+3!
DIR("?" LOC+1*
DIR("A" BD+1*, ED+1*, CLINIC+2*, LOC+1*, HR+2*, PROV+2*
DIR("B" CLINIC+2*, HR+2*, PROV+2*
DIR(0 BD+1*, ED+1*, CLINIC+2*, LOC+1*, HR+2*, PROV+2*
DIRUT BD+1*, BD+2, ED+1*, ED+2, CLINIC+3, LOC+2, HR+3, PROV+3, XIT+3!
DR XIT+3!
DTOUT XIT+3!
DUOUT BD+1, ED+1, XIT+3!
DUZ(2 START+1, START+2
H XIT+3!
IO("Q" XIT+3!
IOF INFORM+1
M XIT+3!
POP XIT+3!
S XIT+3!
TS XIT+3!
X ED+4, CLN+3, DEF*!, PRV+3, 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, CLINIC+4, CLN+3, CLN+4, LOC+3, LOC1+1, LOC1+2, HR+4
, DEF, DEF+1, PROV+4, PRV+3, PRV+4, XIT+3!
ZTQUEUED 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