DGVREL1.m

DGVREL1 ;ALB/MRL - RELEASE QUESTIONAIRE ; 2 JUN 87

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

120 W !!,"I have stored the initialization times for the initialization process and would",!,"like to view the sizes of your files against these times to better serve your",!,"needs in the future.",! Q

121 W !!,"Please rate the quality of the documentation received.  If none was received",!,"enter a '0'." S DGR="" G R

122 W !!,"Please rate the quality of the Installation Guide.  Was it easy to follow,",!,"accurate, etc.?" G R

123 W !!,"Please rate the quality of the Release Notes.  Were they easy to follow,",!,"informative, etc.?" G R

124 W !!,"How would you rate the overall initialization process now that you've been",!,"thru it?  Did it run smoothly?  Did it run in an acceptable amount of time?" G R

125 W !!,"How would you rate your users initial impression of this release?" G R

126 W !!,"How would you rate this release as a whole?" G R

150 W !!,"Please enter any comments, suggestions, etc., which you feel might assist us in",!,"better assisting you and your users.",! Q

R W !!,"[1]  POOR",?20,"[2]  FAIR",?60,"[3]  GOOD",!,"[4]  VERY GOOD",?20,"[5]  EXCELLENT" I $D(DGR) W ?60,"[0]  NONE INCLUDED"

 W ! K DGR Q

CHK S DGERR=0 I '$D(^DG(48,DGVREL,"R")) W !!,"INITIALIZATION TIMES NOT DEFINED" S DGERR=1 G Q1

 I '$D(^DG(48,DGVREL,"S")) W !!,"SURVEY NOT COMPLETED" S DGERR=1 G Q1

 F I=1:1:7 I $P(^DG(48,DGVREL,"S"),"^",I)']"" S DGERR=1

 I DGERR W !!,"NOT ALL SURVEY ITEMS COMPLETED"

Q1 Q:'DGERR  W "...CAN'T ",$S(DGHOW="M":"TRANSMIT MESSAGE",1:"GENERATE LETTER"),"...",*7 Q

DGVREL1   ;ALB/MRL - RELEASE QUESTIONAIRE ; 2 JUN 87

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

120        WRITE !!,"I have stored the initialization times for the initialization process and would",!,"like to view the sizes of your files against these times to better serve your",!,"needs in the future.",!

           QUIT 

121        WRITE !!,"Please rate the quality of the documentation received.  If none was received",!,"enter a '0'."

           SET DGR=""

           GOTO R

122        WRITE !!,"Please rate the quality of the Installation Guide.  Was it easy to follow,",!,"accurate, etc.?"

           GOTO R

123        WRITE !!,"Please rate the quality of the Release Notes.  Were they easy to follow,",!,"informative, etc.?"

           GOTO R

124        WRITE !!,"How would you rate the overall initialization process now that you've been",!,"thru it?  Did it run smoothly?  Did it run in an acceptable amount of time?"

           GOTO R

125        WRITE !!,"How would you rate your users initial impression of this release?"

           GOTO R

126        WRITE !!,"How would you rate this release as a whole?"

           GOTO R

150        WRITE !!,"Please enter any comments, suggestions, etc., which you feel might assist us in",!,"better assisting you and your users.",!

           QUIT 

R          WRITE !!,"[1]  POOR",?20,"[2]  FAIR",?60,"[3]  GOOD",!,"[4]  VERY GOOD",?20,"[5]  EXCELLENT"

           IF $DATA(DGR)

               WRITE ?60,"[0]  NONE INCLUDED"

 +1        WRITE !

           KILL DGR

           QUIT 

CHK        SET DGERR=0

           IF '$DATA(^DG(48,DGVREL,"R"))

               WRITE !!,"INITIALIZATION TIMES NOT DEFINED"

               SET DGERR=1

               GOTO Q1

 +1        IF '$DATA(^DG(48,DGVREL,"S"))

               WRITE !!,"SURVEY NOT COMPLETED"

               SET DGERR=1

               GOTO Q1

 +2        FOR I=1:1:7

               IF $PIECE(^DG(48,DGVREL,"S"),"^",I)']""

                   SET DGERR=1

 +3        IF DGERR

               WRITE !!,"NOT ALL SURVEY ITEMS COMPLETED"

Q1         IF 'DGERR

               QUIT 

           WRITE "...CAN'T ",$SELECT(DGHOW="M":"TRANSMIT MESSAGE",1:"GENERATE LETTER"),"...",*7

           QUIT