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 ---[H[J[2J[HDG5389PI 381 printed Nov 22, 2024@17:49:13 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
