Routine: BDMD209

Information

BDMD209 ; IHS/CMI/LAB - 2000 DIABETES AUDIT ;

Package	Total	Call Graph
IHS VA Utilities	2	^XBCLS ^XBDBQUE
VA Fileman	1	^DIR

Package	Total	Caller Graph
Diabetes Registry	1	BDMD20

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking for Taxonomies to support the 2000 Audit. ",!,"Please enter the device for printing.",! Line Location: BDMD209+5
Function Call: WRITE	Prompt: !,"Checking for Taxonomies to support the 2000 Audit...",! Line Location: TAXCHK+3
Function Call: WRITE	Prompt: !,"All taxonomies are present.",! Line Location: TAXCHK+15
Function Call: WRITE	Prompt: !!,"In order for the 2000 Diabetes Audit to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing or have",!,"no entries:" Line Location: TAXCHK+16
Function Call: WRITE	Prompt: !?80-$L(BDMX)\2,BDMX Line Location: PRINT+1
Function Call: WRITE	Prompt: !?80-(8+$L(BDM("VERSION")))/2,"Version ",BDM("VERSION") Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?80-$L(BDM("SITE"))\2,BDM("SITE") Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Routine Call	DIR Line Location: DONE+1 PAGE+1

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	TAXCHK+9
^ATXAX("B"	TAXCHK+7, TAXCHK+8
^ATXLAB - [#9002228]	TAXCHK+13
^ATXLAB("B"	TAXCHK+11, TAXCHK+12
^DIC(4 - [#4]	PRINT+3

Name	Line Occurrences
PAGE	TAXCHK+14, TAXCHK+18
XIT	ZIS+3, PRINT+3, PRINT+4

Name	Field # of Occurrence
A	TAXCHK+4~, TAXCHK+5!, TAXCHK+15!
A(	TAXCHK+7, TAXCHK+9, TAXCHK+11, TAXCHK+13, TAXCHK+17, TAXCHK+19
BDM	XIT+1!
BDM("SITE"	PRINT+3*
BDM("VERSION"	BANNER+1*, PRINT+2
BDMJ	XIT+1!, BANNER+2, PRINT+1
BDMLINE	XIT+1!, BANNER+2*, PRINT+1
BDMQUIT	TAXCHK+2!, TAXCHK+17, TAXCHK+18, XIT+1!, PAGE+1*
BDMTEXT	XIT+1!, BANNER+1*
BDMX	TAXCHK+4~, TAXCHK+6, TAXCHK+7, TAXCHK+8, TAXCHK+9, TAXCHK+10, TAXCHK+11, TAXCHK+12, TAXCHK+13, TAXCHK+15! , TAXCHK+17, TAXCHK+19, XIT+1!, BANNER+2, PRINT+1*!
DIR	DONE+1!, PAGE+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, PAGE+1
>> DIRUT	DONE+1*
>> DTOUT	PAGE+1
>> DUOUT	DONE+1
DUZ(2	PRINT+3
I	TAXCHK+4~, TAXCHK+8, TAXCHK+9, TAXCHK+12, TAXCHK+13, TAXCHK+15!
IO	DONE+1, PAGE+1
IO(0	DONE+1, PAGE+1
IOF	BDMD209+4, TAXCHK+1, PRINT
IOSL	TAXCHK+14, TAXCHK+18
IOST	DONE+1, PAGE+1
J	TAXCHK+4~, TAXCHK+6, TAXCHK+10, XIT+2!
>> T	TAXCHK+6, TAXCHK+10
U	TAXCHK+19
X	XIT+2!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	TAXCHK+4~, TAXCHK+6, TAXCHK+7, TAXCHK+9, TAXCHK+10, TAXCHK+11, TAXCHK+13, TAXCHK+15!, XIT+2!, PAGE+1
Z	TAXCHK+4~, TAXCHK+6, TAXCHK+10, TAXCHK+15!

Name	Field # of Occurrence
$T(@BDMTEXT+BDMJ	BANNER+2, PRINT+1
$T(@T+J	TAXCHK+6, TAXCHK+10