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