Routine: DGVREL4

DGVREL4 ;ALB/MRL - FORMAT RELEASE MESSAGE/LETTER, CONT. ; 2 JUN 87

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

 S C=$S('DGFILE&('DGVRELSD):3,'DGFILE:4,'DGVRELSD:5,1:6),DGR="POOR^FAIR^GOOD^VERY GOOD^EXCELLENT",DGN=^DG(48,DGVREL,"S"),DGT=C_".  SURVEY RESPONSE" D S S DGT="    ---------------" D S

 F I=1:1:6 S J=$P($T(ST+I),";;",2),J1=+$P(DGN,"^",I+1),J2=$S('J1:"NONE PROVIDED",1:$P(DGR,"^",J1)),DGDOT="",$P(DGDOT,".",40)="",X=78-($L(J2)+1),DGT=$E("    "_J_DGDOT,1,X)_" "_J2 D S

 S DGT="" D S S DGT=$S('DGFILE&('DGVRELSD):4,'DGFILE:5,'DGVRELSD:6,1:7)_".  USER COMMENTS" D S S DGT="    -------------" D S S C=0 F I=0:0 S I=$O(^DG(48,DGVREL,"UC",I)) Q:'I  S C=C+1,DGT=^(I,0) D S

 I 'C S DGT="    No User Comments Submitted." D S

S S DGC=DGC+1,^UTILITY($J,"DGVREL",DGC,0)=DGT Q

ST ;

 ;;Quality of Documentation (if included)

 ;;Installation Guide accuracy and quality

 ;;Release Notes quality and accuracy

 ;;Initialization Time Satisfaction

 ;;Initial User Satisfaction with product

 ;;Overall Satisfaction with this release

DGVREL4   ;ALB/MRL - FORMAT RELEASE MESSAGE/LETTER, CONT. ; 2 JUN 87

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

 +2        SET C=$SELECT('DGFILE&('DGVRELSD):3,'DGFILE:4,'DGVRELSD:5,1:6)

           SET DGR="POOR^FAIR^GOOD^VERY GOOD^EXCELLENT"

           SET DGN=^DG(48,DGVREL,"S")

           SET DGT=C_".  SURVEY RESPONSE"

           DO S

           SET DGT="    ---------------"

           DO S

 +3        FOR I=1:1:6

               SET J=$PIECE($TEXT(ST+I),";;",2)

               SET J1=+$PIECE(DGN,"^",I+1)

               SET J2=$SELECT('J1:"NONE PROVIDED",1:$PIECE(DGR,"^",J1))

               SET DGDOT=""

               SET $PIECE(DGDOT,".",40)=""

               SET X=78-($LENGTH(J2)+1)

               SET DGT=$EXTRACT("    "_J_DGDOT,1,X)_" "_J2

               DO S

 +4        SET DGT=""

           DO S

           SET DGT=$SELECT('DGFILE&('DGVRELSD):4,'DGFILE:5,'DGVRELSD:6,1:7)_".  USER COMMENTS"

           DO S

           SET DGT="    -------------"

           DO S

           SET C=0

           FOR I=0:0

               SET I=$ORDER(^DG(48,DGVREL,"UC",I))

               IF 'I

                   QUIT

               SET C=C+1

               SET DGT=^(I,0)

               DO S

 +5        IF 'C

               SET DGT="    No User Comments Submitted."

               DO S

 +6        QUIT

S          SET DGC=DGC+1

           SET ^UTILITY($JOB,"DGVREL",DGC,0)=DGT

           QUIT

 +1        QUIT

ST        ;

 +1       ;;Quality of Documentation (if included)

 +2       ;;Installation Guide accuracy and quality

 +3       ;;Release Notes quality and accuracy

 +4       ;;Initialization Time Satisfaction

 +5       ;;Initial User Satisfaction with product

 +6       ;;Overall Satisfaction with this release

DGVREL4.m