Routine: BATRPT4

Package	Total	Call Graph
IHS VA Utilities	2	^XBDBQUE EN^XBVK
Asthma Tracking System	1	($$CTR,$$LASTSEV,$$LOC,XTMP)^BATU
IHS Patient	1	($$AGE,$$DOD,$$HRN)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	$$START1^APCLDF
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;
ZIS	;
PRINT	;EP
HEADER	;EP
BROWSE	;
EOJ	;
AGE	;Age Screening
AGER	;Age Screening
START	;
HEADER1	;
EXIT	;
DATE	;
GETMED(P,EDATE)	;all reliever meds count up
PROC	;
GETSORT	;

External References

Name	Field # of Occurrence
$$START1^APCLDF	GETMED+4
$$AGE^AUPNPAT	PROC+5, GETSORT+3, PRINT+7
$$DOD^AUPNPAT	PROC+4
$$HRN^AUPNPAT	PRINT+7
$$CTR^BATU	START+3, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$LASTSEV^BATU	GETSORT+4, PRINT+8
$$LOC^BATU	HEADER1+3
XTMP^BATU	PROC+2
^DIR	START+6, DATE+2, AGE+4, AGER+2, SORT+2, ZIS+1, EOJ+1, HEADER+2
^XBDBQUE	ZIS+6, BROWSE+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	PROC+5, GETMED+3, HEADER1+5
$$FMTE^XLFDT	GETMED+4, PRINT+8, HEADER1+2, HEADER1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR^BATU("PATIENTS WITH 4 OR MORE RELIEVER REFILLS IN 150 DAYS") Line Location: START+3
Function Call: WRITE	Prompt: !!,"This report will list all patients who have had 4 or more refills of",!,"reliever medication a user defined 150 day period.",!,!,"All patients will be reviewed, not just those on the Asthma Register.",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"This report reviewd the entire patient file and may take several hours to",!,"run depending on the size of the patient database.",! 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: ZIS+1
Function Call: WRITE	Prompt: !!,"No patients to list" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?5,"Patient NOT on Asthma Register" Line Location: PRINT+9
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("* PATIENTS WITH 4 OR MORE RELIEVER MED REFILLS IN 150 DAYS *",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: !,"PATIENT NAME",?24,"HRN",?31,"AGE",?37,"LAST SEVERITY",?55,"LAST VISIT",?68,"NEXT DUE" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+8
Routine Call	DIR Line Location: START+6 DATE+2 AGE+4 AGER+2 SORT+2 ZIS+1 EOJ+1 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+3
^BATREG - [#90181.01]	GETSORT+5, GETSORT+6, PRINT+8, PRINT+9
^DPT - [#2]	GETSORT+2, PRINT+7
^VA(200 - [#200]	HEADER1+2
^XTMP("BATRPT4"	PROC+11*, PRINT+3, PRINT+4, PRINT+5, PRINT+10, EOJ+2!

Label References

Name	Line Occurrences
$$GETMED	PROC+8
AGE	AGER+3
AGER	AGER+4
BROWSE	ZIS+4
DATE	AGE+5
EOJ	PRINT+3
EXIT	START+1, START+7, START+8, DATE+3, SORT+3, ZIS+2, ZIS+4, ZIS+7
GETSORT	PROC+10
HEADER	PRINT+2, PRINT+6
HEADER1	HEADER+1
SORT	AGE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BATAGE	AGE+1!, PROC+5*, PROC+6, PROC+7
BATAGET	AGE+1!, AGER+5*, PROC+6, PROC+7, HEADER1+6
>> BATCNT	PROC+8*, PROC+9, PROC+11
>> BATED	DATE+1, DATE+4, PROC+5, PROC+8, HEADER1+5
>> BATH	PROC+1*, PROC+11, PRINT+3, PRINT+4, PRINT+5, PRINT+10, EOJ+2
>> BATJ	PROC+1*, PROC+11, PRINT+3, PRINT+4, PRINT+5, PRINT+10, EOJ+2
BATL	GETMED+1~, GETMED+2!
BATL(	GETMED+6
BATL(1	GETMED+5
>> BATOPT	ZIS+3*, EOJ+1
>> BATPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> BATQUIT	PRINT+1, PRINT+4, PRINT+5, PRINT+6, HEADER+2
>> BATSORT	SORT+1, SORT+4, GETSORT+2, GETSORT+3, GETSORT+4, GETSORT+5, GETSORT+6
>> BATSRTV	PROC+11, GETSORT+1, GETSORT+2, GETSORT+3, GETSORT+4, GETSORT+5, GETSORT+6
>> BATST	PRINT+4*, PRINT+5, PRINT+10
BATX	PROC+3, PROC+4, PROC+5, PROC+8, PROC+11, GETSORT+2, GETSORT+3, GETSORT+4, GETSORT+5, GETSORT+6 , PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, EOJ+2!
BDATE	GETMED+1~, GETMED+3*, GETMED+4
C	GETMED+6~*, GETMED+7
DA	START+6!, DATE+2!, SORT+2!, ZIS+1!
DIR	START+6!, DATE+2!, AGE+4!, SORT+2!, ZIS+1!, EOJ+1!, HEADER+2!
DIR("?"	AGE+3*
DIR("A"	START+6, DATE+2, AGE+2, AGER+2, SORT+2, ZIS+1, EOJ+1*
DIR("B"	START+6, AGE+2, SORT+2, ZIS+1
DIR(0	START+6, DATE+2, AGE+2, AGER+2, SORT+2, ZIS+1, EOJ+1, HEADER+2
>> DIRUT	START+7, DATE+3, AGE+5, SORT+3, ZIS+2, EOJ+1*
DT	PRINT+7, HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	EOJ+1
DUZ	HEADER1+2
DUZ(2	PRINT+7
E	GETMED+1~, GETMED+4*
EDATE	GETMED~, GETMED+3, GETMED+4
IO	EOJ+1, HEADER+2
IO(0	EOJ+1, HEADER+2
IOF	START+2, EOJ+3, HEADER1+1
IOSL	PRINT+6
IOST	EOJ+1, HEADER+2
P	GETMED~, GETMED+4
U	GETSORT+2, GETSORT+5, GETSORT+6, PRINT+7, PRINT+8, HEADER1+2
X	GETMED+1~, GETMED+4, GETMED+6, HEADER1+5, HEADER1+6
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
>> Y	START+8, DATE+4, AGE+6, AGER+3, AGER+4, AGER+5, SORT+4, ZIS+3, ZIS+4, HEADER+2
>> ZTQUEUED	HEADER+2

Customize PDF page

Package: Asthma Tracking System

Routine: BATRPT4

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: