Routine: IBCF4

Package	Total	Caller Graph
Integrated Billing	2	IB PRINT BILL ADDENDUM IBCFP

Entry Points

Name	Comments	DBIA/ICR reference
EN	;ENTRY POINT IF QUEUED, print all rx refills for a bill
END
HDR	;print the report header
PROS
DATE(X)
RX
DEV	;get the device
BILLAD(IFN)	;returns true if bill has either rx refills or prosthetics so addendum should print
PAUSE	;pause at end of screen if beeing displayed on a terminal
EXIT	;clean up and quit
RXDISP	;displays all rx refills bills
STOP()	;determine if user has requested the queued report to stop
PRXA	;get bill number then print rx refill addendums for bills

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??" Line Location: PRXA+2
Function Call: WRITE	Prompt: " bill has no Rx Refills..." Line Location: PRXA+3
Function Call: WRITE	Prompt: !,$P(IBY,U,1),?13,$$FMTE^XLFDT(+$P(IBY,U,3)),?28,$P($G(^PSDRUG(+$P(IBY,U,4),0)),U,1) Line Location: RX+4
Function Call: WRITE	Prompt: ?70,"QTY: ",$P(IBY,U,7) Line Location: RX+5
Function Call: WRITE	Prompt: ?80,"DAYS SUPPLY: ",$P(IBY,U,6) Line Location: RX+6
Function Call: WRITE	Prompt: ?100,"NDC #: ",$P(IBY,U,8) Line Location: RX+7
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(+$P(IBY,U,1)),?15,$P($$PIN^IBCSC5B(+$P(IBY,U,3)),U,2) Line Location: PROS+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: ! Condition for execution: IOM<85 Line Location: HDR+4
Function Call: WRITE	Prompt: ?(IOM-30),IBCDT,?(IOM-8),"PAGE ",IBPGN,! Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1
Function Call: WRITE	Prompt: !,$P(IBZ,U,1),?10,$E($P($G(^DPT(+$P(IBZ,U,2),0)),U,1),1,20),?32,$$DATE(+$P(IBZ,U,3)),?42,$S(+$P(IBZ,U,5)<3:"INPT",1:"OUTPT") Line Location: RXDISP+3
Function Call: WRITE	Prompt: ?49,$P($G(^DGCR(399.3,+$P(IBZ,U,7),0)),U,4),?59,$E($$EXSET^IBEFUNC(+$P(IBZ,U,13),399,.13),1,7),?68,$E($P($G(^IBE(353,+$P(IBZ,U,19),0)),U,1),1,11) Line Location: RXDISP+4
Routine Call	DIC Line Location: PRXA+5
Routine Call	DIR Line Location: PAUSE+2
Routine Call	%ZIS Line Location: DEV+2

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN+1
^DPT - [#2]	EN+2
^IBA(362.4 - [#362.4]	RX, RX+2, RX+3, BILLAD+1
^IBA(362.5 - [#362.5]	PROS, PROS+2, PROS+3, BILLAD+1
^PSDRUG - [#50]	RX+4

Name	Field # of Occurrence
>> %	HDR+2
>> %ZIS	DEV+2*
>> %ZIS("A"	DEV+2*
DIC	PRXA+5*!
DIC("S"	PRXA+4*
DIC(0	PRXA+5*
DIR	PAUSE+2!
DIR(0	PAUSE+2*
DIROUT	EXIT+2!
DIRUT	EXIT+2!, PAUSE+3
DTOUT	EXIT+2!
DUOUT	EXIT+2!, PAUSE+3
IBBILL	PRXA+5*, DEV+3, EXIT+2!
IBCDT	END!, HDR+2*, HDR+4
IBHDR	EN+2*, END!, HDR+4
IBI	END!, HDR+6*
IBIFN	PRXA+5*, EXIT+2!, EN+1
IBLN	RX+8, PROS+5, END!, HDR+1*
IBPGN	EN+2, END!, HDR+1, HDR+3, HDR+4, STOP+1
IBPI	PROS+2*, END!
IBPIFN	PROS+2*, PROS+3, END!
IBQUIT	EXIT+2!, EN+2, RX+2, PROS+2, PROS+6, HDR+1, PAUSE+3*
IBRIFN	RX+2*, RX+3, END!
IBRX	EN+2, RX+2, END!
IBX	END!, BILLAD+1~*, BILLAD+2
IBXREF	EN+1*, RX, RX+2, PROS, PROS+2, END!
IBY	EN+1, EN+2, RX+3, RX+4, RX+5, RX+6, RX+7, PROS+3*, PROS+4, END!
IFN	BILLAD~, BILLAD+1*
IO	DEV+4
IO("Q"	DEV+3!
IOF	HDR+3
IOM	HDR+4, HDR+6
IOSL	RX+8, PROS+5
IOST	HDR+3, PAUSE+1
>> POP	DEV+2
U	PRXA+5, EN+2, RX+4, RX+5, RX+6, RX+7, PROS+4
X	EXIT+2!, DATE~
Y	PRXA+5, EXIT+2!, HDR+2*
>> ZTDESC	DEV+3*
>> ZTQUEUED	EXIT+1, STOP+1
ZTREQ	EXIT+1*, STOP+1!
>> ZTRTN	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
ZTSK	DEV+3!
>> ZTSTOP	STOP+1*, STOP+2