source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53705E.m@ 1582

Last change on this file since 1582 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 522 bytes
Line 
1DG53705E ;ALB/TMK - DG*5.3*705 Environment check ; 05-APR-2006
2 ;;5.3;Registration;**705**;Aug 13, 1993
3 ;
4EN ; Check for need to update
5 Q
6 ;
7CKUPD() ; Check to see if update is necessary
8 ; Return 1 if necessary, 0 if not necessary
9 N HASDVB54,Z,ZERR,DIERR
10 S HASDVB54=0
11 D FIND^DIC(9.7,"","","X","DVB*4.0*54","","","","","Z","ZERR")
12 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
13 D CLEAN^DILF
14 Q HASDVB54
15 ;
Note: See TracBrowser for help on using the repository browser.