BQI23PUC.m

BQI23PUC ;VNGT/HS/ALA-Community Alerts Post-Install ; 27 Sep 2011  3:38 PM

 ;;2.3;ICARE MANAGEMENT SYSTEM;**1**;Apr 18, 2012;Build 43

 ;

 ;

EN ;EP

LTAX ;  Add Lab Taxonomies to ^ATXLAB

 NEW X,DIC,DLAYGO,DA,DR,DIE,Y,LTAX,D0,DINUM

 S DIC="^ATXLAB(",DIC(0)="L",DLAYGO=9002228

 ; Loop through the Taxonomies

 D LDLAB(.LTAX)

 F BJ=1:1 Q:'$D(LTAX(BJ))  S X=LTAX(BJ) D

 . I $D(^ATXLAB("B",X)) Q  ; Skip pre-existing Lab taxonomies

 . D ^DIC S DA=+Y

 . I DA<1 Q

 . S BQTXUP(9002228,DA_",",.02)=$P(X," ",2,999)

 . S BQTXUP(9002228,DA_",",.05)=DUZ

 . S BQTXUP(9002228,DA_",",.06)=DT

 . S BQTXUP(9002228,DA_",",.09)=60

 . D FILE^DIE("I","BQTXUP")

 . S BQTXUP(9002228,DA_",",.08)="B"

 . D FILE^DIE("E","BQTXUP")

 ;

 K DA,BJ,BQTXUP,DIC,DLAYGO,DINUM,D0,DR,X,Y

 ;

TAX ;  Set up the taxonomies

 D ^BQIJTX

 D ^BQIKTX

 D ^BQILTX

 ;

 Q

 ;

LDLAB(ARRAY) ;EP;Load site-populated Lab tests

 NEW I,TEXT

 F I=1:1 S TEXT=$P($T(LAB+I),";;",2) Q:TEXT=""  S ARRAY(I)=TEXT

 Q

 ;

LAB ;EP;LAB TESTS (SITE-POPULATED)

 ;;BQI C.TRACH SPECIFIC TAX

 ;;BQI C.TRACH NON-SPECIFIC TAX

 ;;BQI C.TRACH DNA QUANT TAX

 ;;BQI HEP A TESTS TAX

 ;;BQI HEP B QUAL TEST TAX

 ;;BQI HEP B QUANT TEST TAX

 ;;BQI HEP C QUAL TEST TAX

 ;;BQI HEP C QUANT TEST TAX

 ;;BQI HEP B CORE TESTS TAX

 ;;BQI HIB QUAL TEST TAX

 ;;BQI HIB CULTURE TEST TAX

 ;;BQI HIB QUANT TEST TAX

 ;;BQI HIV AB QUAL SCREEN TAX

 ;;BQI HIV AB QUANT SCREEN TAX

 ;;BQI HIV QUAL CONFIRM TAX

 ;;BQI HIV QUANT CONFIRM TAX

 ;;BQI HIV ID SPEC CONFIRM TAX

 ;;BQI HIV QUAL NUC ACID TAX

 ;;BQI HIV QUANT NUC ACID TAX

 ;;BQI HIV QUAL ANTIGEN TAX

 ;;BQI HIV QUANT ANTIGEN TAX

 ;;BQI HIV VIROLOGIC TEST TAX

 ;;BQI MEASLES QUAL TEST TAX

 ;;BQI MEASLES ID SPEC TEST TAX

 ;;BQI MEASLES QUAN TEST TAX

 ;;BQI MENINGITIS QUAL TEST TAX

 ;;BQI MENINGITIS ID SPEC TAX

 ;;BQI MENINGITIS QUAN TAX

 ;;BQI MENINGITIS GRAM STAIN TAX

 ;;BQI S PNEUM CULTURE TEST TAX

 ;;BQI S PNEUM SUSCEPT TEST TAX

 ;;BQI SYPH DARK FIELD TEST TAX

 ;;BQI SYPHILIS QUAL TEST TAX

 ;;BQI SYPHILIS QUANT TEST TAX

 ;;BQI PPD DIAMETER TAX

 ;;BQI TB GAMMA REL QUAL TEST TAX

 ;;BQI TB GAMMA REL QUANT TEST TAX

 ;;BQI MYCOBACT TB CULT TAX

 ;;BQI TB GAMMA REL QUANT TEST TX

 ;;BQI TB RNA DNA QUAL TEST TAX

 ;;BQI TB RNA DNA QUANT TEST TAX

 ;;BQI TB SPECIFIC AFB TEST TAX

 ;;BQI TB NONSPEC AFB TEST TAX

 ;;

BQI23PUC  ;VNGT/HS/ALA-Community Alerts Post-Install ; 27 Sep 2011  3:38 PM

 +1       ;;2.3;ICARE MANAGEMENT SYSTEM;**1**;Apr 18, 2012;Build 43

 +2       ;

 +3       ;

EN        ;EP

LTAX      ;  Add Lab Taxonomies to ^ATXLAB

 +1        NEW X,DIC,DLAYGO,DA,DR,DIE,Y,LTAX,D0,DINUM

 +2        SET DIC="^ATXLAB("

           SET DIC(0)="L"

           SET DLAYGO=9002228

 +3       ; Loop through the Taxonomies

 +4        DO LDLAB(.LTAX)

 +5        FOR BJ=1:1

               IF '$DATA(LTAX(BJ))

                   QUIT 

               SET X=LTAX(BJ)

               Begin DoDot:1

 +6       ; Skip pre-existing Lab taxonomies

                   IF $DATA(^ATXLAB("B",X))

                       QUIT 

 +7                DO ^DIC

                   SET DA=+Y

 +8                IF DA<1

                       QUIT 

 +9                SET BQTXUP(9002228,DA_",",.02)=$PIECE(X," ",2,999)

 +10               SET BQTXUP(9002228,DA_",",.05)=DUZ

 +11               SET BQTXUP(9002228,DA_",",.06)=DT

 +12               SET BQTXUP(9002228,DA_",",.09)=60

 +13               DO FILE^DIE("I","BQTXUP")

 +14               SET BQTXUP(9002228,DA_",",.08)="B"

 +15               DO FILE^DIE("E","BQTXUP")

               End DoDot:1

 +16      ;

 +17       KILL DA,BJ,BQTXUP,DIC,DLAYGO,DINUM,D0,DR,X,Y

 +18      ;

TAX       ;  Set up the taxonomies

 +1        DO ^BQIJTX

 +2        DO ^BQIKTX

 +3        DO ^BQILTX

 +4       ;

 +5        QUIT 

 +6       ;

LDLAB(ARRAY) ;EP;Load site-populated Lab tests

 +1        NEW I,TEXT

 +2        FOR I=1:1

               SET TEXT=$PIECE($TEXT(LAB+I),";;",2)

               IF TEXT=""

                   QUIT 

               SET ARRAY(I)=TEXT

 +3        QUIT 

 +4       ;

LAB       ;EP;LAB TESTS (SITE-POPULATED)

 +1       ;;BQI C.TRACH SPECIFIC TAX

 +2       ;;BQI C.TRACH NON-SPECIFIC TAX

 +3       ;;BQI C.TRACH DNA QUANT TAX

 +4       ;;BQI HEP A TESTS TAX

 +5       ;;BQI HEP B QUAL TEST TAX

 +6       ;;BQI HEP B QUANT TEST TAX

 +7       ;;BQI HEP C QUAL TEST TAX

 +8       ;;BQI HEP C QUANT TEST TAX

 +9       ;;BQI HEP B CORE TESTS TAX

 +10      ;;BQI HIB QUAL TEST TAX

 +11      ;;BQI HIB CULTURE TEST TAX

 +12      ;;BQI HIB QUANT TEST TAX

 +13      ;;BQI HIV AB QUAL SCREEN TAX

 +14      ;;BQI HIV AB QUANT SCREEN TAX

 +15      ;;BQI HIV QUAL CONFIRM TAX

 +16      ;;BQI HIV QUANT CONFIRM TAX

 +17      ;;BQI HIV ID SPEC CONFIRM TAX

 +18      ;;BQI HIV QUAL NUC ACID TAX

 +19      ;;BQI HIV QUANT NUC ACID TAX

 +20      ;;BQI HIV QUAL ANTIGEN TAX

 +21      ;;BQI HIV QUANT ANTIGEN TAX

 +22      ;;BQI HIV VIROLOGIC TEST TAX

 +23      ;;BQI MEASLES QUAL TEST TAX

 +24      ;;BQI MEASLES ID SPEC TEST TAX

 +25      ;;BQI MEASLES QUAN TEST TAX

 +26      ;;BQI MENINGITIS QUAL TEST TAX

 +27      ;;BQI MENINGITIS ID SPEC TAX

 +28      ;;BQI MENINGITIS QUAN TAX

 +29      ;;BQI MENINGITIS GRAM STAIN TAX

 +30      ;;BQI S PNEUM CULTURE TEST TAX

 +31      ;;BQI S PNEUM SUSCEPT TEST TAX

 +32      ;;BQI SYPH DARK FIELD TEST TAX

 +33      ;;BQI SYPHILIS QUAL TEST TAX

 +34      ;;BQI SYPHILIS QUANT TEST TAX

 +35      ;;BQI PPD DIAMETER TAX

 +36      ;;BQI TB GAMMA REL QUAL TEST TAX

 +37      ;;BQI TB GAMMA REL QUANT TEST TAX

 +38      ;;BQI MYCOBACT TB CULT TAX

 +39      ;;BQI TB GAMMA REL QUANT TEST TX

 +40      ;;BQI TB RNA DNA QUAL TEST TAX

 +41      ;;BQI TB RNA DNA QUANT TEST TAX

 +42      ;;BQI TB SPECIFIC AFB TEST TAX

 +43      ;;BQI TB NONSPEC AFB TEST TAX

 +44      ;;