BTPW1PRE.m

BTPW1PRE ;VNGT/HS/ALA - Pre-Install ; 14 Jul 2008  3:02 PM

 ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 ;

 ;

EN ; Entry point

 NEW DA,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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

 ;Clean up existing security keys

 NEW DZ,BKEY,USER

 S DZ=""

 F  S DZ=$O(^XUSEC("BTPWCMGR",DZ)) Q:DZ=""  D

 . S BKEY="BTPWCMGR",USER=DZ D REM^BQISYKEY

 . S ^XTMP("BTPW1PRE",DZ)=""

 Q

BTPW1PRE  ;VNGT/HS/ALA - Pre-Install ; 14 Jul 2008  3:02 PM

 +1       ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 +2       ;

 +3       ;

EN        ; Entry point

 +1        NEW DA,DIK

 +2        SET DA=0

           SET DIK="^BTPW(90621,"

 +3        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ;

 +5        SET DA=0

           SET DIK="^BTPW(90621.1,"

 +6        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +7       ;

 +8        SET DA=0

           SET DIK="^BTPW(90621.2,"

 +9        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +10      ;

 +11       SET DA=0

           SET DIK="^BTPW(90620.9,"

 +12       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +13      ;

 +14       SET DA=0

           SET DIK="^BTPW(90628,"

 +15       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +16      ;

 +17      ;Clean up existing security keys

 +18       NEW DZ,BKEY,USER

 +19       SET DZ=""

 +20       FOR 

               SET DZ=$ORDER(^XUSEC("BTPWCMGR",DZ))

               IF DZ=""

                   QUIT 

               Begin DoDot:1

 +21               SET BKEY="BTPWCMGR"

                   SET USER=DZ

                   DO REM^BQISYKEY

 +22               SET ^XTMP("BTPW1PRE",DZ)=""

               End DoDot:1

 +23       QUIT