Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53P784

DG53P784.m

Go to the documentation of this file.
  1. DG53P784 ;ALB/RC - PRE-INSTALL DG*5.3*784 ; 6/12/08 12:17pm
  1. ;;5.3;Registration;**784**;Aug 13, 1993;Build 16
  1. Q
  1. EN ;Post install entry point
  1. N DGX,Y
  1. F DGX="DEL" D
  1. .S Y=$$NEWCP^XPDUTL(DGX,DGX_"^DG53P784")
  1. .I 'Y D BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")
  1. Q
  1. DEL ;Delete trigger on field 2 of subfile 45.02 for file 45.
  1. N DGFILE,DGFIELD,DGREF
  1. S DGFILE=45.02,DGFIELD=2,DGREF=1
  1. D DELIX^DDMOD(DGFILE,DGFIELD,DGREF)
  1. Q