Routine: IBATO1

Information

IBATO1 ;LL/ELZ - TRANSFER PRICING REPORTS CONT. ; 18-DEC-98

Source file <IBATO1.m>

Name	Comments	DBIA/ICR reference
PAGE()	; performs page reads and returns 1 if quiting is needed
NUM(X,X2,X3)	; calls to format numbers
UNIT(IBA,IBD,IBO)	; sets IBD subscripted with units for IBA
TYPE(IBA,IBO)	; sets IBO with descriptive trans type for IBA
DES(IBA,IBD,IBO)	; sets IBD subscripted with description for IBA
PRICE(IBA,IBD,IBO)	; sets IBD subscripted with price for IBA
QTY(IBA,IBD,IBO)	; sets IBD subscripted with quantity for IBA
COPAY(IBA)	; compute copay for iba and return
VAR(IBA)	; set up required variables
PRT(IBIEN)	; main entry for report printing
EXPRT(IBIEN)	; main entry for excel printing
STRIP(A,B)	; strips off junk from numbers
EXSING(IBF)	; print single valued data first
PRTH	; header
PRTG(X,Y,Z,C)	; general printing stuff
SEL(B)	; selection of which fields B = default ; sets up variables IBFIELD and IBMUL ; returns max length of output
AGAIN
DISP	; displays fields for selection

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRT+7
Function Call: WRITE	Prompt: IBXDATA,?IBC Line Location: PRT+13
Function Call: WRITE	Prompt: ?IBM Line Location: PRT+22
Function Call: WRITE	Prompt: !?5 Line Location: PRT+27
Function Call: WRITE	Prompt: IBXDATA(IBF,IBO,IBF1),?IBC Line Location: PRT+28
Function Call: WRITE	Prompt: ! Line Location: EXPRT+8
Function Call: WRITE	Prompt: $$STRIP(IBXDATA(IBF,IBO,IBF1),IBF2),"\|" Line Location: EXPRT+20
Function Call: WRITE	Prompt: ! Line Location: EXPRT+21
Function Call: WRITE	Prompt: $$STRIP(IBXDATA,IBF1(0)),"\|" Line Location: EXSING+4
Function Call: WRITE	Prompt: ! Line Location: PRTH+3
Function Call: WRITE	Prompt: $P(IBF1(0),"^"),?IBC Line Location: PRTH+6
Function Call: WRITE	Prompt: $P(IBF1(0),"^"),?IBC Line Location: PRTH+11
Function Call: WRITE	Prompt: ! Line Location: PRTH+13
Function Call: WRITE	Prompt: "-" Line Location: PRTH+13
Function Call: WRITE	Prompt: !?5 Line Location: PRTG+3
Function Call: WRITE	Prompt: *7,"??" Line Location: AGAIN+8
Function Call: WRITE	Prompt: @IOF,!,"Select the fields you would like printed on this report, in the order you",!,"want them printed. Fields with an asterisk (*) are fields that are multiples.",! Line Location: DISP+8
Function Call: WRITE	Prompt: ! Line Location: DISP+9
Function Call: WRITE	Prompt: ?IBI,$P(IBL(IBX,IBI),"^",4),?IBI+4,$S($P(IBL(IBX,IBI),"^",3):"*",1:""),$P(IBL(IBX,IBI),"^") Line Location: DISP+9
Function Call: WRITE	Prompt: ! Line Location: DISP+11