Routine: IBARXET

Information

IBARXET ;ALB/AAS - RX COPAY EXEMPTION THRESHOLD ENTER/LIST ; 20-JAN-93

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC ^DIC ^DIE ^DIK EN1^DIP D^DIQ ^DIR
Integrated Billing	5	$$TEXT^IBARXEU0 $$STATUS^IBARXEU1 ADDEX^IBAUTL6 $$PT^IBEFUNC PAUSE^IBOUTL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

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: 2

Package	Total	Caller Graph
Integrated Billing	2	IB RX ADD THRESHOLDS IB RX PRINT THRESHOLDS

Entry Points

Name	Comments	DBIA/ICR reference
ADD	; -- add/edit new thresholds
ADDQ
PRINT	; -- print threshold list
PRINTQ
PRIOR	; -- check to see if prior year thresholds used
DQ	; -- entry point from tasking
PRIORQ
HDR	; -- print prior threshold header
SET	; -- set up sortable array by patient
ONE	; -- print line for one patient
ONEQ

External References

Name	Field # of Occurrence
NOW^%DTC	DQ+1
^%ZIS	PRIOR+15
HOME^%ZIS	PRINT+1, PRIOR+16
^%ZISC	DQ+15
^%ZTLOAD	PRIOR+16
^DIC	ADD+2
^DIE	ADD+3, ONE+11
^DIK	ADD+7
EN1^DIP	PRINT+6
D^DIQ	DQ+1, ONE+4
^DIR	PRIOR+12
$$TEXT^IBARXEU0	ONE+5
$$STATUS^IBARXEU1	ONE+9
ADDEX^IBAUTL6	ONE+10
$$PT^IBEFUNC	SET+2
PAUSE^IBOUTL	DQ+12, ONE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+13
Function Call: WRITE	Prompt: @IOF,?15,"Print Medication Copayment Income Thresholds",!!! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"There are Medication Copayment Exemptions based on prior thresholds",! Line Location: PRIOR+10
Function Call: WRITE	Prompt: @IOF,*13 Line Location: HDR+1
Function Call: WRITE	Prompt: "Exemptions Based on Prior Year Thresholds",?(IOM-35),$P(IBPDAT,"@")," @ ",$P(IBPDAT,"@",2)," Page ",IBPAG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Patient",?22,"PT. ID",?36,"Exemption Date",?52,"Status" Line Location: HDR+4
Function Call: WRITE	Prompt: ?63,"Action" Condition for execution: IBACT=3 Line Location: HDR+4
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+5
Function Call: WRITE	Prompt: !,$E(IBNAM,1,20),?22,$P(IBP,"^",2),?36,Y,?52,$$TEXT^IBARXEU0($P(IBND,"^",4)) Line Location: ONE+5
Function Call: WRITE	Prompt: ?63,"Exemption updated" Line Location: ONE+10
Function Call: WRITE	Prompt: ?63,"No Change" Line Location: ONE+11
Routine Call	DIC Line Location: ADD+2
Routine Call	DIE Line Location: ADD+3 ONE+11
Routine Call	DIR Line Location: PRIOR+12
Routine Call	%ZIS Line Location: PRIOR+15
Routine Call	%ZIS Line Location: PRINT+1 PRIOR+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(354.1 - [#354.1]	Classic Fileman Calls
^IBE(354.3 - [#354.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(354.1 - [#354.1]	PRIOR+7, DQ+5, SET+1, ONE+3
^IBE(354.3 - [#354.3]	ADD+5, PRIOR+1, PRIOR+5
^TMP($J	DQ+2!, DQ+8, DQ+9, DQ+10, DQ+13!, SET+3*

Label References

Name	Line Occurrences
ADD	ADD+13
ADDQ	ADD+2
HDR	DQ+3, ONE+2
ONE	DQ+10
ONEQ	ONE+2, ONE+3, ONE+8
PRIOR	ADD+12
PRIORQ	PRIOR+1, PRIOR+3, PRIOR+7, PRIOR+12, PRIOR+15, PRIOR+16
SET	DQ+5

Naked Globals

Name	Field # of Occurrence
^(	DQ+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DQ+1
>> %ZIS	PRIOR+15*
BY	PRINT+4*, PRINTQ!
DA	ADD+3, ADD+5, ADD+9!, ADD+12, ADDQ!, PRIOR+1, ONE+11, ONE+12!
DFN	DQ+9, DQ+10, PRIORQ!, SET+2, SET+3, ONE+9
DHD	PRINT+5*, PRINTQ!
DIC	ADD+2, ADDQ!, PRINT+4, PRINTQ!, ONE+12!
DIC("DR"	ADD+2*
DIC(0	ADD+2*
DIE	ADD+3, ADDQ!, ONE+11, ONE+12!
DIK	ADD+7*, ADD+9!
DIR	PRIOR+12!, PRIORQ!
DIR("?"	PRIOR+11*
DIR("A"	PRIOR+12*
DIR("B"	PRIOR+12*
DIR(0	PRIOR+12*
DIRUT	PRIOR+12, PRIORQ!
DLAYGO	ADD+2*, ADDQ!
DR	ADD+3, ADDQ!, ONE+11, ONE+12!
FLDS	PRINT+4*, PRINTQ!
FR	PRINT+4*, PRINTQ!
IBACT	PRIOR+13*, PRIOR+16, PRIORQ!, HDR+4, ONE+8
IBADD	PRIORQ+1!
IBADDE	PRIORQ+1!
IBCODA	PRIORQ+1!
IBCODP	PRIORQ+1!
IBDA	ADDQ!
IBEX	DQ+4, DQ+5, PRIORQ+1!, SET+1, SET+3, ONE+1*, ONE+3, ONE+11
IBEXERR	PRIORQ+1!
IBEXREA	PRIORQ+1!, ONE+9*, ONE+10, ONE+11
IBJOB	DQ+2*, PRIORQ+1!
IBNAM	DQ+7, DQ+8, DQ+9, DQ+10, PRIORQ+1!, ONE+5
IBND	PRIORQ+1!, SET+1, SET+2, ONE+3, ONE+4, ONE+5, ONE+9, ONE+10, ONE+11
IBP	DQ+10, PRIORQ+1!, SET+2, SET+3, ONE+1*, ONE+5
IBPAG	DQ+1, PRIORQ!, HDR+1, HDR+2, HDR+3
IBPDAT	DQ+1*, PRIORQ!, HDR+3
IBPR	PRIOR+1*, PRIOR+3, PRIOR+5, PRIORQ!
IBPRDT	PRIOR+5, PRIOR+6, PRIOR+7, DQ+5, PRIORQ!
IBPRIOR	PRIORQ!
IBQUIT	DQ+1*, DQ+8, DQ+9, DQ+10, DQ+12, PRIORQ!, PRIORQ+1!, ONE+2
IBTH	ADD+1*, ADDQ!
IBWHER	PRIORQ+1!
IBX	ADD+5*, ADD+6, ADDQ!
IBXXX	DQ+10*, PRIORQ+1!
IO	PRIOR+17
IO("Q"	PRIOR+16!
IOF	PRINT+1, PRINT+2, HDR+1
IOM	HDR+3, HDR+5
IOSL	ONE+2
IOST	HDR+1
L	PRINT+4*, PRINTQ!
>> POP	PRIOR+15
TO	PRINT+4*, PRINTQ!
X	ADDQ!, PRIOR+3, PRIOR+5, PRIORQ!
Y	ADD+2, ADD+3, ADDQ!, PRIOR+12, PRIOR+13, DQ+1, PRIORQ!, ONE+4, ONE+5
>> ZTDESC	PRIOR+16*
>> ZTQUEUED	DQ+14
>> ZTREQ	DQ+14*
>> ZTRTN	PRIOR+16*
>> ZTSAVE("IB*"	PRIOR+16*
ZTSK	PRIOR+16!

Customize PDF page

Package: Integrated Billing