Routine: IBOHPT2

Information

IBOHPT2 ;ALB/EMG - ON HOLD CHARGE INFO/PT CONT. ;JULY 22,1997

Source file <IBOHPT2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: REPORT+7
Function Call: WRITE	Prompt: ?128,$J(IBPCT,3,0)_"%",! Line Location: PRNTBILL+12
Function Call: WRITE	Prompt: IBACT,?15,IBTYPE,?28,IBBILL Line Location: PRNTCHG+41
Function Call: WRITE	Prompt: ?38,"Rx #: "_IBRX_$S(IBRF>0:"("_IBRF_")",1:""),?60,$S(IBECME:"ECME #: "_IBECME,1:""),?85,"\|\|",! Line Location: PRNTCHG+42
Function Call: WRITE	Prompt: ?38,IBFR,?48,IBAR,?58,IBCHG,?70,IBARST,?79,IBST Line Location: PRNTCHG+44
Function Call: WRITE	Prompt: ?85,"\|\| REASON: ",$P($G(^IBE(350.3,+$P(IBND,"^",10),0)),"^"),! Line Location: PRNTCHG+45
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: READ	Prompt: " Press RETURN to continue" Variable: T Timeout: DTIME Line Location: HEADER+4
Function Call: WRITE	Prompt: !,@IOF Line Location: HEADER+5
Function Call: WRITE	Prompt: "List of all HELD bills for ",$P(IBNAME,"^"),?110,IBNOW," PAGE ",IBPAGE,!,"PATIENT CHARGES",?87,"CORRESPONDING THIRD PARTY BILLS",!,IBLINE Line Location: HEADER+6
Function Call: WRITE	Prompt: !,?38,"From/",?48,"Date",?70,"AR",?79,"IB",?85,"\|\|",?110,"AR" Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"Action ID",?15,"Type",?28,"Bill#",?38,"Fill Dt",?48,"to AR",?61,"Charge",?70,"Status",?79,"Status",?85,"\|\|",?88,"Bill#",?97,"Classf($Typ)",?110,"ST",?116,"Charge",?126,"% Paid" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,IBLINE,! Line Location: HEADER+9