GMRGRUT1 ;CISC/RM-ROUTINE UTILITIES (cont.) ;2/21/89
Source file <GMRGRUT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FITLINE | ; THIS UTILITY TAKES A LINE OF TEXT IN GMRGPLN AND A LENGTH IN
; GMRGLEN, AND SETS GMRGPLN(0)=THE FIRST N-WORDS OF GMRGPLN THAT ; WILL FIT IN LENGTH GMRGLEN, AND GMRGPLN(1)=REST OF GMRGPLN ; KILLS GMRGLEN AND RETURNS GMRGPLN,GMRGPLN(0),GMRGPLN(1). |
|
| STORETXT | ; THIS UTILITY TAKES THE FOLLOWING ELEMENTS OF THE GMRGNAR ARRAY
; GMRGNAR=AGGY IEN^O/P FORM.^SPACES LT MARG.^CHILD?^SPACES RT. MARG. ; GMRGNAR(0) = TEXT OF AGGY TERM ^ PATIENT TEXT (IF EXISTS) ; GMRGNAR("LEAD") = LEAD TEXT FOR AGGY TERM ; GMRGNAR("TRAIL") = TRAIL TEXT FOR AGGY TERM ; AND STORES THE APPROPRIATE INFORMATION IN THE APPROPRIATE FORMAT ; INTO THE UTILITY($J,"GMRGNAR",AGGY CLASS,AGGY IEN,LINE) GLOBAL |
|
| QS |
