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

DG53688B.m

Go to the documentation of this file.
  1. DG53688B ;ALB/TDM - Patch DG*5.3*688 Pre-Install Utility Routine ; 8/18/08 10:46am
  1. ;;5.3;Registration;**688**;AUG 13, 1993;Build 29
  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=.119,.32102,.322013 D DELETE(DGFIL,DGFLD)
  1. S DGFIL=408.22 D HEADER S DGFLD=.11 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