Routine: GMRCRA

Information

GMRCRA ;SLC/DLT - Build ^TMP("GMRCR",$J, array of consults ;5/20/98 14:20

Source file <GMRCRA.m>

Name	Comments	DBIA/ICR reference
AD	;Loop thru AD cross reference
ADBUILD	;Check for Service Match
AESS	;Build array based on service (variable GMRCSS) and single patient
AECONT
BUILD	;Build array
PRE	;Setup for creating array of consults
END

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	AD+2, ADBUILD+1, AECONT, BUILD+1, BUILD+2, BUILD+3
^TMP("GMRCR"	BUILD+2, BUILD+3, BUILD+4*, PRE+1!
^TMP("GMRCS"	ADBUILD+1, AESS+2, AESS+3

Name	Field # of Occurrence
^(0	ADBUILD+1
^(30	BUILD+3

Name	Field # of Occurrence
%T	END!
>> DFN	AD+2, AECONT
DIC	END!
GMRC	PRE+1!, END!
GMRC0	END!
GMRC1	AESS+2, AESS+3, AECONT, PRE+1, END!
GMRC2	AECONT, PRE+1, END!
GMRCD	AD+2*, END!
GMRCDA	AD+2, ADBUILD+1, AECONT, BUILD+1, BUILD+2, BUILD+3, BUILD+4, PRE+1*, END!
GMRCDOB	END!
GMRCLO	END!
GMRCPNM	END!
>> GMRCQIT	AD+2, AECONT
GMRCRB	END!
GMRCSN	END!
>> GMRCSS	PRE+1
>> GMRCT	AD+3, AESS+4, BUILD+2, BUILD+3, BUILD+4, PRE+1*
>> GMRCTC	AD+3, AESS+4, PRE+1*
>> GMRCTO	AESS+3*
GMRCWARD	END!
VA	END!
VADM	END!
VAEL	END!
VAERR	END!
VAIN	END!
VAINDT	END!
VAPA	END!
X	END!
Y	END!