Routine: DGCRBR

Information

DGCRBR ; IHS/ADC/PDW/ENM - ADD/EDIT BILLING RATES FILE ; [ 03/25/1999 11:48 AM ]

Source file <DGCRBR.m>

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC (FILE,YN)^DICN ^DIE

Name	Comments	DBIA/ICR reference
END
BR
EDIT
REV
EN1	;edit file entry, do lookup, then edit.
ADD
FILE
BS
NEW	;ask to add new entry from fast
REDO	;re-index the aivdt x-ref in billing rates file.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+0
Function Call: WRITE	Prompt: ! Line Location: BS+0
Function Call: WRITE	Prompt: ! Line Location: REV+0
Function Call: WRITE	Prompt: !,"Filing New Entry!" Line Location: REV+2
Function Call: WRITE	Prompt: !?3,"ARE YOU ADDING '",Y,"' AS A NEW BILLING RATES" Line Location: NEW+1
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to add this as a new BILLING RATES",!?3,"or Enter 'NO' to not add a new entry",! Line Location: NEW+2
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: BR+0
Routine Call	DIE Line Location: EDIT
Routine Call	DIC Line Location: BS REV REV+1 EN1+1 BR

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	NEW+1
^DGCR(399.5 - [#399.5]	REV+1, REDO+1!, REDO+2*

Name	Field # of Occurrence
^(0	REDO+2

Name	Field # of Occurrence
>> %	NEW+1, NEW+2
%DT	ADD*, END!
%DT("A"	ADD*
DA	REV+1, FILE, BR*, END!
DGBS	ADD+1, BS, REV+1, FILE, EN1+1, BR, END!
>> DGCRI	REDO+2*
>> DGCRJ	REDO+2*
DGEFDT	ADD*, REV+1, FILE, NEW+1, END!
DGREV	BS+1, REV*, REV+1, FILE, END!
DIC	BS!, REV!, REV+1!, FILE, EN1+1!, BR!, EDIT*, END!
DIC("A"	BS, REV, EN1+1*
DIC("DR"	FILE, BR
DIC("S"	BS, REV, REV+1, EN1+1, BR*
DIC(0	BS, REV, REV+1, FILE, NEW+3, EN1+1, BR*
DIE	EDIT*, END!
DR	EDIT*, END!
I	ADD+1*, END!
J	BS+1*, END!
X	REV+1, FILE, END!, REDO+2*
Y	ADD, BS, REV, REV+1, FILE, NEW+1*, EN1+1, BR, END!