©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | STORETXT+7, STORETXT+10, STORETXT+14 |
| Name | Line Occurrences |
|---|---|
| QS | STORETXT+11 |
| Name | Field # of Occurrence |
|---|---|
| ^( | STORETXT+10 |
| ^(0 | STORETXT+7 |
| >> | 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 |