Routine: IBY737PR

Information

IBY737PR ;AITC/DTG PRE-Installation for IB patch 737; JUL 26, 2022

Source file <IBY737PR.m>

Package	Total	Call Graph
Kernel	2	($$OPTDE,BMES,MES)^XPDUTL $$PROD^XUPROD
VA FileMan	2	$$FIND1^DIC ^DIK
Integrated Billing	1	MSG^IBCNEUT5
Registration	1	$$SITE^VASITE

Name	Comments	DBIA/ICR reference
PRE	; pre-install
PREX	;
REMCODE(IBXPD)	; remove '~NO PAYER' from PAYER File (#365.12)
REMCODEX	;
REOPT	;Re-enable Options

Name	Field # of Occurrence
$$FIND1^DIC	REMCODE+8, REMCODE+23
^DIK	REMCODE+20
MSG^IBCNEUT5	REMCODEX+13
$$SITE^VASITE	PRE+6
$$OPTDE^XPDUTL	REOPT+2, REOPT+4, REOPT+6, REOPT+8, REOPT+10
BMES^XPDUTL	PRE+10, PRE+14, REMCODE+2, REMCODEX+1, REMCODEX+14, REOPT+2, REOPT+4, REOPT+6, REOPT+8, REOPT+10
MES^XPDUTL	PRE+8, REMCODE+3, REMCODE+4
$$PROD^XUPROD	REMCODEX+12

FileNo	Call Tags
^IBE(365.12 - [#365.12]	Classic Fileman Calls, FIND1^DIC

Name	Field # of Occurrence
DA	REMCODE+5~, REMCODE+19*
DIK	REMCODE+5~, REMCODE+19*
ERR	REMCODE+5~
ERR("DIERR"	REMCODE+15
IBXMY	REMCODE+5~, REMCODEX+13
IBXMY("VHAeInsuranceRapidResponse@domain.ext"	REMCODEX+12*
IBXPD	PRE+2~, REMCODE~, REMCODE+2
MSG	REMCODE+5~, REMCODEX+14
MSG(1	REMCODEX+3*
MSG(2	REMCODEX+4*
MSG(3	REMCODEX+5*
MSG(4	REMCODEX+6*
MSG(5	REMCODEX+7*
MSG(6	REMCODEX+8*
MSG(7	REMCODEX+9*
PIEN	REMCODE+5~, REMCODE+8, REMCODE+11, REMCODE+14, REMCODE+19, REMCODE+23, REMCODE+26
RES	REMCODE+5~, REMCODE+11, REMCODE+15, REMCODE+26, REMCODE+27, REMCODEX+1
SITE	PRE+2~, PRE+6*
SITENAME	PRE+2~, PRE+6*, PRE+10, PRE+14, REMCODEX+13
SITENUM	PRE+2~, PRE+6*, PRE+10, PRE+14, REMCODEX+13
U	PRE+6
>> XPDABORT	PRE+12, REMCODE+16, REMCODE+26, REMCODEX+1, REMCODEX+2
XPDIDTOT	PRE+2~, PRE+4*, REMCODE+2