DG5389PI.m

DG5389PI ;ALB/CM PRETINIT ;06/27/96

 ;;5.3;Registration;**89**;Aug 13, 1993

 ;

 ;This routine will remove the WARD (#70) field from the PAF file 

 ;#45.9.  This field will be added again in the installation.

 ;

EN ;

 N MES

 D MES^XPDUTL("Starting Pre-Installation")

 S DIK="^DD(45.9,",DA=70,DA(1)=45.9

 D ^DIK

 D MES^XPDUTL("Completed Pre-Installation")

 K DIK,DA

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG5389PI   381     printed  Apr 09, 2024@22:03:31                                                                                                                                                                                                     Page 2

DG5389PI  ;ALB/CM PRETINIT ;06/27/96

 +1       ;;5.3;Registration;**89**;Aug 13, 1993

 +2       ;

 +3       ;This routine will remove the WARD (#70) field from the PAF file 

 +4       ;#45.9.  This field will be added again in the installation.

 +5       ;

EN        ;

 +1        NEW MES

 +2        DO MES^XPDUTL("Starting Pre-Installation")

 +3        SET DIK="^DD(45.9,"

           SET DA=70

           SET DA(1)=45.9

 +4        DO ^DIK

 +5        DO MES^XPDUTL("Completed Pre-Installation")

 +6        KILL DIK,DA

 +7        QUIT