Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
801 bytes
|
Line | |
---|
1 | DGNOTE ;ALB/MRL - GENERATE RELEASE NOTES ;26 JUL 88@1318
|
---|
2 | ;;5.3;Registration;;Aug 13, 1993
|
---|
3 | ;Called by [DGNOTE] output template
|
---|
4 | NR S DGN="NR" D W Q
|
---|
5 | DR S DGN="DR" D W Q
|
---|
6 | M S DGN="M" D W Q
|
---|
7 | NO S DGN="NO" D W1 Q
|
---|
8 | CO S DGN="CO" D W1 Q
|
---|
9 | MG S DGN="MG" D W1 Q
|
---|
10 | NK S DGN="NK" D W1 Q
|
---|
11 | ;
|
---|
12 | 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
|
---|
13 | K DGI,DGD,DGN Q
|
---|
14 | ;
|
---|
15 | W1 W !?4 F DGI=1:1:$L($P(^DG(48,D0,DGN,D1,0),"^",1)) W "-"
|
---|
16 | K DGI,DGN Q
|
---|
17 | ;
|
---|
18 | PRINT S DGVREL=$$REL^DGVPP() I 'DGVREL W !!,*7,"UNABLE TO GENERATE RELEASE NOTES!!" Q
|
---|
19 | W !!,"GENERATING FOR VERSION ",DGVREL
|
---|
20 | 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
|
---|
21 | K BY,TO,FR,FLDS,DGVREL Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.