Routine: IBCEMSR7

Information

IBCEMSR7 ;ALB/VAD - IB PRINTED CLAIMS REPORT - Print ;09-SEP-2015

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,?10,TOTLN Line Location: REPORT+11
Function Call: WRITE	Prompt: !!!,EORMSG Line Location: REPORT+14
Function Call: WRITE	Prompt: !,BILLNO,?16,$P(IBDATA,U),?22,$E($P(IBDATA,U,2),1,20),?45,$E($P(IBDATA,U,3),1,25),?73,$E($P(IBDATA,U,4),1,15),?91,$E($P(IBDATA,U,5),1,15),?109,IBRVCDS Line Location: PRINT+19
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"Printed Claim Report" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?IOM-85,IBDTRG,?IOM-12,"Page: ",IBPAG Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Run for: "_$S(IBCOT="C":"CPAC",1:"TRICARE/CHAMPVA")_", Divisions: "_IBDIVN,?IOM-12,$E(IBHDT,1,12) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"Sorted by: "_$P(IBSORT,U,2) Line Location: HEADER+6
Function Call: WRITE	Prompt: !!,SRTFLD Line Location: SUBHD+1
Function Call: WRITE	Prompt: " "_$G(INSADD) Condition for execution: $P(IBSORT,U)="I" Line Location: SUBHD+1
Function Call: WRITE	Prompt: !," Claim #",?16,"Type",?22,"RateType",?45,"PlanType",?73,"Division",?91,"Biller",?109,"RevCode" Line Location: SUBHD+2
Function Call: WRITE	Prompt: !,$TR($J("",131)," ","-") Line Location: SUBHD+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+3