Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
528 bytes
|
Rev | Line | |
---|
[628] | 1 | QAPPOST ;557/THM-POST INIT FOR SURVEY GENERATOR V 2.0 [ 03/04/95 11:32 PM ]
|
---|
| 2 | ;;2.0;Survey Generator;;Jun 20, 1995
|
---|
| 3 | ;
|
---|
| 4 | I '$D(DUZ(2)) W !!,*7,"DUZ(2) is not defined. Please set and rerun QAPPOST by entering D ^QAPPOST",! Q
|
---|
| 5 | Q:DUZ(2)=557 ;don't delete the developer's copy
|
---|
| 6 | EN F X="QAPDEL","QAPUSPRT" X ^%ZOSF("TEST") D:$T I '$T W !!,"The routine ",X," is not on disk.",!,"No action needed.",!
|
---|
| 7 | .W !,"Deleting the routine ",X," since it is no longer needed..." H 1 X ^%ZOSF("DEL")
|
---|
| 8 | W !!,"Finished.",!
|
---|
| 9 | DELEND K DIC,X,Y,DIK,DA
|
---|
| 10 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.