Routine: BATRP10

Information

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

Call Graph

Call Graph Total: 8

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR^BATU("% OF PERSISTENT PATIENTS BY AGE GROUP WHO ARE OLDER THAN 6") Line Location: START+3
Function Call: WRITE	Prompt: !,$$CTR^BATU("WITH SPIROMETRY DOCUMENTED WITHIN A DATE RANGE") Line Location: START+4
Function Call: WRITE	Prompt: !!,"This report will give a % of persistent asthma register patients",!,"who have spirometry documented in a date range specified by the user.",!,"The patient must be 6 years old at the beginning of the date range.",! Line Location: START+5
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: !,?40,"6-8 YRS",?53,"9-18 YRS",?65,"OVER 18 YRS" Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Number of Patients",?40,$J(BAT1D,6),?53,$J(BAT2D,6),?65,$J(BAT3D,6) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"Number with Spirometry",?40,$J(BAT1N,6),?53,$J(BAT2N,6),?65,$J(BAT3N,6) Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+6
Function Call: WRITE	Prompt: ?40,$J(((BAT1N/BAT1D)*100),5,1)_"%" Line Location: PRINT+7
Function Call: WRITE	Prompt: ?53,$J(((BAT2N/BAT2D)*100),5,1)_"%" Line Location: PRINT+8
Function Call: WRITE	Prompt: ?65,$J(((BAT3N/BAT3D)*100),5,1)_"%" Line Location: PRINT+9
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 > 6 YEARS OLD WITH SPIROMETRY *",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 BD+1 ED+1 ZIS+1 EOJ+1 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVAST - [#9000010.41]	SPIRO+5, SPIRO+8, SPIRO+9
^AUPNVAST("AC"	SPIRO+4
^AUPNVSIT - [#9000010]	SPIRO+5
^BATREG - [#90181.01]	PROC+3, PROC+5
^VA(200 - [#200]	HEADER1+2

Label References

Name	Line Occurrences
$$SPIRO	PROC+12
BD	ED+2
BROWSE	ZIS+4
EXIT	START+1, STAT+3, STAT+4, ZIS+2, ZIS+4, ZIS+7
HEADER	PRINT+2
HEADER1	HEADER+1
STAT	BD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAT1D	PROC+1, PROC+9, PRINT+4, PRINT+7
>> BAT1N	PROC+1, PROC+13, PRINT+5, PRINT+7
>> BAT2D	PROC+1, PROC+10, PRINT+4, PRINT+8
>> BAT2N	PROC+1, PROC+14, PRINT+5, PRINT+8
>> BAT3D	PROC+1, PROC+11, PRINT+4, PRINT+9
>> BAT3N	PROC+1, PROC+15, PRINT+5, PRINT+9
>> BATAGE	PROC+7*, PROC+8, PROC+9, PROC+10, PROC+11, PROC+13, PROC+14, PROC+15
>> BATAGET	HEADER1+6
>> BATBD	DATES+1, BD+3, ED+1, ED+4, PROC+7, PROC+12, SPIRO+6, HEADER1+7
>> BATED	DATES+1, ED+3, PROC+6, PROC+12, SPIRO+7, HEADER1+7
>> BATH	PROC+2*
>> BATJ	PROC+2*
>> 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+12
BDATE	SPIRO~
D	SPIRO+3~, SPIRO+5*, SPIRO+6, SPIRO+7
DA	STAT+2!, ZIS+1!
DIR	STAT+2!, BD+1!, ED+1!, ZIS+1!, EOJ+1!, HEADER+2!
DIR("A"	STAT+2, BD+1, ED+1, ZIS+1, EOJ+1*
DIR("B"	STAT+2, ZIS+1
DIR(0	STAT+2, BD+1, ED+1, ZIS+1, EOJ+1, HEADER+2
>> DIRUT	STAT+3, 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
EDATE	SPIRO~
IO	EOJ+1, HEADER+2
IO(0	EOJ+1, HEADER+2
IOF	START+2, EOJ+2, HEADER1+1
IOST	EOJ+1, HEADER+2
P	SPIRO~, SPIRO+2, SPIRO+4
U	PROC+5, SPIRO+5, SPIRO+8, SPIRO+9, HEADER1+2
X	ED+4, PROC+12, PROC+13, PROC+14, PROC+15, SPIRO+3~, SPIRO+4, SPIRO+5, SPIRO+8, SPIRO+9 , 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, BD+3, ED+1, ED+3, ZIS+3, ZIS+4, SPIRO+3~, SPIRO+4, HEADER+2
Y(0	STAT+5
Z	SPIRO+3~, SPIRO+4, SPIRO+8, SPIRO+9*, SPIRO+11
>> ZTQUEUED	HEADER+2

Customize PDF page

Package: Asthma Tracking System

Routine: BATRP10

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: