source: WorldVistAEHR/trunk/r/SURVEY_GENERATOR-QAP/QAPPOST.m@ 1800

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

initial load of WorldVistAEHR

File size: 528 bytes
RevLine 
[613]1QAPPOST ;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
6EN 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.",!
9DELEND K DIC,X,Y,DIK,DA
10 Q
Note: See TracBrowser for help on using the repository browser.