Routine: TIUHL7U1

Package	Total	Call Graph
Text Integration Utility	7	$$LU^TIUHL7U1 ES^TIUHL7U2 $$NOW^TIULC $$CANDO^TIULP $$ISA^TIULX ES^TIURS DELETE^TIUSRVP
Kernel	5	($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT ($$LOW,$$REPLACE,$$UP)^XLFSTR $$BASE^XLFUTL $$SETUP1^XQALERT DIV4^XUSER
Health Level Seven	4	$$GETAPP^HLCS2 INIT^HLFNC2 GENERATE^HLMA GENACK^HLMA1
VA Fileman	3	(,$$FIND1)^DIC ^DIE $$GET1^DIQ
Order Entry Results Reporting	2	VST1^ORWCV ADMITLST^ORWPT

Package	Total	Caller Graph
Text Integration Utility	4	TIUHL7P1 TIUHL7P2 TIUHL7P3 TIUHL7U1

Name	Comments	DBIA/ICR reference
GETDIV(USER)	;
MEMBEROF(TITLE,CLASS)	;
GETVISIT(DFN,TIUDT)	;
CLASS(CLNAME)	;
GETADMIT(DFN,TIUDT)	;
AUDIT(TIUDA,TIUCKSM0,TIUCKSM1)	; Update audit trail
CANEDIT(DA)	; check whether or not document is released
LU(FILE,NAME,FLAGS,SCREEN,INDEXES)	;
PNAME(NAME)	;
SIGNDOC(TIUDA)	;
DELDOC(TIUDA)	;
REMESC(TIUSTR)	; ; Remove Escape Characters from HL7 Message Text ; Escape Sequence codes: ; F = field separator (TIUFS) ; S = component separator (TIUCS) ; R = repitition separator (TIURS) ; E = escape character (TIUES) ; T = subcomponent separator (TIUSS)
CLEAN	; removes messages older than 7 days
ERR(TIUSEG,TIUP,TIUNUM,TIUTXT)	;
ACK(CODE,ERLOC,TIUDA)	;
COMPARE(NAME1,NAME2)	; compare first and last names only
SNDALRT(MSG)	;

Name	Field # of Occurrence
^DIC	AUDIT+2
$$FIND1^DIC	LU+1
^DIE	AUDIT+4
$$GET1^DIQ	ACK+19, GETDIV+3, SIGNDOC+9, SIGNDOC+17
$$GETAPP^HLCS2	SNDALRT+2
INIT^HLFNC2	ACK+20
GENERATE^HLMA	ACK+23
GENACK^HLMA1	ACK+24
VST1^ORWCV	GETVISIT+4
ADMITLST^ORWPT	GETADMIT+3
$$LU^TIUHL7U1	ACK+14, ACK+15, ACK+17
ES^TIUHL7U2	SIGNDOC+10
$$NOW^TIULC	AUDIT+3
$$CANDO^TIULP	SIGNDOC+6, SIGNDOC+14
$$ISA^TIULX	MEMBEROF+4
ES^TIURS	SIGNDOC+18
DELETE^TIUSRVP	DELDOC+2
$$FMADD^XLFDT	GETVISIT+4
$$FMDIFF^XLFDT	CLEAN+4
$$FMTE^XLFDT	GETADMIT+6
$$NOW^XLFDT	CLEAN+4
$$LOW^XLFSTR	ACK+17
$$REPLACE^XLFSTR	REMESC+10
$$UP^XLFSTR	ACK+17, REMESC+15
$$BASE^XLFUTL	REMESC+15
$$SETUP1^XQALERT	SNDALRT+7
DIV4^XUSER	GETDIV+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^HLCS(870 - [#870]	GET1^DIQ
^XTV(8989.3 - [#8989.3]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	CANEDIT+1, SIGNDOC+11, SIGNDOC+19
^TIU(8925.1 - [#8925.1]	CLASS+1, CLASS+2
^XTMP("TIUHL7"	CLEAN+3, CLEAN+4!

Name	Line Occurrences
$$CLASS	MEMBEROF+2
$$LU	MEMBEROF+3
DELDOC	SIGNDOC+4, SIGNDOC+21
ERR	GETADMIT+6, SIGNDOC+4, SIGNDOC+7, SIGNDOC+8, SIGNDOC+12, SIGNDOC+15, SIGNDOC+16, SIGNDOC+20
SNDALRT	ACK+7, ACK+14, ACK+15, ACK+18

Name	Field # of Occurrence
^(0	CLASS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLASS	MEMBEROF~, MEMBEROF+2*, MEMBEROF+4
CLNAME	CLASS~, CLASS+1
CODE	ACK~, ACK+2, ACK+4, ACK+8
DA	AUDIT+1~, AUDIT+4*, CANEDIT~, CANEDIT+1
DFN	GETADMIT~, GETADMIT+3, GETVISIT~, GETVISIT+4
DIC	AUDIT+1~, AUDIT+2*, AUDIT+3
DIC(0	AUDIT+2*
DIE	AUDIT+1~, AUDIT+3*
DLAYGO	AUDIT+1~, AUDIT+2*
DR	AUDIT+1~, AUDIT+3*
ERLOC	ACK~, ACK+6
ERR	DELDOC+1~, DELDOC+2
FILE	LU~, LU+1
FIRST	PNAME+1~, PNAME+2*, PNAME+3
FLAGS	LU~, LU+1
HL	ACK+11~, ACK+20
HL("EID"	ACK+24
HL("EIDS"	ACK+24
HL("FS"	ACK+2
HL("MID"	ACK+2, ACK+3
HL("RAN"	ACK+2, ACK+3
HL("SAN"	ACK+2, ACK+3, ACK+10
HLA	ACK+1~
HLA("HLA"	ACK+2, ACK+6, ACK+9*, ACK+12!, ACK+25
HLA("HLS"	ACK+10, ACK+12*
HLL	ACK+11~
HLL("LINKS"	ACK+22*
>> HLMTIENS	ACK+24
HLP	ACK+11~, ACK+23
HLP("SUBSCRIBER"	ACK+21*
I1	REMESC+8~, REMESC+11*, REMESC+17
I2	REMESC+8~, REMESC+12*, REMESC+13, REMESC+14
INDEXES	LU~, LU+1
J1	REMESC+8~, REMESC+13*, REMESC+15
J2	REMESC+8~, REMESC+14*, REMESC+17
K	REMESC+8~, REMESC+16*, REMESC+17
LAST	PNAME+1~, PNAME+2*, PNAME+3
MSG	SNDALRT~, SNDALRT+6
MSG("RECEIVER"	SNDALRT+2*, SNDALRT+3, SNDALRT+4
MSG("SENDER"	SNDALRT+2*, SNDALRT+3, SNDALRT+5
NAME	COMPARE+1~, LU~, LU+1, PNAME~, PNAME+2
NAME("F1"	COMPARE+4*, COMPARE+6
NAME("F2"	COMPARE+5*, COMPARE+6
NAME("L1"	COMPARE+4*, COMPARE+6
NAME("L2"	COMPARE+5*, COMPARE+6
NAME1	COMPARE~, COMPARE+3, COMPARE+4
NAME2	COMPARE~, COMPARE+3, COMPARE+5
RESULT	ACK+1~
SCREEN	LU~, LU+1
TITLE	MEMBEROF~, MEMBEROF+3*, MEMBEROF+4
>> TIU("AUDA"	SIGNDOC+6, SIGNDOC+9, SIGNDOC+10
>> TIU("AVAIL"	GETVISIT+7, GETVISIT+9, SIGNDOC+4, SIGNDOC+7, SIGNDOC+11, SIGNDOC+15, SIGNDOC+19
>> TIU("COMP"	SIGNDOC+2
>> TIU("CSDA"	SIGNDOC+14, SIGNDOC+17, SIGNDOC+18
>> TIU("CSIGNED"	SIGNDOC+3, SIGNDOC+13
>> TIU("EBDA"	AUDIT+3
>> TIU("EC"	ERR+1*, ERR+2, SIGNDOC+2
>> TIU("HLOC"	GETADMIT+8, GETADMIT+9, GETVISIT+8, GETVISIT+9
>> TIU("SIGNED"	SIGNDOC+3, SIGNDOC+5
>> TIU("SSN"	ACK+7
>> TIU("VSTR"	GETADMIT+7, GETADMIT+9, GETVISIT+7, GETVISIT+9
>> TIU("XTMP"	ACK+10, ACK+25
TIUACT	SIGNDOC+6~, SIGNDOC+14~
TIUAUTH	SIGNDOC+6~, SIGNDOC+7, SIGNDOC+14~, SIGNDOC+15
TIUCHR	REMESC+8~, REMESC+9*
TIUCKSM0	AUDIT~, AUDIT+3
TIUCKSM1	AUDIT~, AUDIT+3
TIUCNT	ACK+5~, ACK+6, GETADMIT+1~, GETADMIT+5, GETADMIT+6, GETADMIT+7, GETVISIT+1~, GETVISIT+2, GETVISIT+6*, GETVISIT+7
TIUCNT(	GETADMIT+5, GETADMIT+7, GETADMIT+9, GETVISIT+6, GETVISIT+7, GETVISIT+9
>> TIUCS	ACK+9, ACK+16, ERR+2, REMESC+9
TIUDA	ACK~, ACK+9, AUDIT~, AUDIT+2, DELDOC~, DELDOC+2, SIGNDOC~, SIGNDOC+4, SIGNDOC+6, SIGNDOC+10 , SIGNDOC+11, SIGNDOC+14, SIGNDOC+18, SIGNDOC+19, SIGNDOC+21
TIUDEL	SIGNDOC+1~, SIGNDOC+8, SIGNDOC+9, SIGNDOC+10, SIGNDOC+11, SIGNDOC+12, SIGNDOC+16, SIGNDOC+17, SIGNDOC+18, SIGNDOC+19 , SIGNDOC+20, SIGNDOC+21
TIUDNS	ACK+11~, ACK+16*, ACK+17
TIUDT	CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, GETADMIT~, GETADMIT+2, GETADMIT+5, GETADMIT+6, GETVISIT~, GETVISIT+3 , GETVISIT+4, GETVISIT+6
TIUES	REMESC+9, REMESC+11, REMESC+12, REMESC+13, REMESC+14, SIGNDOC+6~, SIGNDOC+9, SIGNDOC+10, SIGNDOC+14~, SIGNDOC+17 , SIGNDOC+18
TIUEVT	ACK+11~, ACK+13*, ACK+14, ACK+20, ACK+23
TIUFAC	ACK+11~, ACK+16*, ACK+21
>> TIUFS	ACK+9, ACK+16, ERR+2, REMESC+9
TIULIST	GETADMIT+1~, GETADMIT+3, GETADMIT+4, GETADMIT+5, GETADMIT+7, GETADMIT+9, GETVISIT+1~, GETVISIT+4, GETVISIT+5, GETVISIT+6 , GETVISIT+7, GETVISIT+9
TIULIST(	GETADMIT+5, GETADMIT+7, GETVISIT+6, GETVISIT+7, GETVISIT+9
TIULLNK	ACK+11~, ACK+18, ACK+19, ACK+22
TIULLNK(1	ACK+17*, ACK+18
TIULLNK(2	ACK+17*, ACK+18
TIUMID	ACK+1~, ACK+3*, ACK+7
>> TIUMSG(1	ACK+16
>> TIUNAME	ERR+2
TIUNUM	ERR~, ERR+2
TIUP	ERR~, ERR+2
TIUREC	ACK+1~, ACK+3*, SNDALRT+2
TIUREP	REMESC+8~, REMESC+10
TIUREP(	REMESC+9*
>> TIURS	REMESC+9
>> TIURSLT	ACK+23, ACK+24
TIUSEG	ERR~, ERR+2
TIUSND	ACK+1~, ACK+3*, ACK+7, ACK+14, ACK+15, ACK+18, SNDALRT+2
>> TIUSS	REMESC+9
TIUSTAT	SIGNDOC+6~, SIGNDOC+11, SIGNDOC+14~, SIGNDOC+19
TIUSTR	REMESC~, REMESC+10, REMESC+11, REMESC+12, REMESC+17, REMESC+18
TIUSUB	ACK+11~, ACK+13*, ACK+15, ACK+22
TIUTXT	ERR~, ERR+2
TIUX	COMPARE+1~
TIUY	CLASS+1~, CLASS+2, CLASS+3, COMPARE+1~, COMPARE+2, COMPARE+3, COMPARE+6, COMPARE+7, GETADMIT+1~, GETADMIT+2 , GETADMIT+7, GETADMIT+9, GETADMIT+10, GETDIV+1~, GETDIV+2, GETDIV+3, GETDIV+4, GETVISIT+1~, GETVISIT+2, GETVISIT+3 , GETVISIT+7, GETVISIT+9, GETVISIT+10, MEMBEROF+1~, MEMBEROF+2, MEMBEROF+3, MEMBEROF+4*, MEMBEROF+5
TIUY(	GETDIV+2
U	ACK+22, SNDALRT+2, CANEDIT+1, CLASS+2, GETADMIT+5, GETADMIT+7, GETADMIT+9, GETVISIT+6, GETVISIT+7, GETVISIT+9 , SIGNDOC+7, SIGNDOC+9, SIGNDOC+11, SIGNDOC+15, SIGNDOC+17, SIGNDOC+19
USER	GETDIV~, GETDIV+2
VALUE	REMESC+8~, REMESC+15*, REMESC+16
X	AUDIT+1~, AUDIT+2*
XQA	SNDALRT+1~
XQA("G."	SNDALRT+4, SNDALRT+5
XQAMSG	SNDALRT+1~, SNDALRT+6*
Y	AUDIT+1~, AUDIT+2, AUDIT+4

Customize PDF page

Package: Text Integration Utility

Routine: TIUHL7U1

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: