BLRPOST.m

BLRPOST ;IHS/ITSC/TPF - E-SIG POST INSTALL TO DELETE OBSOLETE FIELDS  [ 08/01/2002  7:57 AM ]

 ;;5.2;LR;**1013**;JUL 30, 2002

 ;

START ;

 ;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

 ;

 ;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

BLRPOST   ;IHS/ITSC/TPF - E-SIG POST INSTALL TO DELETE OBSOLETE FIELDS  [ 08/01/2002  7:57 AM ]

 +1       ;;5.2;LR;**1013**;JUL 30, 2002

 +2       ;

START     ;

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

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

           SET DA(1)=9009029

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

               Begin DoDot:1

 +4                DO ^DIK

               End DoDot:1

 +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