|
Last change
on this file since 1699 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
522 bytes
|
| Line | |
|---|
| 1 | DG53705E ;ALB/TMK - DG*5.3*705 Environment check ; 05-APR-2006
|
|---|
| 2 | ;;5.3;Registration;**705**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Check for need to update
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | CKUPD() ; 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.
