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

DG53754A.m

Go to the documentation of this file.
  1. DG53754A ;ALB/TDM - Patch DG*5.3*754 Pre-Install Utility Routine ; 6/8/09 11:36am
  1. ;;5.3;Registration;**754**;AUG 13, 1993;Build 46
  1. ;
  1. Q
  1. START ;Entry point for field definition cleanup
  1. N X,DGFIL,DGFLD,MSG
  1. ;
  1. D BMES^XPDUTL(">> Starting field definition cleanup...")
  1. S DGFIL=2 D HEADER F DGFLD=.03,.152,.351 D DELETE(DGFIL,DGFLD)
  1. D BMES^XPDUTL(">> Field definition cleanup completed")
  1. Q
  1. ;
  1. S MSG=">> "_$P($G(^DIC(DGFIL,0)),U,1)_" File (#"_DGFIL_")"
  1. D BMES^XPDUTL(MSG)
  1. Q
  1. ;
  1. DELETE(DGFIL,DGFLD) ;The procedure will delete the field definition from the Data Dictionary
  1. ; DGFIL - DD File Number (Required)
  1. ; DGFLD - DD Field Number (Required)
  1. ;
  1. Q:($G(DGFIL)=""!$G(DGFLD)="")
  1. N DIK,DA,DGFLDNM
  1. ;
  1. S DIK="^DD("_DGFIL_","
  1. S DA=DGFLD,DA(1)=DGFIL
  1. S DGFLDNM=$P($G(^DD(DGFIL,DGFLD,0)),U,1)
  1. S MSG=" Updating the '"_DGFLDNM_"' field (#"_DGFLD_") definition"
  1. D MES^XPDUTL(MSG)
  1. D ^DIK
  1. Q