Routine: IBCBR

Information

IBCBR ;ALB/AAS - ADD/EDIT BILLING RATES FILE; 3 MAY 90

Source file <IBCBR.m>

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC (FILE,YN)^DICN ^DIE
Integrated Billing	1	ENR^IBEMTO

Package	Total	Caller Graph
Integrated Billing	2	IB FAST ENTER BILLING RATES IBEBR

Name	Comments	DBIA/ICR reference
END1
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: !?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
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!
DD	FILE!
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!
DO	FILE!
DR	EDIT*, END!
I	ADD+1*, END!
IBBS	ADD+1, BS, REV+1, FILE, EN1+1, BR, END!
IBEFDT	ADD*, REV+1, FILE, NEW+1, END!
>> IBI	REDO+2*
>> IBJ	REDO+2*
IBREV	BS+1, REV*, REV+1, FILE, END!
IBRUN	END1!
J	BS+1*, END!
X	REV+1, FILE, END!, REDO+2*
Y	ADD, BS, REV, REV+1, FILE, NEW+1*, EN1+1, BR, END!