Routine: IBY506PO

Package	Total	Call Graph
Integrated Billing	3	(BUFF,SST)^IBCNEUT2 RSTA^IBCNEUT7 $$TASK^IBCNUPD
Kernel	2	($$NEWCP,BMES,MES)^XPDUTL XREF^XQORM
VA FileMan	2	^DIC ^DIE
Automated Information Collection System	1	$$ADD^IBDFDBS

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Post Install Routine primary entry point
BLD	; Update ^XUTL("XQORM" for menu protocols. ICR - 10140
SITEPARM	; initialize site parameters ; set eIV site parameter # OF RETRIES to "1" ; set eIV site parameter RETRY FLAG to "0" (NO) ; set eIV site parameter FRESHNESS DAYS to "180" ; set eIV site parameter TIMEOUT DAYS to "5" ; set eIV site parameter HL7 RESPONSE PROCESSING to "I" (IMMEDIATE)
HOLDLP	; loop through all TQ entries that have a status of HOLD and mark them as communication failure.
NEWSTAT	; add a new code to the IIV STATUS TABLE (#365.15) for COMMUNICATION FAILURE
NEWSTATX	;
ESCALATE	;Add Escalate Code "$" to the IIV STATUS TABLE (#365.15)
ESCX	;
UPDATE	;Call option to update Insurance Type File ; Schedule through TaskMan to run at night?
UPDATE1

Name	Field # of Occurrence
^DIC	BLD+4
^DIE	SITEPARM+9
BUFF^IBCNEUT2	HOLDLP+17
SST^IBCNEUT2	HOLDLP+11
RSTA^IBCNEUT7	HOLDLP+14
$$TASK^IBCNUPD	UPDATE1
$$ADD^IBDFDBS	NEWSTAT+18, ESCALATE+19
$$NEWCP^XPDUTL	EN+5
BMES^XPDUTL	EN+6, NEWSTAT+3, NEWSTAT+19, NEWSTAT+20, ESCALATE+3, ESCALATE+20, ESCALATE+21, UPDATE1+3
MES^XPDUTL	BLD+2, SITEPARM+6, HOLDLP+1, HOLDLP+2, NEWSTAT+1, ESCALATE+1, UPDATE+3, UPDATE1+1
XREF^XQORM	BLD+5

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IBCN(365.1 - [#365.1]	HOLDLP+7, HOLDLP+8
^IBE(365.15 - [#365.15]	HOLDLP+4, NEWSTAT+3, ESCALATE+3

Name	Field # of Occurrence
BUFF	HOLDLP+3~, HOLDLP+8*, HOLDLP+17
CCODE	HOLDLP+3~, HOLDLP+4*, HOLDLP+17
DA	SITEPARM+7~, SITEPARM+8*
DIC	BLD+4*!
DIC(0	BLD+4*
DIE	SITEPARM+7~, SITEPARM+8*
DR	SITEPARM+7~, SITEPARM+8*
IBACTN	NEWSTAT+2~, ESCALATE+2~
IBACTN("WP"	NEWSTAT+9, NEWSTAT+10, NEWSTAT+17, ESCALATE+10, ESCALATE+11, ESCALATE+18
IBDATA	NEWSTAT+2~, NEWSTAT+18, ESCALATE+2~, ESCALATE+19
IBDATA(	NEWSTAT+13, NEWSTAT+14, NEWSTAT+15, ESCALATE+14, ESCALATE+15, ESCALATE+16
IBDATA(1	NEWSTAT+16, ESCALATE+17
IBDATA(2	NEWSTAT+17, ESCALATE+18
IBDESC	NEWSTAT+2~, ESCALATE+2~
IBDESC("WP"	NEWSTAT+6, NEWSTAT+7, NEWSTAT+16, ESCALATE+6, ESCALATE+7, ESCALATE+8*, ESCALATE+17
IBERR	NEWSTAT+2~, NEWSTAT+18, NEWSTAT+19, ESCALATE+2~, ESCALATE+19, ESCALATE+20
IBIEN	NEWSTAT+2~, NEWSTAT+18, ESCALATE+2~, ESCALATE+19
IBX	BLD+1~, BLD+3*, BLD+4
IBY	EN+1~, EN+3, EN+4, EN+5, EN+6, BLD+1~, BLD+4, BLD+5
IEN	HOLDLP+3~, HOLDLP+6, HOLDLP+7, HOLDLP+8, HOLDLP+11, HOLDLP+14
IO	UPDATE1+2
IO(0	UPDATE+4
MSG	UPDATE+2~, UPDATE1, UPDATE1+1, UPDATE1+3
ORULT	BLD+6!
QUIT	EN+1~, EN+2, EN+3, EN+6
ROUT	EN+1~, EN+4*, EN+5
U	HOLDLP+8
X	BLD+1~, BLD+4*, SITEPARM+7~
XQORM	BLD+5*, BLD+6!
Y	EN+1~, EN+5*, EN+6, BLD+1~, BLD+4, SITEPARM+7~
>> ZTQUEUED	UPDATE1