DGPRE786.m

DGPRE786 ;ALB/RC - PRE-INSTALL DG*5.3*786 ; 8/14/08 4:51pm

 ;;5.3;Registration;**786**;Aug 13, 1993;Build 21

 Q

EN ;Pre-install entry point

 N DGX,Y

 F DGX="DEL" D

 .S Y=$$NEWCP^XPDUTL(DGX,DGX_"^DGPRE786")

 .I 'Y D BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")

 Q

DEL ;Delete .03 field in file 46.  

 N DA,DIK

 S DIK="^DD(46,",DA=.03,DA(1)=46

 D ^DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGPRE786   372     printed  Apr 09, 2024@21:43:04                                                                                                                                                                                                     Page 2

DGPRE786  ;ALB/RC - PRE-INSTALL DG*5.3*786 ; 8/14/08 4:51pm

 +1       ;;5.3;Registration;**786**;Aug 13, 1993;Build 21

 +2        QUIT 

EN        ;Pre-install entry point

 +1        NEW DGX,Y

 +2        FOR DGX="DEL"

               Begin DoDot:1

 +3                SET Y=$$NEWCP^XPDUTL(DGX,DGX_"^DGPRE786")

 +4                IF 'Y

                       DO BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")

               End DoDot:1

 +5        QUIT 

DEL       ;Delete .03 field in file 46.  

 +1        NEW DA,DIK

 +2        SET DIK="^DD(46,"

           SET DA=.03

           SET DA(1)=46

 +3        DO ^DIK

 +4        QUIT