Routine: IBARXEC

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC DT^DICRW DT^DIQ ^DIR
Integrated Billing	3	(HELP,RESTART)^IBARXEC0 DQ^IBARXEC3 $$STDATE^IBARXEU
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package

Total

Call Graph

NOW^%DTC DT^DICRW DT^DIQ ^DIR

(HELP,RESTART)^IBARXEC0 DQ^IBARXEC3 $$STDATE^IBARXEU

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Integrated Billing	2	IBARXEC1 IBARXEC3

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to run the conversion.",! Line Location: USER+0
Function Call: WRITE	Prompt: @IOF,?15,"IB Medication Copayment Exemption Conversion",!!! Line Location: USER+6
Function Call: WRITE	Prompt: !,"You must first install patch IB1.59!" Line Location: USER+11
Function Call: WRITE	Prompt: !,"You must first install patch PRCA3.78!" Line Location: USER+12
Function Call: WRITE	Prompt: !,"You must first install MAS patch DG5.2??!" Line Location: USER+13
Function Call: WRITE	Prompt: !,"You must re-run the Post-Init to the DGYGINIT routines, missing cross-referece" Line Location: USER+14
Function Call: WRITE	Prompt: !,"In order to do refunds a service of 'FISCAL' with a mail symbol of 04 must ",!,"be defined",! Line Location: REFUND+4
Function Call: WRITE	Prompt: !!,"Conversion already finished on " Line Location: REFUND+9
Function Call: WRITE	Prompt: !!,"Reprinting the Report...",! Line Location: REFUND+9
Routine Call	%ZIS Line Location: USER+6 DEV+2
Routine Call	DIR Line Location: REFUND+20
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	USER+12, USER+13
^DGMT(408.31 - [#408.31]	USER+14
^DIC(49 - [#49]	REFUND+2, REFUND+3
^IBA(354 - [#354]	USER+11
^IBE(350.9 - [#350.9]	%, USER+7, REFUND+9, REFUND+12, REFUND+15, REFUND+24
^TMP("IBCONV"	END!
^VA(200 - [#200]	USER

Name	Line Occurrences
DEV	REFUND+9
END	USER, USER+8, USER+11, USER+12, USER+13, USER+14, REFUND+1, REFUND+23, DEV+1, DEV+2

Name	Field # of Occurrence
>> %	REFUND+15
>> %ZIS	DEV+1*
D0	END+2!
DA	END+2!
DGT	END+2!
DIC	END+2!
DIE	END+2!
DIR	REFUND+20!, END+2!
DIR("A"	REFUND+19*
DIR("B"	REFUND+19*
DIR(0	REFUND+19*
DIRUT	REFUND+20, END+2!
DR	END+2!
DT	USER+2
DUZ	USER
DUZ(0	USER
ERR	END+2!
I	END+2!
IBADD	END+4!
IBADDE	END+4!
IBAFY	END+3!
IBARXJOB	REFUND+12, REFUND+14, REFUND+15, REFUND+20!, REFUND+23, REFUND+24, END+3!
IBCANDT	END+3!
IBCBCNT	END+3!
IBCEAMT	END+3!
IBCECNT	END+3!
IBCONVER	USER+3*, REFUND+12, END+3!
IBDATA	END+4!
IBDEPEN	END+4!
IBDONE	REFUND+8!, REFUND+9*, END+3!
IBDT	USER+2*, END+4!
IBEAMT	END+3!
IBECNT	END+3!
IBEDT	USER+2*, END+4!
IBEFAC	END+3!
IBERR	END+4!
IBEXERR	END+3!
IBEXREA	END+4!
IBFAC	END+4!
IBJ	END+4!
IBJOB	END+3!
IBL	END+3!
IBLAST	END+3!
IBLDT	END+3!
IBNAMT	END+3!
IBNCNT	END+3!
IBND	END+3!
IBNECNT	END+3!
IBNOW	END+3!
IBPARDT	END+3!
IBPARNT	END+3!
IBPARNT1	END+3!
IBQUIT	USER+3, USER+8, REFUND+1, REFUND+2, REFUND+3*, REFUND+4, END+3!
IBSITE	END+4!
IBSTAT	END+4!
IBTBCNT	END+4!
IBTCBCNT	END+4!
IBTCEAMT	END+4!
IBTCECNT	END+4!
IBTEAMT	END+4!
IBTECNT	END+4!
IBTNAMT	END+4!
IBTNCNT	END+4!
IBTNECNT	END+4!
IBWHER	END+3!
IO("Q"	DEV+2
IOF	USER+6
J	END+2!
LINE	END+2!
>> POP	DEV+1
>> X	USER+12, USER+13
XMZ	END+2!
>> Y	REFUND+9*, REFUND+20
>> ZTDESC	DEV+2*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+2*
>> ZTSAVE("IB*"	DEV+2*

Information

Name	Comments	DBIA/ICR reference
REFUND	; -- make sure AR set up for refunds
EN	; -- Entry Point to run conversion from start date of exemption to
END
USER
DEV