|
Last change
on this file since 1800 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
