- 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 Jan 18, 2025@02:50:59 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 ;