Routine: IBCNEDEQ

Information

IBCNEDEQ ;DAOU/ALA - Process eIV Transactions continued ; 21-AUG-2002

Package	Total	Call Graph
Integrated Billing	4	$$GETSSN^IBCNEDE5 (BUFF,SST)^IBCNEUT2 MSG^IBCNEUT5 TXT^IBCNEUT7
VA FileMan	3	FILE^DICN (,FILE)^DIE $$GET1^DIQ
Kernel	1	($$FMTE,$$NOW)^XLFDT

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

Package	Total	Caller Graph
Integrated Billing	6	IBCNEDE7 IBCNEDEP IBCNEHL3 IBCNEHLU IBCNERP3 IBCNERTQ

Entry Points

Name	Comments	DBIA/ICR reference
HLER	; HL7 Creation error message
CERR	; Communication Error Mail Message - No Retries defined
CERRQ
CERE	; Communication Error Mail Message - Exceeds Retries
CEREQ
SUB	; Create HL7 subrecord in TQ file
RESP	; Create Response Record
TMRR	; Communication Timeout message
SSN(DFN)	; Retrieve patient's ssn and return last 4 digits ; Subsequently added Date of Birth to display as well
GETDOB(DFN)	;
SCC	; If successfully creates an HL7 msg

External References

Name	Field # of Occurrence
FILE^DICN	SUB+15, RESP+17
^DIE	SUB+18, SUB+19, SCC+5
FILE^DIE	RESP+33
$$GET1^DIQ	RESP+24, RESP+25
$$GETSSN^IBCNEDE5	SSN+4
BUFF^IBCNEUT2	SCC+14
SST^IBCNEUT2	SCC+3
MSG^IBCNEUT5	HLER+19, CERR+21, CERE+19, RESP+41, TMRR+8
TXT^IBCNEUT7	HLER+17, CERR+19, CERE+17, TMRR+6
$$FMTE^XLFDT	GETDOB+4
$$NOW^XLFDT	SCC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBCN(365 - [#365]	Classic Fileman Calls
^IBCN(365.1 - [#365.1]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HLER+15, CERR+15, CERE+15, TMRR+4, GETDOB+3
^IBCN(365.1 - [#365.1]	SUB+13*, RESP+22
^IBE(365.12 - [#365.12]	HLER+15, CERR+15, CERE+15, TMRR+4

Label References

Name	Line Occurrences
$$GETDOB	SSN+5
$$SSN	HLER+15, CERR+15, CERE+15, TMRR+4
CEREQ	CERE+12
CERRQ	CERR+12
RESP	SCC+8
SUB	SCC+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUFF	RESP+22, SCC+14
DA	SUB+10~, SUB+19, RESP+13~, SCC+4
DA(1	SUB+11*
DD	SUB+14!, RESP+16!
DFN	HLER+15, CERR+15, CERE+15, RESP+20, TMRR+4, SSN~, SSN+2, SSN+4, SSN+5, GETDOB~ , GETDOB+1, GETDOB+3
DIC	SUB+10~, SUB+11, RESP+13~, RESP+15
DIC("P"	SUB+12, RESP+15
DIC(0	SUB+12, RESP+15
DIE	SUB+10~, SUB+11, RESP+13~, SCC+4
DIERR	RESP+32!
DLAYGO	SUB+10~, SUB+12, RESP+13~, RESP+15
DO	SUB+14!, SUB+16!, RESP+16!, RESP+18!
DOB	SSN+3~, SSN+5, SSN+6, SSN+7, SSN+9, SSN+10, GETDOB+2~, GETDOB+3, GETDOB+4, GETDOB+5
DR	SUB+18, SUB+21!, SCC+4
>> ERFLG	RESP+35*
ERR	RESP+13~, RESP+42!
ERR("DIERR"	RESP+34, RESP+36, RESP+37
>> FAIL	TMRR+3
>> FMSG	CERR+12, CERE+12
HIEN	SUB+17*, SUB+19, SUB+21!
HLRESLT	HLER+12*, HLER+13, HLER+20!, SCC+1
>> IEN	SUB+11, SUB+13, RESP+21, RESP+22, RESP+24, RESP+25, RESP+26, SCC+3, SCC+4
>> IHCNT	SCC+1*
MCT	RESP+35, RESP+37, RESP+39*, RESP+42!
MDTM	SUB+11, SUB+21!, RESP+27, SCC+1*
>> MGRP	HLER+19, CERR+21, CERE+19, RESP+41, TMRR+8
MSG	HLER+20!, CERR+22!, CERE+20!, TMRR+9!
MSG(	RESP+37, RESP+39
MSG(1	HLER+13, CERR+14, CERE+14, TMRR+3
MSG(2	HLER+14, CERR+15, CERE+15*
MSG(3	HLER+15, CERR+16, TMRR+4*
MSG(4	HLER+16, CERR+17
>> MSGID	RESP+15, SCC+1*
>> NRETR	SCC+2*
>> NTRAN	SCC+1*, SCC+2
>> PAYR	HLER+15, CERR+15, CERE+15, RESP+20, TMRR+4
RARRAY	RESP+13~
RARRAY(365	RESP+20, RESP+22, RESP+24, RESP+25, RESP+26, RESP+27, RESP+30*
RSIEN	SUB+21!, RESP+19*, RESP+20, RESP+22, RESP+24, RESP+25, RESP+26, RESP+27, RESP+30
>> RSTYPE	RESP+29, RESP+30, SCC+8
SSN	SSN+3~, SSN+4, SSN+6, SSN+7, SSN+8, SSN+10
>> TMSG	TMRR+1
U	HLER+12, HLER+15, CERR+15, CERE+15, RESP+22, TMRR+4, GETDOB+3, SCC+1
VEN	RESP+35, RESP+36, RESP+37, RESP+42!
X	SUB+10~, SUB+11, RESP+13~, RESP+15
XMSUB	HLER+18, HLER+19, HLER+20!, CERR+13, CERR+21, CERR+22!, CERE+13, CERE+19, CERE+20!, RESP+40 , RESP+41, TMRR+2*, TMRR+8, TMRR+9!
Y	SUB+10~, SUB+17, RESP+13~, RESP+19

Customize PDF page

Package: Integrated Billing