- 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
