| ARRAY |
Input |
ARRAY is an array containing the requesting codes of
the DSS LOINC CODES (#727.29) file.
|
TMP($J,"ECXUTL6",loinc-ck |
Output |
Output
^TMP($J,"EXCUTL6",LOINC-CK) =
zero node of file 727.29 pieces 1 thru 4
piece 1 := LOINC-CK (LOINC-check digit)
piece 2 := DSS lar test number
piece 3 := DSS test name
piece 4 := DSS Reporting units
piece 5 := LOINC name
piece 6 := pointer to LAB LOINC (#95.3) code entry
(delimited by "^")
-1 := not a valid loinc entry from file 727.29
-2 := no dss lar test number associated with loinc
Examples: >S ARRAY("718-7")="" >S ARRAY("719-8")=""
>D LOINC^ECXUTL6(.ARRAY)
>D ^%G
Device: Right margin: 80=>
Global ^TMP($J -- NOTE: translation in effect
^TMP(545452483,"ECXUTL6","718-7")=718-7^1^Hemoglobin^G/DL^Hgb Bld-mCnc^718
"719-8")=-1^no entry in DSS LOINC CODE (#727.29).
>S ARRAY("ALL")="" >D LOINC^ECXUTL6(.ARRAY)
>D ^%G
Global ^TMP($J -- NOTE: translation in effect
^TMP(545452483,"ECXUTL6","10535-3")=10535-3^7^Digoxin^NG/ML^Digoxin
SerPl-mCnc^10535
"10839-9")=10839-9^59^Troponin I^NG/ML^Troponin
I SerPl-mCnc^10839
"10900-9")=10900-9^33^Hepatitis B Surface
Antibody^NEG- POS NON-REACTIVE-REACTIVE ^HBV surface
Ab Ser Ql EIA^10900
"11011-4")=11011-4^37^HCV Quantitative by
PCR^IU/ML^HCV RNA SerPl PCR-a-Cnc^11011
"11218-5")=11218-5^32^Microalbumin (Random
Point)^MG/DL^Microalbumin Ur Qn Test Str^11218
"11259-9")=11259-9^39^HCV Qualitative by
PCR^NEG-POS^HCV RNA SerPl Ql PCR^11259
"11556-8")=11556-8^69^PO2^MM HG^pO2 Bld Qn^11556
"11557-6")=11557-6^70^PCO2^MM HG^pCO2 Bld
Qn^11557
"11579-0")=11579-0^24^Thyroid Stimulating
Hormone (TSH) ^MCU/ML^TSH SerPl DL=0.01 mU/L-aCnc^11579
|
