Routine: GMRACMR1

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRACMR GMRACMR1

Entry Points

Name	Comments	DBIA/ICR reference
RETURN
ACT42(START,END)	; DETERMINES IF A WARD IS ACTIVE DURING A D/T RANGE ; WARD IS IN GMRA42, AND PASS IN START AND END AS D/T RANGE
MDIC()	; FUNTION RETURNS S ^TMP($J,"GMRAWC",GMRANUM,GMRAX)="" ; FUNCTION VALUE IS -1 IF USER ABORTS, 0 IF NO LOCS PICKED, ELSE 1
HLP	; PRINT LOCATIONS SELECTED ALREADY
DIC
SCRIACT(X)	; GIVEN X AS 44 ENTRY, THIS SCREEN WILL DETERMINE IF IT IS ; ACTIVE OR NOT FOR THIS REPORT. RETURNS 0 IF IT IS NOT, ELSE 1

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: DIC+0
Function Call: WRITE	Prompt: !,"Do you mean ALL Locations" Line Location: DIC+2
Function Call: WRITE	Prompt: !,"Enter Y for yes you mean ALL or N for no.",$C(7) Line Location: DIC+2
Function Call: WRITE	Prompt: $C(7) Line Location: HLP+1
Function Call: WRITE	Prompt: !?3,"YOU HAVE ALREADY SELECTED: " Line Location: HLP+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: HLP+2
Function Call: WRITE	Prompt: !!?3,"You may deselect from the list by typing a '-' followed by location name.",!?4,"E.g. -3E would delete 3E from the list of locations already selected." Line Location: HLP+4
Function Call: WRITE	Prompt: !?4,"You may enter the word ALL to select all appropriate locations." Line Location: HLP+5
Routine Call	DIC Line Location: RETURN+2

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	SCRIACT+6, SCRIACT+7, ACT42+4, ACT42+5, ACT42+6
^SC - [#44]	DIC+4, DIC+5, RETURN+3, HLP+2, SCRIACT+2, SCRIACT+6, SCRIACT+12
^TMP($J	MDIC+2!, DIC, DIC+5, RETURN, RETURN+3, RETURN+4!, HLP+1, HLP+2

Name	Field # of Occurrence
%	DIC+2*, DIC+3!, DIC+4!, DIC+7!
ANS	ACT42+2~, ACT42+3, ACT42+8, ACT42+11
ANS(0	ACT42+3, ACT42+4, ACT42+5, ACT42+8
DIC	MDIC+2~, RETURN+2*!
DIC("S"	RETURN+2*
DIC(0	RETURN+2*
DLAYGO	RETURN+2!
DT	SCRIACT+8, SCRIACT+13
DTIME	DIC, HLP+2
END	ACT42~, ACT42+8
>> GMRA42	SCRIACT+6*, SCRIACT+7, ACT42+4, ACT42+5, ACT42+6
>> GMRAED	SCRIACT+9, SCRIACT+15
GMRANLOC	MDIC+2!
>> GMRANUM	MDIC+2, RETURN+3
>> GMRAQST	SCRIACT+4
>> GMRASEL	SCRIACT+8, SCRIACT+9, SCRIACT+11, SCRIACT+13, SCRIACT+14
>> GMRAST	SCRIACT+9, SCRIACT+13
MDIC	MDIC+2~, RETURN*
NEG	MDIC+2~, RETURN+2*, RETURN+3
OOS	ACT42+2~, ACT42+6*, ACT42+7, ACT42+8
OOS(1	ACT42+3, ACT42+4, ACT42+5
OOS(2	ACT42+5*, ACT42+6
START	ACT42~, ACT42+3
U	DIC+5, RETURN+3, HLP+2, SCRIACT+4, SCRIACT+5, SCRIACT+11, SCRIACT+13, SCRIACT+14, SCRIACT+15, ACT42+7 , ACT42+8
X	MDIC+2~, DIC, DIC+1, DIC+2, DIC+4, DIC+5, DIC+7, RETURN, RETURN+1, RETURN+2 , HLP+2*, SCRIACT~, SCRIACT+2, SCRIACT+6, SCRIACT+12
X("ANS"	SCRIACT+2, SCRIACT+7, SCRIACT+8, SCRIACT+9, SCRIACT+16, SCRIACT+18, SCRIACT+21
X("I"	SCRIACT+12*, SCRIACT+13, SCRIACT+14, SCRIACT+15
X(0	SCRIACT+2*, SCRIACT+3, SCRIACT+4, SCRIACT+5, SCRIACT+11
Y	MDIC+2~, RETURN+1, RETURN+2, RETURN+3, RETURN+4, HLP+2*, HLP+3