Routine: IBARXEC5

Information

IBARXEC5 ;ALB/AAS - RX COPAY EXEMPTION CONVERSION REPORT PRINT ; 14-JAN-93

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	NOW^%DTC D^DIQ
Integrated Billing	1	($$DAT1,PAUSE)^IBOUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBARXEC1

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; -- Print report
ONE	; -- print one line
HDR	; -- print header
SUB	; -- write sub totals
SUM	; -- print final summary
ERR	; -- see if any errors

External References

Name	Field # of Occurrence
NOW^%DTC	PRINT+1
D^DIQ	PRINT+1
$$DAT1^IBOUTL	ONE+8, ONE+12, HDR+5
PAUSE^IBOUTL	ONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Charges Canceled due to Income Exemption in date range." Line Location: PRINT+4
Function Call: WRITE	Prompt: $E(IBNAM,1,20),?22,$P(X2,"^",2) Line Location: ONE+2
Function Call: WRITE	Prompt: ?36,ERR,! Line Location: ONE+2
Function Call: WRITE	Prompt: ?36,$$DAT1^IBOUTL($P(O1,"^",2)) Line Location: ONE+8
Function Call: WRITE	Prompt: $J($P($P(O,"^",8),"-"),9),$S(+Y:"/"_Y,1:"") Line Location: ONE+11
Function Call: WRITE	Prompt: ?57,$$DAT1^IBOUTL($P(N1,"^",2)),?68,+N,?81,$P(N,"^",11),?97,"$",$P(N,"^",7) Line Location: ONE+12
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: "Rx Copay Income Exemption Report",?(IOM-35) Line Location: HDR+3
Function Call: WRITE	Prompt: $P(IBPDAT,"@")," ",$P(IBPDAT,"@",2)," Page ",IBPAG Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Charges Canceled ",$S(IBBDT=IBEDT:"on "_$$DAT1^IBOUTL(IBBDT),1:"from "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)) Line Location: HDR+5
Function Call: WRITE	Prompt: !," Cancel Cancel Original" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Name Pt. ID Rx Date Rx/Refill Date IB Number Bill No. Amount" Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+8
Function Call: WRITE	Prompt: !,?85,"--------------" Line Location: SUB+1
Function Call: WRITE	Prompt: !,?85,"Count = ",$J(IBBCNT,4) Line Location: SUB+2
Function Call: WRITE	Prompt: !,?85,"Amount = $",$J(IBAMT,4),! Line Location: SUB+3
Function Call: WRITE	Prompt: !!?40,"=======================================" Line Location: SUM+1
Function Call: WRITE	Prompt: !?40," Total Patient Count = ",$J(IBPCNT,7) Line Location: SUM+2
Function Call: WRITE	Prompt: !?40," Total Rx Count = ",$J(IBTCNT,7) Line Location: SUM+3
Function Call: WRITE	Prompt: !?40," Total Dollar amount = $",$J(IBTAMT,7) Line Location: SUM+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	ONE+4, ONE+5
^TMP("IB-ERROR"	ERR+2
^TMP("IBCONV"	PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+11!

Label References

Name	Line Occurrences
ERR	ONE+2
HDR	PRINT+3, ONE+1
ONE	PRINT+8
SUB	PRINT+8
SUM	PRINT+10

Naked Globals

Name	Field # of Occurrence
^(	PRINT+8
^(1	ONE+4, ONE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT+1
>> DFN	PRINT+7*, PRINT+8, ERR+2
DJ	ERR+1~, ERR+2
>> ERR	ONE+2, ERR+2
>> IBAMT	PRINT+8, ONE+6, SUB+3
IBBCNT	PRINT+2!, PRINT+8, ONE+2, ONE+6, SUB+2
>> IBBDT	HDR+5
>> IBCONVER	HDR+1
>> IBEDT	HDR+5
>> IBN	PRINT+8*, ONE+4
>> IBNAM	PRINT+5, PRINT+6, PRINT+7, PRINT+8, ONE+2
>> IBPAG	PRINT+1, HDR+1, HDR+2, HDR+4
>> IBPCNT	PRINT+5, PRINT+7, SUM+2
>> IBPDAT	PRINT+1*, HDR+4
>> IBQUIC	HDR+1
>> IBQUIT	PRINT+1*, PRINT+6, PRINT+7, PRINT+8, PRINT+10, ONE+1
>> IBTAMT	PRINT+5, ONE+6, SUM+4
>> IBTCNT	PRINT+5, ONE+6, SUM+3
IOF	HDR+1
IOM	HDR+3, HDR+8
IOSL	ONE+1
IOST	HDR+1
>> N	ONE+4*, ONE+5, ONE+6, ONE+12
>> N1	ONE+4*, ONE+12
>> O	ONE+5*, ONE+10, ONE+11
>> O1	ONE+5*, ONE+8
>> X2	PRINT+8*, ONE+2
>> Y	PRINT+1, ONE+10, ONE+11

Customize PDF page

Package: Integrated Billing