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 |