Routine: IBY461PO

Package	Total	Call Graph
VA FileMan	4	FILE^DICN ^DIE EN^DIEZ $$ROUSIZE^DILF
Kernel	1	MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
RIT	; Recompile File #399 Input Templates
CONV	; Add value to new DEFAULT RX REFILL DX ICD-10 field (#350.9, 7.05) ; set to 569361 - Z76.0 - Encounter for issue of repeat prescription
UPDERR	; Update existing error code message for 350.8
ADDERR	; Add new error code records to 350.8
TXTERR	; New IB ERROR (#350.8) Codes: Name=Error Code ^ Message

Name	Field # of Occurrence
FILE^DICN	ADDERR+8
^DIE	CONV+6, UPDERR+6
EN^DIEZ	RIT+8, RIT+14
$$ROUSIZE^DILF	RIT+2
MES^XPDUTL	IBY461PO+5, IBY461PO+9, RIT+4, RIT+10, CONV+4, CONV+7, UPDERR+4, UPDERR+7, ADDERR+5, ADDERR+9

FileNo	Call Tags
^IBE(350.8 - [#350.8]	Classic Fileman Calls
^IBE(350.9 - [#350.9]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIE - [#.402]	RIT+6, RIT+12
^DIE("B"	RIT+5, RIT+11
^IBE(350.8 - [#350.8]	UPDERR+4, ADDERR+5
^IBE(350.9 - [#350.9]	CONV+4

Name	Field # of Occurrence
DA	CONV+2~, CONV+6!, UPDERR+1~, UPDERR+6!, ADDERR+1~
DD	ADDERR+1~
DIC	CONV+2~, CONV+6!, UPDERR+1~, UPDERR+6!, ADDERR+1~, ADDERR+7*, ADDERR+8!
DIC("DR"	ADDERR+7*
DIC(0	ADDERR+8*
DIE	CONV+2~, CONV+6!, UPDERR+1~, UPDERR+6!, ADDERR+1~
DLAYGO	ADDERR+1~*
DMAX	RIT+1~, RIT+7, RIT+13
DO	ADDERR+1~
DR	CONV+2~, CONV+6!, UPDERR+1~, UPDERR+6!, ADDERR+1~
IBA	IBY461PO+5~!, IBY461PO+9
IBA(1	IBY461PO+5, IBY461PO+9
IBA(2	IBY461PO+5, IBY461PO+9
IBA(3	IBY461PO+5, IBY461PO+9
IBCODE	UPDERR+1~, UPDERR+3, UPDERR+4, ADDERR+1~, ADDERR+4, ADDERR+5, ADDERR+7, ADDERR+8, ADDERR+9
IBI	ADDERR+1~, ADDERR+3*
IBIEN	RIT+1~, RIT+5, RIT+6, RIT+7, RIT+11, RIT+12, RIT+13, UPDERR+1~, UPDERR+4*, UPDERR+6
IBMAX	RIT+1~, RIT+2*, RIT+7, RIT+13
IBMESN	UPDERR+1~, UPDERR+3*, UPDERR+6
IBRTN	RIT+1~, RIT+6, RIT+7, RIT+12, RIT+13
IBTXT	ADDERR+1~, ADDERR+3*, ADDERR+4, ADDERR+7
U	RIT+6, RIT+12, CONV+4, ADDERR+4, ADDERR+7
X	RIT+1~, RIT+7, RIT+13, CONV+2~, UPDERR+1~, ADDERR+1~, ADDERR+8*!
Y	RIT+1~, RIT+7, RIT+13, UPDERR+1~, ADDERR+1~, ADDERR+8!

Name	Field # of Occurrence
$T(TXTERR+IBI	ADDERR+3