|
Last change
on this file since 1394 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
699 bytes
|
| Line | |
|---|
| 1 | DVBHPRE ;ALB/JLU;Pre init for HINQ v4.0
|
|---|
| 2 | ;;V4.0;HINQ;;03/25/92
|
|---|
| 3 | EN ;
|
|---|
| 4 | I $D(DUZ)>10,$D(DUZ(0)),DUZ(0)="@"
|
|---|
| 5 | E W !!,$C(7,7),?10,"DUZ must be set, DUZ(0) Must be set to @ !" K DIFQ Q
|
|---|
| 6 | ;
|
|---|
| 7 | ;Checks to see if version of HINQ was 3.2 or greater.
|
|---|
| 8 | S ^TMP("DVBHINQ")=$S($D(^DD(395,0,"VR")):^("VR"),1:"")
|
|---|
| 9 | ;Will ask if site wants to purge only keeping 7 days
|
|---|
| 10 | P S DIR(0)="YA",DIR("A")="Do you wish to purge the HINQ Suspense file only keeping 7 days? " D ^DIR
|
|---|
| 11 | S ^TMP("DVBHINQPURGE")=$S(Y=1:"YES",1:"NO")
|
|---|
| 12 | ;sets compile routine size if inter systems.
|
|---|
| 13 | S I ^%ZOSF("OS")["M/11" W !!!,"The compiled routines will need to be compiled at 2401.",!,"At the routine size input 2401 and return past the rest." D ^DIEZ
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
