DGNOTE.m

DGNOTE ;ALB/MRL - GENERATE RELEASE NOTES ;26 JUL 88@1318

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

 ;Called by [DGNOTE] output template

NR S DGN="NR" D W Q

DR S DGN="DR" D W Q

M S DGN="M" D W Q

NO S DGN="NO" D W1 Q

CO S DGN="CO" D W1 Q

MG S DGN="MG" D W1 Q

NK S DGN="NK" D W1 Q

 ;

W W ?5 F DGI=0:0 S DGI=$O(^DG(48,DGVREL,DGN,DGI)) Q:'DGI  S DGD=$P(^DG(48,DGVREL,DGN,DGI,0),"^",1)_", " W:($X+($L(DGD)))>78 !?5 W DGD

 K DGI,DGD,DGN Q

 ;

W1 W !?4 F DGI=1:1:$L($P(^DG(48,D0,DGN,D1,0),"^",1)) W "-"

 K DGI,DGN Q

 ;

PRINT S DGVREL=$$REL^DGVPP() I 'DGVREL W !!,*7,"UNABLE TO GENERATE RELEASE NOTES!!" Q

 W !!,"GENERATING FOR VERSION ",DGVREL

 S DIC="^DG(48,",DHD="MAS VERSION "_$S(DGVREL[".":DGVREL,1:DGVREL_".0")_" RELEASE NOTES",FLDS="[DGNOTE]",BY=".01,",(TO,FR)=DGVREL_",",L=0 D EN1^DIP

 K BY,TO,FR,FLDS,DGVREL Q

DGNOTE    ;ALB/MRL - GENERATE RELEASE NOTES ;26 JUL 88@1318

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

 +2       ;Called by [DGNOTE] output template

NR         SET DGN="NR"

           DO W

           QUIT 

DR         SET DGN="DR"

           DO W

           QUIT 

M          SET DGN="M"

           DO W

           QUIT 

NO         SET DGN="NO"

           DO W1

           QUIT 

CO         SET DGN="CO"

           DO W1

           QUIT 

MG         SET DGN="MG"

           DO W1

           QUIT 

NK         SET DGN="NK"

           DO W1

           QUIT 

 +1       ;

W          WRITE ?5

           FOR DGI=0:0

               SET DGI=$ORDER(^DG(48,DGVREL,DGN,DGI))

               IF 'DGI

                   QUIT 

               SET DGD=$PIECE(^DG(48,DGVREL,DGN,DGI,0),"^",1)_", "

               IF ($X+($LENGTH(DGD)))>78

                   WRITE !?5

               WRITE DGD

 +1        KILL DGI,DGD,DGN

           QUIT 

 +2       ;

W1         WRITE !?4

           FOR DGI=1:1:$LENGTH($PIECE(^DG(48,D0,DGN,D1,0),"^",1))

               WRITE "-"

 +1        KILL DGI,DGN

           QUIT 

 +2       ;

PRINT      SET DGVREL=$$REL^DGVPP()

           IF 'DGVREL

               WRITE !!,*7,"UNABLE TO GENERATE RELEASE NOTES!!"

               QUIT 

 +1        WRITE !!,"GENERATING FOR VERSION ",DGVREL

 +2        SET DIC="^DG(48,"

           SET DHD="MAS VERSION "_$SELECT(DGVREL[".":DGVREL,1:DGVREL_".0")_" RELEASE NOTES"

           SET FLDS="[DGNOTE]"

           SET BY=".01,"

           SET (TO,FR)=DGVREL_","

           SET L=0

           DO EN1^DIP

 +3        KILL BY,TO,FR,FLDS,DGVREL

           QUIT