source: WorldVistAEHR/trunk/r/GEN_MED_REC_GENERATOR-GMRG/GMRGPNBL.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1GMRGPNBL ;CISC/JH/RM-NARRATIVE BUILDER FOR TEXT GENERATOR ;2/15/91
2 ;;3.0;Text Generator;;Jan 24, 1996
3EN1 ; 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
Note: See TracBrowser for help on using the repository browser.