Routine: IBECEA37

Information

IBECEA37 ;EDE/WCJ-Multi-site maintain UC VISIT TRACKING FILE (#351.82) - CALLER/REQUESTOR ; 2-DEC-19

Package	Total	Call Graph
VA FileMan	4	($$FIND1,FIND)^DIC (,FILE)^DIE CLEAN^DILF $$GET1^DIQ
Integrated Billing	3	$$ICN^IBARXMU SITE^IBAUTL $$GETELGP^IBECEA36
MailMan	2	^XMD SENDMSG^XMXAPI
RPC Broker	2	(EN1,RPCCHK)^XWB2HL7 (CLEAR,RTNDATA)^XWBDRPC
Registration	1	TFL^VAFCTFU1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IBECEA39 IBUC MULTI FAC COPAY SYNCH

Entry Points

Name	Comments	DBIA/ICR reference
AWAY
UPDATED	; Get all in File that were UPDATED and not yet pushed out. They may have gotten to some sites but not all sites ;
MULTI(IBINDEX,IBLOOKUP)	; ; IBINDEX = a single regular fileman index ; IBLOOKUP = internal value for that index
LOGRES(IBDFN,ERR,RESMESS)	; log results
TFL(DFN,IBS,IBT)	; returns treating facility list (pass IBT by reference) ; supported references ia #2990, value returned is count ; needed to N Y because VAFCTFU1 will kill it ; DFN - Patient IEN ; IBS - External site ; IBT - By reference for results
ALERTSO	; alert someone ; what is needed to actually be informative - maybe PATIENT NAME, FULL ICN (if available), RECEIVING SITE, ERROR MESSAGE ; screen out all but errors (get rid of 0's (info only) and 1's (successes))
REMOVE(IBIEN)	; remove from UPDATED index - only called if sent to ALL other treating facilities successfully.
CLEARERR(IBIEN)	; remove from UPDATED index - only called if sent to ALL other treating facilities successfully.
CHKERR	; Check error code and set file 351.82 fields 3.01, 3.02.&3.03 IB2.0761
EXTEMAIL	; IB2.0761

External References

Name	Field # of Occurrence
$$FIND1^DIC	CHKERR+7
FIND^DIC	MULTI+8
^DIE	CHKERR+13
FILE^DIE	REMOVE+4, CLEARERR+6
CLEAN^DILF	ALERTSO+33
$$GET1^DIQ	MULTI+86, ALERTSO+12, ALERTSO+13
$$ICN^IBARXMU	MULTI+42
SITE^IBAUTL	MULTI+25
$$GETELGP^IBECEA36	MULTI+51
TFL^VAFCTFU1	TFL+8
^XMD	EXTEMAIL+11
SENDMSG^XMXAPI	ALERTSO+32
EN1^XWB2HL7	MULTI+58, MULTI+59
RPCCHK^XWB2HL7	MULTI+74
CLEAR^XWBDRPC	MULTI+94
RTNDATA^XWBDRPC	MULTI+81

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Requesting Site?= ",IBOSITEEX Line Location: MULTI+36
Routine Call	DIC Line Location: CHKERR+7
Routine Call	DIC Line Location: MULTI+8
Routine Call	DIE Line Location: CHKERR+13
Routine Call	DIE Line Location: REMOVE+4 CLEARERR+6

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^IBUC(351.82 - [#351.82]	FIND^DIC, GET1^DIQ
^DIC(4 - [#4]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBUC(351.82 - [#351.82]	EXTEMAIL+4
^TMP("DILIST"	MULTI+14, MULTI+28, MULTI+29
^TMP("IBECEA_COPAY"	MULTI+4!, MULTI+84, MULTI+91, MULTI+103!, LOGRES+3, ALERTSO+4, ALERTSO+8, ALERTSO+10, ALERTSO+14, ALERTSO+16 , ALERTSO+20, ALERTSO+21, ALERTSO+22, ALERTSO+23, ALERTSO+25, ALERTSO+28*
^TMP($J	MULTI+91, MULTI+92!, EXTEMAIL+3!, EXTEMAIL+7*
^VA(200 - [#200]	EXTEMAIL+9

Label References

Name	Line Occurrences
$$TFL	MULTI+39
ALERTSO	MULTI+100
AWAY	IBECEA37+9
CHKERR	MULTI+87
CLEARERR	MULTI+86, REMOVE+5
EXTEMAIL	UPDATED+4
LOGRES	MULTI+43, MULTI+63, MULTI+77, MULTI+95
MULTI	UPDATED+2
REMOVE	MULTI+35, MULTI+40, MULTI+96

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EXTEMAIL+1~, EXTEMAIL+2, EXTEMAIL+4, EXTEMAIL+5
DA	CHKERR+6*, CHKERR+12!
DFN	TFL~, TFL+8
DIC4IEN	CHKERR+7~*, CHKERR+9
DIE	CHKERR+6*, CHKERR+12!
DR	CHKERR+9, CHKERR+10, CHKERR+11*, CHKERR+12!
DUZ	ALERTSO+32
ERR	LOGRES~, LOGRES+1*, LOGRES+3
FDA	REMOVE+1~, CLEARERR+1~
FDA(	REMOVE+3, CLEARERR+3, CLEARERR+4, CLEARERR+5
IBAD	ALERTSO+5~, ALERTSO+9, ALERTSO+17, ALERTSO+18, ALERTSO+26
IBBILL	MULTI+21~, MULTI+47*, MULTI+58
IBC	MULTI+21~, MULTI+74, TFL+7~, TFL+10, TFL+15*, TFL+16
IBCOMM	MULTI+21~, MULTI+48*, MULTI+58
IBDATA	MULTI+21~, MULTI+29, MULTI+30, MULTI+31, MULTI+32, MULTI+34, MULTI+45, MULTI+46, MULTI+47, MULTI+48 , MULTI+49, ALERTSO+5~, ALERTSO+14, ALERTSO+15, ALERTSO+16, ALERTSO+19, ALERTSO+20, ALERTSO+23*, ALERTSO+24, ALERTSO+25 , ALERTSO+27, ALERTSO+28
IBDFN	MULTI+21~, MULTI+32, MULTI+39, MULTI+42, MULTI+43, MULTI+51, MULTI+77, MULTI+84, MULTI+91, MULTI+95 , LOGRES~, LOGRES+2~, LOGRES+3, ALERTSO+5~, ALERTSO+7, ALERTSO+8, ALERTSO+10, ALERTSO+11, ALERTSO+12, ALERTSO+13 , ALERTSO+14, ALERTSO+16, ALERTSO+17, ALERTSO+18, ALERTSO+20, ALERTSO+21, ALERTSO+22, ALERTSO+23, ALERTSO+25, ALERTSO+26 , ALERTSO+28
IBELGRP	MULTI+21~, MULTI+51*, MULTI+58
IBERR	MULTI+21~, MULTI+27, MULTI+43, MULTI+63, MULTI+77, MULTI+83, MULTI+84, MULTI+90, MULTI+91, MULTI+95 , CHKERR+1~, CHKERR+2, CHKERR+3
IBERRCD	CHKERR+1~, CHKERR+3*, CHKERR+4, CHKERR+10, CHKERR+11, CHKERR+12
IBEXSITE	MULTI+21~
IBFAC	MULTI+21~, ALERTSO+5~, ALERTSO+21*, ALERTSO+22, ALERTSO+23, ALERTSO+25, ALERTSO+28
IBFT	TFL+7~, TFL+12*, TFL+15
IBH	MULTI+21~, MULTI+57~, MULTI+58, MULTI+59
IBH(0	MULTI+61, MULTI+64
IBHERE	MULTI+21~, MULTI+80!, MULTI+81, MULTI+82, MULTI+84
IBHERE(	CHKERR+2, CHKERR+3
IBHERE(0	MULTI+86, MULTI+87, MULTI+88
IBICN	MULTI+21~, MULTI+42*, MULTI+43, MULTI+58, MULTI+59
IBIEN	MULTI+21~, MULTI+31*, MULTI+35, MULTI+40, MULTI+50, MULTI+86, MULTI+96, REMOVE~, REMOVE+2, REMOVE+5 , CLEARERR~, CLEARERR+2, CHKERR+6
IBINDEX	MULTI~, MULTI+8, MULTI+23
IBL4	ALERTSO+5~, ALERTSO+13*, ALERTSO+18, ALERTSO+26
IBLN	ALERTSO+5~, ALERTSO+12*, ALERTSO+18, ALERTSO+26
IBLOOKUP	MULTI~, MULTI+8
IBLOOP	MULTI+21~, MULTI+27, MULTI+28, MULTI+29
IBLP	ALERTSO+5~, ALERTSO+22*, ALERTSO+23
IBOSITEEX	MULTI+21~, MULTI+34*, MULTI+35, MULTI+36, MULTI+39, MULTI+58, MULTI+59
IBPATPR	MULTI+21~, MULTI+23*, MULTI+58, MULTI+59
IBR	MULTI+21~, MULTI+73~, MULTI+74, MULTI+80!
IBR(0	MULTI+74, MULTI+77, MULTI+79
IBREMOVE	MULTI+67~, MULTI+68, MULTI+70, MULTI+77, MULTI+88, MULTI+93, MULTI+95, MULTI+96
IBRES	ALERTSO+5~, ALERTSO+10*, ALERTSO+14, ALERTSO+21, ALERTSO+22, ALERTSO+23
IBS	TFL~, TFL+15
IBSITE	MULTI+21~, MULTI+35, MULTI+50
IBSTAT	MULTI+21~, MULTI+46*, MULTI+58
IBT	MULTI+21~, MULTI+39*, MULTI+40, TFL~
IBT(	TFL+15*
IBTFL	MULTI+21~, MULTI+38!, MULTI+39
IBTFL(	MULTI+56, MULTI+58, MULTI+59, MULTI+62, MULTI+63, MULTI+64, MULTI+69, MULTI+70, MULTI+74, MULTI+77 , MULTI+81, MULTI+84, MULTI+86, MULTI+91, MULTI+94, CHKERR+7
IBUCIEN	EXTEMAIL+1~, EXTEMAIL+2, EXTEMAIL+4
IBUNIQ	MULTI+21~, MULTI+49, MULTI+50, MULTI+58
IBVISDT	MULTI+21~, MULTI+45*, MULTI+51, MULTI+58
IBX	MULTI+21~, MULTI+56, MULTI+58, MULTI+59, MULTI+62, MULTI+63, MULTI+64, MULTI+69, MULTI+70, MULTI+74 , MULTI+77, MULTI+81, MULTI+84, MULTI+86, MULTI+91, MULTI+94, CHKERR+7
IBZ	MULTI+21~, MULTI+94, TFL+7~, TFL+8, TFL+10, TFL+15
IBZ(	TFL+15
IBZ(1	TFL+9
IENS	REMOVE+1~, REMOVE+2, REMOVE+3, CLEARERR+1~, CLEARERR+2, CLEARERR+3, CLEARERR+4, CLEARERR+5
LINE	EXTEMAIL+1~
LN	ALERTSO+5~, ALERTSO+7, ALERTSO+17, ALERTSO+18, ALERTSO+19, ALERTSO+26, ALERTSO+27, ALERTSO+29*, ALERTSO+30
MSG	ALERTSO+5~, ALERTSO+29
MSG(	ALERTSO+17, ALERTSO+18, ALERTSO+19, ALERTSO+26, ALERTSO+27, ALERTSO+29
RESMESS	LOGRES~, LOGRES+3
RETURN	REMOVE+1~, CLEARERR+1~
SUBJ	ALERTSO+5~, ALERTSO+6*, ALERTSO+32
U	MULTI+31, MULTI+32, MULTI+34, MULTI+45, MULTI+46, MULTI+47, MULTI+48, MULTI+49, MULTI+74, MULTI+86 , TFL+15, ALERTSO+27, CHKERR+7
XMDUZ	EXTEMAIL+1~, EXTEMAIL+9*
XMSUB	EXTEMAIL+1~, EXTEMAIL+6*
XMTEXT	EXTEMAIL+1~, EXTEMAIL+8*
XMTO	ALERTSO+5~, ALERTSO+32
XMTO("G.IBUC	URGENT CARE EXCEPTIONS" , ALERTSO+31*
XMY	EXTEMAIL+1~
XMY("G.IB UC	REMOTE" , EXTEMAIL+10*
Y	TFL+7~

Customize PDF page

Package: Integrated Billing