Routine: LA7CHLU3

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

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

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7CHLU3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: