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

Package: Patient Care Component Reports

Routine: APCLRT1


Information

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

Source Information

Source file <APCLRT1.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
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
FCLN ;get clinic at which the patient should have been seen prior
SCLN ;get clinic at which the patient should have been seen prior
O ;EP one location
START ;
CLINIC ;
GETDATES ;
XIT ;
T ;
DX ;should other visit have the same diagnosis?
PROV ;one provider or all
TCLN ;get clinic at which the patient should have been seen prior
DEMO ;
DEF ;S X=30,DIC(0)="M",DIC="^DIC(40.7," D ^DIC K DIC,X I Y=-1 W !!,"CLINIC CODE 30 - EMERGENCY ROOM MISSING FROM FILE - NOTIFY YOUR SITE MANAGER!!" G XIT
INC ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
DEMOCHK^APCLUTL DEMO+1
^DIC PRV+3, TCLN+3, FCLN+3, SCLN+3, O+2, T+2
^DIR BD+1, ED+1, CLINIC+3, LOC+3, PROV+2, DX+2, INC+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: !!,"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 72 hours "
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"of that visit to the same clinic or to another clinic."
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"The user selects which clinic 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: !!,"You must indicate in which clinic the patient returned to",!,"w/in 72 hours of another clinic visit."
  • Line Location: TCLN+2
Function Call: WRITE
  • Prompt: !!,"You must indicate in which clinic the patient was seen and returned",!,"to any clinic w/in 72 hours.",!
  • Line Location: FCLN+2
Function Call: WRITE
  • Prompt: !!,"You must indicate in which clinic the patient was seen and returned",!,"to w/in 72 hours.",!
  • Line Location: SCLN+2
Routine Call
  • DIC
  • Line Location:
    • PRV+3
    • TCLN+3
    • FCLN+3
    • SCLN+3
    • O+2
    • T+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CLINIC+3
    • LOC+3
    • PROV+2
    • DX+2
    • INC+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
^ATXAX - [#9002226] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] T+4

Label References

Name Line Occurrences
BD ED+2, LOC+4
CLINIC CLINIC+7, CLINIC+8, CLINIC+9
DX PROV+4, INC+3
FCLN CLINIC+8
GETDATES CLINIC+4, PROV+3
HR LOC+5
INFORM START+4
LOC CLINIC+6, LOC+6, LOC+7
O LOC+6
PROV PRV+3, DX+3, DEMO+2
PRV PRV+3
SCLN CLINIC+7
T LOC+7
TCLN CLINIC+9
XIT BD+2, DEMO+5

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 XIT+1!
>> APCLCLTY CLINIC+1*, CLINIC+5*, CLINIC+6, CLINIC+7, CLINIC+8, CLINIC+9
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!
>> APCLEINC INC+1*, INC+4*
APCLET XIT+1!
APCLFAC XIT+1!
>> APCLFCLN CLINIC+1*, CLINIC+6*, CLINIC+7, CLINIC+8, TCLN+1*, TCLN+6*, FCLN+1*, FCLN+6*, SCLN+1*, SCLN+6*
APCLFRST XIT+1!
APCLFVD XIT+1!
APCLHIGH XIT+1!
>> APCLHR HR+1*
APCLHRCN XIT+1!
APCLIVD XIT+1!
APCLJOB START+3*, XIT+1!
APCLLOC LOC+1!, LOC+5!, XIT+1!
APCLLOC( O+4*, T+4*
APCLLOCC XIT+1!
APCLNAME XIT+1!
APCLODAT XIT+2!
APCLP XIT+2!
APCLPG XIT+2!
>> APCLPROV PROV+1*, PRV+4*
APCLQ LOC+6, LOC+7, O+1!, O+3*, T+1!, T+3*
APCLQUIT XIT+2!
APCLRTCL XIT+1!
APCLSD ED+4*, XIT+2!
>> APCLSDX DX+1*, DX+4*
APCLSITE START+2*, XIT+2!
APCLSKIP XIT+2!
APCLT1 XIT+2!
APCLT2 XIT+2!
>> APCLTCLN CLINIC+1*, CLINIC+6*, CLINIC+9, TCLN+1*, TCLN+6*, FCLN+1*, FCLN+6*, SCLN+1*, SCLN+6*
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+3!, LOC+3!, PROV+2!, PRV+3!, DX+2!, INC+2!, XIT+3!, TCLN+3!, FCLN+3!, SCLN+3!
DIC PRV+3*!, XIT+3!, TCLN+3*!, FCLN+3*!, SCLN+3*!, O+2*!, T+2*!
DIC("A" PRV+3*, TCLN+3*, FCLN+3*, SCLN+3*, O+2*, T+2*
DIC("S" T+2*
DIC(0 PRV+3*, TCLN+3*, FCLN+3*, SCLN+3*, O+2*, T+2*
DIE XIT+3!
DIR BD+1!, ED+1!, CLINIC+3!, LOC+3!, PROV+2!, DX+2!, INC+2!, XIT+3!
DIR("A" BD+1*, ED+1*, CLINIC+3*, LOC+3*, PROV+2*, DX+2*, INC+2*
DIR("B" CLINIC+3*, LOC+3*, PROV+2*, DX+2*, INC+2*
DIR(0 BD+1*, ED+1*, CLINIC+2*, LOC+2*, PROV+2*, DX+2*, INC+2*
DIRUT BD+1*, BD+2, ED+1*, ED+2, CLINIC+4, LOC+4, PROV+3, DX+3, INC+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, PRV+3, XIT+3!, TCLN+4, FCLN+4, SCLN+4, T+4*
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+5, LOC+5, LOC+6, LOC+7, PROV+4, PRV+3, PRV+4
, DX+4, INC+4, XIT+3!, TCLN+5, TCLN+6, FCLN+5, FCLN+6, SCLN+5, SCLN+6, O+3
, O+4, T+3, T+4
ZTQUEUED 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