Routine: BATVSUM

Information

BATVSUM ; IHS/CMI/LAB - ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,ENP)^XBDIQ1 ^XBFMK EN^XBVK
Asthma Tracking System	2	($$LASTHF,EDUC)^BATSUM ($$CTR,$$LASTAM,$$LASTAV,$$LASTDM,$$LASTETS,$$LASTPARM,$$LASTPBF,$$LASTSEV,$$NEXT,$$NREL,$$PLAST)^BATU
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE,$$HTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
EP2(BATSDFN)	;EP - PASS DFN get back array of patient care summary
LAST1YRM	;
EOJ	;
S1	;
EP(DFN)	;asthma register summary
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
SETARRAY	;set up array containing dm care summary
PRINT	;
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
BROWSE	;
GREEN(V)	;
EN	;
E	;
ZIS	;
S(Y,F,C,T)	;set up array
N	;more stuff
LAST5	;
HEADER	;
W	;write out array
COMN	;if comments/notes in register print them
N1	;
HEAD1	;
RED(V)	;
YELLOW(V)
EXIT	;

External References

Name	Field # of Occurrence
$$AGE^AUPNPAT	SETARRAY+4
$$DOB^AUPNPAT	SETARRAY+4
$$HRN^AUPNPAT	SETARRAY+3
$$SEX^AUPNPAT	SETARRAY+4
$$LASTHF^BATSUM	SETARRAY+26
EDUC^BATSUM	E+1
$$CTR^BATU	EN+2
$$LASTAM^BATU	SETARRAY+20
$$LASTAV^BATU	SETARRAY+10
$$LASTDM^BATU	SETARRAY+25
$$LASTETS^BATU	SETARRAY+23
$$LASTPARM^BATU	SETARRAY+24
$$LASTPBF^BATU	SETARRAY+11, SETARRAY+12
$$LASTSEV^BATU	SETARRAY+17, SETARRAY+19
$$NEXT^BATU	SETARRAY+10
$$NREL^BATU	N+1
$$PLAST^BATU	SETARRAY+6
^DIC	EN+4
^DIR	ZIS+1, HEADER+1
^XBDBQUE	ZIS+6, BROWSE+2
$$VAL^XBDIQ1	SETARRAY+4, SETARRAY+9
ENP^XBDIQ1	COMN+3
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	N+1, N+21, LAST1YRM+6, LAST5+3
$$FMDIFF^XLFDT	N+20
$$FMTE^XLFDT	SETARRAY+2, SETARRAY+10, SETARRAY+26, SETARRAY+33, N+1, N+15, N+21, N+23, E+4
$$HTE^XLFDT	SETARRAY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR^BATU("* List Asthma Patient's Asthma Visit History *"),!! Line Location: EN+2
Function Call: WRITE	Prompt: "This report will print the Asthma Visit History and Asthma Medication History",!,"for a patient on the Asthma Register.",! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Routine Call	DIC Line Location: EN+4
Routine Call	DIR Line Location: ZIS+1 HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BATREG - [#90181.01]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LAST1YRM+8
^ATXAX("B"	N+4, N+6, N+8, LAST1YRM+2, LAST1YRM+3, LAST1YRM+4
^AUPNVAST - [#9000010.41]	SETARRAY+33, SETARRAY+34
^AUPNVAST("AA"	LAST5+6, LAST5+7
^AUPNVMED - [#9000010.14]	N+14, N+24, LAST1YRM+8
^AUPNVMED("AA"	LAST1YRM+7, LAST1YRM+8
^AUPNVSIT - [#9000010]	SETARRAY+33, N+15, N+19
^BATREG - [#90181.01]	COMN+1
^DPT - [#2]	SETARRAY+3
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	N+17
^PSDRUG - [#50]	N+22
^PSRX - [#52]	REF+2
^PSRX("APCC"	N+16
^TMP("BATAST"	S1+1, S1+2, PRINT+2!, W+3, W+5, EP2+2!, EP2+3*
^VA(200 - [#200]	SETARRAY+1

Label References

Name	Line Occurrences
$$GREEN	SETARRAY+14
$$RED	SETARRAY+16
$$YELLOW	SETARRAY+15
BROWSE	ZIS+4
COMN	N+5, N+7, N+9, N+11
EOJ	W+8
EP	PRINT+1
EP2	EP+1
EXIT	EN+5, ZIS+2, ZIS+4, ZIS+7
HEADER	W+4
LAST1YRM	N+10
LAST5	SETARRAY+27
N	SETARRAY+31
REF	N+27
S	SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14 , SETARRAY+15, SETARRAY+16, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+23, SETARRAY+24, SETARRAY+25 , SETARRAY+26, SETARRAY+28, SETARRAY+29, SETARRAY+30, SETARRAY+31, SETARRAY+34, N+2, N+5, N+7, N+9 , N+11, N+12, N+28, N+29, N+30, E+3, E+4, COMN+2, COMN+4, N1+1
S1	S+5, S+7, S+10
SETARRAY	EP2+4
SIG	N+26

Naked Globals

Name	Field # of Occurrence
^(	N+16
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+3~, S+8, S+9, S1+1*, S1+2, EOJ+2!
B	EOJ+2!
BATAR	COMN+3!
BATAR(1100	COMN+4
>> BATCRN	N+17*, N+28
>> BATD	N+15*, N+28
>> BATDC	N+16*, N+23, N+25
>> BATDTM	N+19*, N+20, N+21
>> BATDYS	N+16*, N+21, N+28
BATEDUC	E+1!, E+2
BATEDUC(	E+4
>> BATEXP	N+19, N+21, N+23, N+25, N+28
BATL	SETARRAY+31, N+11, LAST1YRM+5!, LAST5+5!
BATL(	SETARRAY+32, N+13, N+14, LAST1YRM+8, LAST5+9
BATL1	LAST5+7!
BATL1(	LAST5+9
BATL1(9999999	LAST5+8*
>> BATMED	N+22*, N+28
>> BATMFX	N+16*, N+22
>> BATOPT	ZIS+3*
>> BATORTS	N+24*, N+25
>> BATPBF	SETARRAY+11*, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16
>> BATQTY	N+18*, N+28
BATQUIT	W+2!, W+3, W+4, W+7, EOJ+1!, HEADER+1*
>> BATREF	N+27, REF+1, REF+2, REF+3*
>> BATRFL	REF+2*, REF+3
>> BATRX	N+16*, N+17, REF+1, REF+2
BATSBEG	EOJ+1!
BATSDFN	EOJ+1!, EP2~
BATSED	EOJ+1!
>> BATSIG	N+18, N+26, N+27*, N+29, N+30, SIG+1, SIG+2
>> BATSP	SIG+1*, SIG+2
>> BATSQIT	W+7*
>> BATSSGY	N+26, SIG+1, SIG+3
BATSTOB	EOJ+1!
BATSUPI	EOJ+1!
BATTOB	EOJ+1!
BATTOBN	EOJ+1!
BATX	W+3*, W+5, EOJ+1!
BATY	EOJ+1!
C	S~, S+7, EOJ+2!, LAST5+6~, LAST5+9
D	N+13, N+14, LAST1YRM+1~, LAST1YRM+7, LAST1YRM+8, LAST5+6~*, LAST5+7
DA	ZIS+1!
DFN	EN+6*, PRINT+1, EP~, EP+1, SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+9, SETARRAY+10, SETARRAY+11 , SETARRAY+12, SETARRAY+17, SETARRAY+19, SETARRAY+20, SETARRAY+23, SETARRAY+24, SETARRAY+25, SETARRAY+26, N+1, N+17 , E+1, COMN+1, COMN+3, LAST1YRM+7, LAST1YRM+8, LAST5+6, LAST5+7
>> DIC	EN+4*
>> DIC(0	EN+4*
DIR	ZIS+1!, HEADER+1!
DIR("A"	ZIS+1*
DIR("B"	ZIS+1*
DIR(0	ZIS+1, HEADER+1
>> DIRUT	ZIS+2
DT	SETARRAY+2, N+1, N+20, LAST1YRM+6, LAST5+3
>> DTOUT	HEADER+1
DUZ	SETARRAY+1
DUZ(2	SETARRAY+3
E	EOJ+2!, SETARRAY+32, SETARRAY+33, SETARRAY+34, N+14, N+16, N+24, LAST1YRM+1~, LAST1YRM+6, LAST1YRM+7 , LAST5+6~, LAST5+7, LAST5+8, LAST5+9*
EDATE	LAST5+2~, LAST5+3, LAST5+4, LAST5+6
F	S~, S+1, S+5, EOJ+2!, COMN+4*
H	EOJ+2!
IO	HEADER+1
IO(0	HEADER+1
IOF	EN+1, W+1, HEAD1+1
IOSL	W+4
IOST	HEADER+1
L	S+7*, EOJ+2!
M	LAST1YRM+1~, LAST1YRM+8*
N	EOJ+2!, N+14, N+15, N+16, N+18, N+19, N+22, E+4
P	EOJ+2!, GREEN+1~, GREEN+2, GREEN+3, YELLOW+1~, YELLOW+2, YELLOW+3, RED+1~, RED+2*, RED+3
P1	GREEN+1~, GREEN+2, YELLOW+1~, YELLOW+2, YELLOW+3, RED+1~
T	S~, S+2, S+7, S+8, S+9, EOJ+2!, N+4, N+5, N+6, N+7 , N+8, N+9, LAST1YRM+1~, LAST1YRM+2, LAST1YRM+8
T1	LAST1YRM+1~, LAST1YRM+3*, LAST1YRM+8
T2	LAST1YRM+1~, LAST1YRM+4*, LAST1YRM+8
U	S1+1, SETARRAY+1, SETARRAY+3, SETARRAY+26, SETARRAY+33, SETARRAY+34, N+15, N+16, N+18, N+19 , N+22, REF+2, LAST1YRM+8
V	GREEN~, GREEN+2, GREEN+3, YELLOW~, YELLOW+2, RED~, RED+2
W	EOJ+2!
X	S+3~, S+5, S+6, S+8, S+9, S1+2, EOJ+2!, SETARRAY+1, SETARRAY+2, SETARRAY+3* , SETARRAY+4, SETARRAY+5, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16 , SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+23, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+28 , SETARRAY+29, SETARRAY+30, SETARRAY+31, SETARRAY+33, SETARRAY+34, N+2, N+5, N+7, N+9, N+11 , N+12, N+20, N+21, N+28, N+29, N+30, E+3, E+4, COMN+2, COMN+4* , N1+1, SIG+1, SIG+2*, SIG+3
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	EN+5, EN+6, ZIS+3, ZIS+4, S~, S+6, S+7, S+9, EOJ+2!, HEADER+1 , SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+17, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+23 , SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+32, N+1, N+2, N+21, N+23, N+25, SIG+2 , LAST1YRM+1~, LAST1YRM+8*

Customize PDF page

Package: Asthma Tracking System

Routine: BATVSUM

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: