LA7VHLU6 ;DALOI/JMC - HL7 Code Sets utility ;08/10/16 13:30
Source file <LA7VHLU6.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
IEN2SCT(FILE,IEN,DATE,LA7ALT) | ; Return SCT code for a given file entry
; Call with FILE = file # ; IEN = internal entry number in FILE ; DATE = as of date ; LA7ALT = SNOMED CT ID to use as alternate |
|
SCT2IEN(CODE,TEXT,VERSION,FILE,LA76247,LA76248) | ; Return file ien for a given SNOMED CT code
; Call with CODE = SNOMED CT code ; TEXT = code text ; VERSION = code system version ; FILE = destination VistA file # (file where the SCT term resides) ; LA76247 = ien of concept to screen on ; LA76248 = related Lab Messaging configuration for non-standard code lookup (optional) ; used when code is only for a specific interface |
|
HL2LAH(CODE,TEXT,NCS,VERSION,LA76248,LA7SS) | ; Determine storage location for a code system sent in OBX-3
; Call with CODE = code id ; TEXT = code text ; NCS = name of coding system (LOINC, NLT, SCT, 99xxx, L) ; VERSION = code system version id ; LA76248 = related Lab Messaging configuration for non-standard code lookup (optional) ; used when code is only for a specific interface ; LA7SS = specific lab subscript to screen standard codes - used when same code used in multiple areas |
|
LAHOVR | ; Override HL2LAH concept code mapping.
|
|
ALCONCPT(LA76247) | ; Determine alternate concept for a concept
; Call with LA76247 = ien of concept |
|
PRID(CODE,NCS,LA764061) | ; Determine if a code represents the presence/absence or the identity of a concept in OBX-5
; Used to determine if identity of organism or presence/absence ; Call with CODE = code id ; NCS = name of coding system ; LA64061 = related Lab database code |
|
HL2VA(CODE,TEXT,NCS,VERSION,LA76247,LA76248) | ; Resolve code to internal VA file entry, used to resolve value of OBX-5 coded entry
; Call with CODE = code id ; NCS = name of coding system (SCT, 99xxx, L) ; TEXT = code text ; VERSION = code system version id ; LA76247 = ien of concept to screen on ; LA76248 = related Lab Messaging configuration for non-standard code lookup (optional) ; used when code is only for a specific interface |
|
SCT2KB(CODE,TEXT,NCS,VERSION) | ; Convert Susceptibility codes to local codes.
; Call with CODE = susceptibility code ; TEXT = code text ; NCS = name of coding system (SCT, 99xxx, L) ; VERSION = code system version id |
|
SCT2PSTG(CODE,TEXT,NCS,VERSION) | ; Convert Parasite Stage codes to local codes.
; Call with CODE = parasite stage code ; TEXT = code text ; NCS = name of coding system (SCT, 99xxx, L) ; VERSION = code system version id |
|
SCT2PN(CODE,TEXT,NCS,VERSION) | ; Convert Positive/Negative to local codes.
; Call with CODE = positive/negative ; TEXT = code text ; NCS = name of coding system (SCT, 99xxx, L) ; VERSION = code system version id |
FileNo | Call Tags |
---|---|
^LAB(64.061 - [#64.061] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB( | SCT2IEN+13, SCT2IEN+26 |
^LAB(62.06 - [#62.06] | HL2LAH+50 |
^LAB(62.47 - [#62.47] | HL2LAH+18, HL2LAH+19, HL2LAH+24, HL2LAH+29, HL2LAH+30, HL2LAH+35, HL2LAH+39, HL2LAH+44, HL2LAH+48, LAHOVR+3 , LAHOVR+4, ALCONCPT+7, HL2VA+18, HL2VA+22, HL2VA+34, HL2VA+38, HL2VA+40 |
^LAB(64.061 - [#64.061] | HL2LAH+22, HL2LAH+33, HL2LAH+42, LAHOVR+5, PRID+15, HL2VA+18, HL2VA+42 |
Name | Line Occurrences |
---|---|
$$PRID | HL2VA+28 |
$$SCT2IEN | HL2VA+30 |
$$SCT2KB | HL2VA+26 |
$$SCT2PN | HL2VA+27 |
LAHOVR | HL2LAH+24, HL2LAH+35, HL2LAH+44 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CODE | SCT2IEN~, SCT2IEN+13, HL2LAH~, HL2LAH+18, HL2LAH+19*, HL2LAH+20, HL2LAH+29, HL2LAH+30*, HL2LAH+31, HL2LAH+39 , HL2LAH+40, PRID~, HL2VA~, HL2VA+22, HL2VA+23, HL2VA+26, HL2VA+27, HL2VA+28, HL2VA+30, HL2VA+34 , HL2VA+36, SCT2KB~, SCT2KB+10, SCT2PSTG~, SCT2PSTG+10, SCT2PN~, SCT2PN+10 |
DA | HL2LAH+11~, HL2LAH+12*, HL2LAH+23*, HL2LAH+24, HL2LAH+34*, HL2LAH+35, HL2LAH+43*, HL2LAH+44, HL2LAH+48, LAHOVR+3 , HL2VA+13~, HL2VA+37*, HL2VA+38, HL2VA+40 |
DA(1 | HL2LAH+12*, HL2LAH+21*, HL2LAH+24, HL2LAH+32*, HL2LAH+35, HL2LAH+41*, HL2LAH+44, HL2LAH+48, LAHOVR+3 |
DATE | IEN2SCT~, IEN2SCT+16, IEN2SCT+28 |
DT | IEN2SCT+28, IEN2SCT+30 |
FILE | IEN2SCT~, IEN2SCT+9*, IEN2SCT+12, IEN2SCT+14, SCT2IEN~, SCT2IEN+13, SCT2IEN+26 |
IEN | IEN2SCT~, IEN2SCT+9*, IEN2SCT+14 |
LA76247 | SCT2IEN~, HL2LAH+11~, HL2LAH+12*, LAHOVR+3*, LAHOVR+4, LAHOVR+5, ALCONCPT~, ALCONCPT+7, HL2VA~, HL2VA+14* , HL2VA+15, HL2VA+18, HL2VA+22, HL2VA+23, HL2VA+26, HL2VA+30, HL2VA+34, HL2VA+36, HL2VA+38, HL2VA+40 |
LA76248 | SCT2IEN~, HL2LAH~, HL2LAH+38, HL2LAH+39, HL2LAH+40, HL2VA~, HL2VA+30, HL2VA+33, HL2VA+34, HL2VA+36 |
LA764 | HL2LAH+11~ |
LA764061 | HL2LAH+11~, HL2LAH+12*, HL2LAH+21*, HL2LAH+22, HL2LAH+32*, HL2LAH+33, HL2LAH+41*, HL2LAH+42, HL2LAH+47, HL2LAH+51 , HL2LAH+52, LAHOVR+4*, LAHOVR+5, PRID~, PRID+13, PRID+14, HL2VA+13~, HL2VA+18*, HL2VA+28, HL2VA+34* , HL2VA+37*, HL2VA+42 |
LA7ALT | IEN2SCT~, IEN2SCT+9*, IEN2SCT+13 |
LA7CNT | SCT2IEN+11~, SCT2IEN+12*, SCT2IEN+13*, SCT2IEN+19 |
LA7FIELD | IEN2SCT+8~, IEN2SCT+12*, IEN2SCT+14 |
LA7FILE | HL2VA+13~, HL2VA+16*, HL2VA+29*, HL2VA+30, HL2VA+40*, HL2VA+41 |
LA7HIER | HL2VA+13~, HL2VA+28*, HL2VA+29 |
LA7IEN | SCT2IEN+11~, SCT2IEN+12*, SCT2IEN+13*, SCT2IEN+24*, SCT2IEN+28*, SCT2IEN+30*, SCT2IEN+31*, SCT2IEN+34 |
LA7QUIT | SCT2IEN+20~, SCT2IEN+22*, SCT2IEN+23, SCT2IEN+25*, SCT2IEN+26*, SCT2IEN+27 |
LA7ROOT | HL2LAH+11~, HL2LAH+18*, HL2LAH+19*, HL2LAH+20, HL2LAH+21, HL2LAH+23, HL2LAH+24, HL2LAH+29*, HL2LAH+30*, HL2LAH+31 , HL2LAH+32, HL2LAH+34, HL2LAH+35, HL2LAH+39*, HL2LAH+40, HL2LAH+41, HL2LAH+43, HL2LAH+44, HL2VA+13~, HL2VA+22* , HL2VA+23, HL2VA+24, HL2VA+34*, HL2VA+35, HL2VA+36, HL2VA+37 |
LA7SCT | IEN2SCT+8~, IEN2SCT+29~ |
LA7SCT("F" | IEN2SCT+17, IEN2SCT+22, IEN2SCT+31 |
LA7SCT(0 | IEN2SCT+17, IEN2SCT+22, IEN2SCT+31 |
LA7SS | HL2LAH~, HL2LAH+12*, HL2LAH+17, HL2LAH+18, HL2LAH+19, HL2LAH+20 |
LA7X | IEN2SCT+8~, IEN2SCT+13*, IEN2SCT+14*, IEN2SCT+15, IEN2SCT+16, IEN2SCT+30, SCT2IEN+11~, SCT2IEN+12*, SCT2IEN+13*, SCT2IEN+22* , SCT2IEN+23*, SCT2IEN+24, SCT2IEN+25, SCT2IEN+26, SCT2IEN+28*, SCT2IEN+29*, SCT2IEN+30, SCT2IEN+31, HL2LAH+11~, HL2LAH+48* , HL2LAH+49, HL2LAH+50, PRID+8~, PRID+14*, PRID+15, HL2VA+13~ |
LA7Y | IEN2SCT+8~, IEN2SCT+9*, IEN2SCT+17*, IEN2SCT+18*, IEN2SCT+22*, IEN2SCT+24*, IEN2SCT+27*, IEN2SCT+31*, IEN2SCT+33, SCT2IEN+11~ , HL2LAH+11~, HL2LAH+12*, HL2LAH+21*, HL2LAH+22*, HL2LAH+24*, HL2LAH+28, HL2LAH+32*, HL2LAH+33*, HL2LAH+35*, HL2LAH+41* , HL2LAH+42*, HL2LAH+44*, HL2LAH+51*, HL2LAH+52*, HL2LAH+59, LAHOVR+5*, PRID+8~, PRID+9*, PRID+13*, PRID+15* , PRID+17, HL2VA+13~, HL2VA+18*, HL2VA+25*, HL2VA+26*, HL2VA+27*, HL2VA+30*, HL2VA+39*, HL2VA+41*, HL2VA+42* , HL2VA+44, SCT2KB+8~, SCT2KB+9*, SCT2KB+10*, SCT2KB+13*, SCT2KB+15, SCT2PSTG+8~, SCT2PSTG+9*, SCT2PSTG+10*, SCT2PSTG+11 , SCT2PN+8~, SCT2PN+9*, SCT2PN+10*, SCT2PN+13*, SCT2PN+15 |
LA7Y( | SCT2IEN+13*, SCT2IEN+23, SCT2IEN+25, SCT2IEN+26, SCT2IEN+29, SCT2IEN+30, SCT2IEN+31 |
LA7Z | IEN2SCT+8~, IEN2SCT+16*, IEN2SCT+17, IEN2SCT+18, IEN2SCT+19, IEN2SCT+20, IEN2SCT+21, IEN2SCT+23, IEN2SCT+25, IEN2SCT+26 , IEN2SCT+29~, IEN2SCT+30*, IEN2SCT+31 |
LACONCPT | ALCONCPT+5~, ALCONCPT+6*, ALCONCPT+7*, ALCONCPT+8 |
LOCAL | HL2LAH+11~, HL2LAH+13*, HL2VA+13~, HL2VA+17*, HL2VA+33 |
NCS | HL2LAH~, HL2LAH+13, HL2LAH+18, HL2LAH+19, HL2LAH+20, HL2LAH+29, HL2LAH+30, HL2LAH+31, HL2LAH+39, HL2LAH+40 , HL2LAH+56, PRID~, PRID+12, HL2VA~, HL2VA+17, HL2VA+21, HL2VA+22, HL2VA+23, HL2VA+26, HL2VA+27 , HL2VA+28, HL2VA+34, HL2VA+36, SCT2KB~, SCT2KB+10, SCT2KB+13, SCT2PSTG~, SCT2PSTG+10, SCT2PN~, SCT2PN+10 , SCT2PN+13 |
TEXT | SCT2IEN~, SCT2IEN+21*, SCT2IEN+26, HL2LAH~, HL2VA~, HL2VA+26, HL2VA+27, HL2VA+30, SCT2KB~, SCT2KB+13 , SCT2PSTG~, SCT2PN~, SCT2PN+13 |
VERSION | SCT2IEN~, HL2LAH~, HL2VA~, HL2VA+26, HL2VA+27, HL2VA+30, SCT2KB~, SCT2PSTG~, SCT2PN~ |
X | IEN2SCT+8~, IEN2SCT+23*, IEN2SCT+24, IEN2SCT+26*, IEN2SCT+27, HL2LAH+11~, HL2LAH+50*, HL2LAH+51, HL2LAH+52, HL2VA+13~ , HL2VA+24*, HL2VA+25, HL2VA+38*, HL2VA+39 |
Y | IEN2SCT+8~, HL2LAH+11~, HL2VA+13~ |