BQI23P5.m

BQI23P5 ;GDIT/HS/ALA-Patch 5 IPC/CRS15 update ; 31 Oct 2014  2:23 PM

 ;;2.3;ICARE MANAGEMENT SYSTEM;**5**;Apr 18, 2012;Build 17

 ;

PRE ;EP

 Q

 ;

POS ;EP

 ; Remove LDL bundles items

 NEW DA,DIK

 S DA(3)=1,DA(2)=2,DA(1)=22,DIK="^BQI(90508,"_DA(3)_",22,"_DA(2)_",1,"_DA(1)_",2,"

 S DA=0

 F  S DA=$O(^BQI(90508,1,22,2,1,22,2,DA)) Q:'DA  D ^DIK

 ;

 D ^BQIIPC5

 D ^BQIIPCFX

 Q

BQI23P5   ;GDIT/HS/ALA-Patch 5 IPC/CRS15 update ; 31 Oct 2014  2:23 PM

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

 +2       ;

PRE       ;EP

 +1        QUIT 

 +2       ;

POS       ;EP

 +1       ; Remove LDL bundles items

 +2        NEW DA,DIK

 +3        SET DA(3)=1

           SET DA(2)=2

           SET DA(1)=22

           SET DIK="^BQI(90508,"_DA(3)_",22,"_DA(2)_",1,"_DA(1)_",2,"

 +4        SET DA=0

 +5        FOR 

               SET DA=$ORDER(^BQI(90508,1,22,2,1,22,2,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +6       ;

 +7        DO ^BQIIPC5

 +8        DO ^BQIIPCFX

 +9        QUIT