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

DGJ1P3.m

Go to the documentation of this file.
  1. DGJ1P3 ;ALB/MRY - Patch #3 Environment Check ; 8/23/04 10:04 AM
  1. ;;1.0;Incomplete Records Tracking;**3**;Jun 25, 2001
  1. ;
  1. EN ;
  1. S XPDABORT=""
  1. I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
  1. . D BMES^XPDUTL("*****")
  1. . D MES^XPDUTL("Your programming variables are not set up properly.")
  1. . D MES^XPDUTL("Installation aborted.")
  1. W !!,">> Environment check complete and okay."
  1. Q
  1. ;
  1. ABRT ; Abort transport, but leave in ^XTMP.
  1. S ^XPDABORT=2 Q
  1. ;
  1. PRE ; Kill DD field (#10.04) of file (#393). Rebuild in Build.
  1. S DIK="^DD(393,",DA=10.04,DA(1)=393
  1. D ^DIK
  1. Q
  1. ;
  1. POST ;Post init - Disable Corefls option.
  1. N DIC,TEXT
  1. S DIC="^DIC(19,",DIC(0)="X"
  1. S X="DGJ LOCAL VENDOR ADD" D
  1. . D ^DIC Q:Y<0 D
  1. .. D BMES^XPDUTL("*****")
  1. .. D MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
  1. .. S TEXT="CoreFLS Disabled (DGJ*1*3)"
  1. .. D OUT^XPDMENU(X,TEXT)
  1. Q