Routine: IBOMBL

Information

IBOMBL ;ALB/SGD - MAS BILLING LOG ;25 MAY 88 11:42

Source file <IBOMBL.m>

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Go to DATE: " Variable: X Timeout: DTIME Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??" Line Location: DATE1+1
Function Call: WRITE	Prompt: !!,7," Margin width of this output is 132 *" Line Location: DATE1+3
Function Call: WRITE	Prompt: !!,?30,"No matches found." Line Location: BEGIN+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+0
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),"^",1),?30,VA("BID") Line Location: PRINT+0
Function Call: WRITE	Prompt: ?39,$P(IB0,"^",1) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?50,Y Line Location: PRINT+1
Function Call: WRITE	Prompt: ?64,$J(X,15) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?81,$P(^(0),"^",1) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?116,Y Line Location: PRINT+5
Function Call: WRITE	Prompt: !,@IOF,!,?94,"Date/Time Printed: " Line Location: HEAD+0
Function Call: WRITE	Prompt: Y,!!,IBHD,?120,"Page ",IBPG,!,IBL1,!! Line Location: HEAD+0
Function Call: WRITE	Prompt: "PATIENT NAME",?30,"PT ID",?38,"BILL NO.",?50,"DATE OF BILL",?67,"AMT. BILLED",?81,"BILL CATEGORY",?102,"INPT./OPT.",?116,"DATE CANCELLED",!,IBL Line Location: HEAD+1