DG53842P ;ALB/BDB - PRE-INSTALL DG*5.3*842;AUG 18, 2011
;;5.3;Registration;**842**;Aug 13, 1993;Build 33
Q
EN ;Pre-install entry point
;Pre-install process to delete the old X-Ref trigger in
;PATIENT file #2 for RECEIVING A VA PENSION? field #.36235
D BMES^XPDUTL("Deleting trigger on RECEIVING A VA PENSION? field")
D DELIX^DDMOD(2,.36235,1)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53842P 365 printed Oct 16, 2024@18:39:41 Page 2
DG53842P ;ALB/BDB - PRE-INSTALL DG*5.3*842;AUG 18, 2011
+1 ;;5.3;Registration;**842**;Aug 13, 1993;Build 33
+2 QUIT
EN ;Pre-install entry point
+1 ;Pre-install process to delete the old X-Ref trigger in
+2 ;PATIENT file #2 for RECEIVING A VA PENSION? field #.36235
+3 DO BMES^XPDUTL("Deleting trigger on RECEIVING A VA PENSION? field")
+4 DO DELIX^DDMOD(2,.36235,1)
+5 QUIT
+6 ;
