BQI21P1.m

BQI21P1 ;VNGT/HS/ALA-Post Install for Patch 1 ; 13 Sep 2010  9:55 AM

 ;;2.1;ICARE MANAGEMENT SYSTEM;**1**;Feb 07, 2011;Build 5

 ;

EN ; Entry point

 ; Update taxonomies for H1N1

 D ^BQICATX

GLS ; Update glossary

 NEW GN,GNM,GSN,BQIUPD

 S GN=0

 F  S GN=$O(^BQI(90509.9,GN)) Q:'GN  D

 . S GNM=$P(^BQI(90509.9,GN,0),U,1)

 . S GSN=$O(^BQI(90508.2,"B",GNM,"")) Q:GSN=""

 . S BQIUPD(90508.2,GSN_",",1)="@"

 . D FILE^DIE("","BQIUPD","ERROR")

 . M ^BQI(90508.2,GSN,1)=^BQI(90509.9,GN,1)

 ;

 NEW DA,BQIUPD

 S DA=1,BQIUPD(90508,DA_",",.02)="H",BQIUPD(90508,DA_",",.03)="@"

 D FILE^DIE("","BQIUPD","ERROR")

 ; Add option to menu

 S X=$$ADD^XPDMENU("APCL M MAN QUALITY ASSURANCE","BQI CANES EXPORT REPORT","CANE")

 ;

ZISH ;create entry in ZISH SEND PARAMETERS file

 NEW DA,BQIUPD,ERROR,DIC,DLAYGO,X,Y

 S X="CANE SURVEILLANCE SEND",DIC(0)="L",DIC="^%ZIB(9888888.93,",DLAYGO=9888888.93

 D ^DIC S DA=+Y

 I DA=-1 D

 . K DO,DD D FILE^DICN

 . S DA=+Y

 I DA=-1 W !!,"Error creating ZISH SEND PARAMETERS entry" Q

 S BQIUPD(9888888.93,DA_",",.02)="QUOVADX-IE.IHS.GOV"

 S BQIUPD(9888888.93,DA_",",.03)="fludata"

 S BQIUPD(9888888.93,DA_",",.04)="etgx7h"

 S BQIUPD(9888888.93,DA_",",.06)="-u"

 S BQIUPD(9888888.93,DA_",",.07)="B"

 S BQIUPD(9888888.93,DA_",",.08)="sendto"

 D FILE^DIE("","BQIUPD","ERROR")

 I $D(ERROR) W !!,"Error updating ZISH SEND PARAMETERS entry"

 ;

HLO ;Set up HLO application

 S DIC(0)="LZ",DLAYGO=779.2,DIC="^HLD(779.2,",X="RPMS-CANES"

 D ^DIC

 S DA=+Y

 I DA=-1 D

 . K DO,DD D FILE^DICN

 . S DA=+Y

 I DA=-1 W !!,"Error creating HLO Application" Q

 S BQIUPD(779.2,DA_",",2)=$O(^DIC(9.4,"B","ICARE MANAGEMENT SYSTEM",""))

 D FILE^DIE("","BQIUPD","ERROR")

 ;

 Q

 ;

PRE ;

 NEW DA,DIK

 S DA=0,DIK="^BQI(90509.9,"

 F  S DA=$O(^BQI(90509.9,DA)) Q:'DA  D ^DIK

 Q

BQI21P1   ;VNGT/HS/ALA-Post Install for Patch 1 ; 13 Sep 2010  9:55 AM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;**1**;Feb 07, 2011;Build 5

 +2       ;

EN        ; Entry point

 +1       ; Update taxonomies for H1N1

 +2        DO ^BQICATX

GLS       ; Update glossary

 +1        NEW GN,GNM,GSN,BQIUPD

 +2        SET GN=0

 +3        FOR 

               SET GN=$ORDER(^BQI(90509.9,GN))

               IF 'GN

                   QUIT 

               Begin DoDot:1

 +4                SET GNM=$PIECE(^BQI(90509.9,GN,0),U,1)

 +5                SET GSN=$ORDER(^BQI(90508.2,"B",GNM,""))

                   IF GSN=""

                       QUIT 

 +6                SET BQIUPD(90508.2,GSN_",",1)="@"

 +7                DO FILE^DIE("","BQIUPD","ERROR")

 +8                MERGE ^BQI(90508.2,GSN,1)=^BQI(90509.9,GN,1)

               End DoDot:1

 +9       ;

 +10       NEW DA,BQIUPD

 +11       SET DA=1

           SET BQIUPD(90508,DA_",",.02)="H"

           SET BQIUPD(90508,DA_",",.03)="@"

 +12       DO FILE^DIE("","BQIUPD","ERROR")

 +13      ; Add option to menu

 +14       SET X=$$ADD^XPDMENU("APCL M MAN QUALITY ASSURANCE","BQI CANES EXPORT REPORT","CANE")

 +15      ;

ZISH      ;create entry in ZISH SEND PARAMETERS file

 +1        NEW DA,BQIUPD,ERROR,DIC,DLAYGO,X,Y

 +2        SET X="CANE SURVEILLANCE SEND"

           SET DIC(0)="L"

           SET DIC="^%ZIB(9888888.93,"

           SET DLAYGO=9888888.93

 +3        DO ^DIC

           SET DA=+Y

 +4        IF DA=-1

               Begin DoDot:1

 +5                KILL DO,DD

                   DO FILE^DICN

 +6                SET DA=+Y

               End DoDot:1

 +7        IF DA=-1

               WRITE !!,"Error creating ZISH SEND PARAMETERS entry"

               QUIT 

 +8        SET BQIUPD(9888888.93,DA_",",.02)="QUOVADX-IE.IHS.GOV"

 +9        SET BQIUPD(9888888.93,DA_",",.03)="fludata"

 +10       SET BQIUPD(9888888.93,DA_",",.04)="etgx7h"

 +11       SET BQIUPD(9888888.93,DA_",",.06)="-u"

 +12       SET BQIUPD(9888888.93,DA_",",.07)="B"

 +13       SET BQIUPD(9888888.93,DA_",",.08)="sendto"

 +14       DO FILE^DIE("","BQIUPD","ERROR")

 +15       IF $DATA(ERROR)

               WRITE !!,"Error updating ZISH SEND PARAMETERS entry"

 +16      ;

HLO       ;Set up HLO application

 +1        SET DIC(0)="LZ"

           SET DLAYGO=779.2

           SET DIC="^HLD(779.2,"

           SET X="RPMS-CANES"

 +2        DO ^DIC

 +3        SET DA=+Y

 +4        IF DA=-1

               Begin DoDot:1

 +5                KILL DO,DD

                   DO FILE^DICN

 +6                SET DA=+Y

               End DoDot:1

 +7        IF DA=-1

               WRITE !!,"Error creating HLO Application"

               QUIT 

 +8        SET BQIUPD(779.2,DA_",",2)=$ORDER(^DIC(9.4,"B","ICARE MANAGEMENT SYSTEM",""))

 +9        DO FILE^DIE("","BQIUPD","ERROR")

 +10      ;

 +11       QUIT 

 +12      ;

PRE       ;

 +1        NEW DA,DIK

 +2        SET DA=0

           SET DIK="^BQI(90509.9,"

 +3        FOR 

               SET DA=$ORDER(^BQI(90509.9,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +4        QUIT