Routine: IBCRTN

Information

IBCRTN ;ALB/AAS - EDIT BILLS RETURNED FROM AR (NEW) ; 23-MAY-90

Source file <IBCRTN.m>

Package	Total	Call Graph
Integrated Billing	7	4^IBCB1 (EDITS,FXERR1)^IBCB2 GVAR^IBCBB ARRAY^IBCBB1 KILL^IBCMENU ^IBCSC1 ^IBCSCU
VA Fileman	4	^%DT ^DIC (FILE,YN)^DICN ^DIE
IFCAP	2	REL^PRCASVC ^PRCASVC6

Package	Total	Caller Graph
Integrated Billing	2	IB EDIT RETURNED BILL IB RETURN BILL

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Already being edited by another user" Line Location: LOOK+2
Function Call: WRITE	Prompt: !?4,"YES - To set the status to Returned",!?4,"No - To take no action" Line Location: RTN1+1
Routine Call	DIE Line Location: SEND
Routine Call	DIC Line Location: LOOK

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	LOOK+2, LOOK+3, FILE, SEND+1, SEND+4
^XUSEC("IB AUTHORIZE"	RTN
^XUSEC("IB EDIT"	LOOK+3

Name	Field # of Occurrence
>> %	RTN1*, RTN1+1
>> %DT	FILE+1*
>> DA	SEND*
>> DA(1	FILE+1, SEND
DD	FILE!
DFN	LOOK+1*, LOOK+2!, END!
DGIFN	FILE+1*, EDIT~, SEND, SEND+1, END!
DIC	LOOK!, FILE+1, SEND*
DIC("DR"	FILE+1*
DIC("S"	LOOK*
DIC(0	LOOK, FILE+1
>> DIE	FILE+1, SEND
DO	FILE!
>> DR	SEND*
DUZ	LOOK+3, FILE+1, RTN
IBAC	EN1+5, EN2+5, EDIT, END!
IBDISP	END!
IBER	END!
IBIFN	EN1+5, EN2+5, LOOK+1*, LOOK+2!, LOOK+3, FILE, FILE+1, EDIT!, RTN!, RTN+1! , RTN1!, SEND, SEND+1!, SEND+4!, PRINT, END!
IBNDI1	END!
IBNDS	END!
>> IBQUIT	RTN+1
IBV	EN1+5, EN2+5, END!
IBVIEW	PRINT*, END!
PRCASV	END!
PRCASV("OKAY"	SEND+4
>> X	FILE+1*
>> Y	LOOK, LOOK+1, FILE+1
>> Y(0	LOOK+1