DG681PRE.m

DG681PRE ;BAY/ALS;Deleting field ; 10/05/05

 ;;5.3;Registration;**681,1015**;Aug 13, 1993;Build 21

 ;

 ;This is a pre-install routine for DG*5.3*681

 ;The purpose is to delete the PIVOT FILE DAYS TO RETAIN (391.702)

 ;field in the MAS PARAMETERS (43) file.  The install will then

 ;add the field with corrections.

EN ;

 S DIK="^DD(43,",DA=391.702,DA(1)=43

 D ^DIK K DIK,DA,DA(1)

 Q

DG681PRE  ;BAY/ALS;Deleting field ; 10/05/05

 +1       ;;5.3;Registration;**681,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;This is a pre-install routine for DG*5.3*681

 +4       ;The purpose is to delete the PIVOT FILE DAYS TO RETAIN (391.702)

 +5       ;field in the MAS PARAMETERS (43) file.  The install will then

 +6       ;add the field with corrections.

EN        ;

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

           SET DA=391.702

           SET DA(1)=43

 +2        DO ^DIK

           KILL DIK,DA,DA(1)

 +3        QUIT