Routine: IB20P139

Package	Total	Call Graph
Kernel	2	^%ZTLOAD MES^XPDUTL
VA FileMan	2	FILE^DICN ^DIE

Entry Points

Name	Comments	DBIA/ICR reference
COPAY	; Add OPT COPAY for 10/1/2000: $50.8
CIQ
SETC()	; set Opt Copay
SETCQ
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true

FileNo	Call Tags
^IBA(363.2 - [#363.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2
^IBA(363.2 - [#363.2]	SETC+9, SETC+10
^IBE(363.1 - [#363.1]	SETC+4

Name	Field # of Occurrence
DA	SETC+1~, SETC+17*!
DD	SETC+1~, SETC+13!
DIC	SETC+1~, SETC+13*!
DIC(0	SETC+13*
DIE	SETC+1~, SETC+17*!
DLAYGO	SETC+1~, SETC+13*
DO	SETC+1~, SETC+13!
DR	SETC+1~, SETC+17*!
IBA	COPAY+1~, COPAY+2!, COPAY+9, CIQ!
IBA(1	COPAY+2, COPAY+5, COPAY+6, COPAY+7, CIQ*
IBA(2	COPAY+2, COPAY+5, COPAY+6, COPAY+7, CIQ*
IBA(3	COPAY+2, COPAY+5, COPAY+6, COPAY+7, CIQ*
IBA(4	COPAY+5*
IBA(5	COPAY+5*
IBBS	SETC+1~, SETC+5*, SETC+9, SETC+13
IBCHG	SETC+1~, SETC+7*, SETC+10, SETC+17
IBCS	SETC+1~, SETC+4*, SETC+9, SETC+17
IBEFDT	SETC+1~, SETC+6*, SETC+9, SETC+17
IBFN	SETC+1~, SETC+15*, SETC+17
IBMSG	SETC+1~, SETC+2, SETC+4, SETC+5, SETC+10, SETC+11, SETC+14, SETC+18, SETC+24, SETC+25* , SETCQ
IBX	COPAY+1~, COPAY+4, COPAY+5, COPAY+6, COPAY+7, SETC+1~, SETC+9, SETC+10, SETC+11, MCCRUTL+1~ , MCCRUTL+2*
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3
P	MCCRUTL~, MCCRUTL+2
U	COPAY+5, COPAY+6, COPAY+7, SETC+10, SETC+24, MCCRUTL+2
X	SETC+1~, SETC+13*, SETC+14!, SETC+17!, MCCRUTL~, MCCRUTL+2
>> XPDQUES("POS	QUEUE" , SETC+20, QUEUE1" , SETC+21
Y	SETC+1~, SETC+14!, SETC+15, SETC+17!
ZTDESC	SETC+1~, SETC+22*
ZTDTH	SETC+1~, SETC+21*
ZTIO	SETC+1~, SETC+22*
ZTRTN	SETC+1~, SETC+22*
ZTSK	SETC+1~, SETC+24, SETC+25