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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLTAX

Package: Patient Care Component Reports

Routine: APCLTAX


Information

APCLTAX ; IHS/CMI/LAB - REPORT FOR ANMC ;

Source Information

Source file <APCLTAX.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 DD^%DT  (,C)^%DTC  ^DIC  ^DIR  
Patient Care Component Reports 1 ($$DEMO,DEMOCHK)^APCLUTL  
Taxonomy 1 $$ICD^ATXAPI  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
SEARCH ;
END ;EOJ
START ;
ED ;get ending date
V ; Run by visit date
TAX ;get icd taxonomy
DXHIT ;
V1 ;
INFORM ;
GETDATES ;
XIT ;
DEMO ;
GO ;process
PROC ;

External References

Name Field # of Occurrence
DD^%DT ED+1
^%DTC PROC+4, PROC+7
C^%DTC ED+4
$$DEMO^APCLUTL PROC+2
DEMOCHK^APCLUTL DEMO+1
$$ICD^ATXAPI DXHIT+5
^DIC TAX+3, SEARCH+4
^DIR BD+1, ED+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?20,"*********HOSPITAL DISCHARGE BY RANGE OF TAXONOMY*******",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,?40,"TEMPLATE CREATION",!!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This is a special report written to create a patient search template.",!,"The patients selected will be based on the following criteria:",!,?5,"- living patients with a discharge in a user defined time frame"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !?5,"- excluding patients discharged before they were 10 days old",!?5,"- excluding patients whose LOS was less than 1",!?5,"- excluding patients whose primary dx is not in a user selected taxonomy",!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SEARCH+3
Function Call: WRITE
  • Prompt: !!,"No Search Template selected."
  • Line Location: SEARCH+5
Function Call: WRITE
  • Prompt: !!,"An unduplicated patient list resulting from this report will be stored in the",!!?20,"** ",Y(0,0)," ** Search Template."
  • Line Location: SEARCH+6
Function Call: WRITE
  • Prompt: !!,"OKAY -- HOLD ON WHILE I FIND ALL THE DISCHARGES..."
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !!,"ALL DONE - FOUND ",APCLPCNT," PATIENTS.",!
  • Line Location: V+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DXHIT+8
Routine Call
  • DIC
  • Line Location:
    • TAX+3
    • SEARCH+4
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXAX - [#9002226] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP - [#9000010.02] V1+1
^AUPNVINP("B" V+1, V1+1
^AUPNVPOV - [#9000010.07] DXHIT+1, DXHIT+5
^AUPNVPOV("AD" DXHIT+1, DXHIT+2
^AUPNVSIT - [#9000010] PROC+7
^DIBT( SEARCH+6!, DXHIT+7*
^DPT - [#2] PROC+3, PROC+4

Label References

Name Line Occurrences
BD ED+2, TAX+4
PROC V1+1
SEARCH DEMO+2
TAX SEARCH+5
V1 V+1
XIT BD+2, END+1

Naked Globals

Name Field # of Occurrence
^(0 V1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+4!
APCL1 DXHIT+1*, XIT+1!
APCL2 XIT+1!
APCL80S XIT+2!
APCLADIS XIT+2!
APCLAP XIT+1!
APCLAPCC XIT+1!
APCLBD BD+3*, ED+1, ED+4, END+2!, XIT+1!
APCLBDD XIT+2!
APCLBT XIT+2!
APCLBTH XIT+2!
APCLCLIN XIT+1!
APCLDA1 XIT+2!
APCLDA2 XIT+2!
APCLDATE XIT+1!
>> APCLDEMO DEMO+1, DEMO+2, PROC+2
APCLDISC XIT+1!
APCLDT XIT+1!
APCLDX XIT+2!
APCLED ED+3*, V+1, END+2!, XIT+1!
APCLEDD XIT+2!
APCLFOUN END+2!, DXHIT+1!
APCLHD1 XIT+2!
APCLHD2 XIT+2!
APCLHIGH XIT+1!
APCLICD XIT+2!
APCLINF XIT+1!
APCLINFO XIT+1!
APCLJOB XIT+1!, XIT+3!
APCLLENG XIT+2!
APCLLOC XIT+1!
APCLLOCC XIT+2!
APCLLOCT XIT+2!
APCLLOW XIT+2!
APCLODAT V+1*, END+2!, V1+1, XIT+1!
APCLOTHC XIT+3!
APCLP END+2!, DXHIT+1!*, DXHIT+2*, DXHIT+3, DXHIT+4, DXHIT+5
APCLPCNT START+1*, V+3, END+2!, DXHIT+6*
APCLPG XIT+2!
APCLPPOV XIT+1!
APCLPRNT XIT+1!
APCLPROC XIT+1!
APCLPROV XIT+2!
APCLQUIT XIT+2!
APCLRPT XIT+1!
APCLRXCL XIT+3!
APCLSD ED+4*, V+1, END+2!, XIT+1!
APCLSEC XIT+2!
APCLSITE XIT+1!
APCLSKIP XIT+1!
APCLSORT XIT+1!
APCLSRCH SEARCH+1*, SEARCH+8*, END+2!, DXHIT+7
APCLSRT2 XIT+2!
APCLTAX TAX+1*, TAX+5*, END+2!, DXHIT+5
APCLTITL XIT+2!
APCLTOT XIT+2!
APCLVDFN END+2!, V1+1*, XIT+1!
APCLVLOC XIT+1!
APCLVREC END+2!, V1+1*, PROC+1, PROC+4, PROC+6, PROC+7, XIT+1!
APCLVSIT END+2!, PROC+6*, PROC+7, DXHIT+1, DXHIT+2
APCLX XIT+1!
APCLY XIT+2!
APCLZ XIT+2!
DA TAX+3!
DFN END+2!, PROC+1*, PROC+2, PROC+3, PROC+4, DXHIT+7
DIC TAX+2*, TAX+3!, SEARCH+2*
DIC("A" TAX+2*, SEARCH+2*
DIC("DR" SEARCH+2*
DIC("S" TAX+2*
DIC(0 TAX+2*, SEARCH+2*
DIR BD+1!, ED+1!
DIR("A" BD+1*, ED+1*
DIR("B" ED+1*
DIR(0 BD+1*, ED+1*
DIRUT BD+1*, BD+2, ED+1*, ED+2, XIT+4!
DT SEARCH+2
>> DUOUT BD+1, ED+1
DUZ SEARCH+2
H XIT+4!
IO("Q" XIT+4!
IOF INFORM+1
M XIT+4!
POP XIT+4!
S XIT+4!
TS XIT+4!
U PROC+1, PROC+3, PROC+4, PROC+6, PROC+7, DXHIT+1, DXHIT+5
X ED+4, PROC+5, PROC+8, XIT+4!
X1 ED+4*, PROC+4*, PROC+7*, XIT+4!
X2 ED+4*, PROC+4*, PROC+7*, XIT+4!
Y BD+3, ED+1*, ED+3, TAX+4, TAX+5, SEARCH+5, SEARCH+6, SEARCH+8, XIT+4!
Y(0 SEARCH+6
ZTQUEUED XIT+4!
ZTSK XIT+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All