GMRGRUT1 ;CISC/RM-ROUTINE UTILITIES (cont.) ;2/21/89
Source file <GMRGRUT1.m>
Package | Total | Call Graph |
---|---|---|
General Medical Record - Generator | 2 | EN1^GMRGRUT2 NOB^GMRGRUT4 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
GMRG01 | STORETXT+7*, STORETXT+10, STORETXT+13, STORETXT+14, QS! |
GMRG02 | STORETXT+7*, QS! |
GMRG03 | QS! |
GMRG04 | STORETXT+10*, STORETXT+15*, QS! |
GMRG05 | STORETXT+10*, STORETXT+13*, STORETXT+14*, QS! |
GMRG06 | STORETXT+10*, QS! |
GMRG08 | STORETXT+10*, STORETXT+13*, STORETXT+14*, QS! |
GMRG10 | STORETXT+9*, STORETXT+10, QS! |
GMRG100 | FITLINE+4*, FITLINE+5*, FITLINE+6, FITLINE+8! |
GMRG101 | FITLINE+5*, FITLINE+8! |
GMRG102 | FITLINE+5*, FITLINE+8! |
GMRG11 | STORETXT+8*, QS! |
GMRG12 | QS! |
GMRG13 | QS! |
GMRG14 | STORETXT+7*, STORETXT+9, QS! |
GMRG15 | STORETXT+7*, QS! |
GMRG16 | STORETXT+9*, QS! |
GMRG17 | STORETXT+9*, QS! |
GMRG18 | STORETXT+9*, STORETXT+11*, STORETXT+12*, STORETXT+14*, QS! |
>> GMRGCLAS | STORETXT+7, STORETXT+10, STORETXT+14 |
GMRGLEN | FITLINE+5, FITLINE+6, FITLINE+7, FITLINE+8! |
GMRGNAR | STORETXT+7, STORETXT+9, STORETXT+10, STORETXT+12, STORETXT+13, STORETXT+14, QS! |
GMRGNAR("LEAD" | STORETXT+12* |
GMRGNAR("TRAIL" | STORETXT+12* |
GMRGNAR(0 | STORETXT+8 |
GMRGPLN | FITLINE+4, FITLINE+5, FITLINE+6, FITLINE+7, STORETXT+10*, STORETXT+11*, STORETXT+13*, STORETXT+14*, QS! |
GMRGPLN(0 | FITLINE+4*, FITLINE+6*, FITLINE+7* |
GMRGPLN(1 | FITLINE+4*, FITLINE+6*, FITLINE+7* |
>> GMRGSPC | STORETXT+10, STORETXT+14 |
>> GMRGSSW | STORETXT+13, STORETXT+14 |
GMRGXPRT | STORETXT+8*! |
GMRGXPRT(0 | STORETXT+8* |
GMRGXPRT(1 | STORETXT+8* |
IOM | STORETXT+9 |