- 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
