BQITAXXP.m

BQITAXXP ;GDIT/HS/ALA-Taxonomy Update ; 28 Jan 2014  7:36 AM

 ;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27

 ;

 ;

EN ;EP

 S PRE="BQI",NAME=PRE

 F  S NAME=$O(^ATXAX("B",NAME)) Q:NAME=""!($E(NAME,1,3)'=PRE)  D

 . S TYIEN=""

 . F  S TYIEN=$O(^ATXAX("B",NAME,TYIEN)) Q:TYIEN=""  D

 .. S TAX=$P(^ATXAX(TYIEN,0),"^",1),FNBR=$P(^ATXAX(TYIEN,0),"^",15)

 .. S POP=$S(FNBR=50:1,1:"")

 .. D FCAT^BQITAXX5(TYIEN_";ATXAX(")

 .. S CAT=$$STCC^BQIUL2(90508.03,.03,CAT),ID=$$STCC^BQIUL2(90508.03,.05,ID)

 .. S Z(TAX)=TAX_"^^"_CAT_"^"_POP_"^"_ID

 Q

 ;

TX ;

 ;;BQI ALCOHOL PROCEDURES^^3^^PR

 ;;BQI ALCOHOL SCREEN DXS^^1^^DX

 ;;BQI ALT/AST/GGT TEST LOINC^^5^^T

 ;;BQI ANTHRAX DXS^^1^^DX

 ;;BQI BOTULISM DXS^^1^^DX

 ;;BQI BOTULISM OTHER DXS^^1^^DX

 ;;BQI BRUCELLOSIS DXS^^1^^DX

 ;;BQI C.TRACH DNA QUANT LOINC^^5^^T

 ;;BQI C.TRACH NON-SPECIFIC LOINC^^5^^T

 ;;BQI C.TRACH SPECIFIC LOINC^^5^^T

 ;;BQI CALIF SEROGROUP DXS^^1^^DX

 ;;BQI CHART REVIEW DXS^^1^^DX

 ;;BQI CHLAMYDIA RELATED DXS^^1^^DX

 ;;BQI CHLAMYDIA SCREEN DXS^^1^^DX

 ;;BQI CHOLERA DXS^^1^^DX

 ;;BQI CRYPTOSPORIDIOSIS DXS^^1^^DX

 ;;BQI CYCLOSPORIASIS DXS^^1^^DX

 ;;BQI DEPRESSION SCREEN DXS^^1^^DX

 ;;BQI DIPHTHERIA DXS^^1^^DX

 ;;BQI EAST EQUINE ENCEPH DXS^^1^^DX

 ;;BQI EHRLICHIOSIS DXS^^1^^DX

 ;;BQI EKG PROCEDURES^^3^^PR

 ;;BQI ESRD DXS^^1^^DX

 ;;BQI ESRD PROCEDURES^^3^^PR

 ;;BQI EYE EXAM DXS^^1^^DX

 ;;BQI EYE EXAM PROCS^^3^^PR

 ;;BQI FLU IZ DXS^^1^^DX

 ;;BQI FLU IZ PROCEDURES^^3^^PR

 ;;BQI GIARDIA DXS^^1^^DX

 ;;BQI GONORRHEA DXS^^1^^DX

 ;;BQI H1N1 DELIVERY PROC^^3^^PR

 ;;BQI H1N1 DXS^^1^^DX

 ;;BQI HANTAVIRUS DXS^^1^^DX

 ;;BQI HEMO UREMIC SYND DXS^^1^^DX

 ;;BQI HEP A TESTS LOINC^^5^^T

 ;;BQI HEP B CORE TEST LOINC^^5^^T

 ;;BQI HEP B QUAL TEST LOINC^^5^^T

 ;;BQI HEP B QUANT TEST LOINC^^5^^T

 ;;BQI HEP C QUAL TEST LOINC^^5^^T

 ;;BQI HEP C QUANT TEST LOINC^^5^^T

 ;;BQI HIB CULTURE TEST LOINC^^5^^T

 ;;BQI HIB EVIDENCE DXS^^1^^DX

 ;;BQI HIB QUAL TEST LOINC^^5^^T

 ;;BQI HIB QUANT TEST LOINC^^5^^T

 ;;BQI HIV AB QUAL SCREEN LOINC^^5^^T

 ;;BQI HIV AB QUANT SCREEN LOINC^^5^^T

 ;;BQI HIV ID SPEC CONFIRM LOINC^^5^^T

 ;;BQI HIV QUAL ANTIGEN LOINC^^5^^T

 ;;BQI HIV QUAL CONFIRM LOINC^^5^^T

 ;;BQI HIV QUAL NUC ACID LOINC^^5^^T

 ;;BQI HIV QUANT ANTIGEN LOINC^^5^^T

 ;;BQI HIV QUANT CONFIRM LOINC^^5^^T

 ;;BQI HIV QUANT NUC ACID LOINC^^5^^T

 ;;BQI HIV VIROLOGIC TEST LOINC^^5^^T

 ;;BQI HYPERLIPIDEMIA DXS^^1^^DX

 ;;BQI IHD DXS^^1^^DX

 ;;BQI ILI NO TMP NEEDED DXS^^1^^DX

 ;;BQI INFLUENZA DXS^^1^^DX

 ;;BQI KNOWN CVD-1 CPTS^^2^^C

 ;;BQI KNOWN CVD-1 DXS^^1^^DX

 ;;BQI KNOWN CVD-1 PROCEDURES^^3^^PR

 ;;BQI KNOWN CVD-MULT CPTS^^2^^C

 ;;BQI KNOWN CVD-MULT DXS^^1^^DX

 ;;BQI KNOWN CVD-MULT PROCEDURES^^3^^PR

 ;;BQI LEGIONNAIRE DXS^^1^^DX

 ;;BQI LEPROSY DXS^^1^^DX

 ;;BQI LISTERIOSIS DXS^^1^^DX

 ;;BQI LYME DXS^^1^^DX

 ;;BQI MALARIA DXS^^1^^DX

 ;;BQI MEASLES ID SPEC TEST LOINC^^5^^T

 ;;BQI MEASLES QUAL TEST LOINC^^5^^T

 ;;BQI MEASLES QUAN TEST LOINC^^5^^T

 ;;BQI MENINGITIS DXS^^1^^DX

 ;;BQI MENINGITIS ID SPEC LOINC^^5^^T

 ;;BQI MENINGITIS QUAL TEST LOINC^^5^^T

 ;;BQI MENINGITIS QUAN LOINC^^5^^T

 ;;BQI MMR IZ CVX CODES^^6^^O

 ;;BQI MUMPS DXS^^1^^DX

 ;;BQI MYCOBACT TB CULT LOINC^^5^^T

 ;;BQI NEPHROPATHY DXS^^1^^DX

 ;;BQI NEPHROPATHY PROCEDURES^^3^^PR

 ;;BQI NEUROSYPHILIS DXS^^1^^DX

 ;;BQI PAP PROCEDURES^^3^^PR

 ;;BQI PCI-PTCA DXS^^1^^DX

 ;;BQI PCI-PTCA PROCEDURES^^3^^PR

 ;;BQI PERTUSSIS DXS^^1^^DX

 ;;BQI PLAGUE DXS^^1^^DX

 ;;BQI PNEUMO IZ DXS^^1^^DX

 ;;BQI PNEUMO IZ PROCEDURES^^3^^PR

 ;;BQI PNEUMOCOCCAL DXS^^1^^DX

 ;;BQI POLIO NONPARALYTIC DXS^^1^^DX

 ;;BQI POLIO PARALYTIC DXS^^1^^DX

 ;;BQI POWASSEN DXS^^1^^DX

 ;;BQI PPD DIAMETER LOINC^^5^^T

 ;;BQI PREGNANCY DXS^^1^^DX

 ;;BQI PSITTACOSIS DXS^^1^^DX

 ;;BQI Q FEVER DXS^^1^^DX

 ;;BQI RABIES DXS^^1^^DX

 ;;BQI ROCKEY MTN FEVER DXS^^6^^O

 ;;BQI RUBELLA CONGEN DXS^^1^^DX

 ;;BQI RUBELLA DXS^^1^^DX

 ;;BQI S PNEUM CULTURE TEST LOINC^^5^^T

 ;;BQI S PNEUM SUSCEPT TEST LOINC^^5^^T

 ;;BQI SALMONELLA DXS^^1^^DX

 ;;BQI SARS DXS^^6^^O

 ;;BQI SHIGA E COLI DXS^^6^^O

 ;;BQI SHIGELLA DXS^^6^^O

 ;;BQI SMALLPOX DXS^^6^^O

 ;;BQI ST LOUIS ENCEPH DXS^^1^^DX

 ;;BQI STATIN MEDS CLASS^^6^^O

 ;;BQI STATIN NDC^^4^^M

 ;;BQI STREP GROUP A DXS^^1^^DX

 ;;BQI SYPHILIS FALSE POS DXS^^1^^DX

 ;;BQI SYPHILIS REAGIN LOINC^^5^^T

 ;;BQI SYPHILIS TP-AB LOINC^^5^^T

 ;;BQI TB GAMMA REL QUAL TEST LNC^^5^^T

 ;;BQI TB GAMMA REL QUANT TEST LC^^5^^T

 ;;BQI TB NONSPEC AFB TEST LOINC^^5^^T

 ;;BQI TB RNA DNA QUAL TEST LOINC^^5^^T

 ;;BQI TB RNA DNA QUANT TEST LNC^^5^^T

 ;;BQI TB SPECIFIC AFB TEST LOINC^^5^^T

 ;;BQI TETANUS DXS^^1^^DX

 ;;BQI TOXIC SHOCK DXS^^6^^O

 ;;BQI TOXIC SHOCK STREP DXS^^1^^DX

 ;;BQI TRICHINOSIS DXS^^6^^O

 ;;BQI TUBERCULOSIS BCG DXS^^1^^DX

 ;;BQI TUBERCULOSIS DXS^^1^^DX

 ;;BQI TULAREMIA DXS^^1^^DX

 ;;BQI TYPHOID DXS^^6^^O

 ;;BQI VALLEY FEVER DXS^^6^^O

 ;;BQI VARICELLA DXS^^6^^O

 ;;BQI VIBRIOSIS DXS^^1^^DX

 ;;BQI VISA VRSA DXS^^1^^DX

 ;;BQI WEST EQUINE ENCEPH DXS^^1^^DX

 ;;BQI WEST NILE DXS^^6^^O

 ;;BQI YELLOW FEVER DXS^^6^^O

BQITAXXP  ;GDIT/HS/ALA-Taxonomy Update ; 28 Jan 2014  7:36 AM

 +1       ;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27

 +2       ;

 +3       ;

EN        ;EP

 +1        SET PRE="BQI"

           SET NAME=PRE

 +2        FOR 

               SET NAME=$ORDER(^ATXAX("B",NAME))

               IF NAME=""!($EXTRACT(NAME,1,3)'=PRE)

                   QUIT 

               Begin DoDot:1

 +3                SET TYIEN=""

 +4                FOR 

                       SET TYIEN=$ORDER(^ATXAX("B",NAME,TYIEN))

                       IF TYIEN=""

                           QUIT 

                       Begin DoDot:2

 +5                        SET TAX=$PIECE(^ATXAX(TYIEN,0),"^",1)

                           SET FNBR=$PIECE(^ATXAX(TYIEN,0),"^",15)

 +6                        SET POP=$SELECT(FNBR=50:1,1:"")

 +7                        DO FCAT^BQITAXX5(TYIEN_";ATXAX(")

 +8                        SET CAT=$$STCC^BQIUL2(90508.03,.03,CAT)

                           SET ID=$$STCC^BQIUL2(90508.03,.05,ID)

 +9                        SET Z(TAX)=TAX_"^^"_CAT_"^"_POP_"^"_ID

                       End DoDot:2

               End DoDot:1

 +10       QUIT 

 +11      ;

TX        ;

 +1       ;;BQI ALCOHOL PROCEDURES^^3^^PR

 +2       ;;BQI ALCOHOL SCREEN DXS^^1^^DX

 +3       ;;BQI ALT/AST/GGT TEST LOINC^^5^^T

 +4       ;;BQI ANTHRAX DXS^^1^^DX

 +5       ;;BQI BOTULISM DXS^^1^^DX

 +6       ;;BQI BOTULISM OTHER DXS^^1^^DX

 +7       ;;BQI BRUCELLOSIS DXS^^1^^DX

 +8       ;;BQI C.TRACH DNA QUANT LOINC^^5^^T

 +9       ;;BQI C.TRACH NON-SPECIFIC LOINC^^5^^T

 +10      ;;BQI C.TRACH SPECIFIC LOINC^^5^^T

 +11      ;;BQI CALIF SEROGROUP DXS^^1^^DX

 +12      ;;BQI CHART REVIEW DXS^^1^^DX

 +13      ;;BQI CHLAMYDIA RELATED DXS^^1^^DX

 +14      ;;BQI CHLAMYDIA SCREEN DXS^^1^^DX

 +15      ;;BQI CHOLERA DXS^^1^^DX

 +16      ;;BQI CRYPTOSPORIDIOSIS DXS^^1^^DX

 +17      ;;BQI CYCLOSPORIASIS DXS^^1^^DX

 +18      ;;BQI DEPRESSION SCREEN DXS^^1^^DX

 +19      ;;BQI DIPHTHERIA DXS^^1^^DX

 +20      ;;BQI EAST EQUINE ENCEPH DXS^^1^^DX

 +21      ;;BQI EHRLICHIOSIS DXS^^1^^DX

 +22      ;;BQI EKG PROCEDURES^^3^^PR

 +23      ;;BQI ESRD DXS^^1^^DX

 +24      ;;BQI ESRD PROCEDURES^^3^^PR

 +25      ;;BQI EYE EXAM DXS^^1^^DX

 +26      ;;BQI EYE EXAM PROCS^^3^^PR

 +27      ;;BQI FLU IZ DXS^^1^^DX

 +28      ;;BQI FLU IZ PROCEDURES^^3^^PR

 +29      ;;BQI GIARDIA DXS^^1^^DX

 +30      ;;BQI GONORRHEA DXS^^1^^DX

 +31      ;;BQI H1N1 DELIVERY PROC^^3^^PR

 +32      ;;BQI H1N1 DXS^^1^^DX

 +33      ;;BQI HANTAVIRUS DXS^^1^^DX

 +34      ;;BQI HEMO UREMIC SYND DXS^^1^^DX

 +35      ;;BQI HEP A TESTS LOINC^^5^^T

 +36      ;;BQI HEP B CORE TEST LOINC^^5^^T

 +37      ;;BQI HEP B QUAL TEST LOINC^^5^^T

 +38      ;;BQI HEP B QUANT TEST LOINC^^5^^T

 +39      ;;BQI HEP C QUAL TEST LOINC^^5^^T

 +40      ;;BQI HEP C QUANT TEST LOINC^^5^^T

 +41      ;;BQI HIB CULTURE TEST LOINC^^5^^T

 +42      ;;BQI HIB EVIDENCE DXS^^1^^DX

 +43      ;;BQI HIB QUAL TEST LOINC^^5^^T

 +44      ;;BQI HIB QUANT TEST LOINC^^5^^T

 +45      ;;BQI HIV AB QUAL SCREEN LOINC^^5^^T

 +46      ;;BQI HIV AB QUANT SCREEN LOINC^^5^^T

 +47      ;;BQI HIV ID SPEC CONFIRM LOINC^^5^^T

 +48      ;;BQI HIV QUAL ANTIGEN LOINC^^5^^T

 +49      ;;BQI HIV QUAL CONFIRM LOINC^^5^^T

 +50      ;;BQI HIV QUAL NUC ACID LOINC^^5^^T

 +51      ;;BQI HIV QUANT ANTIGEN LOINC^^5^^T

 +52      ;;BQI HIV QUANT CONFIRM LOINC^^5^^T

 +53      ;;BQI HIV QUANT NUC ACID LOINC^^5^^T

 +54      ;;BQI HIV VIROLOGIC TEST LOINC^^5^^T

 +55      ;;BQI HYPERLIPIDEMIA DXS^^1^^DX

 +56      ;;BQI IHD DXS^^1^^DX

 +57      ;;BQI ILI NO TMP NEEDED DXS^^1^^DX

 +58      ;;BQI INFLUENZA DXS^^1^^DX

 +59      ;;BQI KNOWN CVD-1 CPTS^^2^^C

 +60      ;;BQI KNOWN CVD-1 DXS^^1^^DX

 +61      ;;BQI KNOWN CVD-1 PROCEDURES^^3^^PR

 +62      ;;BQI KNOWN CVD-MULT CPTS^^2^^C

 +63      ;;BQI KNOWN CVD-MULT DXS^^1^^DX

 +64      ;;BQI KNOWN CVD-MULT PROCEDURES^^3^^PR

 +65      ;;BQI LEGIONNAIRE DXS^^1^^DX

 +66      ;;BQI LEPROSY DXS^^1^^DX

 +67      ;;BQI LISTERIOSIS DXS^^1^^DX

 +68      ;;BQI LYME DXS^^1^^DX

 +69      ;;BQI MALARIA DXS^^1^^DX

 +70      ;;BQI MEASLES ID SPEC TEST LOINC^^5^^T

 +71      ;;BQI MEASLES QUAL TEST LOINC^^5^^T

 +72      ;;BQI MEASLES QUAN TEST LOINC^^5^^T

 +73      ;;BQI MENINGITIS DXS^^1^^DX

 +74      ;;BQI MENINGITIS ID SPEC LOINC^^5^^T

 +75      ;;BQI MENINGITIS QUAL TEST LOINC^^5^^T

 +76      ;;BQI MENINGITIS QUAN LOINC^^5^^T

 +77      ;;BQI MMR IZ CVX CODES^^6^^O

 +78      ;;BQI MUMPS DXS^^1^^DX

 +79      ;;BQI MYCOBACT TB CULT LOINC^^5^^T

 +80      ;;BQI NEPHROPATHY DXS^^1^^DX

 +81      ;;BQI NEPHROPATHY PROCEDURES^^3^^PR

 +82      ;;BQI NEUROSYPHILIS DXS^^1^^DX

 +83      ;;BQI PAP PROCEDURES^^3^^PR

 +84      ;;BQI PCI-PTCA DXS^^1^^DX

 +85      ;;BQI PCI-PTCA PROCEDURES^^3^^PR

 +86      ;;BQI PERTUSSIS DXS^^1^^DX

 +87      ;;BQI PLAGUE DXS^^1^^DX

 +88      ;;BQI PNEUMO IZ DXS^^1^^DX

 +89      ;;BQI PNEUMO IZ PROCEDURES^^3^^PR

 +90      ;;BQI PNEUMOCOCCAL DXS^^1^^DX

 +91      ;;BQI POLIO NONPARALYTIC DXS^^1^^DX

 +92      ;;BQI POLIO PARALYTIC DXS^^1^^DX

 +93      ;;BQI POWASSEN DXS^^1^^DX

 +94      ;;BQI PPD DIAMETER LOINC^^5^^T

 +95      ;;BQI PREGNANCY DXS^^1^^DX

 +96      ;;BQI PSITTACOSIS DXS^^1^^DX

 +97      ;;BQI Q FEVER DXS^^1^^DX

 +98      ;;BQI RABIES DXS^^1^^DX

 +99      ;;BQI ROCKEY MTN FEVER DXS^^6^^O

 +100     ;;BQI RUBELLA CONGEN DXS^^1^^DX

 +101     ;;BQI RUBELLA DXS^^1^^DX

 +102     ;;BQI S PNEUM CULTURE TEST LOINC^^5^^T

 +103     ;;BQI S PNEUM SUSCEPT TEST LOINC^^5^^T

 +104     ;;BQI SALMONELLA DXS^^1^^DX

 +105     ;;BQI SARS DXS^^6^^O

 +106     ;;BQI SHIGA E COLI DXS^^6^^O

 +107     ;;BQI SHIGELLA DXS^^6^^O

 +108     ;;BQI SMALLPOX DXS^^6^^O

 +109     ;;BQI ST LOUIS ENCEPH DXS^^1^^DX

 +110     ;;BQI STATIN MEDS CLASS^^6^^O

 +111     ;;BQI STATIN NDC^^4^^M

 +112     ;;BQI STREP GROUP A DXS^^1^^DX

 +113     ;;BQI SYPHILIS FALSE POS DXS^^1^^DX

 +114     ;;BQI SYPHILIS REAGIN LOINC^^5^^T

 +115     ;;BQI SYPHILIS TP-AB LOINC^^5^^T

 +116     ;;BQI TB GAMMA REL QUAL TEST LNC^^5^^T

 +117     ;;BQI TB GAMMA REL QUANT TEST LC^^5^^T

 +118     ;;BQI TB NONSPEC AFB TEST LOINC^^5^^T

 +119     ;;BQI TB RNA DNA QUAL TEST LOINC^^5^^T

 +120     ;;BQI TB RNA DNA QUANT TEST LNC^^5^^T

 +121     ;;BQI TB SPECIFIC AFB TEST LOINC^^5^^T

 +122     ;;BQI TETANUS DXS^^1^^DX

 +123     ;;BQI TOXIC SHOCK DXS^^6^^O

 +124     ;;BQI TOXIC SHOCK STREP DXS^^1^^DX

 +125     ;;BQI TRICHINOSIS DXS^^6^^O

 +126     ;;BQI TUBERCULOSIS BCG DXS^^1^^DX

 +127     ;;BQI TUBERCULOSIS DXS^^1^^DX

 +128     ;;BQI TULAREMIA DXS^^1^^DX

 +129     ;;BQI TYPHOID DXS^^6^^O

 +130     ;;BQI VALLEY FEVER DXS^^6^^O

 +131     ;;BQI VARICELLA DXS^^6^^O

 +132     ;;BQI VIBRIOSIS DXS^^1^^DX

 +133     ;;BQI VISA VRSA DXS^^1^^DX

 +134     ;;BQI WEST EQUINE ENCEPH DXS^^1^^DX

 +135     ;;BQI WEST NILE DXS^^6^^O

 +136     ;;BQI YELLOW FEVER DXS^^6^^O