Routine: BDMDF1V

Name	Comments	DBIA/ICR reference
PRINT1	;
PRINT2	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
EOP	;EP - End of page.
PRINT	;
USR()	;EP - Return name of current user from ^VA(200.
HEADER1	;
EXIT	;
QUALCHK	;EP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Errors to Report." Line Location: PRINT+5
Function Call: WRITE	Prompt: !!!,$$CTR("SUMMARY OF POTENTIAL ERRORS",80),! Line Location: PRINT1+5
Function Call: WRITE	Prompt: !,"ERROR MESSAGE",?40,"# OF POTENTIAL ERRORS",! Line Location: PRINT1+6
Function Call: WRITE	Prompt: ! Line Location: PRINT1+9
Function Call: WRITE	Prompt: ?5,$G(^UTILITY($J,"W",0,Y,0)),! Line Location: PRINT2+9
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+3
Function Call: WRITE	Prompt: !! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BDMPG,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$$CTR("DIABETES AUDIT EXPORT DATA QUALITY CHECK REPORT",80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(BDMDHDR,80),! Line Location: HEADER1+9
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+11
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?34,"DOB",?46,"SEX",?50,"AGE",?59,"VALUE",?71,"ERR TYPE",! Line Location: HEADER1+12
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEADER1+13
Routine Call	DIR Line Location: EXIT+1 HEADER+3 EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HEADER1+11, LOC+1
^DPT - [#2]	PRINT2+4
^UTILITY($J	PRINT2+7!, PRINT2+8, PRINT2+9, PRINT2+10!
^VA(200 - [#200]	HEADER1+5, USR+1
^XTMP("BDMDM18 ERRORS"	PRINT+5, PRINT1+1, PRINT1+2, PRINT2+1, PRINT2+3

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Name	Field # of Occurrence
>> BDMADAT	PRINT2+4, HEADER1+8
>> BDMBDAT	HEADER1+8
>> BDMBTH	PRINT+5, PRINT1+1, PRINT1+2, PRINT2+1, PRINT2+3
BDMDHDR	HEADER1+7~, HEADER1+8*, HEADER1+9
>> BDMDUZ2	HEADER1+11
>> BDME	PRINT2+1*, PRINT2+3
>> BDMGUI	EXIT+1, HEADER1+3, HEADER1+4
>> BDMIOSL	PRINT2+2
>> BDMJOB	PRINT+5, PRINT1+1, PRINT1+2, PRINT2+1, PRINT2+3
>> BDMPG	HEADER+1, HEADER1+1, HEADER1+2*, HEADER1+3, HEADER1+5
>> BDMQUIT	PRINT+2, PRINT1+1, PRINT1+2, PRINT1+4, PRINT2+1, PRINT2+2, HEADER+3
>> BDMS1	PRINT1+1*, PRINT1+2, PRINT2+1, PRINT2+3
BDMSUM	PRINT+3!
BDMSUM(	PRINT1+7, PRINT1+8, PRINT2+11*
>> BDMX	PRINT1+7*, PRINT1+8
>> DFN	PRINT1+2*, PRINT2+1, PRINT2+3, PRINT2+4
DFOUT	EOP+4!
DIR	EXIT+1!, HEADER+3!, EOP+3~
DIR("A"	EXIT+1*
DIR(0	EXIT+1, HEADER+3, EOP+5*
DIRUT	EXIT+1*, EOP+4!
>> DIWL	PRINT2+7*
>> DIWR	PRINT2+7*
DLOUT	EOP+4!
DT	HEADER1+5
DTOUT	HEADER+3, EOP+4!
DUOUT	EXIT+1, EOP+4!
DUZ	HEADER1+5, USR+1
DUZ(2	PRINT2+4, HEADER1+11, LOC+1
IO	EXIT+1, HEADER+3
IO("S"	EOP+2
IO(0	EXIT+1, HEADER+3
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT1+4
IOST	EXIT+1, HEADER+3, EOP+1
>> IOT	EOP+2
>> T	PRINT2+3*, PRINT2+4, PRINT2+6, PRINT2+11
U	PRINT2+4, PRINT2+6, PRINT2+11, HEADER1+5, HEADER1+11, USR+1, LOC+1
X	PRINT2+6, HEADER1+11, CTR~, CTR+1
Y	PRINT2+9*, HEADER+3, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Information