Routine: AZXRBUG8

Package	Total	Call Graph
Kernel	1	^%ZIS
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Phoenix Devel Center	1	AZXRBUG3

Entry Points

Name	Comments	DBIA/ICR reference
OPTORDER
CONT	;ASK USER WHETHER TO CONTINUE WITH REPORT PRINT
HELP	;GIVE USER GENERAL HELP ON "Code Print"
SPCCODE	;SPECIMEN IN CODE ORDER
ILLEGAL	;ILLEGAL USER INPUT
KILL	;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG8
OPTTYPE
PRTALPH	;PRINT SUB-ROUTINE FOR ALPHABETICAL ORDER BY ORG NAME
HEADING	;PRINT OUT THE HEADING FOR EACH NEW PAGE
SPCALPH	;SPECIMEN IN ALPHABETICAL ORDER
ORGCODE	;ORGANISM IN CODE ORDER
PGSETUP	;SETUP FOR EACH PAGE
ORGALPH	;ORGANISM IN ALPHABETICAL ORDER
HELP1	;GIVE USER GENERAL HELP ON "Code Print"
REPORT	;PRINT USERS CHOICE OF REPORT
INPUT	;TAKE INPUT FROM USER
ORD	;TAKE INPUT FROM USER
MAIN	;AZXRBUG8 PROGRAM CONTROL
DTCNVRT	;CONVERT CURRENT DATE TO EXTERNAL FORMAT (RDATE)
PRTCODE	;PRINT SUB-ROUTINE FOR NUMERICAL ORDER BY CODE

External References

Name	Field # of Occurrence
DD^%DT	DTCNVRT+2
^%ZIS	PGSETUP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: INPUT+3
Function Call: WRITE	Prompt: !!!,"BugDrug2 Code Print...",! Line Location: INPUT+4
Function Call: WRITE	Prompt: !!,"Type an 'O' for Organism Code Print.",! Line Location: INPUT+5
Function Call: WRITE	Prompt: "Type an 'S' for Specimen Code Print.",! Line Location: INPUT+6
Function Call: WRITE	Prompt: "Type an '^' to quit.",! Line Location: INPUT+7
Function Call: WRITE	Prompt: @IOF Line Location: ORD+2
Function Call: WRITE	Prompt: !!!,"BugDrug2 Code Print...",! Line Location: ORD+3
Function Call: WRITE	Prompt: !!,"Type an 'A' for Alphabetical Order.",! Line Location: ORD+4
Function Call: WRITE	Prompt: "Type an 'N' for Numerical Order.",! Line Location: ORD+5
Function Call: WRITE	Prompt: "Type an '^' for previous prompt.",! Line Location: ORD+6
Function Call: WRITE	Prompt: !!,*7,"Invalid input: Press a '?' for help.",! Line Location: ILLEGAL+1
Function Call: WRITE	Prompt: !!,"O= Organism Code Print",?27,"S= Specimen Code Print",! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"A= Alphabetical Order",?27,"N= Numerical Order",! Line Location: HELP1+1
Function Call: WRITE	Prompt: !! Line Location: PGSETUP+4
Function Call: WRITE	Prompt: !,*7,"The BugDrug2 Code Print must be printed.",! Line Location: PGSETUP+8
Function Call: WRITE	Prompt: BORDER3,!,BORDER,!! Line Location: PGSETUP+11
Function Call: WRITE	Prompt: BORDER2,!,BORDER,!! Line Location: PGSETUP+12
Function Call: WRITE	Prompt: BORDER3,!,BORDER,!! Line Location: PGSETUP+13
Function Call: WRITE	Prompt: BORDER2,!,BORDER,!! Line Location: PGSETUP+14
Function Call: WRITE	Prompt: # Line Location: HEADING+2
Function Call: WRITE	Prompt: !,BORDER,! Line Location: HEADING+5
Function Call: WRITE	Prompt: !,"BugDrug2" Line Location: HEADING+6
Function Call: WRITE	Prompt: ?59,"Date: ",RDATE,! Line Location: HEADING+7
Function Call: WRITE	Prompt: !,"Organism Code Print by Name" Line Location: HEADING+8
Function Call: WRITE	Prompt: !,"Organism Code Print by Code" Line Location: HEADING+9
Function Call: WRITE	Prompt: !,"Specimen Code Print by Name" Line Location: HEADING+10
Function Call: WRITE	Prompt: !,"Specimen Code Print by Code" Line Location: HEADING+11
Function Call: WRITE	Prompt: ?59,"Page: ",PG,! Line Location: HEADING+12
Function Call: WRITE	Prompt: BORDER,!! Line Location: HEADING+13
Function Call: WRITE	Prompt: BORDER3,!,BORDER,!! Line Location: PRTALPH+1
Function Call: WRITE	Prompt: CURR,?32,$P(^DIZ(FILE,DA,0),U,2),! Line Location: PRTALPH+4
Function Call: WRITE	Prompt: BORDER2,!,BORDER,!! Line Location: PRTCODE+1
Function Call: WRITE	Prompt: CURR,?9,$P(^DIZ(FILE,DA,0),U,1),! Line Location: PRTCODE+4
Function Call: WRITE	Prompt: !!!!!!!,"Do you want to print another" Line Location: CONT+5
Function Call: WRITE	Prompt: !!,"Answer with: Y= Yes, N= No" Line Location: CONT+9
Routine Call	%ZIS Line Location: PGSETUP+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	PGSETUP+8, PGSETUP+16
^DIZ(	ORGALPH+4, ORGCODE+4, ORGCODE+8, SPCALPH+4, SPCCODE+4, SPCCODE+8, PRTALPH+4, PRTCODE+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BORDER	REPORT+1*, PGSETUP+11, PGSETUP+12, PGSETUP+13, PGSETUP+14, HEADING+5, HEADING+13, PRTALPH+1, PRTCODE+1, KILL+1!
BORDER2	REPORT+2*, PGSETUP+12, PGSETUP+14, PRTCODE+1, KILL+1!
BORDER3	REPORT+3*, PGSETUP+11, PGSETUP+13, PRTALPH+1, KILL+1!
CURR	ORGALPH+3, ORGALPH+4, ORGCODE+3, ORGCODE+4, ORGCODE+7, ORGCODE+8, SPCALPH+3, SPCALPH+4, SPCCODE+3, SPCCODE+4 , SPCCODE+7, SPCCODE+8, PRTALPH+4, PRTCODE+4, KILL+2!
DA	ORGALPH+4, ORGCODE+4, ORGCODE+8, SPCALPH+4, SPCCODE+4, SPCCODE+8, PRTALPH+4, PRTCODE+4, KILL+2!
DT	DTCNVRT+1
FILE	ORGALPH+2, ORGALPH+4, ORGCODE+2, ORGCODE+4, ORGCODE+8, SPCALPH+2, SPCALPH+4, SPCCODE+2, SPCCODE+4, SPCCODE+8 , PRTALPH+4, PRTCODE+4, KILL+2!
IO	PGSETUP+5, PGSETUP+7, PGSETUP+8
IO(0	PGSETUP+8
IOF	INPUT+3, ORD+2
IOSL	PRTALPH+1, PRTCODE+1
LN	MAIN+3, PGSETUP+11, PGSETUP+12, PGSETUP+13, PGSETUP+14, HEADING+15, PRTALPH+1, PRTALPH+4, PRTCODE+1, PRTCODE+4 , CONT+3*, KILL+1!
ORDER	OPTORDER*, OPTORDER+2, OPTORDER+3, OPTORDER+4, PGSETUP+11, PGSETUP+12, PGSETUP+13, PGSETUP+14, KILL+1!
PG	MAIN+2, HEADING+2, HEADING+3, HEADING+12, CONT+2*, KILL+1!
RDATE	DTCNVRT+3*, HEADING+7, KILL+2!
TYPE	OPTTYPE, OPTTYPE+2, OPTTYPE+3, OPTTYPE+4, PGSETUP+11, PGSETUP+12, PGSETUP+13, PGSETUP+14*, HEADING+8, HEADING+9 , HEADING+10, HEADING+11, KILL+1!
U	PRTALPH+4, PRTCODE+4
Y	DTCNVRT+1*, DTCNVRT+3, KILL+2!
YN	CONT+6*, CONT+9, CONT+11, KILL+2!

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXRBUG8

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CONT	REPORT+5, CONT+9, CONT+11
DTCNVRT	MAIN+5
HEADING	PGSETUP+11, PGSETUP+12, PGSETUP+13, PGSETUP+14, PRTALPH+1, PRTCODE+1
HELP	OPTTYPE+3
HELP1	OPTORDER+3
ILLEGAL	OPTTYPE+4, OPTORDER+4
INPUT	MAIN+6, OPTORDER+2, CONT+11
KILL	MAIN+7
OPTORDER	OPTORDER+3, OPTORDER+4
OPTTYPE	OPTTYPE+3, OPTTYPE+4
ORGALPH	PGSETUP+11
ORGCODE	PGSETUP+12
PGSETUP	REPORT+4, PGSETUP+8
PRTALPH	ORGALPH+4, SPCALPH+4
PRTCODE	ORGCODE+4, ORGCODE+8, SPCCODE+4, SPCCODE+8
REPORT	OPTORDER+6
SPCALPH	PGSETUP+13
SPCCODE	PGSETUP+14