Routine: AZXRBUG6

Information

AZXRBUG6 ;BUGDRUG2 Report PROGRAM [ 09/23/94 9:52 AM ]

Source file <AZXRBUG6.m>

Package	Total	Caller Graph
Phoenix Devel Center	1	AZXRBUG3

Name	Comments	DBIA/ICR reference
NEWPAGE	;CHECK FOR WHETHER A NEW PAGE IS NEEDED
EXTSPEC	;CONVERT Specimen_Name TO EXTERNAL FORMAT
CONT	;ASK USER WHETHER TO CONTINUE WITH REPORT PRINT
INCRMNT	;INCREMENT COUNT VARIABLE
PRTALL	;PRINT OUT THE CURRENT SPECIMEN, ORGANISM
EXTORG	;CONVERT Organism_Name TO EXTERNAL FORMAT
KILL	;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG6
REPORT	;SETUP VALUES TO PREPARE FOR REPORT PRINT
DTCNVRT	;CONVERT TDATE & FDATE TO EXTERNAL FORMAT (RTDATE, RFDATE)
MAIN	;AZXRBUG6 PROGRAM CONTROL
NXTSPEC	;PREPARE FOR NEXT SPECIMEN
HEADING	;PRINT OUT THE HEADING FOR EACH NEW PAGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"This report must be printed.",! Line Location: REPORT+10
Function Call: WRITE	Prompt: "Total Count",?90,$J(TCOUNT,5,0),!,BORDER,! Line Location: REPORT+31
Function Call: WRITE	Prompt: BORDER,!! Line Location: NXTSPEC+1
Function Call: WRITE	Prompt: ?90,$J(COUNT,5,0),! Line Location: PRTALL+6
Function Call: WRITE	Prompt: SPECCHK Line Location: EXTSPEC+15
Function Call: WRITE	Prompt: SPECCHK,?41,"Continued",! Line Location: EXTORG+1
Function Call: WRITE	Prompt: ?41,ORGCHK Line Location: EXTORG+18
Function Call: WRITE	Prompt: # Line Location: HEADING+2
Function Call: WRITE	Prompt: !,BORDER,! Line Location: HEADING+5
Function Call: WRITE	Prompt: !,"BugDrug2 Cultured Organisms by Source" Line Location: HEADING+6
Function Call: WRITE	Prompt: ?41,"From Date: ",RFDATE,?68,"--",?74,"To Date: ",RTDATE Line Location: HEADING+7
Function Call: WRITE	Prompt: !!,"Facility: ",FAC,?77,"Page: ",PG Line Location: HEADING+8
Function Call: WRITE	Prompt: !,BORDER Line Location: HEADING+9
Function Call: WRITE	Prompt: !!,HEADER Line Location: HEADING+10
Function Call: WRITE	Prompt: !,BORDER,!! Line Location: HEADING+11
Function Call: WRITE	Prompt: !!!!!!!,"Do you want to print another" Line Location: CONT+7
Function Call: WRITE	Prompt: !!,"Answer with: Y= Yes, N= No" Line Location: CONT+11
Routine Call	DIC Line Location: EXTSPEC+11 EXTORG+14
Routine Call	%ZIS Line Location: REPORT+7

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	REPORT+34
^DIZ(1991018	EXTORG+15
^DIZ(1991019	EXTSPEC+12
^DIZ(1991020	REPORT+26, REPORT+27, REPORT+28, REPORT+29

Name	Field # of Occurrence
%ZIS	KILL+1!
%ZIS("B"	REPORT+4*
BORDER	REPORT+2*, REPORT+31, NXTSPEC+1, HEADING+5, HEADING+9, HEADING+11, KILL+1!
CONT	REPORT+26, REPORT+27, NEWPAGE+1, EXTORG+1*, KILL+3!
COUNT	MAIN+4, REPORT+28, PRTALL+6, PRTALL+8, INCRMNT+2, CONT+4, KILL+1!
DA	REPORT+29*, KILL+2!
DIC	EXTSPEC+9, EXTORG+12, KILL+3!
DIC(0	EXTSPEC+3, EXTORG+6
FAC	HEADING+8, KILL+3!
FACBKUP	MAIN+10, CONT+13, KILL+1!
FCLTY	REPORT+26, REPORT+27, REPORT+28, REPORT+29, KILL+2!
FDATE	REPORT+28, DTCNVRT+1, KILL+2!
HEADER	REPORT+3*, HEADING+10, KILL+1!
IO	REPORT+7, REPORT+9, REPORT+10
IO(0	REPORT+10
IOSL	REPORT+30, NEWPAGE+1
LDATE	REPORT+28*, REPORT+29, KILL+2!
LN	MAIN+3, REPORT+30, NXTSPEC+2, PRTALL+7, NEWPAGE+1, EXTORG+1, HEADING+13, CONT+3*, KILL+1!
ORG	REPORT+27*, REPORT+28, REPORT+29, EXTORG+4, KILL+2!
ORGCHK	EXTORG+4, EXTORG+13, EXTORG+15, EXTORG+18, KILL+3!
PG	MAIN+2, HEADING+2, HEADING+3, HEADING+8, CONT+2*, KILL+1!
RFDATE	DTCNVRT+3*, HEADING+7, KILL+2!
RTDATE	DTCNVRT+7*, HEADING+7, KILL+2!
SPEC	REPORT+13, REPORT+26, REPORT+27, REPORT+28, REPORT+29, EXTSPEC+1, KILL+2!
SPECCHK	EXTSPEC+1, EXTSPEC+10, EXTSPEC+12, EXTSPEC+15, EXTORG+1, KILL+3!
>> SPECPRT	REPORT+26, PRTALL+2
TCOUNT	MAIN+5, REPORT+31, INCRMNT+1, CONT+5*, KILL+1!
TDATE	REPORT+28, DTCNVRT+5, KILL+2!
U	EXTSPEC+12, EXTORG+15
X	EXTSPEC+10, EXTORG+13, KILL+3!
Y	DTCNVRT+1, DTCNVRT+3, DTCNVRT+5, DTCNVRT+7, EXTSPEC+12, EXTORG+15, KILL+2!
YN	CONT+8*, CONT+11, CONT+13, KILL+3!