DG53842P.m

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 ---DG53842P   365     printed  Apr 23, 2025@18:53:02                                                                                                                                                                                                     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       ;