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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LA7CHLU3

Package: Automated Lab Instruments

Routine: LA7CHLU3


Information

LA7CHLU3 ;VA/DALOI/JMC - HL7 Segment Utility ; 22-Oct-2013 09:22 ; MAW

Source Information

Source file <LA7CHLU3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Automated Lab Instruments 2 BUILDSEG^LA7VHLU  $$CHKDATA^LA7VHLU3  
Kernel 1 ($$REPLACE,$$TRIM)^XLFSTR  
Lab Service 1 $$CHECKUID^LRWU4  
Scheduling 1 LISTVST^SDOERPC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA7CORU1  

Entry Points

Name Comments DBIA/ICR reference
PCENC(LRDFN,LRSS,LRIDT) ; Find PCE encounter for an entry in file #63
SDENC(LA7PCE) ; Find SD Outpatient Encounter for an entry in file #63
HL70364 ; Build HL7 table 0364 - Comment Type
NTE(LA7ARRAY,LA7TXT,LA7TYP,LA7FS,LA7ECH,LA7NTESN,LA7CMTYP,LA7FMT) ; Build NTE segment - notes and comments
; Call with LA7ARRAY = array to return NTE segment, pass by reference
; LA7TXT = text to send (by value if format=0, by reference if format>0)
; LA7TYP = source of comment - HL table 0105 Default to L (ancilliary/filler)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA7NTESN = segment SET ID (pass by reference)
; LA7CMTYP = comment type code (HL table 0364)
; LA7FMT = format of text (0=single, 1=multi-line formatted text, 2=multi-line repetition)
CNVFLD(LA7IN,LA7ECH1,LA7ECH2) ; Convert an encoded HL7 segment/field from one encoding scheme to another
; Call with LA7IN = data to be converted
; LA7ECH1 = delimiters of input
; LA7ECH2 = delimiters of output
CHKDATA(LA7IN,LA7CH) ; Check data to be built into an HL7 field for characters that
; conflict with encoding characters. Convert conflicting character using HL7 escape encoding.
UNESCFT(LA7X,LA7CH,LA7Y) ; Unescape formatted text data using HL7 escape encoding
; Call with LA7X = array to decode (pass by reference)
; LA7CH = HL7 delimiters (both field separator & encoding characters)
UNESC(LA7X,LA7CH) ; Unescape data using HL7 escape encoding
; Call with LA7X = string to decode
; LA7CH = HL7 delimiters (both field separator & encoding characters)

External References

Name Field # of Occurrence
BUILDSEG^LA7VHLU NTE+56
$$CHKDATA^LA7VHLU3 NTE+18, NTE+26, NTE+43, NTE+46
$$CHECKUID^LRWU4 PCENC+11
LISTVST^SDOERPC SDENC+11
$$REPLACE^XLFSTR UNESC+15
$$TRIM^XLFSTR NTE+16, NTE+17, NTE+24, NTE+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] PCENC+9
^LRO(68 - [#68] PCENC+13
^LRO(69 - [#69] PCENC+15
^TMP($J NTE+41, NTE+42, HL70364+2*, HL70364+3*, HL70364+4*, HL70364+5*, HL70364+6*, HL70364+7*, HL70364+8*, HL70364+9*
, HL70364+10*, HL70364+11*, HL70364+12*, HL70364+13*, HL70364+14*, HL70364+15*, HL70364+16*, HL70364+17*, HL70364+18*, HL70364+19*
, HL70364+20*, HL70364+21*, HL70364+22*, HL70364+23*, HL70364+24*, HL70364+25*, HL70364+26*, HL70364+27*, HL70364+28*, HL70364+29*
, HL70364+30*, HL70364+31*

Label References

Name Line Occurrences
$$UNESC UNESCFT+18
HL70364 NTE+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
J CHKDATA+8~, CHKDATA+16*, CHKDATA+19*, CHKDATA+20, CNVFLD+7~, CNVFLD+22*, CNVFLD+27*, CNVFLD+28, UNESC+6~, UNESC+13*
, UNESCFT+6~, UNESCFT+8*, UNESCFT+10*, UNESCFT+11, UNESCFT+17*, UNESCFT+22, UNESCFT+23
K UNESCFT+6~, UNESCFT+12*, UNESCFT+13
LA7ARRAY NTE~, NTE+56
LA7CH CHKDATA~, CHKDATA+10*, CHKDATA+12, CHKDATA+15, CHKDATA+16, UNESC~, UNESC+9, UNESC+13, UNESC+15, UNESCFT~
, UNESCFT+8, UNESCFT+18
LA7CH( CHKDATA+16*, CHKDATA+21, UNESC+13*
LA7CMTYP NTE~, NTE+39*, NTE+40*, NTE+42, NTE+43, NTE+45
LA7CTYPE NTE+10~, NTE+12*, NTE+43*, NTE+45*, NTE+46*, NTE+47*, NTE+48*, NTE+54
LA7ECH NTE~, NTE+18, NTE+26, NTE+27, NTE+28, NTE+43, NTE+46, NTE+47, NTE+48, CNVFLD+7~
LA7ECH( CNVFLD+22*, CNVFLD+29, CNVFLD+30
LA7ECH1 CNVFLD~, CNVFLD+9*, CNVFLD+11, CNVFLD+14, CNVFLD+17, CNVFLD+22
LA7ECH2 CNVFLD~, CNVFLD+9*, CNVFLD+11, CNVFLD+14, CNVFLD+17, CNVFLD+19, CNVFLD+22, CNVFLD+29
LA7ENC PCENC+8~, PCENC+9*, PCENC+15*, PCENC+17, SDENC+6~, SDENC+8*, SDENC+9, SDENC+13*, SDENC+16
LA7ESC CHKDATA+8~, CHKDATA+15*, CHKDATA+21, CNVFLD+7~, CNVFLD+19*, CNVFLD+29, UNESC+6~, UNESC+9*, UNESC+10, UNESC+13
, UNESCFT+6~, UNESCFT+8*, UNESCFT+11, UNESCFT+14, UNESCFT+17
LA7FMT NTE~, NTE+12*, NTE+15, NTE+20, NTE+27, NTE+28
LA7FS NTE~, NTE+12*, NTE+18, NTE+26, NTE+43, NTE+46, NTE+56
LA7I NTE+21~, NTE+22*, NTE+23*, NTE+24, NTE+25, NTE+26, NTE+27, NTE+28, UNESCFT+6~, UNESCFT+8*
, UNESCFT+9*, UNESCFT+11, UNESCFT+12, UNESCFT+13, SDENC+9*
LA7IN CHKDATA~, CHKDATA+10*, CHKDATA+12, CHKDATA+19, CHKDATA+20, CNVFLD~, CNVFLD+9*, CNVFLD+11, CNVFLD+17, CNVFLD+27
, CNVFLD+28
LA7LEN CHKDATA+8~, CHKDATA+15*, CHKDATA+16
LA7NTE NTE+10~, NTE+56
LA7NTE(0 NTE+50*
LA7NTE(1 NTE+51*
LA7NTE(2 NTE+52*
LA7NTE(3 NTE+53*
LA7NTE(4 NTE+54*
LA7NTESN NTE~, NTE+31*, NTE+51
LA7OUT CHKDATA+8~, CHKDATA+10*, CHKDATA+12, CHKDATA+22*, CHKDATA+24, CNVFLD+7~, CNVFLD+9*, CNVFLD+11, CNVFLD+14, CNVFLD+31*
, CNVFLD+33
LA7PCE SDENC~, SDENC+9
LA7TEXT NTE+10~, NTE+12*, NTE+18*, NTE+27, NTE+28, NTE+53
LA7TEXT( NTE+27*, NTE+28*
LA7TXT NTE~, NTE+12*, NTE+16*, NTE+17*, NTE+18
LA7TXT( NTE+23, NTE+24*, NTE+25*, NTE+26*, NTE+27, NTE+28
LA7TYP NTE~, NTE+34*, NTE+52
LA7UID PCENC+8~, PCENC+9*, PCENC+10, PCENC+11
LA7X NTE+42*, NTE+43, NTE+46, UNESC~, UNESC+10, UNESC+15, UNESCFT~, PCENC+8~, PCENC+11*, PCENC+12
, PCENC+13, SDENC+6~, SDENC+9*, SDENC+11
LA7X( UNESCFT+9, UNESCFT+11, UNESCFT+12, UNESCFT+13
LA7Y UNESCFT~, UNESCFT+23*, PCENC+8~, PCENC+13*, PCENC+14, PCENC+15, SDENC+6~, SDENC+10!, SDENC+11, SDENC+12
, SDENC+14
LA7Y( UNESCFT+11*, UNESCFT+17*, UNESCFT+22*
LA7Z UNESCFT+6~, SDENC+6~, SDENC+12*, SDENC+13
LRDFN PCENC~, PCENC+9
LRIDT PCENC~, PCENC+9
LRODT PCENC+8~, PCENC+14*, PCENC+15
LRSN PCENC+8~, PCENC+14*, PCENC+15
LRSS PCENC~, PCENC+9
SAVX UNESCFT+6~, UNESCFT+8*, UNESCFT+17*, UNESCFT+18*, UNESCFT+21*, UNESCFT+22*
SAVY UNESCFT+6~, UNESCFT+8*, UNESCFT+11, UNESCFT+15*, UNESCFT+16*, UNESCFT+17, UNESCFT+18, UNESCFT+19*, UNESCFT+20*
X CHKDATA+8~, CHKDATA+20*, CHKDATA+21*, CHKDATA+22, CNVFLD+7~, CNVFLD+28*, CNVFLD+29*, CNVFLD+30*, CNVFLD+31
Z UNESCFT+6~, UNESCFT+13*, UNESCFT+14, UNESCFT+15, UNESCFT+16, UNESCFT+20, UNESCFT+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All