DG531117P ;ALB/BA - DELETE PTF SUBFILE CROSS REFERENCE ; Oct 22, 2024@14:22:39
;;5.3;Registration;**1117**;Aug 13, 1993;Build 32
;
Q
;
PRE ; PRE-INSTALL Main entry point
D BMES^XPDUTL("Running pre-install routine DG531117P")
D DELIX^DDMOD(45.0535,2,1,"KW","MYOUT")
D BMES^XPDUTL("Cross Reference was deleted")
D BMES^XPDUTL("Pre-install routine DG531117P has completed")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531117P 394 printed Jan 29, 2026@15:34:20 Page 2
DG531117P ;ALB/BA - DELETE PTF SUBFILE CROSS REFERENCE ; Oct 22, 2024@14:22:39
+1 ;;5.3;Registration;**1117**;Aug 13, 1993;Build 32
+2 ;
+3 QUIT
+4 ;
PRE ; PRE-INSTALL Main entry point
+1 DO BMES^XPDUTL("Running pre-install routine DG531117P")
+2 DO DELIX^DDMOD(45.0535,2,1,"KW","MYOUT")
+3 DO BMES^XPDUTL("Cross Reference was deleted")
+4 DO BMES^XPDUTL("Pre-install routine DG531117P has completed")
+5 QUIT
