QAPPOST.m

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 ---QAPPOST   538     printed  Apr 23, 2025@18:52:55                                                                                                                                                                                                      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