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

DG53705E.m

Go to the documentation of this file.
  1. DG53705E ;ALB/TMK - DG*5.3*705 Environment check ; 05-APR-2006
  1. ;;5.3;Registration;**705**;Aug 13, 1993
  1. ;
  1. EN ; Check for need to update
  1. Q
  1. ;
  1. CKUPD() ; Check to see if update is necessary
  1. ; Return 1 if necessary, 0 if not necessary
  1. N HASDVB54,Z,ZERR,DIERR
  1. S HASDVB54=0
  1. D FIND^DIC(9.7,"","","X","DVB*4.0*54","","","","","Z","ZERR")
  1. I $G(Z("DILIST",0)),$S($G(^TMP("DG*5.3*705",$J))!$D(^DIC(2,"%","B","QAM",7))!$D(^DD(2,0,"PT",19000.00001,.01))!$D(^DD(2,0,"ID","GARB")):1,1:0) S HASDVB54=1
  1. D CLEAN^DILF
  1. Q HASDVB54
  1. ;