Routine: GMRGRUT1

Information

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

Package	Total	Caller Graph
Nursing Service	9	NURCAS1 NURCCPU1 NURCES1 NURCPP1 NURCPP2 NURCPP4 NURCPP7 NURCPP9 NURCPPS2
General Medical Record - Generator	7	GMRGED4 GMRGED8 GMRGPNB0 GMRGPNB2 GMRGRUT2 GMRGRUT4 GMRGTGI1

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	Field # of Occurrence
EN1^GMRGRUT2	STORETXT+8
NOB^GMRGRUT4	STORETXT+11, STORETXT+15

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

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