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
