BQI27P1.m

BQI27P1 ;GDIT/HCSD/ALA-iCare Version 2.7 Patch 1 ; 02 Apr 2018  2:42 PM

 ;;2.7;ICARE MANAGEMENT SYSTEM;**1**;Dec 19, 2017;Build 12

 ;

PRE ;EP

 NEW DIK,DA

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

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

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

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

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

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

 Q

 ;

POS ;EP

 ; Change current IPC measures category

 S IN=0

 F  S IN=$O(^BGPINDRC(IN)) Q:IN>3403  D

 . I $P($G(^BGPINDRC(IN,17)),"^",7)=1 S $P(^BGPINDRC(IN,17),"^",7)=""

 ;S $P(^BGPINDRC(1956,17),"^",7)=""

 ;

 ; Set new IPC measures

 S ^BQI(90508,1,22,3,0)="ZIPCMH",^BQI(90508,1,22,"B","ZIPCMH",3)=""

 K ^BQI(90508,1,22,"B","IPCMH",3)

 I $P($G(^BQI(90508,1,11)),"^",1)'="IPCMH" S $P(^BQI(90508,1,11),"^",1)="IPCMH"

 D ^BQIIPCHM

 ;

 ; Set new IPC columns

 D ^BQIULAY

 ;

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)

 Q

BQI27P1   ;GDIT/HCSD/ALA-iCare Version 2.7 Patch 1 ; 02 Apr 2018  2:42 PM

 +1       ;;2.7;ICARE MANAGEMENT SYSTEM;**1**;Dec 19, 2017;Build 12

 +2       ;

PRE       ;EP

 +1        NEW DIK,DA

 +2        SET DIK="^BQI(90509.9,"

           SET DA=0

 +3        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +4        SET DIK="^BQI(90506.8,"

           SET DA=0

 +5        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +6        SET DIK="^BQI(90506.9,"

           SET DA=0

 +7        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +8        QUIT 

 +9       ;

POS       ;EP

 +1       ; Change current IPC measures category

 +2        SET IN=0

 +3        FOR 

               SET IN=$ORDER(^BGPINDRC(IN))

               IF IN>3403

                   QUIT 

               Begin DoDot:1

 +4                IF $PIECE($GET(^BGPINDRC(IN,17)),"^",7)=1

                       SET $PIECE(^BGPINDRC(IN,17),"^",7)=""

               End DoDot:1

 +5       ;S $P(^BGPINDRC(1956,17),"^",7)=""

 +6       ;

 +7       ; Set new IPC measures

 +8        SET ^BQI(90508,1,22,3,0)="ZIPCMH"

           SET ^BQI(90508,1,22,"B","ZIPCMH",3)=""

 +9        KILL ^BQI(90508,1,22,"B","IPCMH",3)

 +10       IF $PIECE($GET(^BQI(90508,1,11)),"^",1)'="IPCMH"

               SET $PIECE(^BQI(90508,1,11),"^",1)="IPCMH"

 +11       DO ^BQIIPCHM

 +12      ;

 +13      ; Set new IPC columns

 +14       DO ^BQIULAY

 +15      ;

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        QUIT