Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIUHL7U1

Package: Text Integration Utility

Routine: TIUHL7U1


Information

TIUHL7U1 ; SLC/AJB - TIUHL7 Utilities; March 23, 2005

Source Information

Source file <TIUHL7U1.m>

Call Graph

Call Graph

Call Graph Total: 21

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

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

Entry Points

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) ;

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All