Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BZXMIHDR

Package: Phoenix

Routine: BZXMIHDR


Information

BZXMIHDR ;IHS/PIMC/JLG- HEALTH DEPARTMENT REPORT ; 12/2/03

Source Information

Source file <BZXMIHDR.m>

Call Graph

Call Graph Total: 8

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

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

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All