- DG681PRE ;BAY/ALS;Deleting field ; 10/05/05
- ;;5.3;Registration;**681**;Aug 13, 1993
- ;
- ;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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG681PRE 379 printed Feb 19, 2025@00:06:34 Page 2
- DG681PRE ;BAY/ALS;Deleting field ; 10/05/05
- +1 ;;5.3;Registration;**681**;Aug 13, 1993
- +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