Print Page as PDF
LAB LOINC FILE (#95.3) API(S) ICR (5547)

LAB LOINC FILE (#95.3) API(S)    ICR (5547)

Name Value
NUMBER 5547
IA # 5547
DATE CREATED 2010/07/23
CUSTODIAL PACKAGE LEXICON UTILITY
USAGE Controlled Subscription
TYPE Routine
ROUTINE LEXLR
NAME LAB LOINC FILE (#95.3) API(S)
GENERAL DESCRIPTION
These API(s) support the custodial transition of the
LAB LOINC file (#95.3) from Legacy LAB to Standards and Terminology Services
(STS). These API(s) provide Read Access to the LAB LOINC file (#95.3) and
should be used when accessing the file. The API(s) support Legacy LAB's
encapsulation efforts and STS's LOINC Deployment efforts.
STATUS Pending
ID LEXLR
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$CHKCODE(LEXCODE)
Check if LOINC Code exists

Example:

>W $$CHKCODE^LEXLR("38553-4")

38553
VARIABLES TYPE VARIABLES DESCRIPTION
LEXCODE Input
LOINC Code
$$CHKCODE Output
LOINC File IEN or Null
$$GETCODE(LEXCIEN)
Get LOINC Code by IEN

Example:

>W $$GETCODE^LEXLR(38553)

38553-4
VARIABLES TYPE VARIABLES DESCRIPTION
LEXCIEN Input
LOINC file IEN
$$GETCODE Output
LOINC Code or Null
GETNAME(LEXINPT,LEXINTY,.LEXNAME)
Get LOINC Name Array by Code or IEN

Example:

>D GETNAME^LEXLR("38553-4",,.LEXNAME)
ZW LEXNAME
LEXNAME("FULLNAME")="NARCOLEPSY ASSOCIATED AG:ACNC:PT:SER/PLAS:ORD"
LEXNAME("SHORTNAME")="Narcolepsy Assoc Ag SerPl Ql"
VARIABLES TYPE VARIABLES DESCRIPTION
LEXINPT Input
LOINC Code or IEN
LEXINTY Input
Input Type (Optional- Default "C")
"C"=LOINC Code
"I"=LOINC IEN
LEXNAME Output
LOINC Name Array subscripts:
("FULLNAME")=Fully Specified Name field (#80)
("SHORTNAME")=Short Name filed (#81)
$$STATUS(LEXINPT,LEXINTY)
Get LOINC Code Status by Code or IEN

Example:

>W $$STATUS^LEXLR("38340-6")
1^DEL
VARIABLES TYPE VARIABLES DESCRIPTION
LEXINPT Input
LOINC Code or IEN
LEXINTY Input
Input Type (Optional- Default "C")
"C"=LOINC Code
"I"=LOINC IEN
$$STATUS Output
Internal^External Status or Null
GETREC(LEXINPT,LEXINTY,.LEXREC)
Get LOINC Record Array by Code or IEN

Example:

>D GETREC^LEXLR("38553-4",,.LEXREC)
ZW LEXREC
LEXREC("ADJUSTMENT")=""
LEXREC("CHALLENGE")=""
LEXREC("CHANGETYPE")="ADD"
LEXREC("CLASS")="SERO"
LEXREC("CLASSTYPE")="1^LABORATORY"
LEXREC("CODE")="38553-4"
LEXREC("COMPONENT")="NARCOLEPSY ASSOCIATED AG"
LEXREC("DATELASTCHANGED")="3041103^NOV 03, 2004"
LEXREC("EXAMPLEUNITS")=""
LEXREC("FULLNAME")="NARCOLEPSY ASSOCIATED AG:ACNC:PT:SER/PLAS:ORD"
LEXREC("MAPTO")=""
LEXREC("METHODTYPE")=""
LEXREC("PROPERTY")="ACNC"
LEXREC("SCALETYPE")="Ordinal"
LEXREC("SHORTNAME")="Narcolepsy Assoc Ag SerPl Ql"
LEXREC("STATUS")=""
LEXREC("SYSTEM")="SER/PLAS"
LEXREC("TIME")="POINT"
LEXREC("VACODE")=""
LEXREC("VUID")=4681780
VARIABLES TYPE VARIABLES DESCRIPTION
LEXINPT Input
LOINC Code or IEN
LEXINTY Input
Input Type (Optional- Default "C")
"C"=LOINC Code
"I"=LOINC IEN
LEXREC Output
LOINC Record Array subscripts:
RECORD("ADJUSTMENT")
RECORD("CHALLENGE")
RECORD("CHANGETYPE")
RECORD("CLASS")
RECORD("CLASSTYPE")
RECORD("CODE")
RECORD("COMPONENT")
RECORD("DATELASTCHANGED")
RECORD("EXAMPLEUNITS")
RECORD("FULLNAME")
RECORD("MAPTO")
RECORD("METHODTYPE")
RECORD("PROPERTY")
RECORD("SCALETYPE")
RECORD("SHORTNAME")
RECORD("STATUS")
RECORD("SYSTEM")
RECORD("TIME")
RECORD("VACODE")
RECORD("VUID")
$$VERSION()
Get LOINC Version

Example:

>W $$VERSION^LEXLR()
2.14
VARIABLES TYPE VARIABLES DESCRIPTION
$$VERSION Output
LOINC Version or Null
COMLST(LEXCOM,LEXARR)
Get List by Component

Example:

>D COMLST^LEXLR("VIRUS IDENTIFIED","LEXARRAY")
ZW LEXARRAY
LEXARRAY("10736-7")="VIRUS IDENTIFIED:PRID:PT:CSF:NOM:MICROSCOPY ELECTRON"
LEXARRAY("10737-5")="VIRUS IDENTIFIED:PRID:PT:STL:NOM:MICROSCOPY ELECTRON"
LEXARRAY("10738-3")="VIRUS IDENTIFIED:PRID:PT:TISS:NOM:MICROSCOPY ELECTRON"
LEXARRAY("10739-1")="VIRUS IDENTIFIED:PRID:PT:XXX:NOM:MICROSCOPY ELECTRON"
LEXARRAY("11484-3")="VIRUS IDENTIFIED:PRID:PT:AMN:NOM:VIRUS CULTURE"
LEXARRAY("12272-1")="VIRUS IDENTIFIED:PRID:PT:XXX:NOM:IF"
LEXARRAY("14451-9")="VIRUS IDENTIFIED:PRID:PT:EYE:NOM:VIRUS CULTURE"
LEXARRAY("14452-7")="VIRUS IDENTIFIED:PRID:PT:CVX:NOM:VIRUS CULTURE"
LEXARRAY("14453-5")="VIRUS IDENTIFIED:PRID:PT:GENV:NOM:VIRUS CULTURE"
LEXARRAY("14454-3")="VIRUS IDENTIFIED:PRID:PT:NOSE:NOM:VIRUS CULTURE"
LEXARRAY("14455-0")="VIRUS IDENTIFIED:PRID:PT:PLR:NOM:VIRUS CULTURE"
LEXARRAY("14456-8")="VIRUS IDENTIFIED:PRID:PT:PRT:NOM:VIRUS CULTURE"
LEXARRAY("14457-6")="VIRUS IDENTIFIED:PRID:PT:UR:NOM:VIRUS CULTURE"
LEXARRAY("14458-4")="VIRUS IDENTIFIED:PRID:PT:SPT:NOM:VIRUS CULTURE"
VARIABLES TYPE VARIABLES DESCRIPTION
LEXCOM Input
Component field (#100)
LEXARR Input
Component List Array (Full Global Reference)

Note: LEXARR is not initialized (ie KILLed) on input
The calling application is responsible for
initializing the array.
@LEXARR@(LEXCODE) Output
Component List Array

@LEXARRAY@(LEXCODE)=Fully Specified Name field (#80)
DEPLST(LEXARR)
Get Deprecated List

Example:

>D DEPLST^LEXLR("LEXARRAY")
ZW LEXARRAY  (Partial List Captured)
LEXARRAY("1009-0")="DIRECT ANTIGLOBULIN TEST.POLY SPECIFIC
REAGENT:ACNC:PT:RBC:ORD"
LEXARRAY("10356-4")="MICROSCOPIC OBSERVATION:PRID:PT:STL:NOM:TRICHROME
STAIN"
LEXARRAY("10440-6")="CD30 AG:ACNC:PT:TISS:ORD:IMMUNE STAIN"
LEXARRAY("1052-0")="I (INT) SUBTYPE:ACNC:PT:SER/PLAS~BPU:ORD:AGGL RBC"
LEXARRAY("1053-8")="I (INT) SUBTYPE:ACNC:PT:SER/PLAS~DONOR:ORD:AGGL RBC"
LEXARRAY("10532-0")="NORAMIODARONE:MCNC:PT:SER/PLAS:QN"
LEXARRAY("10537-9")="DOXEPIN+NORDOXEPIN:MCNC:PT:SER/PLAS:QN"
LEXARRAY("10538-7")="FLUOXETINE+NORFLUOXETINE:MCNC:PT:SER/PLAS:QN"
LEXARRAY("1054-6")="I (INT) SUBTYPE:ACNC:PT:SER:ORD:AGGL RBC"
LEXARRAY("1055-3")="I (INT) SUBTYPE:ACNC:PT:RBC~BPU:ORD:AGGL RBC"
LEXARRAY("10550-2")="TEMAZEPAM:MCNC:PT:SER/PLAS:QN"
LEXARRAY("10554-4")="ACID PHOSPHATASE.PROSTATIC:CCNC:PT:SMPLS:QN"
LEXARRAY("10556-9")="ADENOSINE TRIPHOSPHATASE:CCNC:PT:SMPLS:QN"
LEXARRAY("10559-3")="CALCIUM:SCNC:PT:SMPLS:QN"
LEXARRAY("1056-1")="I (INT) SUBTYPE:ACNC:PT:RBC~DONOR:ORD:AGGL RBC"
LEXARRAY("10566-8")="CHORIOGONADOTROPIN:SCNC:PT:SMPLS:QN"
LEXARRAY("1057-9")="I (INT) SUBTYPE:ACNC:PT:RBC~PATIENT:ORD:AGGL RBC"
LEXARRAY("10575-9")="GAMMA GLUTAMYL TRANSFERASE:CCNC:PT:SMPLS:QN"
LEXARRAY("10584-1")="PROTEIN:MCNC:PT:SMPLS:QN"
LEXARRAY("10595-7")="SPERMATOZOA:NCNC:PT:SMN:QN"
LEXARRAY("10682-3")="HIV 1 RNA:ACNC:PT:SER/PLAS:QN:PROBE AMP"
LEXARRAY("10816-7")="MICROSCOPIC OBSERVATION:PRID:PT:TISS:NOM:TOLUIDINE
BLUE O STAIN"
LEXARRAY("10820-9")="MICROSCOPIC OBSERVATION:PRID:PT:TISS:NOM:WARTHIN
STARRY STAIN"
LEXARRAY("10821-7")="MICROSCOPIC
OBSERVATION:PRID:PT:TISS:NOM:WRIGHT-GIEMSA"
LEXARRAY("10852-2")="FUNGUS IDENTIFIED:PRID:PT:BLD:NOM:ROUTINE FUNGAL
CULTURE"
LEXARRAY("10854-8")="MICROFILARIA SP
IDENTIFIED:PRID:PT:BLD:NOM:CONCENTRATION"
LEXARRAY("10890-2")="NORMETHSUXIMIDE:MCNC:PT:SER:QN"
LEXARRAY("10962-9")="ARTEMISIA TRIDENTATA AB.IGE:ACNC:PT:SER:QN"
LEXARRAY("11036-1")="ALDOLASE:CCNC:PT:RBC:QN"
LEXARRAY("11049-4")="HYDROXYPROLINE:MCNC:PT:UR:QN"
LEXARRAY("1109-8")="L LITTLE B:ACNC:PT:SER:ORD:AGGL RBC"
LEXARRAY("11123-7")="PROMYELOCYTES/100
LEUKOCYTES:NFR:PT:MAR:QN:MICROSCOPY"
VARIABLES TYPE VARIABLES DESCRIPTION
LEXARR Input
Deprecated List Array (Full Global Reference)

Note: LEXARR is not initialized (ie KILLed) on input
The calling application is responsible for
initializing the array.
@LEXARR@(LEXCODE) Output
Deprecated List Array

@LEXARR@(LEXCODE)=Fully Specified Name Field (#80)
SUBSCRIBING PACKAGE