QAPPOST ;557/THM-POST INIT FOR SURVEY GENERATOR V 2.0 [ 03/04/95 11:32 PM ]
;;2.0;Survey Generator;;Jun 20, 1995
;
I '$D(DUZ(2)) W !!,*7,"DUZ(2) is not defined. Please set and rerun QAPPOST by entering D ^QAPPOST",! Q
Q:DUZ(2)=557 ;don't delete the developer's copy
EN F X="QAPDEL","QAPUSPRT" X ^%ZOSF("TEST") D:$T I '$T W !!,"The routine ",X," is not on disk.",!,"No action needed.",!
.W !,"Deleting the routine ",X," since it is no longer needed..." H 1 X ^%ZOSF("DEL")
W !!,"Finished.",!
DELEND K DIC,X,Y,DIK,DA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAPPOST 538 printed Sep 23, 2025@20:14:44 Page 2
QAPPOST ;557/THM-POST INIT FOR SURVEY GENERATOR V 2.0 [ 03/04/95 11:32 PM ]
+1 ;;2.0;Survey Generator;;Jun 20, 1995
+2 ;
+3 IF '$DATA(DUZ(2))
WRITE !!,*7,"DUZ(2) is not defined. Please set and rerun QAPPOST by entering D ^QAPPOST",!
QUIT
+4 ;don't delete the developer's copy
if DUZ(2)=557
QUIT
EN FOR X="QAPDEL","QAPUSPRT"
XECUTE ^%ZOSF("TEST")
if $TEST
Begin DoDot:1
+1 WRITE !,"Deleting the routine ",X," since it is no longer needed..."
HANG 1
XECUTE ^%ZOSF("DEL")
End DoDot:1
IF '$TEST
WRITE !!,"The routine ",X," is not on disk.",!,"No action needed.",!
+2 WRITE !!,"Finished.",!
DELEND KILL DIC,X,Y,DIK,DA
+1 QUIT
