Routine: BZXMIHDR

Package	Total	Call Graph
Lab Service	3	IO^LRWU ^LRWU3 PT^LRX
Kernel	2	^%ZISC KILL^%ZTLOAD
IHS Patient	1	$$COMMRES^AUPNPAT
Phoenix	1	(BZXGR,COMM,MICOMM)^BZXLRGR
VA Fileman	1	^DIR

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	END+7
KILL^%ZTLOAD	DQ+2
$$COMMRES^AUPNPAT	BZXGR+4, BZXGR+16
BZXGR^BZXLRGR	PAT+4
COMM^BZXLRGR	PRTIT+18
MICOMM^BZXLRGR	SETNODE+2
^DIR	INTROTXT+9
IO^LRWU	BEGIN+5
^LRWU3	BEGIN+1
PT^LRX	PAT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"VARIABLE DT NOT DEFINED ABORTING" Line Location: BZXMIHDR+15
Function Call: WRITE	Prompt: !?35,"** NO DATA TO REPORT ** " Line Location: PREPORT+6
Function Call: WRITE	Prompt: @IOF Line Location: PREPORT+7
Function Call: WRITE	Prompt: @IOF Line Location: PREPORT+12
Function Call: WRITE	Prompt: @IOF Line Location: RLOOP1+1
Function Call: WRITE	Prompt: !!,$E(RPNM,1,28) Line Location: PRTIT+1
Function Call: WRITE	Prompt: ?30,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",6) Line Location: PRTIT+2
Function Call: WRITE	Prompt: ?40,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",7) Line Location: PRTIT+3
Function Call: WRITE	Prompt: ?54,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",8) Line Location: PRTIT+4
Function Call: WRITE	Prompt: ?58,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",4) Line Location: PRTIT+5
Function Call: WRITE	Prompt: ?70,$E($P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",1),1,12) Line Location: PRTIT+6
Function Call: WRITE	Prompt: ?84,$E(DWCOL,4,5)_"/"_$E(DWCOL,6,7)_"/"_$E(DWCOL,2,3) Line Location: PRTIT+7
Function Call: WRITE	Prompt: ?94,$E(DWCPL,4,5)_"/"_$E(DWCPL,6,7)_"/"_$E(DWCPL,2,3) Line Location: PRTIT+8
Function Call: WRITE	Prompt: ?106,$E($P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",2),1,25) Line Location: PRTIT+9
Function Call: WRITE	Prompt: !,?5,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",9) Line Location: PRTIT+10
Function Call: WRITE	Prompt: ?30,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",10) Line Location: PRTIT+11
Function Call: WRITE	Prompt: ?64,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",11) Line Location: PRTIT+12
Function Call: WRITE	Prompt: ?84,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",12) Line Location: PRTIT+13
Function Call: WRITE	Prompt: ?98,$P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",13) Line Location: PRTIT+14
Function Call: WRITE	Prompt: ?106,$E($P(^UTILITY("MI",$J,DWBUG,RPNM,RACC),"^",14),1,25) Line Location: PRTIT+15
Function Call: WRITE	Prompt: @IOF Line Location: PRTIT+21
Function Call: WRITE	Prompt: "AZ HEALTH DEPARTMENT REPORT",?51,"Phoenix Indian Medical Center",!,?46,"4212 N. 16th St., Phoenix, AZ 85016",!,"From "_PEDT_" to "_PSDT,?53,"**** CONFIDENTIAL ****",?98,"Printed: "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?120,"Page: "_PG,! Line Location: RHEAD+0
Function Call: WRITE	Prompt: !,"Name",?30,"ID#",?40,"DOB",?54,"Sex",?58,"Lab #",?70,"Sample",?84,"Col Dt",?94,"Cpl Dt",?106,"Provider",!,?5,"Phone #",?30,"Address",?106,"Location" Line Location: RHEAD+1
Function Call: WRITE	Prompt: !?5,"Current Community" Line Location: RHEAD+5
Function Call: WRITE	Prompt: ! Line Location: RHEAD+8
Function Call: WRITE	Prompt: ?LI,"-" Line Location: RHEAD+8
Function Call: WRITE	Prompt: ! Line Location: RHEAD+9
Function Call: WRITE	Prompt: !,"Reporting Organism: "_DWBUG,! Line Location: RHEAD+10
Function Call: WRITE	Prompt: ! Line Location: FOOTER+0
Function Call: WRITE	Prompt: "________________________________________ _______________" Line Location: FOOTER+1
Function Call: WRITE	Prompt: !," Medical Technologist Date" Line Location: FOOTER+2
Function Call: WRITE	Prompt: !!! Line Location: INTROTXT+2
Function Call: WRITE	Prompt: "This report prints Arizona Health Department organisms which have",! Line Location: INTROTXT+3
Function Call: WRITE	Prompt: "been identified during the date interval selected. The report",! Line Location: INTROTXT+4
Function Call: WRITE	Prompt: "is for patients residing only in selected Gila River communities.",!! Line Location: INTROTXT+5
Function Call: WRITE	Prompt: "NOTE: This report requires a COMPRESSED (132 characters/line) printer!",!! Line Location: INTROTXT+6
Routine Call	DIR Line Location: INTROTXT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	END+7!
^AUPNPAT - [#9000001]	BZXGR+8
^AUTTCOM("B"	BZXGR+9
^BZXGRHR("B"	BZXGR+13
^DIC - [#1]	PAT+5
^DIC(5 - [#5]	PAT+16
^DPT - [#2]	PAT+14, PAT+15
^LAB(62 - [#62]	SPEC+6
^LR - [#63]	SPEC, SPEC+1, SPEC+2, SPEC+3, SPEC+4, PAT, PAT+3
^LR("AD"	DQ+3, DATE+1, LIST+1
^UTILITY("MI"	BZXMIHDR+9!, DQ!, PREPORT+2, PREPORT+11, PREPORT+13!, RLOOP1+2, RLOOP2, PRTIT+2, PRTIT+3, PRTIT+4 , PRTIT+5, PRTIT+6, PRTIT+7, PRTIT+8, PRTIT+9, PRTIT+10, PRTIT+11, PRTIT+12, PRTIT+13, PRTIT+14 , PRTIT+15
^VA(200 - [#200]	SPEC+5

Label References

Name	Line Occurrences
BZXKVARS	BZXGR+15, BZXGR+17
DATE	DQ+3
FOOTER	PREPORT+12, RLOOP1, PRTIT+21
LIST	DATE+1
PAT	LIST+1
PREPORT	DQ+4
PRTIT	RLOOP2
RHEAD	PREPORT+4, RLOOP1+1, PRTIT+21
RLOOP1	PREPORT+11
RLOOP2	RLOOP1+2
SETNODE	LIST+1
SPEC	LIST+1

Naked Globals

Name	Field # of Occurrence
^(	LIST+1, PAT+10, PAT+15
^(0	SPEC+2, SPEC+6, PAT+10
^(1	SPEC+3
^(11	SPEC+3
^(16	SPEC+3
^(5	SPEC+3
^(8	SPEC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END!
A	END!
AGE	END!
BZX	END+4!, BZXKVARS+1!
BZX("COMM IEN	" , BZXGR+3, BZXGR+4, BZXGR+7, BZXGR+9*, BZXGR+13
BZX("COMM NAM	E" , BZXGR+8*, BZXGR+9
BZX("IEN"	BZXGR+13*, BZXGR+15
BZX("QUIT"	BZXMIHDR+7, INTROTXT+10*, INTROTXT+11
BZXCOMM	END+4!, BZXGR+16*
BZXSBSCR	BZXMIHDR+12*, END+4!
D0	END!
DA	END!, INTROTXT+9!
DFN	END!, PAT+3*, PAT+9, PAT+10, PAT+14, PAT+15, BZXGR+4, BZXGR+8, BZXGR+16
DIC	END!, PAT+5*, PAT+9, PAT+10
DIR	INTROTXT+9!
DIR("A"	INTROTXT+8*
DIR(0	INTROTXT+8*
DIRUT	INTROTXT+7!, INTROTXT+10
DL	END!
DOB	END!
DR	END!
DT	BZXMIHDR+15, RHEAD
DWBUG	END+1!, PREPORT+11*, RLOOP1+2, RLOOP2, PRTIT+2, PRTIT+3, PRTIT+4, PRTIT+5, PRTIT+6, PRTIT+7 , PRTIT+8, PRTIT+9, PRTIT+10, PRTIT+11, PRTIT+12, PRTIT+13, PRTIT+14, PRTIT+15, RHEAD+10
DWCITY	END+1!, PAT+11, PAT+15
DWCMPLDT	END+1!, SPEC+3*
DWCOL	END+1!, PRTIT+7*
DWCOLDT	END+1!, SPEC+2*
DWCPL	END+1!, PRTIT+8*
DWLOC	END!, SPEC+4*
DWPROV	END+1!, SPEC+5*
DWPROVN	END+1!, SPEC+2*, SPEC+5
DWSAMP	END!, SPEC+6*
DWSTATE	END+1!, PAT+11, PAT+16, PAT+17*
DWSTATN	END+1!, PAT+11, PAT+15, PAT+16
DWSTR	END+1!, PAT+11, PAT+15
DWZIP	END+1!, PAT+11, PAT+15
DX	END!
FOOTFLG	END+1!, DQ+1, RLOOP1, RHEAD+9
HRCN	END!
I	END!, DQ+3, DATE+1, LIST+1, SPEC, PREPORT+11*
II	END+1!, RLOOP1+2*
III	END+1!, RLOOP2*
IO	DQ+2
IOF	PREPORT+7, PREPORT+12, RLOOP1+1, PRTIT+21, INTROTXT+12
IOM	RHEAD+8
J	END+1!
LI	END+1!, RHEAD+8*
LRACC	END!, LIST+1*, SPEC+1
LRBUG	END!, DATE+1*, LIST+1
LRDFN	END!, LIST+1*, SPEC, SPEC+1, SPEC+2, SPEC+3, SPEC+4, PAT, PAT+3
LRDPF	END!, PAT*, PAT+4, PAT+5
LRDT	END!, DQ+3*, DATE+1, LIST+1
LREDT	BEGIN*, END!, DQ+1, DQ+3
LREND	BEGIN*, BEGIN+2, END!, DQ+3, DATE+1
LRHC	END!
LRIDT	END!, SPEC*, SPEC+1, SPEC+2, SPEC+3, SPEC+4
LRMARST	END!, PAT+10*
LROCCU	END!, PAT+10*
LRPHONE	END!, PAT+10*
LRRACE	END!, PAT+10*
LRSAMP	END!, SPEC, SPEC+2, SPEC+6
LRSDT	END!, DQ+1, DQ+3
LRSPEC	END!, SPEC, SPEC+2
LRWRD	END!
PEDT	END+1!, DQ+1*, RHEAD
PG	END+1!, PREPORT+3, PREPORT+5!, PREPORT+11, RHEAD, RHEAD+9*
PGM	END+1!
PLG	END+1!, FOOTER*
PNM	END!
POP	END!
PP	END+1!, FOOTER*
PSDT	END+1!, DQ+1*, RHEAD
RACC	END+1!, RLOOP2*, PRTIT+2, PRTIT+3, PRTIT+4, PRTIT+5, PRTIT+6, PRTIT+7, PRTIT+8, PRTIT+9 , PRTIT+10, PRTIT+11, PRTIT+12, PRTIT+13, PRTIT+14, PRTIT+15
RPNM	END+1!, RLOOP1+2*, RLOOP2, PRTIT+1, PRTIT+2, PRTIT+3, PRTIT+4, PRTIT+5, PRTIT+6, PRTIT+7 , PRTIT+8, PRTIT+9, PRTIT+10, PRTIT+11, PRTIT+12, PRTIT+13, PRTIT+14, PRTIT+15
S	END!
SEX	END!
SSN	END!
U	SPEC+1, SPEC+2, SPEC+3, SPEC+4, SPEC+5, SPEC+6, PAT, PAT+3, PAT+10, BZXGR+8
X	END!, PAT+9*, PAT+10
Y	END!
Z0	END!
>> ZTRTN	BEGIN+3*
>> ZTSAVE("BZX*"	BEGIN+4*
ZTSK	END+7!, DQ+2!

Customize PDF page

Package: Phoenix

Routine: BZXMIHDR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BEGIN
SETNODE	; ; start - vjm 5/11/2000 adding comm to the ^UTILITY temp gbl
END
FOOTER
RLOOP2
PREPORT	; ; start - vjm 5/17/2000 - do Do block if no data to report
PRTIT	; print patient data
RLOOP1
LIST	;
BZXKVARS	; clean up the BZX vars
INTROTXT	; introduction text of this Local Health Department [Gila River] report
RHEAD
DATE	;S DR=.11
PAT
SPEC
BZXGR	; processing for Gila River Community pts ; ^BZXGRHD --> BZX DWMIHDR1 GILA RIVER HLTH RPT COMMUNITIES file
DQ