Routine: IBECECX1

Information

IBECECX1 ;BSL/DVA - BILLING EXTRACTION AND FILING UTILITIES FOR IN PATIENT ACCUMULATOR INTERFACE ; 16 May 2022 8:47 AM

Package	Total	Call Graph
VA FileMan	3	FIND^DIC ^DIE $$GET1^DIQ
Integrated Billing	2	($$ICN,$$TFL)^IBARXMU (MSA1,MTEQRY,QRDDI)^IBECECQ1
Kernel	2	($$FMADD,$$FMTHL7,$$NOW)^XLFDT $$LEAP^XLFDT3
Health Level Seven	1	($$GET,$$NEXTSEG,$$STARTMSG)^HLOPRS
MailMan	1	^XMD
Registration	1	$$SITE^VASITE

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: 5

Package	Total	Caller Graph
Integrated Billing	5	IBECEA33 IBECECQ1 IBECECQ2 IBECECU1 IBEMTBC

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN)	;Retrieve existing Billing clock if present for this patient
INPT(DFN)	;Gather inpatient data ; Retrieve most recent Admission and Discharge dates from the PTF file
CCINPT(DFN,IBADMIT)	;Gather inpatient data for CC billing ; Retrieve most recent Admission and Discharge dates from the PTF file
NOCLOCK	;Set variables if no clock found
CLSDT(IBECDT)	;Calculate billing clock closed date taking into acct leap year
VRSNCHK(IB351IEN)	;Verify Version matches incoming versions
GETIEN(DFN,IBADM1)	;Get Means Test Billing clock (#351) file ien
WRAP(IBCOL1,IBCOL2,IBTEXT)	;Wrap text in IBTEXT variable ; Input Parameters Description: ; IBCOL1: Left Column to start ; IBCOL2: Cols to wrap in ; IBTEXT: Text to wrap
ERR1(IBERRMSG)	;Handle error responses for network and software failure issues
ERR2(IBERRMSG)	;Handle error responses for Clock Discrepancy issues
UDCL	;Update original billing clock so nightly querys are not sent for patients without TFL's
EDTCLCK(DFN,IBADMIT,IBCURIEN)	;Called from Billing Clock Maintenance option

External References

Name	Field # of Occurrence
FIND^DIC	EDTCLCK+20
^DIE	VRSNCHK+9
$$GET1^DIQ	EN+11, EN+27, EN+28, EN+35, EN+52, EN+53, VRSNCHK+7, GETIEN+4, GETIEN+12, EDTCLCK+27
$$GET^HLOPRS	EDTCLCK+18, EDTCLCK+19
$$NEXTSEG^HLOPRS	EDTCLCK+15
$$STARTMSG^HLOPRS	EDTCLCK+12, EDTCLCK+14
$$ICN^IBARXMU	EDTCLCK+2
$$TFL^IBARXMU	EDTCLCK+3
MSA1^IBECECQ1	EDTCLCK+16
MTEQRY^IBECECQ1	EDTCLCK+7
QRDDI^IBECECQ1	EDTCLCK+17
$$SITE^VASITE	INPT+3, CCINPT+3, EDTCLCK+6
$$FMADD^XLFDT	EN+11, EN+24, EN+30, EN+35, EN+49, INPT+4, CLSDT+5, CLSDT+6, GETIEN+5, GETIEN+10 , GETIEN+13, EDTCLCK+11
$$FMTHL7^XLFDT	INPT+4, INPT+7, INPT+8, CCINPT+7, CCINPT+9
$$NOW^XLFDT	EDTCLCK+11
$$LEAP^XLFDT3	CLSDT+3, CLSDT+4
^XMD	ERR1+44, ERR2+39

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Running Billing Clock Query, please wait." Line Location: EDTCLCK+9
Function Call: WRITE	Prompt: "." Line Location: EDTCLCK+12
Routine Call	DIC Line Location: EDTCLCK+20
Routine Call	DIE Line Location: VRSNCHK+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(351 - [#351]	Classic Fileman Calls, GET1^DIQ
^DIC(4 - [#4]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	INPT+6, CCINPT+5
^DGPT("AAD"	INPT+5, INPT+6, CCINPT+4, CCINPT+5
^IBE(351 - [#351]	EN+7, EN+9, EN+14, EN+15, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22 , EN+23, EN+31, EN+33, EN+39, EN+40, EN+42, EN+43, EN+44, EN+45, EN+46 , EN+47, EN+48, VRSNCHK+8, VRSNCHK+10, GETIEN+3, GETIEN+4, GETIEN+11, GETIEN+12, UDCL+2*
^TMP($J	ERR1+6!, ERR1+10, ERR1+11, ERR1+14, ERR1+15, ERR1+16, ERR1+17, ERR1+18, ERR1+19, ERR1+20* , ERR1+21, ERR1+22, ERR1+23, ERR1+24, ERR1+25, ERR1+26, ERR1+27, ERR1+28, ERR1+29, ERR1+30 , ERR1+31, ERR1+33, ERR1+34, ERR1+35, ERR1+36, ERR1+37, ERR1+39, ERR1+40, ERR1+41, ERR1+42 , ERR2+5!, ERR2+9, ERR2+10, ERR2+13, ERR2+14, ERR2+15, ERR2+16, ERR2+17, ERR2+18, ERR2+19* , ERR2+20, ERR2+21, ERR2+22, ERR2+23, ERR2+24, ERR2+25, ERR2+26, ERR2+28, ERR2+29, ERR2+30 , ERR2+31, ERR2+32, ERR2+34, ERR2+35, ERR2+36, ERR2+37

Label References

Name	Line Occurrences
NOCLOCK	EN+5, EN+8, EN+10, EN+13, EN+14, EN+34, EN+36, EN+37
WRAP	ERR1+12, ERR2+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	VRSNCHK+9*
DFN	EN~, EN+5, EN+7, EN+9, EN+31, EN+33, INPT~, INPT+5, INPT+6, CCINPT~ , CCINPT+4, CCINPT+5, GETIEN~, GETIEN+3, GETIEN+4, GETIEN+11, GETIEN+12, ERR1+29, ERR2+24, EDTCLCK~ , EDTCLCK+2, EDTCLCK+3, EDTCLCK+7, EDTCLCK+8~
>> DIE	VRSNCHK+9*
>> DILOCKTM	VRSNCHK+8
>> DR	VRSNCHK+9*
DT	EN+37, INPT+4, GETIEN+10
DUZ	ERR1+43, ERR2+38
DUZ(2	EN+38
HDR	EDTCLCK+1~, EDTCLCK+8~, EDTCLCK+12, EDTCLCK+14
>> HLMSGIEN	EDTCLCK+12*, EDTCLCK+14
>> IB3513	ERR1+32, ERR2+27
>> IB3513(	ERR1+39, ERR2+34
>> IB3513(0	ERR1+33, ERR2+28
IB3513D	ERR1+2~, ERR1+38, ERR1+39, ERR2+2~, ERR2+33, ERR2+34
IB351IEN	VRSNCHK~, VRSNCHK+7, VRSNCHK+8, VRSNCHK+9, VRSNCHK+10, ERR1+28, ERR2+23, UDCL+1, UDCL+2, EDTCLCK+27
>> IB901	EN+18, EN+43, NOCLOCK+1*
>> IB902	EN+19, EN+44, NOCLOCK+1*
>> IB903	EN+20, EN+45, NOCLOCK+1*
>> IB904	EN+21, EN+46, NOCLOCK+1*
IBADM1	INPT+6, CCINPT+5, GETIEN~, GETIEN+3, GETIEN+7, GETIEN+10, GETIEN+15, EDTCLCK+6*, EDTCLCK+7
IBADMIT	EN+4, EN+30, INPT+3, INPT+4, INPT+6, INPT+7, CCINPT~, CCINPT+5, CCINPT+6, CCINPT+7* , EDTCLCK~, EDTCLCK+6
>> IBCKNUM	EN+25, EN+50, NOCLOCK+1*
>> IBCLDAU	ERR1+31, ERR2+26
>> IBCLDAY	EN+22, EN+47, NOCLOCK+1*
IBCLDT	EN+7, EN+15, EN+24, EN+30, EN+31, EN+40, EN+49, NOCLOCK+1, GETIEN+1~, GETIEN+5 , GETIEN+7, GETIEN+13*, GETIEN+15
>> IBCLNDT	EN+23, EN+24, EN+48, EN+49, NOCLOCK+1*
>> IBCNT	EDTCLCK+18*
IBCOL1	WRAP~
IBCOL2	WRAP~, WRAP+9, WRAP+10
IBCURIEN	EDTCLCK~
IBDA	GETIEN+1~, GETIEN+4, GETIEN+6, GETIEN+12, GETIEN+14
IBDAS	GETIEN+1~, GETIEN+4, GETIEN+12
IBDISCH	INPT+3, INPT+4, INPT+6, INPT+8, CCINPT+3, CCINPT+5, CCINPT+8, CCINPT+9, EDTCLCK+6*, EDTCLCK+8~
IBECADM	EN+4*, EN+7, EN+13, EN+36, EDTCLCK+1~
>> IBECARY(	EDTCLCK+21*
>> IBECDA	EDTCLCK+27*
IBECDT	EN+1~, EN+7*, EN+8, EN+9, EN+11, CLSDT~, CLSDT+2, CLSDT+5, CLSDT+6, EDTCLCK+1~
IBECDT1	EDTCLCK+1~
IBECENDT	EDTCLCK+1~
IBECERR	EDTCLCK+8~, EDTCLCK+26, EDTCLCK+27
IBECFDT	EN+1~, EN+30, EN+31, EN+32, EN+33, EN+35
IBECIEN	EDTCLCK+1~
IBECLDT	EN+1~, EN+11, EN+13, EN+35, EN+36, EN+37, CLSDT+1~, CLSDT+5, CLSDT+6, CLSDT+7 , EDTCLCK+1~
IBECNIEN	EDTCLCK+8~, EDTCLCK+27
IBECSTDT	EDTCLCK+1~
IBECSTP	EN+1~, EN+30*, EN+31
IBECVSN	VRSNCHK+1~, VRSNCHK+7*, VRSNCHK+12
IBECX	GETIEN+1~, GETIEN+3, GETIEN+4, GETIEN+5, GETIEN+11, GETIEN+12, GETIEN+13
>> IBERR	EN+2, EDTCLCK+13
IBERRMSG	ERR1~, ERR1+12, ERR2~, ERR2+11, EDTCLCK+13, EDTCLCK+18, EDTCLCK+25, EDTCLCK+27, EDTCLCK+28*
IBERROR	EN+16!, EN+38, EN+41!, NOCLOCK+2
>> IBERRS	ERR1+27, ERR2+22
>> IBFLAG1	EDTCLCK+2, EDTCLCK+3, EDTCLCK+11, EDTCLCK+12, EDTCLCK+25, EDTCLCK+29*
>> IBFR	CCINPT+6, CCINPT+8
IBFUTCL	GETIEN+1~, GETIEN+10*, GETIEN+11
IBICLDTS	ERR1+30, ERR2+25, EDTCLCK+8~
>> IBICNUM	EN+26, EN+51, NOCLOCK+1*
IBID	ERR1+26, ERR2+21, EDTCLCK+8~
IBIEN	EN+9, EN+10, EN+11, EN+14, EN+15, EN+17, EN+18, EN+19, EN+20, EN+21 , EN+22, EN+23, EN+27, EN+28, EN+33, EN+34, EN+35, EN+39, EN+40, EN+42 , EN+43, EN+44, EN+45, EN+46, EN+47, EN+48, EN+52, EN+53, NOCLOCK+1, GETIEN+1~ , GETIEN+2, GETIEN+3, GETIEN+4, GETIEN+6, GETIEN+7, GETIEN+8, GETIEN+11, GETIEN+14, GETIEN+15, GETIEN+16
IBIEN1	INPT+2~, INPT+6, CCINPT+2~, CCINPT+5
IBINST	EDTCLCK+1~, EDTCLCK+21*
IBL	ERR1+2~, ERR1+9, ERR1+10, ERR1+11, ERR1+14, ERR1+15, ERR1+16, ERR1+17, ERR1+18, ERR1+19* , ERR1+20, ERR1+21, ERR1+22, ERR1+23, ERR1+24, ERR1+25, ERR1+26, ERR1+27, ERR1+28, ERR1+29 , ERR1+30, ERR1+31, ERR1+33, ERR1+34, ERR1+35, ERR1+36, ERR1+37, ERR1+39, ERR1+40, ERR1+41 , ERR1+42, ERR2+2~, ERR2+8, ERR2+9, ERR2+10, ERR2+13, ERR2+14, ERR2+15, ERR2+16, ERR2+17* , ERR2+18, ERR2+19, ERR2+20, ERR2+21, ERR2+22, ERR2+23, ERR2+24, ERR2+25, ERR2+26, ERR2+28 , ERR2+29, ERR2+30, ERR2+31, ERR2+32, ERR2+34, ERR2+35, ERR2+36, ERR2+37
IBLEAP	CLSDT+1~, CLSDT+3, CLSDT+4, CLSDT+5, CLSDT+6
>> IBLIST("DILIST"	EDTCLCK+21
IBMES	EDTCLCK+1~, EDTCLCK+12*
IBMSG	EDTCLCK+8~, EDTCLCK+12, EDTCLCK+14, EDTCLCK+15
IBMSG("ACK BY	IEN" , EDTCLCK+12
IBMTHDAY	CLSDT+1~, CLSDT+2*, CLSDT+3, CLSDT+4
>> IBNGHTSK	INPT+4
>> IBOADMIT	INPT+7, CCINPT+7
>> IBODISCH	INPT+8, CCINPT+9
IBQRYDT	EDTCLCK+1~
IBREFNUM	EDTCLCK+1~
IBSADMIT	EDTCLCK+1~
IBSDISCH	EDTCLCK+1~
>> IBSEGT	EDTCLCK+15*, EDTCLCK+16, EDTCLCK+17, EDTCLCK+18
>> IBSTAT	EN+17, EN+42, NOCLOCK+1*
IBSTATION	INPT+3, CCINPT+3, EDTCLCK+1~, EDTCLCK+6, EDTCLCK+19, EDTCLCK+20
>> IBSTN	EN+27, EN+52, NOCLOCK+1*
IBTEXT	WRAP~, WRAP+8, WRAP+9, WRAP+11, WRAP+12, ERR1+2~, ERR1+12, ERR2+2~, ERR2+11*
IBTEXT(	WRAP+9, WRAP+11, ERR1+13, ERR1+14, ERR2+12, ERR2+13
IBTEXTO	WRAP+6~, WRAP+9, WRAP+10, WRAP+11, WRAP+12
>> IBTFL	EDTCLCK+3*
IBTRYTIL	EDTCLCK+1~, EDTCLCK+11*
IBVARRY	VRSNCHK+3, EDTCLCK+8~
IBVARRY(""	VRSNCHK+5, VRSNCHK+9, VRSNCHK+12
IBVARRY(";"	VRSNCHK+5
>> IBVRSN	EN+28, EN+53, NOCLOCK+1*
IBX	WRAP+6~, WRAP+7, WRAP+9, WRAP+11, ERR1+2~, ERR1+13, ERR1+14, ERR2+2~, ERR2+12, ERR2+13
IBYEAR	CLSDT+1~, CLSDT+2*, CLSDT+3, CLSDT+4
ICN	EDTCLCK+1~
>> IEN	NOCLOCK+1*
>> MSG("IEN"	EDTCLCK+12
SEG	EDTCLCK+8~, EDTCLCK+15, EDTCLCK+18, EDTCLCK+19
SEG("SEGMENT	TYPE" , EDTCLCK+15
U	EN+14, EN+15, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+39 , EN+40, EN+42, EN+43, EN+44, EN+45, EN+46, EN+47, EN+48, INPT+3, INPT+6 , CCINPT+3, CCINPT+5, EDTCLCK+6
XMDUZ	ERR1+2~, ERR1+43, ERR2+2~, ERR2+38
XMSUB	ERR1+2~, ERR1+7, ERR2+2~, ERR2+6
XMTEXT	ERR1+2~, ERR1+43, ERR2+2~, ERR2+38
XMY	ERR1+2~, ERR2+2~
XMY("G.IB PAT	IENT ACCUMULATOR" , ERR1+8, ERR2+7
XXX	EDTCLCK+8~, EDTCLCK+14*

Customize PDF page

Package: Integrated Billing