DG531139P ;BIR/JFW - DG*5.3*1139 Post-Init ;1 Jan 2025 10:13 AM
;;5.3;Registration;**1139**;Aug 13, 1993;Build 2
;
;BMES^XPDUTL and MES^XPDUTL - DBIA #10141 Supported
;
;STORY VAMPI-27523 (jfw) - Allow Deletion of PREFERRED NAME (#.2405)
; in the PATIENT (#2) file.
;
POST ;
D BMES^XPDUTL("Post-Install: Starting")
K ^DD(2,.2405,"DEL")
D BMES^XPDUTL(" - Deleted Data Dictionary 'DEL' array node on")
D MES^XPDUTL(" PREFERRED NAME (#.2405) field in the PATIENT (#2) file!")
D BMES^XPDUTL("Post-Install: Finished")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531139P 581 printed Sep 23, 2025@20:11:52 Page 2
DG531139P ;BIR/JFW - DG*5.3*1139 Post-Init ;1 Jan 2025 10:13 AM
+1 ;;5.3;Registration;**1139**;Aug 13, 1993;Build 2
+2 ;
+3 ;BMES^XPDUTL and MES^XPDUTL - DBIA #10141 Supported
+4 ;
+5 ;STORY VAMPI-27523 (jfw) - Allow Deletion of PREFERRED NAME (#.2405)
+6 ; in the PATIENT (#2) file.
+7 ;
POST ;
+1 DO BMES^XPDUTL("Post-Install: Starting")
+2 KILL ^DD(2,.2405,"DEL")
+3 DO BMES^XPDUTL(" - Deleted Data Dictionary 'DEL' array node on")
+4 DO MES^XPDUTL(" PREFERRED NAME (#.2405) field in the PATIENT (#2) file!")
+5 DO BMES^XPDUTL("Post-Install: Finished")
+6 QUIT
+7 ;
