Routine: AZXRBUG5

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIC
Kernel	1	^%ZIS
Phoenix Devel Center	1	^AZXRBUG7

Package	Total	Caller Graph
Phoenix Devel Center	1	AZXRBUG3

Entry Points

Name	Comments	DBIA/ICR reference
INITDRG	;INITIALIZE THE DRUG VARIABLES
CONT	;ASK USER WHETHER TO CONTINUE WITH REPORT PRINT
INCRMNT	;INCREMENT ALL VARIABLES FOR % SENSITIVE, # TESTED
RPTPRT	;ACTUAL PRINTING OF REPORT DATA
EXTORG	;CONVERT Organism_Name TO EXTERNAL FORMAT FOR PRINTING
KILL	;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG5
REPORT	;SETUP VALUES TO PREPARE FOR REPORT PRINT (RPTPRT)
DTCNVRT	;CONVERT TDATE & FDATE TO EXTERNAL FORMAT (RTDATE, RFDATE)
MAIN	;AZXRBUG5 PROGRAM CONTROL
HEADING	;PRINT OUT THE HEADING FOR EACH NEW PAGE

External References

Name	Field # of Occurrence
DD^%DT	DTCNVRT+2, DTCNVRT+6
^%ZIS	REPORT+8
^AZXRBUG7	MAIN+6, CONT+12
^DIC	EXTORG+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"This report must be printed.",! Line Location: REPORT+11
Function Call: WRITE	Prompt: ?28,"%\|",?30,$J(%AK,3,0),"\|",?34,$J(%AM,3,0),"\|" Line Location: RPTPRT+32
Function Call: WRITE	Prompt: ?38,$J(%AUG,3,0),"\|",?42,$J(%C,3,0),"\|",?46,$J(%CAX,3,0),"\|" Line Location: RPTPRT+33
Function Call: WRITE	Prompt: ?50,$J(%CB,3,0),"\|",?54,$J(%CC,3,0),"\|",?58,$J(%CF,3,0),"\|" Line Location: RPTPRT+34
Function Call: WRITE	Prompt: ?62,$J(%CFX,3,0),"\|",?66,$J(%CP,3,0),"\|",?70,$J(%CRM,3,0),"\|" Line Location: RPTPRT+35
Function Call: WRITE	Prompt: ?74,$J(%DP,3,0),"\|",?78,$J(%E1,3,0),"\|",?82,$J(%FM,3,0),"\|" Line Location: RPTPRT+36
Function Call: WRITE	Prompt: ?86,$J(%GM,3,0),"\|",?90,$J(%NA,3,0),"\|",?94,$J(%P,3,0),"\|" Line Location: RPTPRT+37
Function Call: WRITE	Prompt: ?98,$J(%PI,3,0),"\|",?102,$J(%SxT,3,0),"\|",?106,$J(%TE,3,0),"\|" Line Location: RPTPRT+38
Function Call: WRITE	Prompt: ?110,$J(%TI,3,0),"\|",?114,$J(%VA,3,0),"\|",! Line Location: RPTPRT+39
Function Call: WRITE	Prompt: ?28,"#\|",?30,$J(AK,3,0),"\|",?34,$J(AM,3,0),"\|" Line Location: RPTPRT+42
Function Call: WRITE	Prompt: ?38,$J(AUG,3,0),"\|",?42,$J(C,3,0),"\|",?46,$J(CAX,3,0),"\|" Line Location: RPTPRT+43
Function Call: WRITE	Prompt: ?50,$J(CB,3,0),"\|",?54,$J(CC,3,0),"\|",?58,$J(CF,3,0),"\|" Line Location: RPTPRT+44
Function Call: WRITE	Prompt: ?62,$J(CFX,3,0),"\|",?66,$J(CP,3,0),"\|",?70,$J(CRM,3,0),"\|" Line Location: RPTPRT+45
Function Call: WRITE	Prompt: ?74,$J(DP,3,0),"\|",?78,$J(E1,3,0),"\|",?82,$J(FM,3,0),"\|" Line Location: RPTPRT+46
Function Call: WRITE	Prompt: ?86,$J(GM,3,0),"\|",?90,$J(NA,3,0),"\|",?94,$J(P,3,0),"\|" Line Location: RPTPRT+47
Function Call: WRITE	Prompt: ?98,$J(PI,3,0),"\|",?102,$J(SxT,3,0),"\|",?106,$J(TE,3,0),"\|" Line Location: RPTPRT+48
Function Call: WRITE	Prompt: ?110,$J(TI,3,0),"\|",?114,$J(VA,3,0),"\|",! Line Location: RPTPRT+49
Function Call: WRITE	Prompt: BORDER2,! Line Location: RPTPRT+54
Function Call: WRITE	Prompt: !,$E(ORGCHK,1,27) Line Location: EXTORG+13
Function Call: WRITE	Prompt: # Line Location: HEADING+2
Function Call: WRITE	Prompt: !,BORDER1,! Line Location: HEADING+5
Function Call: WRITE	Prompt: !,"BugDrug2 Antibiotic Sensitivity" Line Location: HEADING+6
Function Call: WRITE	Prompt: ?64,"From Date: ",RFDATE,?91,"--",?97,"To Date: ",RTDATE Line Location: HEADING+7
Function Call: WRITE	Prompt: !!,"Facility: ",FAC,?100,"Page: ",PG Line Location: HEADING+8
Function Call: WRITE	Prompt: !,BORDER1 Line Location: HEADING+9
Function Call: WRITE	Prompt: !!,HEADER Line Location: HEADING+10
Function Call: WRITE	Prompt: !,BORDER2,! Line Location: HEADING+11
Function Call: WRITE	Prompt: !!!!!!!,"Do you want to print another" Line Location: CONT+6
Function Call: WRITE	Prompt: !!,"Answer with: Y= Yes, N= No" Line Location: CONT+10
Routine Call	DIC Line Location: EXTORG+10
Routine Call	%ZIS Line Location: REPORT+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	REPORT+19
^DIZ(1991018	EXTORG+11
^DIZ(1991020	REPORT+15, INCRMNT+1

Label References

Name	Line Occurrences
CONT	MAIN+14, CONT+10, CONT+12
DTCNVRT	REPORT+12
EXTORG	RPTPRT+5
HEADING	REPORT+12, RPTPRT+3
INCRMNT	REPORT+15
INITDRG	MAIN+4, RPTPRT+52, CONT+4
KILL	MAIN+15
REPORT	MAIN+13, REPORT+11, CONT+12
RPTPRT	REPORT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%AK	RPTPRT+8, RPTPRT+32, INCRMNT+4, INITDRG+1*, KILL+2!
%AM	RPTPRT+9, RPTPRT+32, INCRMNT+6, INITDRG+1*, KILL+2!
%AUG	RPTPRT+10, RPTPRT+33, INCRMNT+8, INITDRG+1*, KILL+2!
%C	RPTPRT+11, RPTPRT+33, INCRMNT+10, INITDRG+1*, KILL+3!
%CAX	RPTPRT+12, RPTPRT+33, INCRMNT+12, INITDRG+1*, KILL+3!
%CB	RPTPRT+13, RPTPRT+34, INCRMNT+14, INITDRG+1*, KILL+3!
%CC	RPTPRT+14, RPTPRT+34, INCRMNT+16, INITDRG+1*, KILL+3!
%CF	RPTPRT+15, RPTPRT+34, INCRMNT+18, INITDRG+1*, KILL+3!
%CFX	RPTPRT+16, RPTPRT+35, INCRMNT+20, INITDRG+1*, KILL+4!
%CP	RPTPRT+17, RPTPRT+35, INCRMNT+22, INITDRG+2*, KILL+4!
%CRM	RPTPRT+18, RPTPRT+35, INCRMNT+24, INITDRG+2*, KILL+4!
%DP	RPTPRT+19, RPTPRT+36, INCRMNT+26, INITDRG+2*, KILL+4!
%E1	RPTPRT+20, RPTPRT+36, INCRMNT+28, INITDRG+2*, KILL+4!
%FM	RPTPRT+21, RPTPRT+36, INCRMNT+30, INITDRG+2*, KILL+5!
%GM	RPTPRT+22, RPTPRT+37, INCRMNT+32, INITDRG+2*, KILL+5!
%NA	RPTPRT+23, RPTPRT+37, INCRMNT+34, INITDRG+2*, KILL+5!
%P	RPTPRT+24, RPTPRT+37, INCRMNT+36, INITDRG+2*, KILL+5!
%PI	RPTPRT+25, RPTPRT+38, INCRMNT+38, INITDRG+2*, KILL+5!
%SxT	RPTPRT+26, RPTPRT+38, INCRMNT+40, INITDRG+3*, KILL+6!
%TE	RPTPRT+27, RPTPRT+38, INCRMNT+42, INITDRG+3*, KILL+6!
%TI	RPTPRT+28, RPTPRT+39, INCRMNT+44, INITDRG+3*, KILL+6!
%VA	RPTPRT+29, RPTPRT+39, INCRMNT+46, INITDRG+3*, KILL+6!
%ZIS	KILL+1!
%ZIS("B"	REPORT+5*
AK	RPTPRT+8, RPTPRT+42, INCRMNT+4, INCRMNT+5, INITDRG+4*, KILL+2!
AM	RPTPRT+9, RPTPRT+42, INCRMNT+6, INCRMNT+7, INITDRG+4*, KILL+2!
AUG	RPTPRT+10, RPTPRT+43, INCRMNT+8, INCRMNT+9, INITDRG+4*, KILL+2!
BORDER1	REPORT+2*, HEADING+5, HEADING+9, KILL+1!
BORDER2	REPORT+3*, RPTPRT+54, HEADING+11, KILL+1!
C	RPTPRT+11, RPTPRT+43, INCRMNT+10, INCRMNT+11, INITDRG+4*, KILL+3!
CAX	RPTPRT+12, RPTPRT+43, INCRMNT+12, INCRMNT+13, INITDRG+4*, KILL+3!
CB	RPTPRT+13, RPTPRT+44, INCRMNT+14, INCRMNT+15, INITDRG+4*, KILL+3!
CC	RPTPRT+14, RPTPRT+44, INCRMNT+16, INCRMNT+17, INITDRG+4*, KILL+3!
CF	RPTPRT+15, RPTPRT+44, INCRMNT+18, INCRMNT+19, INITDRG+4*, KILL+3!
CFX	RPTPRT+16, RPTPRT+45, INCRMNT+20, INCRMNT+21, INITDRG+4*, KILL+4!
CP	RPTPRT+17, RPTPRT+45, INCRMNT+22, INCRMNT+23, INITDRG+5*, KILL+4!
CRM	RPTPRT+18, RPTPRT+45, INCRMNT+24, INCRMNT+25, INITDRG+5*, KILL+4!
DA	REPORT+15*, INCRMNT+1, KILL+2!
DIC	EXTORG+8*, KILL+7!
DIC(0	EXTORG+2*
DP	RPTPRT+19, RPTPRT+46, INCRMNT+26, INCRMNT+27, INITDRG+5*, KILL+4!
E1	RPTPRT+20, RPTPRT+46, INCRMNT+28, INCRMNT+29, INITDRG+5*, KILL+4!
FAC	HEADING+8, KILL+7!
FACBKUP	MAIN+9, CONT+12, KILL+1!
FCLTY	REPORT+15, KILL+2!
FDATE	REPORT+15, DTCNVRT+1, KILL+6!
FM	RPTPRT+21, RPTPRT+46, INCRMNT+30, INCRMNT+31, INITDRG+5*, KILL+5!
GM	RPTPRT+22, RPTPRT+47, INCRMNT+32, INCRMNT+33, INITDRG+5*, KILL+5!
HEADER	REPORT+4*, HEADING+10, KILL+1!
IO	REPORT+8, REPORT+10, REPORT+11
IO(0	REPORT+11
IOSL	RPTPRT+3
LDATE	REPORT+15*, KILL+2!
LN	MAIN+3, RPTPRT+3, RPTPRT+55, HEADING+13, CONT+3, KILL+1!
NA	RPTPRT+23, RPTPRT+47, INCRMNT+34, INCRMNT+35, INITDRG+5*, KILL+5!
ORG	REPORT+14, REPORT+15, EXTORG+1, KILL+2!
ORGCHK	EXTORG+1, EXTORG+9, EXTORG+11, EXTORG+13, KILL+7!
P	RPTPRT+24, RPTPRT+47, INCRMNT+36, INCRMNT+37, INITDRG+5*, KILL+5!
PG	MAIN+2, HEADING+2, HEADING+3, HEADING+8, CONT+2*, KILL+1!
PI	RPTPRT+25, RPTPRT+48, INCRMNT+38, INCRMNT+39, INITDRG+5*, KILL+5!
RFDATE	DTCNVRT+3*, HEADING+7, KILL+7!
>> RTDATE	DTCNVRT+7*, HEADING+7
SxT	RPTPRT+26, RPTPRT+48, INCRMNT+40, INCRMNT+41, INITDRG+6*, KILL+6!
TDATE	REPORT+15, DTCNVRT+5, KILL+6!
TE	RPTPRT+27, RPTPRT+48, INCRMNT+42, INCRMNT+43, INITDRG+6*, KILL+6!
TI	RPTPRT+28, RPTPRT+49, INCRMNT+44, INCRMNT+45, INITDRG+6*, KILL+6!
U	EXTORG+11, INCRMNT+4, INCRMNT+5, INCRMNT+6, INCRMNT+7, INCRMNT+8, INCRMNT+9, INCRMNT+10, INCRMNT+11, INCRMNT+12 , INCRMNT+13, INCRMNT+14, INCRMNT+15, INCRMNT+16, INCRMNT+17, INCRMNT+18, INCRMNT+19, INCRMNT+20, INCRMNT+21, INCRMNT+22 , INCRMNT+23, INCRMNT+24, INCRMNT+25, INCRMNT+26, INCRMNT+27, INCRMNT+28, INCRMNT+29, INCRMNT+30, INCRMNT+31, INCRMNT+32 , INCRMNT+33, INCRMNT+34, INCRMNT+35, INCRMNT+36, INCRMNT+37, INCRMNT+38, INCRMNT+39, INCRMNT+40, INCRMNT+41, INCRMNT+42 , INCRMNT+43, INCRMNT+44, INCRMNT+45, INCRMNT+46, INCRMNT+47
VA	RPTPRT+29, RPTPRT+49, INCRMNT+46, INCRMNT+47, INITDRG+6*, KILL+6!
>> X	EXTORG+9*
Y	DTCNVRT+1, DTCNVRT+3, DTCNVRT+5, DTCNVRT+7, EXTORG+11, KILL+6!
YN	CONT+7*, CONT+10, CONT+12, KILL+7!
ZERONODE	INCRMNT+1*, INCRMNT+4, INCRMNT+5, INCRMNT+6, INCRMNT+7, INCRMNT+8, INCRMNT+9, INCRMNT+10, INCRMNT+11, INCRMNT+12 , INCRMNT+13, INCRMNT+14, INCRMNT+15, INCRMNT+16, INCRMNT+17, INCRMNT+18, INCRMNT+19, INCRMNT+20, INCRMNT+21, INCRMNT+22 , INCRMNT+23, INCRMNT+24, INCRMNT+25, INCRMNT+26, INCRMNT+27, INCRMNT+28, INCRMNT+29, INCRMNT+30, INCRMNT+31, INCRMNT+32 , INCRMNT+33, INCRMNT+34, INCRMNT+35, INCRMNT+36, INCRMNT+37, INCRMNT+38, INCRMNT+39, INCRMNT+40, INCRMNT+41, INCRMNT+42 , INCRMNT+43, INCRMNT+44, INCRMNT+45, INCRMNT+46, INCRMNT+47, KILL+7!

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXRBUG5

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: