- 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 Feb 19, 2025@00:04:30 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 ;