DG53705E ;ALB/TMK - DG*5.3*705 Environment check ; 05-APR-2006
;;5.3;Registration;**705**;Aug 13, 1993
;
EN ; Check for need to update
Q
;
CKUPD() ; Check to see if update is necessary
; Return 1 if necessary, 0 if not necessary
N HASDVB54,Z,ZERR,DIERR
S HASDVB54=0
D FIND^DIC(9.7,"","","X","DVB*4.0*54","","","","","Z","ZERR")
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
D CLEAN^DILF
Q HASDVB54
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53705E 537 printed Dec 13, 2024@02:38:27 Page 2
DG53705E ;ALB/TMK - DG*5.3*705 Environment check ; 05-APR-2006
+1 ;;5.3;Registration;**705**;Aug 13, 1993
+2 ;
EN ; Check for need to update
+1 QUIT
+2 ;
CKUPD() ; Check to see if update is necessary
+1 ; Return 1 if necessary, 0 if not necessary
+2 NEW HASDVB54,Z,ZERR,DIERR
+3 SET HASDVB54=0
+4 DO FIND^DIC(9.7,"","","X","DVB*4.0*54","","","","","Z","ZERR")
+5 IF $GET(Z("DILIST",0))
IF $SELECT($GET(^TMP("DG*5.3*705",$JOB))!$DATA(^DIC(2,"%","B","QAM",7))!$DATA(^DD(2,0,"PT",19000.00001,.01))!$DATA(^DD(2,0,"ID","GARB")):1,1:0)
SET HASDVB54=1
+6 DO CLEAN^DILF
+7 QUIT HASDVB54
+8 ;
