ECX3129P ;ALB/BP - ECX*3.0*129 Post-Init Rtn; 02/10/09
;;3.0;DSS EXTRACTS;**129**;Dec 22,1997;Build 8
;
POST ;
;Rename DSS Test Names for some LOINC Codes
D RNMLNC
;Remove LOINC Codes
D DELLNC
;Seed new LOINC Codes
D ADDLNC
Q
;
RNMLNC ;Rename DSS Test Names for LOINC Codes
N LOINC,ECXDTN,ECXLINE,ECXSTR,ECXIEN
D MES^XPDUTL(" ")
D MES^XPDUTL(" ")
D MES^XPDUTL(" Updating DSS Test Names... ")
D MES^XPDUTL(" ")
F ECXLINE=1:1 S ECXSTR=$P($T(RLOINC+ECXLINE),";;",2) Q:ECXSTR="EXIT" D
. S LOINC=$P(ECXSTR,"^",1)
. S ECXIEN=+$O(^ECX(727.29,"B",LOINC,0))
. S ECXDTN=$P(ECXSTR,"^",2)
. I ECXIEN D
.. N DIE,DA,DR
.. S DIE="^ECX(727.29,",DA=ECXIEN,DR=".03///"_ECXDTN
.. D ^DIE
Q
RLOINC ; LOINC CODE^DSS TEST NAME
;;30361-0^HIV Screening Antibody
;;31201-7^HIV Screening Antibody
;;7917-8^HIV Screening Antibody
;;7918-6^HIV Screening Antibody
;;7919-4^HIV Screening Antibody
;;29893-5^HIV Confirmatory Test
;;EXIT
Q
DELLNC ;Remove LOINC Codes
N LOINC,ENTRY,DA,DIK,ECXTN
D MES^XPDUTL(" ")
D MES^XPDUTL(" ")
D MES^XPDUTL(" Removing entries to DSS LOINC CODES File (#727.29)...")
D MES^XPDUTL(" ")
;
F LOINC="5199-5","44873-8","5221-7","5225-8","14092-1" S ENTRY=+$O(^ECX(727.29,"B",LOINC,0)) I ENTRY D
.S ECXTN=$$GET1^DIQ(727.29,ENTRY,".03")
.I LOINC="5199-5",ECXTN'="Hepatitis C Antibody" D Q
..D MES^XPDUTL(" ")
..D MES^XPDUTL(" Code "_LOINC_" not deleted from file")
..D MES^XPDUTL(" Patch may already have been installed, please verify ")
..D MES^XPDUTL(" ")
.I LOINC'="5199-5",ECXTN'="HIV Antibody" D Q
..D MES^XPDUTL(" ")
..D MES^XPDUTL(" Code "_LOINC_" not deleted from file")
..D MES^XPDUTL(" Patch may already have been installed, please verify ")
..D MES^XPDUTL(" ")
.S DA=ENTRY,DIK="^ECX(727.29," D ^DIK
Q
ADDLNC ;Add LOINC Codes
N ECXLINE,ECXSTR,ECXDA,CNT
D MES^XPDUTL(" ")
D MES^XPDUTL(" ")
D MES^XPDUTL(" Adding entries to DSS LOINC CODES File (#727.29)...")
D MES^XPDUTL(" ")
S CNT=0
N DIC,DIE,DA,DLAYGO,DR,X,Y,ECXLINE,ECXSTR,ECXDN,ECXDTN,ECXLN,ECXDRU
S DIC="^ECX(727.29,",DIC(0)="L",DLAYGO=727.29
F ECXLINE=1:1 S ECXSTR=$P($T(ALOINC+ECXLINE),";;",2) Q:ECXSTR="EXIT" D
. S X=$P(ECXSTR,"^",1)
. D ^DIC I Y<0 D Q
.. D BMES^XPDUTL("*****")
.. D MES^XPDUTL("Unsuccessful entry of LOINC Code - "_X_".")
.. D MES^XPDUTL("******")
. S CNT=CNT+1
. S ECXDN=$P(ECXSTR,"^",2)
. S ECXDTN=$P(ECXSTR,"^",3)
. S ECXDRU=$P(ECXSTR,"^",4)
. S ECXLN=$P(ECXSTR,"^",5)
. S DA=+Y,DR=".02///"_ECXDN_";.03///"_ECXDTN_";.04///"_ECXDRU_";.05///"_ECXLN
. S DIE=DIC D ^DIE
K DA,DIC,DIE,DLAYGO,X,Y
S DIK="^ECX(727.29,",DIK(1)=".02^AC" D ENALL^DIK
K DIK
Q
;
ALOINC ;LOINC CODE^LAR TEST #^DSS TEST NAME^REPORTING UNITS^LOINC NAME
;;48070-7^0033^Hepatitis B Surface Antibody^NEG-POS/NON-REAC-REAC^HBV surface IgG Ser Ql EIA
;;49177-9^0033^Hepatitis B Surface Antibody^NEG-POS/NON-REAC-REAC^HBV surface IgG Ser Ql
;;16129-9^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV IgG Ser Ql
;;22327-1^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser-aCnc
;;5198-7^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser EIA-aCnc
;;16936-7^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV IgG Ser-aCnc
;;40726-2^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV IgG Ser Ql EIA
;;47365-2^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser Donr Ql EIA
;;47441-1^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser Donr Ql
;;16975-5^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 IgG Ser Ql
;;21007-0^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Ser Donr Ql
;;29327-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Fld Ql
;;33807-9^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV2 IgG Ser Ql
;;33866-5^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab BldC Ql EIA
;;34591-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Fld Ql EIA
;;35437-3^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Saliva Ql EIA
;;40733-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 IgG Ser Ql EIA
;;41144-7^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Saliva Ql
;;41145-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab BldC Ql
;;43010-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab XXX Ql
;;42600-7^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab XXX Ql EIA
;;43009-0^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 IgG Ser Ql
;;44533-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab Ser Donr Ql
;;44607-0^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ser EIA-Imp
;;49580-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab XXX Ql Rapid
;;49905-3^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab XXX Ql Rapid
;;53379-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab XXX Ql
;;54086-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 IgG Bld.Dot Ql
;;10676-5^0037^HCV Quantitative by PCR^IU/ML^HCV RNA SerPl Amp Prb-aCnc
;;20416-4^0037^HCV Quantitative by PCR^IU/ML^HCV RNA # SerPl PCR
;;20571-6^0037^HCV Quantitative by PCR^IU/ML^HCV RNA # SerPl bDNA
;;49758-6^0037^HCV Quantitative by PCR^IU/ML^HCV RNA SerPl PCR DL=5-aCnc
;;50023-1^0037^HCV Quantitative by PCR^IU/ML^HCV RNA Pnl SerPl PCR
;;10351-5^0038^HIV Viral Load^COPIES/ML^HIV1 RNA SerPl Amp Prb-aCnc
;;24013-5^0038^HIV Viral Load^COPIES/ML^HIV1 RNA Ser-Imp
;;25836-8^0038^HIV Viral Load^COPIES/ML^HIV1 RNA # XXX PCR
;;5010-4^0039^HCV Qualitative by PCR^NEG-POS^HCV RNA Bld Ql PCR
;;14092-1^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Ser Ql IF
;;13499-9^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Patrn Ser IB-Imp
;;31073-0^0040^HIV Confirmatory Test^NEG-POS^HIV2 Ab Patrn Ser IB-Imp
;;32571-2^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Ur Ql IB
;;33806-1^0040^HIV Confirmatory Test^NEG-POS^HIV2 IgG Ser Ql IB
;;34592-6^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Fld Ql IB
;;35439-9^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Saliva Ql IB
;;40732-0^0040^HIV Confirmatory Test^NEG-POS^HIV1 IgG Ser Ql IB
;;43185-8^0040^HIV Confirmatory Test^NEG-POS^HIV 1 & 2 Ab Patrn Ser IB-Imp
;;44873-8^0040^HIV Confirmatory Test^NEG-POS^HIV1 +2 Ab Ser Ql IB
;;5221-7^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Ser Ql IB
;;5225-8^0040^HIV Confirmatory Test^NEG-POS^HIV2 Ab Ser Ql IB
;;22312-3^0041^Hepatitis A AB^NEG-POS^Hep A Ab Ser-aCnc
;;5183-9^0041^Hepatitis A AB^NEG-POS^Hep A AB Ser EIA-aCnc
;;5184-7^0041^Hepatitis A AB^NEG-POS^Hep A AB Ser RIA-aCnc
;;53776-1^0041^Hepatitis A AB^NEG-POS^HAV IgM+total Ser-Imp
;;5181-3^0042^Hepatitis A IgM AB^NEG-POS^Hep A IgM ser EIA-aCnc
;;32685-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser Ql
;;22316-4^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser-aCnc
;;5187-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser EIA-aCnc
;;47440-3^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser Donr Ql
;;40725-4^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser Ql EIA
;;51914-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG+IgM Ser Ql
;;13919-6^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser EIA-aCnc
;;21005-4^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser Donr EIA-aCnc
;;22317-2^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser Donr-aCnc
;;22318-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser-aCnc
;;5188-8^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser RIA-aCnc
;;29771-3^0055^Occult Blood, Fecal^NEG-POS^Occult Bld Stl Ql Imm
;;57905-2^0055^Occult Blood, Fecal^NEG-POS^Occult Bld sp1 Stl Ql Imm
;;56490-6^0055^Occult Blood, Fecal^NEG-POS^Occult Bld sp2 Stl Ql Imm
;;56491-4^0055^Occult Blood, Fecal^NEG-POS^Occult Bld sp3 Stl Ql Imm
;;26515-7^0077^Platelet Count^COUNT/VOLUME OR K/MM3^Platelet # Bld
;;777-3^0077^Platelet Count^COUNT/VOLUME OR K/MM3^Platelet # Bld Auto
;;5907-1^0077^Platelet Count^COUNT/VOLUME OR K/MM3^Deprecated Platelet # Bld Auto
;;14723-1^0078^Ferritin^NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Ser-sCnc
;;2276-4^0078^Ferritin^NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Ser-mCnc
;;24373-3^0078^Ferritin^NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Bld-mCnc
;;20567-4^0078^Ferritin^nl/NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Ser EIA-mCnc
;;4092-3^0079^Vancomycin, Trough^MCG/ML^Vancomycin Tr SerPl-mCnc
;;16935-9^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser-aCnc
;;21006-2^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser Donr EIA-aCnc
;;22323-0^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser Donr-aCnc
;;32019-2^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Titr Ser
;;5193-8^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser EIA-aCnc
;;5194-6^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser RIA-aCnc
;;47364-5^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Donr Ql EIA
;;50967-9^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Bld Donr Ql Nt
;;5195-3^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql
;;5196-1^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql EIA
;;5197-9^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql RIA
;;7905-3^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql Nt
;;24113-3^0082^Hepatitis B core antibody IgM^NEG-POS/NON-REAC-REAC^HBV core IgM Ser Ql EIA
;;31204-1^0082^Hepatitis B core antibody IgM^NEG-POS/NON-REAC-REAC^HBV core IgM Ser Ql
;;22319-8^0083^Hepatitis B core antibody IgM - Qt^MIU/ML^HBV core IgM Ser-aCnc
;;5185-4^0083^Hepatitis B core antibody IgM - Qt^MIU/ML^HBV core IgM Ser EIA-aCnc
;;5186-2^0083^Hepatitis B core antibody IgM - Qt^MIU/ML^HBV core IgM Ser RIA-aCnc
;;13953-5^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e Ab Ser Ql EIA
;;22320-6^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e Ab Ser Ql
;;33463-1^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e IgG Ser Ql EIA
;;41151-2^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e IgG Ser Ql
;;22321-4^0085^Hepatitis B e antibody - Qt^MIU/ML^HBV e Ab Ser-aCnc
;;5189-6^0085^Hepatitis B e antibody - Qt^MIU/ML^HBV e Ab Ser EIA-aCnc
;;5190-4^0085^Hepatitis B e antibody - Qt^MIU/ML^HBV e Ab Ser RIA-aCnc
;;11258-1^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser-aCnc
;;20442-0^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # Ser bDNA
;;23869-1^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser Prb-mCnc
;;29615-2^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # SerPl PCR
;;29900-8^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser bDNA-mCnc
;;32686-8^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser-mCnc
;;42595-9^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA SerPl PCR-aCnc
;;47216-7^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # SerPl PCR DL=200
;;48650-6^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # SerPl PCR DL=500
;;5007-0^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNA Bld Ql PCR
;;13126-8^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNA Bld Ql IB
;;16934-2^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNAp Bld Ql PCR
;;29610-3^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNA SerPl Ql PCR
;;32286-7^0088^Hepatitis C genotype^TEXT^HCV Gentyp SerPl PCR
;;48574-8^0088^Hepatitis C genotype^TEXT^HCV Gentyp Bld PCR
;;24011-9^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV Ab Patrn Ser IB-Imp
;;33462-3^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV IgG Ser Ql IB
;;34162-8^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV IgG Patrn Ser IB-Imp
;;5199-5^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV Ab Ser Ql IB
;;EXIT
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3129P 12032 printed Dec 13, 2024@01:49:46 Page 2
ECX3129P ;ALB/BP - ECX*3.0*129 Post-Init Rtn; 02/10/09
+1 ;;3.0;DSS EXTRACTS;**129**;Dec 22,1997;Build 8
+2 ;
POST ;
+1 ;Rename DSS Test Names for some LOINC Codes
+2 DO RNMLNC
+3 ;Remove LOINC Codes
+4 DO DELLNC
+5 ;Seed new LOINC Codes
+6 DO ADDLNC
+7 QUIT
+8 ;
RNMLNC ;Rename DSS Test Names for LOINC Codes
+1 NEW LOINC,ECXDTN,ECXLINE,ECXSTR,ECXIEN
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL(" ")
+4 DO MES^XPDUTL(" Updating DSS Test Names... ")
+5 DO MES^XPDUTL(" ")
+6 FOR ECXLINE=1:1
SET ECXSTR=$PIECE($TEXT(RLOINC+ECXLINE),";;",2)
if ECXSTR="EXIT"
QUIT
Begin DoDot:1
+7 SET LOINC=$PIECE(ECXSTR,"^",1)
+8 SET ECXIEN=+$ORDER(^ECX(727.29,"B",LOINC,0))
+9 SET ECXDTN=$PIECE(ECXSTR,"^",2)
+10 IF ECXIEN
Begin DoDot:2
+11 NEW DIE,DA,DR
+12 SET DIE="^ECX(727.29,"
SET DA=ECXIEN
SET DR=".03///"_ECXDTN
+13 DO ^DIE
End DoDot:2
End DoDot:1
+14 QUIT
RLOINC ; LOINC CODE^DSS TEST NAME
+1 ;;30361-0^HIV Screening Antibody
+2 ;;31201-7^HIV Screening Antibody
+3 ;;7917-8^HIV Screening Antibody
+4 ;;7918-6^HIV Screening Antibody
+5 ;;7919-4^HIV Screening Antibody
+6 ;;29893-5^HIV Confirmatory Test
+7 ;;EXIT
+8 QUIT
DELLNC ;Remove LOINC Codes
+1 NEW LOINC,ENTRY,DA,DIK,ECXTN
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL(" ")
+4 DO MES^XPDUTL(" Removing entries to DSS LOINC CODES File (#727.29)...")
+5 DO MES^XPDUTL(" ")
+6 ;
+7 FOR LOINC="5199-5","44873-8","5221-7","5225-8","14092-1"
SET ENTRY=+$ORDER(^ECX(727.29,"B",LOINC,0))
IF ENTRY
Begin DoDot:1
+8 SET ECXTN=$$GET1^DIQ(727.29,ENTRY,".03")
+9 IF LOINC="5199-5"
IF ECXTN'="Hepatitis C Antibody"
Begin DoDot:2
+10 DO MES^XPDUTL(" ")
+11 DO MES^XPDUTL(" Code "_LOINC_" not deleted from file")
+12 DO MES^XPDUTL(" Patch may already have been installed, please verify ")
+13 DO MES^XPDUTL(" ")
End DoDot:2
QUIT
+14 IF LOINC'="5199-5"
IF ECXTN'="HIV Antibody"
Begin DoDot:2
+15 DO MES^XPDUTL(" ")
+16 DO MES^XPDUTL(" Code "_LOINC_" not deleted from file")
+17 DO MES^XPDUTL(" Patch may already have been installed, please verify ")
+18 DO MES^XPDUTL(" ")
End DoDot:2
QUIT
+19 SET DA=ENTRY
SET DIK="^ECX(727.29,"
DO ^DIK
End DoDot:1
+20 QUIT
ADDLNC ;Add LOINC Codes
+1 NEW ECXLINE,ECXSTR,ECXDA,CNT
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL(" ")
+4 DO MES^XPDUTL(" Adding entries to DSS LOINC CODES File (#727.29)...")
+5 DO MES^XPDUTL(" ")
+6 SET CNT=0
+7 NEW DIC,DIE,DA,DLAYGO,DR,X,Y,ECXLINE,ECXSTR,ECXDN,ECXDTN,ECXLN,ECXDRU
+8 SET DIC="^ECX(727.29,"
SET DIC(0)="L"
SET DLAYGO=727.29
+9 FOR ECXLINE=1:1
SET ECXSTR=$PIECE($TEXT(ALOINC+ECXLINE),";;",2)
if ECXSTR="EXIT"
QUIT
Begin DoDot:1
+10 SET X=$PIECE(ECXSTR,"^",1)
+11 DO ^DIC
IF Y<0
Begin DoDot:2
+12 DO BMES^XPDUTL("*****")
+13 DO MES^XPDUTL("Unsuccessful entry of LOINC Code - "_X_".")
+14 DO MES^XPDUTL("******")
End DoDot:2
QUIT
+15 SET CNT=CNT+1
+16 SET ECXDN=$PIECE(ECXSTR,"^",2)
+17 SET ECXDTN=$PIECE(ECXSTR,"^",3)
+18 SET ECXDRU=$PIECE(ECXSTR,"^",4)
+19 SET ECXLN=$PIECE(ECXSTR,"^",5)
+20 SET DA=+Y
SET DR=".02///"_ECXDN_";.03///"_ECXDTN_";.04///"_ECXDRU_";.05///"_ECXLN
+21 SET DIE=DIC
DO ^DIE
End DoDot:1
+22 KILL DA,DIC,DIE,DLAYGO,X,Y
+23 SET DIK="^ECX(727.29,"
SET DIK(1)=".02^AC"
DO ENALL^DIK
+24 KILL DIK
+25 QUIT
+26 ;
ALOINC ;LOINC CODE^LAR TEST #^DSS TEST NAME^REPORTING UNITS^LOINC NAME
+1 ;;48070-7^0033^Hepatitis B Surface Antibody^NEG-POS/NON-REAC-REAC^HBV surface IgG Ser Ql EIA
+2 ;;49177-9^0033^Hepatitis B Surface Antibody^NEG-POS/NON-REAC-REAC^HBV surface IgG Ser Ql
+3 ;;16129-9^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV IgG Ser Ql
+4 ;;22327-1^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser-aCnc
+5 ;;5198-7^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser EIA-aCnc
+6 ;;16936-7^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV IgG Ser-aCnc
+7 ;;40726-2^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV IgG Ser Ql EIA
+8 ;;47365-2^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser Donr Ql EIA
+9 ;;47441-1^0034^Hepatitis C Antibody^NEG-POS/NON-REAC-REAC^HCV Ab Ser Donr Ql
+10 ;;16975-5^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 IgG Ser Ql
+11 ;;21007-0^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Ser Donr Ql
+12 ;;29327-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Fld Ql
+13 ;;33807-9^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV2 IgG Ser Ql
+14 ;;33866-5^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab BldC Ql EIA
+15 ;;34591-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Fld Ql EIA
+16 ;;35437-3^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Saliva Ql EIA
+17 ;;40733-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 IgG Ser Ql EIA
+18 ;;41144-7^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab Saliva Ql
+19 ;;41145-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab BldC Ql
+20 ;;43010-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab XXX Ql
+21 ;;42600-7^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab XXX Ql EIA
+22 ;;43009-0^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 IgG Ser Ql
+23 ;;44533-8^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab Ser Donr Ql
+24 ;;44607-0^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ser EIA-Imp
+25 ;;49580-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 Ab XXX Ql Rapid
+26 ;;49905-3^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab XXX Ql Rapid
+27 ;;53379-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 Ab XXX Ql
+28 ;;54086-4^0035^HIV Screening Antibody^NEG-POS/NON-REAC-REAC^HIV1 +2 IgG Bld.Dot Ql
+29 ;;10676-5^0037^HCV Quantitative by PCR^IU/ML^HCV RNA SerPl Amp Prb-aCnc
+30 ;;20416-4^0037^HCV Quantitative by PCR^IU/ML^HCV RNA # SerPl PCR
+31 ;;20571-6^0037^HCV Quantitative by PCR^IU/ML^HCV RNA # SerPl bDNA
+32 ;;49758-6^0037^HCV Quantitative by PCR^IU/ML^HCV RNA SerPl PCR DL=5-aCnc
+33 ;;50023-1^0037^HCV Quantitative by PCR^IU/ML^HCV RNA Pnl SerPl PCR
+34 ;;10351-5^0038^HIV Viral Load^COPIES/ML^HIV1 RNA SerPl Amp Prb-aCnc
+35 ;;24013-5^0038^HIV Viral Load^COPIES/ML^HIV1 RNA Ser-Imp
+36 ;;25836-8^0038^HIV Viral Load^COPIES/ML^HIV1 RNA # XXX PCR
+37 ;;5010-4^0039^HCV Qualitative by PCR^NEG-POS^HCV RNA Bld Ql PCR
+38 ;;14092-1^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Ser Ql IF
+39 ;;13499-9^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Patrn Ser IB-Imp
+40 ;;31073-0^0040^HIV Confirmatory Test^NEG-POS^HIV2 Ab Patrn Ser IB-Imp
+41 ;;32571-2^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Ur Ql IB
+42 ;;33806-1^0040^HIV Confirmatory Test^NEG-POS^HIV2 IgG Ser Ql IB
+43 ;;34592-6^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Fld Ql IB
+44 ;;35439-9^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Saliva Ql IB
+45 ;;40732-0^0040^HIV Confirmatory Test^NEG-POS^HIV1 IgG Ser Ql IB
+46 ;;43185-8^0040^HIV Confirmatory Test^NEG-POS^HIV 1 & 2 Ab Patrn Ser IB-Imp
+47 ;;44873-8^0040^HIV Confirmatory Test^NEG-POS^HIV1 +2 Ab Ser Ql IB
+48 ;;5221-7^0040^HIV Confirmatory Test^NEG-POS^HIV1 Ab Ser Ql IB
+49 ;;5225-8^0040^HIV Confirmatory Test^NEG-POS^HIV2 Ab Ser Ql IB
+50 ;;22312-3^0041^Hepatitis A AB^NEG-POS^Hep A Ab Ser-aCnc
+51 ;;5183-9^0041^Hepatitis A AB^NEG-POS^Hep A AB Ser EIA-aCnc
+52 ;;5184-7^0041^Hepatitis A AB^NEG-POS^Hep A AB Ser RIA-aCnc
+53 ;;53776-1^0041^Hepatitis A AB^NEG-POS^HAV IgM+total Ser-Imp
+54 ;;5181-3^0042^Hepatitis A IgM AB^NEG-POS^Hep A IgM ser EIA-aCnc
+55 ;;32685-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser Ql
+56 ;;22316-4^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser-aCnc
+57 ;;5187-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser EIA-aCnc
+58 ;;47440-3^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser Donr Ql
+59 ;;40725-4^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser Ql EIA
+60 ;;51914-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG+IgM Ser Ql
+61 ;;13919-6^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser EIA-aCnc
+62 ;;21005-4^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser Donr EIA-aCnc
+63 ;;22317-2^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser Donr-aCnc
+64 ;;22318-0^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core IgG Ser-aCnc
+65 ;;5188-8^0046^Hepatitis B Core AB^NEG-POS/NON-REAC-REAC^HBV core Ab Ser RIA-aCnc
+66 ;;29771-3^0055^Occult Blood, Fecal^NEG-POS^Occult Bld Stl Ql Imm
+67 ;;57905-2^0055^Occult Blood, Fecal^NEG-POS^Occult Bld sp1 Stl Ql Imm
+68 ;;56490-6^0055^Occult Blood, Fecal^NEG-POS^Occult Bld sp2 Stl Ql Imm
+69 ;;56491-4^0055^Occult Blood, Fecal^NEG-POS^Occult Bld sp3 Stl Ql Imm
+70 ;;26515-7^0077^Platelet Count^COUNT/VOLUME OR K/MM3^Platelet # Bld
+71 ;;777-3^0077^Platelet Count^COUNT/VOLUME OR K/MM3^Platelet # Bld Auto
+72 ;;5907-1^0077^Platelet Count^COUNT/VOLUME OR K/MM3^Deprecated Platelet # Bld Auto
+73 ;;14723-1^0078^Ferritin^NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Ser-sCnc
+74 ;;2276-4^0078^Ferritin^NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Ser-mCnc
+75 ;;24373-3^0078^Ferritin^NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Bld-mCnc
+76 ;;20567-4^0078^Ferritin^nl/NL/ML OR UG/L OR MOL/L OR NMOL/ML^Ferritin Ser EIA-mCnc
+77 ;;4092-3^0079^Vancomycin, Trough^MCG/ML^Vancomycin Tr SerPl-mCnc
+78 ;;16935-9^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser-aCnc
+79 ;;21006-2^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser Donr EIA-aCnc
+80 ;;22323-0^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser Donr-aCnc
+81 ;;32019-2^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Titr Ser
+82 ;;5193-8^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser EIA-aCnc
+83 ;;5194-6^0080^Hepatitis B Surface Antibody^MIU/ML^HBV surface Ab Ser RIA-aCnc
+84 ;;47364-5^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Donr Ql EIA
+85 ;;50967-9^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Bld Donr Ql Nt
+86 ;;5195-3^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql
+87 ;;5196-1^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql EIA
+88 ;;5197-9^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql RIA
+89 ;;7905-3^0081^Hepatitis B Surface Antigen^NEG-POS/NON-REAC-REAC^HBV surface Ag Ser Ql Nt
+90 ;;24113-3^0082^Hepatitis B core antibody IgM^NEG-POS/NON-REAC-REAC^HBV core IgM Ser Ql EIA
+91 ;;31204-1^0082^Hepatitis B core antibody IgM^NEG-POS/NON-REAC-REAC^HBV core IgM Ser Ql
+92 ;;22319-8^0083^Hepatitis B core antibody IgM - Qt^MIU/ML^HBV core IgM Ser-aCnc
+93 ;;5185-4^0083^Hepatitis B core antibody IgM - Qt^MIU/ML^HBV core IgM Ser EIA-aCnc
+94 ;;5186-2^0083^Hepatitis B core antibody IgM - Qt^MIU/ML^HBV core IgM Ser RIA-aCnc
+95 ;;13953-5^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e Ab Ser Ql EIA
+96 ;;22320-6^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e Ab Ser Ql
+97 ;;33463-1^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e IgG Ser Ql EIA
+98 ;;41151-2^0084^Hepatitis B e antibody^NEG-POS/NON-REAC-REAC^HBV e IgG Ser Ql
+99 ;;22321-4^0085^Hepatitis B e antibody - Qt^MIU/ML^HBV e Ab Ser-aCnc
+100 ;;5189-6^0085^Hepatitis B e antibody - Qt^MIU/ML^HBV e Ab Ser EIA-aCnc
+101 ;;5190-4^0085^Hepatitis B e antibody - Qt^MIU/ML^HBV e Ab Ser RIA-aCnc
+102 ;;11258-1^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser-aCnc
+103 ;;20442-0^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # Ser bDNA
+104 ;;23869-1^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser Prb-mCnc
+105 ;;29615-2^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # SerPl PCR
+106 ;;29900-8^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser bDNA-mCnc
+107 ;;32686-8^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA Ser-mCnc
+108 ;;42595-9^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA SerPl PCR-aCnc
+109 ;;47216-7^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # SerPl PCR DL=200
+110 ;;48650-6^0086^Hepatitis B virus DNA^COPIES/ML^HBV DNA # SerPl PCR DL=500
+111 ;;5007-0^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNA Bld Ql PCR
+112 ;;13126-8^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNA Bld Ql IB
+113 ;;16934-2^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNAp Bld Ql PCR
+114 ;;29610-3^0087^Hepatitis B virus DNA - QUAL^NEG-POS/NON-REAC-REAC^HBV DNA SerPl Ql PCR
+115 ;;32286-7^0088^Hepatitis C genotype^TEXT^HCV Gentyp SerPl PCR
+116 ;;48574-8^0088^Hepatitis C genotype^TEXT^HCV Gentyp Bld PCR
+117 ;;24011-9^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV Ab Patrn Ser IB-Imp
+118 ;;33462-3^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV IgG Ser Ql IB
+119 ;;34162-8^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV IgG Patrn Ser IB-Imp
+120 ;;5199-5^0089^Hepatitis C (RIBA)^NEG-POS/NON-REAC-REAC^HCV Ab Ser Ql IB
+121 ;;EXIT
+122 QUIT
+123 ;
