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

DG53P555.m

Go to the documentation of this file.
  1. DG53P555 ; BAY/JAT- Patch DG*5.3*555 Install Utility Routine ; 11/7/03 11:25am
  1. ;;5.3;Registration;**555**;AUG 13, 1993
  1. ;
  1. ENV ;Main entry point for Environment check point.
  1. ;
  1. S XPDABORT=""
  1. D PROGCHK(.XPDABORT) ;checks programmer variables
  1. I XPDABORT="" K XPDABORT
  1. Q
  1. PRE ;Main entry point for Pre-install items.
  1. Q
  1. ;
  1. ;
  1. POST ;Main entry point for Post-install items.
  1. ;
  1. D POST1
  1. Q
  1. POST1 ;remove references to field #1 in Race file (it is a
  1. ; partial duplicate of field #2) data dictionary
  1. ;
  1. K ^DD(10,1)
  1. K ^DD(10,"B","ABBREVIATION",1)
  1. K ^DD(10,"GL",0,2,1)
  1. Q
  1. PROGCHK(XPDABORT) ;checks for necessary programmer variables
  1. ;
  1. I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
  1. . D BMES^XPDUTL("*****")
  1. . D MES^XPDUTL("Your programming variables are not set up properly.")
  1. . D MES^XPDUTL("Installation aborted.")
  1. . D MES^XPDUTL("*****")
  1. . S XPDABORT=2
  1. Q