DG837PRE ;BIR/PTD-PATCH DG*5.3*837 PRE-INSTALLATION ROUTINE ;12/7/2011
;;5.3;Registration;**837**;Aug 13, 1993;Build 5
;
EN ;MVI_791 (ptd) Delete the DD definition for the IN-PERSON PROOFED
;(#.08) field in the TREATING FACILITY LIST (#391.91) file.
;KIDS will bring in DDs for the new ROI SIGNED INDICATOR (#.08) field.
;If DG*5.3*837 already installed, don't need to do this again
I $$PATCH^XPDUTL("DG*5.3*837") Q
;
D BMES^XPDUTL(">>> Deleting the DDs for the IN-PERSON PROOFED (#.08) field")
D MES^XPDUTL(" in the TREATING FACILITY LIST (#391.91) file.")
;
S DIK="^DD(391.91,",DA=.08,DA(1)=391.91
D ^DIK
K DA,DIK
;
D BMES^XPDUTL(" Pre-install routine completed successfully.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG837PRE 726 printed Sep 23, 2025@20:16:38 Page 2
DG837PRE ;BIR/PTD-PATCH DG*5.3*837 PRE-INSTALLATION ROUTINE ;12/7/2011
+1 ;;5.3;Registration;**837**;Aug 13, 1993;Build 5
+2 ;
EN ;MVI_791 (ptd) Delete the DD definition for the IN-PERSON PROOFED
+1 ;(#.08) field in the TREATING FACILITY LIST (#391.91) file.
+2 ;KIDS will bring in DDs for the new ROI SIGNED INDICATOR (#.08) field.
+3 ;If DG*5.3*837 already installed, don't need to do this again
+4 IF $$PATCH^XPDUTL("DG*5.3*837")
QUIT
+5 ;
+6 DO BMES^XPDUTL(">>> Deleting the DDs for the IN-PERSON PROOFED (#.08) field")
+7 DO MES^XPDUTL(" in the TREATING FACILITY LIST (#391.91) file.")
+8 ;
+9 SET DIK="^DD(391.91,"
SET DA=.08
SET DA(1)=391.91
+10 DO ^DIK
+11 KILL DA,DIK
+12 ;
+13 DO BMES^XPDUTL(" Pre-install routine completed successfully.")
+14 QUIT
+15 ;
