Routine: IBTRHLU

Caller Graph

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Integrated Billing	1	IBTRHLI1

Name	Comments	DBIA/ICR reference
SPAR	; **Segment Parsing
LP	;**
CLNSTR(STRING,CHARS,SUBSEP)	;** Remove extra trailing components and subcomponents in the HL7 seg
RTRIMCH(STR,CHRS)	;** Remove the trailing chars from string

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	SPAR+17, SPAR+19, SPAR+20

Name	Field # of Occurrence
CHARS	CLNSTR~, CLNSTR+2, CLNSTR+5
CHRS	RTRIMCH~, RTRIMCH+2*, RTRIMCH+3, RTRIMCH+4
>> HCT	SPAR+17, SPAR+19, SPAR+20
>> HL("ECH"	LP+4
>> HLFS	SPAR+20, SPAR+21, LP+4, LP+6
IBSEG	SPAR+14!
IBSEG(	LP+4*
IBSEG(0	LP+5
IBSEG(1	LP+5*
II	SPAR+11~, SPAR+16, LP+4, LP+5*
IJ	SPAR+11~, LP+3*, LP+4
IK	SPAR+11~
IM	SPAR+11~, SPAR+23, LP+1, LP+2
IS	SPAR+11~, SPAR+16, SPAR+18, SPAR+19, SPAR+20, SPAR+21, LP+1
ISBEG	SPAR+11~
ISCT	SPAR+11~, SPAR+16, SPAR+17, SPAR+19, SPAR+20
ISDATA	SPAR+11~
ISDATA(	SPAR+19, SPAR+20, SPAR+21, LP+2
ISEND	SPAR+11~
ISPEC	SPAR+11~
ISPEC(	SPAR+21*, LP+2
L	RTRIMCH+1~, RTRIMCH+2*, RTRIMCH+4, RTRIMCH+5
LSDATA	SPAR+11~, SPAR+23, LP+2, LP+4, LP+6*
NPC	SPAR+11~, LP+2*, LP+3, LP+6
NUMPEC	CLNSTR+1~, CLNSTR+4*, CLNSTR+5
PEC	CLNSTR+1~, CLNSTR+5*
R	RTRIMCH+1~, RTRIMCH+3*, RTRIMCH+4, RTRIMCH+5
RTSTRING	CLNSTR+1~, CLNSTR+2, CLNSTR+4, CLNSTR+5, CLNSTR+6
STR	RTRIMCH~, RTRIMCH+3, RTRIMCH+4*, RTRIMCH+5
STRING	CLNSTR~, CLNSTR+2
SUBSEP	CLNSTR~, CLNSTR+4, CLNSTR+5