BTPW12PR.m

BTPW12PR ;GDHD/HCS/ALA-CMET V 1.2 Preinstall ; 10 Nov 2016  6:53 AM

 ;;1.2;CARE MANAGEMENT EVENT TRACKING;;Jul 07, 2017;Build 71

 ;

PRE ;EP - Preinstall

 NEW DA,DIK

 S DA=0,DIK="^BTPW(90621.2,"

 F  S DA=$O(^BTPW(90621.2,DA)) Q:'DA  D ^DIK

 ;

 S DA=0,DIK="^BTPW(90621,"

 F  S DA=$O(^BTPW(90621,DA)) Q:'DA  D ^DIK

 ;

 S DA=0,DIK="^BTPW(90621.1,"

 F  S DA=$O(^BTPW(90621.1,DA)) Q:'DA  D ^DIK

 ;

 Q

BTPW12PR  ;GDHD/HCS/ALA-CMET V 1.2 Preinstall ; 10 Nov 2016  6:53 AM

 +1       ;;1.2;CARE MANAGEMENT EVENT TRACKING;;Jul 07, 2017;Build 71

 +2       ;

PRE       ;EP - Preinstall

 +1        NEW DA,DIK

 +2        SET DA=0

           SET DIK="^BTPW(90621.2,"

 +3        FOR 

               SET DA=$ORDER(^BTPW(90621.2,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ;

 +5        SET DA=0

           SET DIK="^BTPW(90621,"

 +6        FOR 

               SET DA=$ORDER(^BTPW(90621,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +7       ;

 +8        SET DA=0

           SET DIK="^BTPW(90621.1,"

 +9        FOR 

               SET DA=$ORDER(^BTPW(90621.1,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +10      ;

 +11       QUIT