Routine: AZXRBUG1

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIC ^DIE EN^DIK

Package	Total	Caller Graph
Phoenix Devel Center	1	AZXRBUG

Entry Points

Name	Comments	DBIA/ICR reference
INDEX	;RE-INDEX "FOD" AND "FDSO" CROSS-REFS.
DEFAULT	;SET UP NEW DEFAULT VALUES FOR
RECORD	;Select Record Number: ;SUB-ROUTINE
UNLOCK
KILL	;KILL ALL LOCAL VARIABLES TO AZXRBUG1
MAIN	;AZXRBUG1 PROGRAM CONTROL

Name	Field # of Occurrence
DD^%DT	DEFAULT+19
^DIC	DEFAULT+14, DEFAULT+24, DEFAULT+31
^DIE	RECORD+42, RECORD+53, RECORD+56, RECORD+59, RECORD+62, RECORD+67
EN^DIK	INDEX+6, INDEX+9

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MAIN+6
Function Call: WRITE	Prompt: !!!,"BugDrug2 Entry/Edit...",!! Line Location: MAIN+8
Function Call: WRITE	Prompt: !,"Select Record Number: ",INUM+1,"//" Line Location: RECORD+6
Function Call: WRITE	Prompt: !!,"Illegal Record Number.",!!," Enter a Record Number between [1..999999], or",!," Enter a ""?"" for help, or",!," Enter a ""^"" to quit.",!,*7 Line Location: RECORD+9
Function Call: WRITE	Prompt: !!,"Please enter your Record Number or",!,"press return and accept the default for a new entry.",! Line Location: RECORD+14
Function Call: WRITE	Prompt: !!,"SKIPPING RECORD NUMBERS IS NOT ALLOWED!",*7 Line Location: RECORD+22
Function Call: WRITE	Prompt: !!,"RECORD NUMBER, ",SNUM,", HAS ALREADY BEEN DELETED!",!,*7 Line Location: RECORD+26
Function Call: WRITE	Prompt: !!,"RECORD HAS BEEN LOCKED, TRY AGAIN LATER!",! Line Location: RECORD+39
Routine Call	DIE Line Location: RECORD+42 RECORD+53 RECORD+56 RECORD+59 RECORD+62 RECORD+67
Routine Call	DIC Line Location: DEFAULT+14 DEFAULT+24 DEFAULT+31

Name	Line Occurrences (* Changed, ! Killed)
^DIZ(	RECORD+2, RECORD+3, RECORD+16*, RECORD+26, RECORD+33!, RECORD+39
^DIZ(1991010	DEFAULT+15
^DIZ(1991018	DEFAULT+25
^DIZ(1991019	DEFAULT+32
^DIZ(1991020	DEFAULT+11, DEFAULT+18, DEFAULT+21, DEFAULT+28

Name	Field # of Occurrence
DA	RECORD+32, RECORD+33, RECORD+39, INDEX+2, KILL+1!
DDA	DEFAULT+9*, DEFAULT+11, DEFAULT+18, DEFAULT+21, DEFAULT+28, KILL+2!
DDATE	DEFAULT+18, DEFAULT+19, KILL+2!
DFAC	DEFAULT+11, DEFAULT+13, DEFAULT+15, KILL+2!
DIC	DEFAULT+12, DEFAULT+22, DEFAULT+29*, KILL+2!
DIC(0	DEFAULT+3*, KILL+2!
DIE	MAIN+4*, RECORD+2, RECORD+3, RECORD+16, RECORD+26, RECORD+33, RECORD+39, KILL+1!
DIE("NO^"	MAIN+2*, KILL+1!
DIK	INDEX+3*, KILL+1!
DIK(1	INDEX+5, INDEX+8, KILL+2!
DORG	DEFAULT+21, DEFAULT+23, DEFAULT+25, KILL+2!
DR	RECORD+42, RECORD+49, RECORD+55, RECORD+58, RECORD+61, RECORD+64, KILL+1!
DSPEC	DEFAULT+28, DEFAULT+30, DEFAULT+32, KILL+2!
FLAG	AZXRBUG1+16, RECORD+16, RECORD+42, KILL+1!
INUM	RECORD+2*, RECORD+6, RECORD+12, RECORD+16, RECORD+22, RECORD+26, RECORD+33, RECORD+42, KILL+1!
IOF	MAIN+6
PIEC	RECORD+25, RECORD+26, RECORD+31, RECORD+33, KILL+1!
SNUM	RECORD+7, RECORD+9, RECORD+12, RECORD+13, RECORD+14, RECORD+16, RECORD+22, RECORD+26, RECORD+32, RECORD+33 , RECORD+42, INDEX+2, DEFAULT+9, KILL+1!
TCOUNT	RECORD+3*, RECORD+16, KILL+1!
U	RECORD+2, RECORD+3, RECORD+16, RECORD+33, DEFAULT+11, DEFAULT+15, DEFAULT+18, DEFAULT+21, DEFAULT+25, DEFAULT+28 , DEFAULT+32
X	DEFAULT+13, DEFAULT+23, DEFAULT+30*, KILL+1!
Y	DEFAULT+15, DEFAULT+19*, DEFAULT+25, DEFAULT+32, KILL+2!