Routine: BATBLG

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIR
IHS VA Utilities	2	^XBFMK EN^XBVK
IHS Patient	1	($$AGE,$$DOD)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	^AMQQGTX0
Patient Care Component Reports	1	$$START1^APCLDF

Package

Total

Call Graph

VA Fileman

^DIC FILE^DICN ^DIR

IHS VA Utilities

^XBFMK EN^XBVK

IHS Patient

($$AGE,$$DOD)^AUPNPAT

Kernel

($$FMADD,$$FMTE)^XLFDT

PCC Medical Query

^AMQQGTX0

Patient Care Component Reports

$$START1^APCLDF

Name	Comments	DBIA/ICR reference
PAUSE	;EP
PROCESS	;
EOJ	;
AGE	;Age Screening
AGER	;Age Screening
AST2(P,B,E)	;EP - return date of last asthma diagnosis
COM	;

External References

Name	Field # of Occurrence
^AMQQGTX0	COM+11
$$START1^APCLDF	AST2+5
$$AGE^AUPNPAT	PROCESS+10
$$DOD^AUPNPAT	PROCESS+13
^DIC	COM+7, COM+10
FILE^DICN	PROCESS+18
^DIR	BATBLG+8, COM+2, AGE+4, AGER+2, PROCESS+4, PAUSE+1
^XBFMK	PROCESS+16
EN^XBVK	EOJ+2
$$FMADD^XLFDT	PROCESS+3
$$FMTE^XLFDT	PROCESS+3, PROCESS+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to initially populate your register with a pre-defined",!,"set of patients. If you continue with this option your patient file will" Line Location: BATBLG+5
Function Call: WRITE	Prompt: !,"be scanned and all patients within a [user defined] age range living in",!,"[user defined] community with at least two asthma visits (POV with",!,"ICD-9 codes 493.00-493.99) in the past year will be automatically added to the" Line Location: BATBLG+6
Function Call: WRITE	Prompt: !,"register with a status of Unreviewed.",!! Line Location: BATBLG+7
Function Call: WRITE	Prompt: !!,"Patients from all communities will be included in the report.",! Line Location: COM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: COM+10
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: !!,"Please be patient while I populate the asthma register, this could take",!,"anywhere from 10 minutes to an hour depending on the size of your patient",!,"database.",! Line Location: PROCESS+2
Function Call: WRITE	Prompt: !,"Patient ",$P(^DPT(BATDFN,0),U)," already on Register.",! Line Location: PROCESS+17
Function Call: WRITE	Prompt: !,"error uploading patient dfn ",BATDFN,! Line Location: PROCESS+19
Function Call: WRITE	Prompt: !!,BATCNT," patients were added to the asthma register." Line Location: PROCESS+22
Routine Call	DIC Line Location: COM+7 COM+10
Routine Call	DIR Line Location: BATBLG+8 COM+2 AGE+4 AGER+2 PROCESS+4 PAUSE+1

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^BATREG - [#90181.01]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROCESS+14
^AUTTCOM - [#9999999.05]	COM+9
^BATREG - [#90181.01]	PROCESS+17
^DPT - [#2]	PROCESS+8, PROCESS+9, PROCESS+17

Name	Line Occurrences
$$AST2	PROCESS+15
AGE	COM+4, COM+5, AGER+3
AGER	AGER+4
COM	COM+5, COM+12, COM+13, AGE+5
EOJ	BATBLG+9, BATBLG+10, COM+3, PROCESS+5, PROCESS+6
PAUSE	PROCESS+23
PROCESS	AGE+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	AST2~, AST2+5
BATAGE	AGE+1!, PROCESS+10*, PROCESS+11, PROCESS+12
BATAGET	AGE+1!, AGER+5*, PROCESS+11, PROCESS+12
>> BATB	PROCESS+3*, PROCESS+15
>> BATCNT	PROCESS+1, PROCESS+20, PROCESS+21, PROCESS+22
BATCOMM	COM+1!, COM+5, COM+6!, COM+10!, COM+12, COM+13!, PROCESS+14
BATCOMM(	COM+9*, PROCESS+14
BATCOMM("*"	COM+13
>> BATDFN	PROCESS+8*, PROCESS+9, PROCESS+10, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+17, PROCESS+18, PROCESS+19
>> BATE	PROCESS+7*, PROCESS+15
>> BATERR	COM+10*
BATX	AST2+2~, AST2+3!
BATX(2	AST2+6
BATY	AST2+2~, AST2+4*, AST2+5
>> C	PROCESS+14*
DA	BATBLG+8!, COM+2!, COM+10!, PROCESS+4!
DD	PROCESS+18!
DIADD	PROCESS+18*!
DIC	COM+7!, COM+10!, PROCESS+18*!
DIC("A"	COM+7*
DIC("DR"	PROCESS+18*
DIC("S"	COM+10*
DIC(0	COM+7, COM+10, PROCESS+18*
DINUM	PROCESS+18*!
DIR	BATBLG+8!, COM+2!, AGE+4!, PROCESS+4!, EOJ+1!, PAUSE+1!
DIR("?"	AGE+3*
DIR("A"	BATBLG+8, COM+2, AGE+2, AGER+2, PROCESS+4, PAUSE+1
DIR("B"	BATBLG+8, COM+2, AGE+2, PROCESS+4
DIR(0	BATBLG+8, COM+2, AGE+2, AGER+2, PROCESS+4, PAUSE+1
>> DIRUT	BATBLG+9, COM+3, AGE+5, PROCESS+5, PAUSE+1*
DLAYGO	PROCESS+18*!
DO	PROCESS+18!
DT	PROCESS+3, PROCESS+7
>> DUOUT	PAUSE+1
E	AST2~, AST2+5
I	AST2+2~
IOF	BATBLG+4
P	AST2~, AST2+1, AST2+5
Q	AST2+2~, AST2+5*
S	AST2+2~, AST2+5*
U	COM+9, PROCESS+9, PROCESS+14, PROCESS+17
>> X	COM+10, PROCESS+18
>> Y	BATBLG+10, COM+4, COM+5, COM+8, COM+9, COM+10, COM+11, AGE+6, AGER+3, AGER+4 , AGER+5, PROCESS+6, PROCESS+19

Customize PDF page

Package: Asthma Tracking System

Routine: BATBLG

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: