Routine: IBCE837I

Information

IBCE837I ;EDE/JWS - OUTPUT FOR 837 FHIR TRANSMISSION ;5/23/18 10:48am

Package	Total	Call Graph
Integrated Billing	5	GET^IBCE837H $$FT^IBCEF $$RECVR^IBCEF2 ($$TEST,$$TXMT)^IBCEF4 $$TESTPT^IBCEU
VA FileMan	4	DTNOLF^DICRW ^DIE ^DIK $$GET1^DIQ
Kernel	1	$$PROD^XUPROD
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: 10

Package	Total	Caller Graph
Integrated Billing	10	IBCB1 IBCE IBCE837 IBCE837H IBCE837K IBCE837L IBCE837N IBCE837S IBCE837T IBTAS 837 EDICLAIMS

Entry Points

Name	Comments	DBIA/ICR reference
RES(RES)	;Set resource name correctly
Q	;
FINISH	; enclose message in '[ ]' when a Bundle
END	; enclose message in '[ ]'
GET(RESULT,ARG)	;RPC - EDICLAIMS; get list of claims to transmit
TESTING	;
REC(REC)	;check to see which records are repeating
SETD	; update ^TMP global
UP	;increment CT
SETCLM(IBIEN,IBQ,RSUB)	; set the FHIR 837 claim for submission
SETSUB(IBIEN,IBVAL,IBFLD)	; clear the resubmission flag
TEST(IBIEN364)	; return test flag
REMCLM(IB364)	; clear the FHIR 837 claim for submission
REMCLM1(IB364)	;;JWS;IB2.0665v17;EBILL-2241;11/2/21;found at Miami; again at Miami 12/3/21 (similar at Tongus, Orlando, West Palm) - bad entry in 364 file
TEST608(IBIEN364)	;return claim test flag;flag only for conditional inclusion of COB info on claim data

External References

Name	Field # of Occurrence
DTNOLF^DICRW	GET+6
^DIE	SETCLM+8, SETSUB+6, REMCLM+4
^DIK	REMCLM1+5
$$GET1^DIQ	GET+10, TEST+2, TEST608+2
GET^IBCE837H	TESTING+6
$$FT^IBCEF	GET+23
$$RECVR^IBCEF2	GET+31
$$TEST^IBCEF4	GET+22, TEST+5, TEST608+4
$$TXMT^IBCEF4	GET+15
$$TESTPT^IBCEU	GET+25
$$SITE^VASITE	GET+30
$$PROD^XUPROD	SETCLM+5, TEST+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Resource Requested: " Variable: RESOURCE Timeout: 30 Line Location: TESTING+4
Function Call: WRITE	Prompt: ! Condition for execution: I=1 Line Location: TESTING+7
Function Call: WRITE	Prompt: RESULT(I) Line Location: TESTING+7
Routine Call	DIE Line Location: SETCLM+8 SETSUB+6 REMCLM+4

Used in RPC

RPC Name	Call Tags
IBTAS 837 EDICLAIMS	GET

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(364 - [#364]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	GET+14
^IBA(364 - [#364]	GET+11, SETCLM+4, TEST+3, TEST608+3
^TMP($J	GET+4!, GET+27, GET+29*

Label References

Name	Line Occurrences
$$REC	SETD+5
FINISH	GET+36
Q	RES+5, RES+6, RES+7, RES+8, RES+9, RES+10, RES+11, RES+12, RES+13, RES+14 , RES+15, RES+16, RES+17, RES+18, RES+19, RES+20
REMCLM	GET+17, GET+18, GET+19, GET+20, GET+25, GET+27
REMCLM1	GET+13
UP	SETD+2, SETD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARG	GET~, TESTING+6
ARG("IEN399"	TESTING+3*
ARG("RES"	TESTING+5*
CT	GET+3~, GET+7, GET+32, GET+34, SETD+5, SETD+7, UP+1*
D0	SETCLM+1~, SETSUB+1~, REMCLM+1~, REMCLM1+2~
DA	SETCLM+1~, SETCLM+2, SETCLM+4, SETSUB+1~, SETSUB+2, REMCLM+1~, REMCLM+2, REMCLM1+2~, REMCLM1+4
>> DATA	SETD+5
>> DATA1	SETD+5, SETD+7
DIC	SETCLM+1~, SETSUB+1~, REMCLM+1~, REMCLM1+2~
DIE	SETCLM+1~, SETCLM+7, SETSUB+1~, SETSUB+5, REMCLM+1~, REMCLM+3*, REMCLM1+2~
DIK	REMCLM1+2~, REMCLM1+5*
>> DONE	SETD+1*
DR	SETCLM+1~, SETCLM+7, SETSUB+1~, SETSUB+3, SETSUB+4, REMCLM+1~, REMCLM+3, REMCLM1+2~
DT	GET+30
DUZ	GET+3~
>> FILE	SETD+5
>> FLD	SETD+5
I	TESTING+2~, TESTING+7*
IB0	GET+3~, GET+14*, GET+18, GET+19, GET+20, GET+25, GET+27, GET+29, GET+30
IB364	REMCLM~, REMCLM+2, REMCLM1~, REMCLM1+3, REMCLM1+4
IB837R	GET+3~, GET+31*, GET+34
IBBTYP	GET+3~, GET+23*
IBDIV	GET+3~, GET+30*, GET+34
IBFLD	SETSUB~, SETSUB+3
IBGBL	GET+3~, GET+7*, GET+9
IBIEN	SETCLM~, SETCLM+2, SETSUB~, SETSUB+2
IBIEN364	TEST~, TEST+2, TEST+3, TEST608~, TEST608+2, TEST608+3
IBNF	GET+3~, GET+11, GET+15, TEST+3, TEST608+3*
IBNOTX	GET+3~, GET+15
IBQ	SETCLM~, SETCLM+5*, SETCLM+7
>> IBRECCT(	SETD+5
IBTEST	GET+3~, GET+10, GET+19, GET+22, TEST+1~, TEST+2, TEST+5, TEST608+1~, TEST608+2*, TEST608+4
IBTXST	GET+3~, GET+15*, GET+17
IBTXTEST	GET+3~, GET+22, GET+23, GET+25, GET+34, TEST+1~, TEST+5, TEST+7, TEST608+1~, TEST608+4* , TEST608+5
IBVAL	SETSUB~, SETSUB+3, SETSUB+4
IBX	GET+3~, GET+9*, GET+10, GET+11, GET+13, GET+17, GET+18, GET+19, GET+20, GET+25 , GET+27
IBXIEN	GET+3~, GET+11, GET+13, GET+14, GET+15, GET+22, GET+23, GET+31, GET+34, TEST+1~ , TEST+3, TEST+5, TEST608+1~, TEST608+3*, TEST608+4
MCNT	GET+3~, GET+9, GET+29*
>> NAME	SETD+5
REC	REC~, REC+1, REC+2
RES	RES~, RES+3, RES+5, RES+6, RES+7, RES+8, RES+9, RES+10, RES+11, RES+12 , RES+13, RES+14, RES+15, RES+16, RES+17, RES+18, RES+19, RES+20, RES+21*, Q+1 , FINISH+3
RESOURCE	TESTING+2~, TESTING+4*, TESTING+5
RESULT	GET~, TESTING+6
RESULT(	FINISH+6, FINISH+9, GET+32, GET+34, TESTING+7
RESULT("A"	FINISH+5, FINISH+8
RESULT(1	FINISH+2, FINISH+4, FINISH+7, END+2, END+3*
RSUB	SETCLM~, SETCLM+7
>> TASDATA	SETD+7
U	GET+19, GET+20, GET+23, GET+25, GET+27, GET+29, GET+30
X	FINISH+1~, FINISH+5, FINISH+6, FINISH+8, FINISH+9, END+1~
>> X1	SETD+5
>> XREC	SETD+5

Customize PDF page

Package: Integrated Billing