DGNOTE ;ALB/MRL - GENERATE RELEASE NOTES ;26 JUL 88@1318
;;5.3;Registration;;Aug 13, 1993
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGNOTE 822 printed Dec 13, 2024@02:46:07 Page 2
DGNOTE ;ALB/MRL - GENERATE RELEASE NOTES ;26 JUL 88@1318
+1 ;;5.3;Registration;;Aug 13, 1993
+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
