DGVREL2.m

DGVREL2 ;ALB/MRL - GENERATE RELEASE MESSAGE/LETTER ; 2 JUN 87

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

T D ^DGVREL3 S XMSUB=DGS_", "_DGFAC,XMDUZ=$S($D(DUZ)#2:DUZ,1:.5),XMTEXT="^UTILITY($J,""DGVREL"",",XMY(XMDUZ)="",XMY("G.MASRELEASE@ISC-ALBANY.VA.GOV")="" D ^XMD K XMSUB,XMTEXT,XMY

 W !!,"> Message Transmitted to PIMS Developers...Thank you for your response.",!,"> A copy of the message is located in your IN box." G Q

L D ^DGVREL3 W @IOF F I=0:0 S I=$O(^UTILITY($J,"DGVREL",I)) Q:'I  W !,^(I,0) I $Y>$S($D(IOSL):(IOSL-5),1:61) W @IOF

 F I=$Y:1:$S($D(IOSL):(IOSL-10),1:56) W !

 W !,"_____________________________________",!,"SIGNATURE OF PERSON COMPLETING REPORT",!

Q D H^DGUTL S $P(^DG(48,DGVREL,0),"^",2)=DGTIME,$P(^(0),"^",3)=DGHOW K DGDATE,DGTIME G Q^DGVREL

DGVREL2   ;ALB/MRL - GENERATE RELEASE MESSAGE/LETTER ; 2 JUN 87

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

T          DO ^DGVREL3

           SET XMSUB=DGS_", "_DGFAC

           SET XMDUZ=$SELECT($DATA(DUZ)#2:DUZ,1:.5)

           SET XMTEXT="^UTILITY($J,""DGVREL"","

           SET XMY(XMDUZ)=""

           SET XMY("G.MASRELEASE@ISC-ALBANY.VA.GOV")=""

           DO ^XMD

           KILL XMSUB,XMTEXT,XMY

 +1        WRITE !!,"> Message Transmitted to PIMS Developers...Thank you for your response.",!,"> A copy of the message is located in your IN box."

           GOTO Q

L          DO ^DGVREL3

           WRITE @IOF

           FOR I=0:0

               SET I=$ORDER(^UTILITY($JOB,"DGVREL",I))

               IF 'I

                   QUIT 

               WRITE !,^(I,0)

               IF $Y>$SELECT($DATA(IOSL):(IOSL-5),1:61)

                   WRITE @IOF

 +1        FOR I=$Y:1:$SELECT($DATA(IOSL):(IOSL-10),1:56)

               WRITE !

 +2        WRITE !,"_____________________________________",!,"SIGNATURE OF PERSON COMPLETING REPORT",!

Q          DO H^DGUTL

           SET $PIECE(^DG(48,DGVREL,0),"^",2)=DGTIME

           SET $PIECE(^(0),"^",3)=DGHOW

           KILL DGDATE,DGTIME

           GOTO Q^DGVREL