Routine: GMRAU85

Information

GMRAU85 ;HIRMFO/RFM,WAA-UTILITIES FOR FILE 120.85 ;02-Nov-2010 16:37;DU

Source file <GMRAU85.m>

Package	Total	Call Graph
VA Fileman	3	^DIC IX1^DIK ^DIR
Adverse Reaction Tracking	1	($$LOCK,SITE)^GMRAUTL

Package	Total	Caller Graph
Adverse Reaction Tracking	8	GMRAFDA GMRAFDA1 GMRAMAN GMRAPEM0 GMRAPEO0 GMRAPT GMRAREP GMRAROBS

Name	Comments	DBIA/ICR reference
Q1	;
ADR	; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT (DFN) IS KNOWN, ; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT.
OBSDRG(GMRA)	; GIVEN GMRA AS ENTRY IN 120.8, FUNCTION RETURNS 1 IF OBS. DRUG ; ELSE IT RETURNS 0
EN1	; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT IS NOT KNOWN ; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT.
EN2	; LOOKUP 120.85 ENTRY IF PATIENT (DFN) KNOWN, AND 120.8 ENTRY (GMRAPA) ; IS KNOWN. ; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT.
SCR03	; SCREEN FOR .03 FIELD OF FILE 120.85
SCR02	; SCREEN FOR .02 FIELD OF FILE 120.85

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,$C(7),"THIS PATIENT HAS NO ALLERGY/ADVERSE REACTIONS TO REPORT ON." Line Location: ADR+6
Routine Call	DIC Line Location: EN1+3 ADR+11 EN2+10
Routine Call	DIR Line Location: ADR+9 EN2+6

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ADR+11
^GMR(120.8 - [#120.8]	ADR+3, EN2+15, EN2+16, EN2+17, SCR02+4, SCR03+2, SCR03+5, OBSDRG+3, OBSDRG+5
^GMR(120.85 - [#120.85]	EN2+15, EN2+17, EN2+20, EN2+21, EN2+22*, SCR02+2, SCR03+2, OBSDRG+2
^GMRD(120.84 - [#120.84]	EN2+20

Name	Field # of Occurrence
>> DA	EN2+23*, SCR02+1, SCR02+2, SCR03+1, SCR03+2
>> DFN	EN1+3*, ADR+3, ADR+11, EN2+10
DIC	EN1+3!, ADR+11!, EN2+8*, EN2+10!
DIC("DR"	EN2+10*
DIC("S"	ADR+11, EN2+9
DIC("W"	ADR+11, EN2+10
DIC(0	EN1+3, ADR+11, EN2+8*
>> DIK	EN2+23*
DIR	ADR+8!, ADR+9!, EN2+5!, EN2+6!
DIR("?"	ADR+8, EN2+6
DIR("??"	ADR+9, EN2+6
DIR("A"	ADR+8, EN2+5
DIR(0	ADR+8, EN2+5
>> DIRUT	ADR+9, EN2+7
DLAYGO	EN2+9*, EN2+10!
>> DTOUT	ADR+12, EN2+7, EN2+10
>> DUOUT	ADR+12, EN2+7, EN2+10
DUZ	EN2+10, EN2+17
GMRA	SCR02+2, SCR02+3!, SCR02+4!, SCR02+6!, SCR03+2, SCR03+3!, SCR03+4!, SCR03+5!, SCR03+7!, OBSDRG~ , OBSDRG+2, OBSDRG+3, OBSDRG+5, OBSDRG+8, OBSDRG+9
GMRA(0	SCR03+2, SCR03+3, OBSDRG+3, OBSDRG+5
>> GMRALAGO	EN2+8, EN2+9
>> GMRAN85	EN2+13*
GMRANAM	EN1+3*, Q1+1!
>> GMRAOUT	EN1+2, EN1+5, ADR+7, ADR+9, ADR+10, ADR+12, ADR+15, EN2+4, EN2+7, EN2+10* , EN2+26*
>> GMRAPA	ADR+7*, EN2+10, EN2+15, EN2+16, EN2+17
>> GMRAPA(0	ADR+7*, EN2+22
>> GMRAPA1	EN1+3, EN1+5, ADR+3, EN2+3, EN2+4, EN2+11, EN2+12, EN2+15, EN2+17, EN2+20 , EN2+21, EN2+22, EN2+23
>> GMRASITE	EN2+19, EN2+20
GMRAX	EN2+8, EN2+15, EN2+16, EN2+17, EN2+27!
>> GMRAX85	ADR+11*
U	ADR+3, EN2+13, EN2+15, EN2+17, EN2+20, EN2+22, SCR02+3, SCR02+4, SCR03+3, SCR03+4 , SCR03+5, OBSDRG+2, OBSDRG+5
>> X	ADR+3, ADR+6, ADR+11, EN2+8*
>> Y	EN1+3, ADR+3, ADR+7, ADR+11, EN2+4, EN2+8, EN2+11, EN2+12, EN2+13, SCR02+4 , SCR03+2, SCR03+5, OBSDRG+2
>> Y(0	ADR+7