LA7VHLU3 ;VA/DALOI/JMC - HL7 Segment Utility ; 13-Aug-2013 09:09 ; MKK
Source file <LA7VHLU3.m>
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 |
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) |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LR - [#63] | PCENC+9 |
^LRO(68 - [#68] | PCENC+13 |
^LRO(69 - [#69] | PCENC+15 |
^TMP($J | NTE+40, NTE+41, 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* |
Name | Line Occurrences |
---|---|
$$UNESC | UNESCFT+18 |
HL70364 | NTE+40 |
>> | 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+54 |
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+41, NTE+42, NTE+44 |
LA7CTYPE | NTE+10~, NTE+12*, NTE+42*, NTE+44*, NTE+45*, NTE+46*, NTE+52 |
LA7ECH | NTE~, NTE+18, NTE+26, NTE+27, NTE+28, NTE+42, NTE+45, NTE+46, 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+42, NTE+45, NTE+54 |
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+54 |
LA7NTE(0 | NTE+48* |
LA7NTE(1 | NTE+49* |
LA7NTE(2 | NTE+50* |
LA7NTE(3 | NTE+51* |
LA7NTE(4 | NTE+52* |
LA7NTESN | NTE~, NTE+31*, NTE+49 |
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+51 |
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+50 |
LA7UID | PCENC+8~, PCENC+9*, PCENC+10, PCENC+11 |
LA7X | NTE+41*, NTE+42, NTE+45, 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 |