| [613] | 1 | GMRGPNBL ;CISC/JH/RM-NARRATIVE BUILDER FOR TEXT GENERATOR ;2/15/91
|
|---|
| 2 | ;;3.0;Text Generator;;Jan 24, 1996
|
|---|
| 3 | EN1 ; ENTRY TO BUILD THE NARRATIVE FOR AN AGGREGATE TERM INTO AN ARRAY
|
|---|
| 4 | ; INPUT VARIABLES:
|
|---|
| 5 | ; GMRGPDT=DATE/TIME YOU WISH TO SEE A PICTURE OF THE PLAN AT
|
|---|
| 6 | ; GMRGPDA=PTR TO 124.3 FILE OF PLAN TO BE PRINTED
|
|---|
| 7 | ; GMRGPAR=PTR 124.2 OF TERM TO BEGIN BUILDING ARRAY
|
|---|
| 8 | ; GMRGPAR(0)=GMRGCSW^GMRGRM^GMRGSPC^GMRGCLAS
|
|---|
| 9 | ; WHERE GMRGCSW=$S(1:use active plan only,0:use active or
|
|---|
| 10 | ; or inactive plan)
|
|---|
| 11 | ; GMRGRM=SPACES FROM RIGHT MARGIN
|
|---|
| 12 | ; GMRGSPC=SPACES FROM LEFT MARGIN (built into array)
|
|---|
| 13 | ; GMRGCLAS=SUBSCRIPT USED BY PACKAGE TO FURTHER
|
|---|
| 14 | ; DIFFERENTIATE OR GROUP THE ARRAY.
|
|---|
| 15 | ; OUTPUT VARIABLES:
|
|---|
| 16 | ; ^TMP($J,"GMRGNAR",GMRGCLAS,GMRGPAR,#) ARRAY
|
|---|
| 17 | ; ,0)=^N
|
|---|
| 18 | ; ,1-N)=PRINTABLE TEXT
|
|---|
| 19 | ; where N=NUMBER OF LINES TO PRINT
|
|---|
| 20 | ; GMRGPAR is killed.
|
|---|
| 21 | S GMRGCSW=+$P(GMRGPAR(0),"^"),GMRGRM=+$P(GMRGPAR(0),"^",2),GMRGSPC=+$P(GMRGPAR(0),"^",3),GMRGCLAS=$S($L($P(GMRGPAR(0),"^",4)):$P(GMRGPAR(0),"^",4),1:""),GMRGPLVL=1,GMRGSSW=0,GMRGA0=GMRGPAR
|
|---|
| 22 | K ^TMP($J,"GMRGNAR",GMRGCLAS,GMRGPAR) S ^TMP($J,"GMRGNAR",GMRGCLAS,GMRGPAR,0)="^0"
|
|---|
| 23 | D TEXT^GMRGPNB0
|
|---|
| 24 | K GMRGA0,GMRGADD,GMRGB0,GMRGC0,GMRGCLAS,GMRGCSW,GMRGD0,GMRGE0,GMRGF0,GMRGG0,GMRGH0,GMRGHH0,GMRGI0,GMRGJ0,GMRGK0,GMRGM0,GMRGPAR,GMRGPLVL,GMRGRM,GMRGSNT,GMRGSPC,GMRGSPTR,GMRGSSW,GMRGSTAT
|
|---|
| 25 | Q
|
|---|
