BLRAPOST.m

BLRAPOST ;IHS/HQW/TPF-POST INSTALL FOR ELECTRONIC SIGNATURE PLUG IN [ 07/22/2002  10:59 AM ]

 ;;5.2;LR;**1013**;Jan 07, 2002

 ;

 D DEL      ;DELETE FIELDS

 D ACCESS   ;SET READ,WRITE,DELETE ACCESS

 ;

 ;AUTOMATICALLY ADD INSTALLER TO MAIL GROUP

 W !!,$$C^XBFUNC("The installer is automatically added to MAIL GROUP 'BLR APPLICATION PLUGIN WARNING'.")

 ;

 S MGIEN=$O(^XMB(3.8,"B","BLR APPLICATION PLUGIN WARNING",""))

 ;

 I 'MGIEN W !!,$$C^XBFUNC("The MAIL GROUP 'BLR APPLICATION PLUGIN WARNING' cannot be found! Please add the group to the MAIL GROUP file.") D END Q

 ;

 S ^XMB(3.8,MGIEN,1,0)="3.81P^1^1"

 S ^XMB(3.8,MGIEN,1,1,0)=DUZ

 S ^XMB(3.8,MGIEN,1,"B",DUZ,1)=""

 ;

 W !!,$$C^XBFUNC($P($G(^VA(200,DUZ,0)),U)_" has been added to the 'BLR APPLICATION PLUGIN WARNING' mail group...")

 W !!,$$C^XBFUNC("You can add more members later by editing the 'BLR APPLICATION PLUGIN WARNING' mail group...")

 W !!

END I $$DIR^XBDIR("E","Press RETURN...")

 Q

DEL ;DELETE 'GUI' FIELDS WHICH ARE NO LONGER USED PER MIKE LOUGHRAN

 S DIK="^DD(9009029,",DA(1)=9009029

 F DA=1101,1102,1103,1104 D

 .D ^DIK

 Q

 ;

 ;SET READ,WRITE,DELET ACCESS FOR BLRMASTER CONTROL FILE 

ACCESS ;

 S ^DD(9009029,.02,8)="Ll"

 S ^DD(9009029,.02,8.5)="Ll"

 S ^DD(9009029,.02,9)="Ll"

 S ^DD(9009029,.03,8)="Ll"

 S ^DD(9009029,.03,8.5)="Ll"

 S ^DD(9009029,.03,9)="Ll"

 S ^DD(9009029,.04,8)="Ll"

 S ^DD(9009029,.04,8.5)="Ll"

 S ^DD(9009029,.04,9)="Ll"

 S ^DD(9009029,.08,8)="Ll"

 S ^DD(9009029,.08,8.5)="Ll"

 S ^DD(9009029,.08,9)="Ll"

 S ^DD(9009029,.09,8)="Ll"

 S ^DD(9009029,.09,8.5)="Ll"

 S ^DD(9009029,.09,9)="Ll"

 S ^DD(9009029,2,8)="Ll"

 S ^DD(9009029,2,8.5)="Ll"

 S ^DD(9009029,2,9)="Ll"

 S ^DD(9009029,2101,8)="Ll"

 S ^DD(9009029,2101,9)="Ll"

 S ^DD(9009029.02101,.01,8)="Ll"

 S ^DD(9009029.02101,.01,8.5)="Ll"

 S ^DD(9009029.02101,.01,9)="Ll"

 S ^DD(9009029.02101,1,8)="Ll"

 S ^DD(9009029.02101,1,8.5)="Ll"

 S ^DD(9009029.02101,1,9)="Ll"

 S ^DD(9009029,1,8)="@"

 S ^DD(9009029,1,8.5)="@"

 S ^DD(9009029,1,9)="@"

 Q

BLRAPOST  ;IHS/HQW/TPF-POST INSTALL FOR ELECTRONIC SIGNATURE PLUG IN [ 07/22/2002  10:59 AM ]

 +1       ;;5.2;LR;**1013**;Jan 07, 2002

 +2       ;

 +3       ;DELETE FIELDS

           DO DEL

 +4       ;SET READ,WRITE,DELETE ACCESS

           DO ACCESS

 +5       ;

 +6       ;AUTOMATICALLY ADD INSTALLER TO MAIL GROUP

 +7        WRITE !!,$$C^XBFUNC("The installer is automatically added to MAIL GROUP 'BLR APPLICATION PLUGIN WARNING'.")

 +8       ;

 +9        SET MGIEN=$ORDER(^XMB(3.8,"B","BLR APPLICATION PLUGIN WARNING",""))

 +10      ;

 +11       IF 'MGIEN

               WRITE !!,$$C^XBFUNC("The MAIL GROUP 'BLR APPLICATION PLUGIN WARNING' cannot be found! Please add the group to the MAIL GROUP file.")

               DO END

               QUIT 

 +12      ;

 +13       SET ^XMB(3.8,MGIEN,1,0)="3.81P^1^1"

 +14       SET ^XMB(3.8,MGIEN,1,1,0)=DUZ

 +15       SET ^XMB(3.8,MGIEN,1,"B",DUZ,1)=""

 +16      ;

 +17       WRITE !!,$$C^XBFUNC($PIECE($GET(^VA(200,DUZ,0)),U)_" has been added to the 'BLR APPLICATION PLUGIN WARNING' mail group...")

 +18       WRITE !!,$$C^XBFUNC("You can add more members later by editing the 'BLR APPLICATION PLUGIN WARNING' mail group...")

 +19       WRITE !!

END        IF $$DIR^XBDIR("E","Press RETURN...")

 +1        QUIT 

DEL       ;DELETE 'GUI' FIELDS WHICH ARE NO LONGER USED PER MIKE LOUGHRAN

 +1        SET DIK="^DD(9009029,"

           SET DA(1)=9009029

 +2        FOR DA=1101,1102,1103,1104

               Begin DoDot:1

 +3                DO ^DIK

               End DoDot:1

 +4        QUIT 

 +5       ;

 +6       ;SET READ,WRITE,DELET ACCESS FOR BLRMASTER CONTROL FILE 

ACCESS    ;

 +1        SET ^DD(9009029,.02,8)="Ll"

 +2        SET ^DD(9009029,.02,8.5)="Ll"

 +3        SET ^DD(9009029,.02,9)="Ll"

 +4        SET ^DD(9009029,.03,8)="Ll"

 +5        SET ^DD(9009029,.03,8.5)="Ll"

 +6        SET ^DD(9009029,.03,9)="Ll"

 +7        SET ^DD(9009029,.04,8)="Ll"

 +8        SET ^DD(9009029,.04,8.5)="Ll"

 +9        SET ^DD(9009029,.04,9)="Ll"

 +10       SET ^DD(9009029,.08,8)="Ll"

 +11       SET ^DD(9009029,.08,8.5)="Ll"

 +12       SET ^DD(9009029,.08,9)="Ll"

 +13       SET ^DD(9009029,.09,8)="Ll"

 +14       SET ^DD(9009029,.09,8.5)="Ll"

 +15       SET ^DD(9009029,.09,9)="Ll"

 +16       SET ^DD(9009029,2,8)="Ll"

 +17       SET ^DD(9009029,2,8.5)="Ll"

 +18       SET ^DD(9009029,2,9)="Ll"

 +19       SET ^DD(9009029,2101,8)="Ll"

 +20       SET ^DD(9009029,2101,9)="Ll"

 +21       SET ^DD(9009029.02101,.01,8)="Ll"

 +22       SET ^DD(9009029.02101,.01,8.5)="Ll"

 +23       SET ^DD(9009029.02101,.01,9)="Ll"

 +24       SET ^DD(9009029.02101,1,8)="Ll"

 +25       SET ^DD(9009029.02101,1,8.5)="Ll"

 +26       SET ^DD(9009029.02101,1,9)="Ll"

 +27       SET ^DD(9009029,1,8)="@"

 +28       SET ^DD(9009029,1,8.5)="@"

 +29       SET ^DD(9009029,1,9)="@"

 +30       QUIT