Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBATO1

Package: Integrated Billing

Routine: IBATO1


Information

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

Source Information

Source file <IBATO1.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls