- DGVREL ;ALB/MRL - RELEASE QUESTIONAIRE ; 2 JUN 87
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- W !! D:'$D(DT) DT^DICRW S U="^",IOP="HOME" D ^%ZIS K IOP S:'$D(DTIME) DTIME=999 F I=1:1 S J=$P($T(C+I),";;",2) Q:J="QUIT" W !,J
- 1 W !!,"ARE YOU READY TO ANSWER THIS QUESTIONNAIRE NOW" S %=2 D YN^DICN G Q:%=2,S:%=1 I '% W !!?4,"NO - I'm not ready",!?4,"YES - I'm ready to answer your questions" G 1
- Q K ^UTILITY($J),%,%H,C,DA,DGC,DGD,DGDOT,DGERR,DGF,DGF1,DGF2,DGFAC,DGFILE,DGH,DGHOW,DGHT,DGI,DGI1,DGH,DGM,DGMT,DGN,DGO,DGPGM,DGR,DGVREL,DGS,DGT,DGT1,DGVAR,DGX,DGX1,DIE,DR,I,J,J1,J2,X,X1,X2,X3,XMDUZ,XMSUB,XMTEXT,XMY,Y,Z
- D CLOSE^DGUTQ Q
- S S DGVREL=$$REL^DGVPP() S:$D(^DG(48,DGVREL,0)) DGVRELSD=$S('$P(^(0),"^",4):0,1:+$P(^(0),"^",5)) I DGVREL'>3.5 Q
- Q:'$D(^DG(48,+DGVREL,0)) S (DA,Y)=DGVREL,DIE="^DG(48,",DR="D 120^DGVREL1;120;D 121^DGVREL1;121;D 122^DGVREL1;122;D 123^DGVREL1;123;D 124^DGVREL1;124;D 125^DGVREL1;125;D 126^DGVREL1;126;D 150^DGVREL1;150;" D ^DIE K DR
- V S Z="^LETTER^MESSAGE^" R !!,"SEND RESPONSE VIA (L)ETTER OR (M)AILMAN MESSAGE? ",X:DTIME D IN^DGHELP G Q:X["^"!('$T) I "ML"[X S DGHOW=X D CHK^DGVREL1 G @DGHOW:'DGERR,Q
- W !!?4,"LETTER - To generate release survey on a printer for mailing to ISC.",!?4,"MESSAGE - To transmit release survey as a mailman message if able to do so" G V
- ;
- M D W I Y]"" W !,"DO YOU WISH TO RETRANSMIT AS A MAILMAN MESSAGE"
- E W !!,"ARE YOU READY TO TRANSMIT MESSAGE TO THE ALBANY ISC"
- S %=2 D YN^DICN G T^DGVREL2:%=1,Q:%=2,Q:%=-1 W !!?4,"YES - To Transmit Message",!?4,"NO - To not Transmit Message." G M
- ;
- L S Y=$P(^DG(48,DGVREL,0),"^",2) I Y X ^DD("DD") D W W !,"ENTER AN UP-ARROW [""^""] AT THE 'DEVICE' PROMPT TO ABORT!"
- S DGPGM="L^DGVREL2",DGVAR="DGHOW^DGVRELSD^DGVREL^DUZ" D ZIS^DGUTQ G Q:POP U IO
- G @DGPGM
- W S Y=$P(^DG(48,DGVREL,0),"^",2) I Y X ^DD("DD") W !!,"INITIAL RESPONSE WAS SENT VIA ",$S($P(^DG(48,DGVREL,0),"^",3)="M":"MAILMAN MESSAGE",1:"LETTER")," ON ",Y,"."
- Q
- C ;
- ;;We, the PIMS developers, at the Albany ISC are most interested in your comments
- ;;concerning this release of PIMS. This option was written specifically as a means
- ;;for you, the user, to communicate directly with us, the developers, regarding
- ;;the installation process, documentation quality (option documentation, release
- ;;notes, installation guide), etc., and the initial user reaction to the changes/
- ;;enhancements provided with this release. The option provides for two methods of
- ;;providing us with feedback the first of which is by letter. After answering all
- ;;the questions which are asked and entering your comments you will be asked if
- ;;you wish to reply via letter or mailman. The LETTER option allows you to
- ;;generate your comments, survey responses, initialization times, etc., in a
- ;;letter format to this ISC for our review. This can be queued to any output
- ;;device known to your system and mailed to us. If you have network mailman up
- ;;and running you may elect to transmit the same data via a mailman message
- ;;directly to us. Simply choose MAILMAN as the method of output and we'll do the
- ;;rest for you. A copy of the mailman message will be dropped into your IN basket
- ;;for your records. Thank you.
- ;;
- ;; PIMS Developers
- ;; Albany ISC
- ;; Troy, New York
- ;;QUIT
- DGVREL ;ALB/MRL - RELEASE QUESTIONAIRE ; 2 JUN 87
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 WRITE !!
- IF '$DATA(DT)
- DO DT^DICRW
- SET U="^"
- SET IOP="HOME"
- DO ^%ZIS
- KILL IOP
- IF '$DATA(DTIME)
- SET DTIME=999
- FOR I=1:1
- SET J=$PIECE($TEXT(C+I),";;",2)
- IF J="QUIT"
- QUIT
- WRITE !,J
- 1 WRITE !!,"ARE YOU READY TO ANSWER THIS QUESTIONNAIRE NOW"
- SET %=2
- DO YN^DICN
- IF %=2
- GOTO Q
- IF %=1
- GOTO S
- IF '%
- WRITE !!?4,"NO - I'm not ready",!?4,"YES - I'm ready to answer your questions"
- GOTO 1
- Q KILL ^UTILITY($JOB),%,%H,C,DA,DGC,DGD,DGDOT,DGERR,DGF,DGF1,DGF2,DGFAC,DGFILE,DGH,DGHOW,DGHT,DGI,DGI1,DGH,DGM,DGMT,DGN,DGO,DGPGM,DGR,DGVREL,DGS,DGT,DGT1,DGVAR,DGX,DGX1,DIE,DR,I,J,J1,J2,X,X1,X2,X3,XMDUZ,XMSUB,XMTEXT,XMY,Y,Z
- +1 DO CLOSE^DGUTQ
- QUIT
- S SET DGVREL=$$REL^DGVPP()
- IF $DATA(^DG(48,DGVREL,0))
- SET DGVRELSD=$SELECT('$PIECE(^(0),"^",4):0,1:+$PIECE(^(0),"^",5))
- IF DGVREL'>3.5
- QUIT
- +1 IF '$DATA(^DG(48,+DGVREL,0))
- QUIT
- SET (DA,Y)=DGVREL
- SET DIE="^DG(48,"
- SET DR="D 120^DGVREL1;120;D 121^DGVREL1;121;D 122^DGVREL1;122;D 123^DGVREL1;123;D 124^DGVREL1;124;D 125^DGVREL1;125;D 126^DGVREL1;126;D 150^DGVREL1;150;"
- DO ^DIE
- KILL DR
- V SET Z="^LETTER^MESSAGE^"
- READ !!,"SEND RESPONSE VIA (L)ETTER OR (M)AILMAN MESSAGE? ",X:DTIME
- DO IN^DGHELP
- IF X["^"!('$TEST)
- GOTO Q
- IF "ML"[X
- SET DGHOW=X
- DO CHK^DGVREL1
- IF 'DGERR
- GOTO @DGHOW
- GOTO Q
- +1 WRITE !!?4,"LETTER - To generate release survey on a printer for mailing to ISC.",!?4,"MESSAGE - To transmit release survey as a mailman message if able to do so"
- GOTO V
- +2 ;
- M DO W
- IF Y]""
- WRITE !,"DO YOU WISH TO RETRANSMIT AS A MAILMAN MESSAGE"
- +1 IF '$TEST
- WRITE !!,"ARE YOU READY TO TRANSMIT MESSAGE TO THE ALBANY ISC"
- +2 SET %=2
- DO YN^DICN
- IF %=1
- GOTO T^DGVREL2
- IF %=2
- GOTO Q
- IF %=-1
- GOTO Q
- WRITE !!?4,"YES - To Transmit Message",!?4,"NO - To not Transmit Message."
- GOTO M
- +3 ;
- L SET Y=$PIECE(^DG(48,DGVREL,0),"^",2)
- IF Y
- XECUTE ^DD("DD")
- DO W
- WRITE !,"ENTER AN UP-ARROW [""^""] AT THE 'DEVICE' PROMPT TO ABORT!"
- +1 SET DGPGM="L^DGVREL2"
- SET DGVAR="DGHOW^DGVRELSD^DGVREL^DUZ"
- DO ZIS^DGUTQ
- IF POP
- GOTO Q
- USE IO
- +2 GOTO @DGPGM
- W SET Y=$PIECE(^DG(48,DGVREL,0),"^",2)
- IF Y
- XECUTE ^DD("DD")
- WRITE !!,"INITIAL RESPONSE WAS SENT VIA ",$SELECT($PIECE(^DG(48,DGVREL,0),"^",3)="M":"MAILMAN MESSAGE",1:"LETTER")," ON ",Y,"."
- +1 QUIT
- C ;
- +1 ;;We, the PIMS developers, at the Albany ISC are most interested in your comments
- +2 ;;concerning this release of PIMS. This option was written specifically as a means
- +3 ;;for you, the user, to communicate directly with us, the developers, regarding
- +4 ;;the installation process, documentation quality (option documentation, release
- +5 ;;notes, installation guide), etc., and the initial user reaction to the changes/
- +6 ;;enhancements provided with this release. The option provides for two methods of
- +7 ;;providing us with feedback the first of which is by letter. After answering all
- +8 ;;the questions which are asked and entering your comments you will be asked if
- +9 ;;you wish to reply via letter or mailman. The LETTER option allows you to
- +10 ;;generate your comments, survey responses, initialization times, etc., in a
- +11 ;;letter format to this ISC for our review. This can be queued to any output
- +12 ;;device known to your system and mailed to us. If you have network mailman up
- +13 ;;and running you may elect to transmit the same data via a mailman message
- +14 ;;directly to us. Simply choose MAILMAN as the method of output and we'll do the
- +15 ;;rest for you. A copy of the mailman message will be dropped into your IN basket
- +16 ;;for your records. Thank you.
- +17 ;;
- +18 ;; PIMS Developers
- +19 ;; Albany ISC
- +20 ;; Troy, New York
- +21 ;;QUIT
