Routine: IBARXEPL

Package	Total	Call Graph
VA Fileman	7	^DIC FILE^DICN DT^DICRW ^DIK EN1^DIP DT^DIQ ^DIR
Integrated Billing	3	$$RXST^IBARXEU $$PLUS^IBARXEU0 PAUSE^IBOUTL
Kernel	2	HOME^%ZIS ^%ZISC
Registration	1	(ADD,KVAR)^VADPT

Package	Total	Caller Graph
Integrated Billing	2	IB RX PRINT EX LETERS IBARXEPE

Entry Points

Name	Comments	DBIA/ICR reference
SCRQ
ADDT	; -- create new template in ^dibt
END
ONE	; -- print one letter
LET	; -- called by dioend, prints list from tmp array
DELT	; -- delete search template
PRINT	; -- run through list of letters to PRINT
FINAL	; -- Print last page
SCR	; -- don't send letters to deceased patients, non-vets

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<<< Search Template IB EXEMPTION LETTER created!",! Line Location: ADDT+3
Function Call: WRITE	Prompt: @IOF Line Location: ONE+3
Function Call: WRITE	Prompt: !?(IOM-$L(X)+1/2),X Line Location: ONE+8
Function Call: WRITE	Prompt: ! Line Location: ONE+10
Function Call: WRITE	Prompt: ?(IOM-28),"Renewal Date: " Line Location: ONE+14
Function Call: WRITE	Prompt: ! Line Location: ONE+17
Function Call: WRITE	Prompt: ", ",VAPA(3) Line Location: ONE+20
Function Call: WRITE	Prompt: !,X Line Location: ONE+26
Routine Call	%ZIS Line Location: %+1 ONE+2
Routine Call	DIC Line Location: PRINT+1
Routine Call	DIR Line Location: %+15 %+24

FileNo	Call Tags
^IBA(354 - [#354]	Classic Fileman Calls
^IBE(354.6 - [#354.6]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	DELT+1
^DIBT("B"	%+7
^DIC(5 - [#5]	ONE+21
^DPT - [#2]	SCR+3, SCR+4
^IBA(354 - [#354]	SCR+5
^IBE(354.2 - [#354.2]	SCR+5
^IBE(354.6 - [#354.6]	LET+1, ONE+8, ONE+26
^TMP("IBEX LIST"	%+3!, END+4!, LET+3

Name	Field # of Occurrence
^(	LET+3, ONE+8, ONE+26

Name	Field # of Occurrence
>> BY	PRINT+4*
C	END+3!
D0	END+3!, SCR+3, SCR+4, SCR+5
DA	END+3!, DELT+2*!
DD	ADDT+1!
DFN	END+3!, LET+3*, ONE+14
>> DHD	PRINT+4*
DIC	END+3!, ADDT+2, PRINT+1, PRINT+4*
DIC("DR"	ADDT+2*
DIC(0	ADDT+2, PRINT+1
DIE	END+3!
DIK	DELT+2*!
DIOEND	END+3!, PRINT+5*
DIR	%+15!, %+24!, END+3!
DIR("?"	%+14, %+21, %+22, %+23
DIR("A"	%+13, %+20
DIR("B"	%+13, %+20
DIR(0	%+13, %+20
DIRUT	%+15, %+24, END+3!
DLAYGO	END+3!
DO	ADDT+1!
DR	END+3!
DT	%, ONE+9, ONE+14
>> FLDS	PRINT+4*
>> FR	PRINT+4*
>> I	ONE+8*
IB	END+3!, ONE+4, ONE+8, ONE+26*
IBADD	%+19, %+25*, END+3!
IBADDT	%+4, END+3!, ADDT+3
IBALIN	END+3!, LET+1, LET+2, ONE+17
IBCNT	END+3!, ONE+7, ONE+8, ONE+9, ONE+10, ONE+11, ONE+12, ONE+13, ONE+17, ONE+18* , ONE+19, ONE+20, ONE+21, ONE+25, ONE+26*
IBCNTL	END+3!, ONE+3*, FINAL+2
IBDATA	END+3!, LET+3*, ONE+12
IBJ	END+3!
IBLET	END+3!, PRINT+1*, PRINT+2, LET+1, ONE+8, ONE+26
IBNAM	END+3!, LET+3*, ONE+18
IBOK	%+4, END+3!, SCR+2, SCR+8*
IBQUIT	%+4, %+12, %+15, %+19, %+24*, END+3!, LET+3, ONE+22, ONE+27
IBTEMP	%+4, %+7, %+12, %+16, %+19, END+3!, ADDT+3, DELT+1, DELT+2, DELT+4*
IBX	END+3!, SCR+2~, SCR+5, SCR+6, SCR+7, ONE+14
IOF	%+1, %+2, ONE+2, ONE+3, ONE+28, FINAL+1
IOM	ONE+8, ONE+11, ONE+12, ONE+14
IOST	ONE+3, ONE+22, ONE+27, ONE+28
J	END+3!
>> L	PRINT+4*
POP	END+3!
TAB	END+3!, ONE+1*, ONE+18, ONE+19, ONE+20, ONE+21
>> TO	PRINT+4*
>> VAPA(1	ONE+19
>> VAPA(2	ONE+20
>> VAPA(3	ONE+20
>> VAPA(4	ONE+21
>> VAPA(5	ONE+21
>> VAPA(6	ONE+21
X	END+3!, ADDT+2, PRINT+1, ONE+8, ONE+26
Y	%+16, %+25, END+3!, ADDT+3, PRINT+1, ONE+9, ONE+14
>> ZTQUEUED	END