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

Package: Asthma Tracking System

Routine: BATRPT9


Information

BATRPT9 ; IHS/CMI/LAB - master list of all active patients ;

Source Information

Source file <BATRPT9.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
IHS VA Utilities 2 ^XBDBQUE  EN^XBVK  
Asthma Tracking System 1 ($$CTR,$$LASTSEV,$$LASTSEVD,$$LOC)^BATU  
IHS Patient 1 ($$AGE,$$DOD)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 $$START1^APCLDF  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
STAT ;
HEADER ;EP
ZIS ;
CONTR(P,BDATE,EDATE) ;EP
BROWSE ;
ED ;get ending date
AGE ;Age Screening
DATES ;
AGER ;Age Screening
START ;
HEADER1 ;
EXIT ;
EOJ ;
PRINT ;EP
INHALED(P,BDATE,EDATE) ;
PROC ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
$$START1^APCLDF CONTR+2, CONTR+4, INHALED+2
$$AGE^AUPNPAT PROC+7
$$DOD^AUPNPAT PROC+4
$$CTR^BATU START+3, START+4, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
$$LASTSEV^BATU PROC+13
$$LASTSEVD^BATU PROC+6
$$LOC^BATU HEADER1+3
^DIR STAT+2, AGE+4, AGER+2, BD+1, ED+1, ZIS+1, EOJ+1, HEADER+2
^XBDBQUE ZIS+6, BROWSE+2
EN^XBVK EXIT+1
$$FMTE^XLFDT CONTR+2, CONTR+4, INHALED+2, HEADER1+2, HEADER1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR^BATU("% OF PERSISTENT PATIENTS WITH CONTROLLER OR INHALED STEROID PERSCRIPTIONS")
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,$$CTR^BATU("FILLED IN A DATE RANGE SPECIFIED BY THE USER")
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"This report give a % of persistent patients who have had at least",!,"one fill of controller meds and the % of severe persistent patients",!,"who have had at least one fill of inhaled steroids.",!
  • Line Location: START+5
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: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !!,"Controller Med Use"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !," Total Number of Patients (sev 2,3,4): ",?40,$J(BAT1D,7)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !," Total Number with Controller Med Fill: ",?40,$J(BAT1N,7)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?40,$J(X,7),"%"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"Inhaled Steroid Med Use"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"Total Number of Patients (severity 3,4): ",?40,$J(BAT2D,7)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !," Total Number with Inhaled Steroid Fill: ",?40,$J(BAT2N,7)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?40,$J(X,7),"%"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: EOJ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BATPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: $$CTR^BATU($$LOC^BATU),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,$$CTR^BATU("*** % OF PERSISTENT PATIENTS AND CONTROLLER/INHALED STEROID USE ***",80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR^BATU(X,80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR^BATU(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR^BATU(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+8
Routine Call
  • DIR
  • Line Location:
    • STAT+2
    • AGE+4
    • AGER+2
    • BD+1
    • ED+1
    • ZIS+1
    • EOJ+1
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BATREG - [#90181.01] PROC+3, PROC+5
^VA(200 - [#200] HEADER1+2

Label References

Name Line Occurrences
$$CONTR PROC+11
$$INHALED PROC+15
AGE AGER+3
AGER AGER+4
BD ED+2
BROWSE ZIS+4
DATES AGE+6
EXIT START+1, STAT+3, STAT+4, ZIS+2, ZIS+4, ZIS+7
HEADER PRINT+2
HEADER1 HEADER+1
STAT AGE+5, BD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BAT1D PROC+1*, PROC+10*, PRINT+4, PRINT+7
>> BAT1N PROC+1*, PROC+12*, PRINT+5, PRINT+7
>> BAT2D PROC+1*, PROC+14*, PRINT+10, PRINT+13
>> BAT2N PROC+1*, PROC+16*, PRINT+11, PRINT+13
BATAGE AGE+1!, PROC+7*, PROC+8, PROC+9
BATAGET AGE+1!, AGER+5*, PROC+8, PROC+9, HEADER1+6
>> BATBD DATES+1*, BD+3*, ED+1, ED+4, PROC+7, PROC+11, PROC+15, HEADER1+7
>> BATED DATES+1*, ED+3*, PROC+6, PROC+11, PROC+15, HEADER1+7
>> BATH PROC+2*
>> BATJ PROC+2*
BATL CONTR+1~, INHALED+1~
BATL(1 CONTR+3, CONTR+5, INHALED+3
>> BATOPT ZIS+3*, EOJ+1
>> BATPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> BATQUIT PRINT+1*, HEADER+2*
>> BATS STAT+1*, STAT+5*, PROC+5
>> BATSD ED+4*
>> BATSF STAT+5*, HEADER1+5
>> BATX PROC+3*, PROC+4, PROC+5, PROC+6, PROC+7, PROC+11, PROC+13, PROC+15
BDATE CONTR~, CONTR+2, CONTR+4, INHALED~, INHALED+2
DA STAT+2!, ZIS+1!
DIR STAT+2!, AGE+4!, BD+1!, ED+1!, ZIS+1!, EOJ+1!, HEADER+2!
DIR("?" AGE+3*
DIR("A" STAT+2*, AGE+2*, AGER+2*, BD+1*, ED+1*, ZIS+1*, EOJ+1*
DIR("B" STAT+2*, AGE+2*, ZIS+1*
DIR(0 STAT+2*, AGE+2*, AGER+2*, BD+1*, ED+1*, ZIS+1*, EOJ+1*, HEADER+2*
>> DIRUT STAT+3, AGE+5, BD+1*, BD+2, ED+1*, ED+2, ZIS+2, EOJ+1*
DT HEADER1+2
>> DTOUT HEADER+2
>> DUOUT BD+1, ED+1, EOJ+1
DUZ HEADER1+2
E CONTR+1~, CONTR+2*, CONTR+4*, INHALED+1~, INHALED+2*
EDATE CONTR~, CONTR+2, CONTR+4, INHALED~, INHALED+2
IO EOJ+1, HEADER+2
IO(0 EOJ+1, HEADER+2
IOF START+2, EOJ+2, HEADER1+1
IOST EOJ+1, HEADER+2
P CONTR~, CONTR+2, CONTR+4, INHALED~, INHALED+2
U PROC+5, HEADER1+2
X ED+4, PROC+11*, PROC+12, PROC+15*, PROC+16, PRINT+6*, PRINT+7*, PRINT+8, PRINT+12*, PRINT+13*
, PRINT+14, CONTR+1~, CONTR+2*, CONTR+4*, INHALED+1~, INHALED+2*, HEADER1+5*, HEADER1+6*, HEADER1+7*
>> X1 ED+4*
>> X2 ED+4*
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
>> Y STAT+4, STAT+5, AGE+6, AGER+3, AGER+4, AGER+5, BD+3, ED+1*, ED+3, ZIS+3
, ZIS+4, HEADER+2
>> Y(0 STAT+5
>> ZTQUEUED HEADER+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All