Routine: GMRAUTL

Package	Total	Caller Graph
Adverse Reaction Tracking	51	GMRACMR4 GMRADEL GMRADGMV GMRADSP4 GMRADSP5 GMRADSP6 GMRAEER0 GMRAEF GMRAFDA GMRAFDA1 GMRAFDA3 GMRAGUI GMRAGUI1 GMRAMAN GMRAMCB GMRAMCU0 GMRAOR2 GMRAOR5 GMRAOR7 GMRAPED0 GMRAPEE0 GMRAPEM0 GMRAPEM3 GMRAPEM4 GMRAPEO0 GMRAPER2 GMRAPFT GMRAPL GMRAPNA GMRAPST1 GMRAPST2 GMRAPST3 GMRAPST4 GMRAPST5 GMRAPST6 GMRAPST7 GMRAPT GMRAPU GMRAPVDE GMRARAD0 GMRAREP GMRAROBS GMRASEN2 GMRASEND GMRASIGN GMRAU85 GMRAU851 GMRAUTL1 GMRAVAM0 GMRAVFY ^GMRD(120.82
Order Entry Results Reporting	1	ORWDAL32

Entry Points

Name	Comments	DBIA/ICR reference
DEV	;Device selecting module
CLOSE	; Close device, and dequeue if queued.
SITE	; GET SITE PARAMTER NODE	ICR #4684 Status: Active Usage: Private
LOCK(X,Y,Z)	; LOCKS ^GMR(X,Y,0). IF IT CAN RETURNS 1, ELSE RETURNS 0 ; OPTIONAL PAR. Z IF EXISTS AND TRUE WILL PRINT ERROR MSG IF NO LOCK
UNLOCK(X,Y)	; UNLOCKS ^GMR(X,Y,0)
OUTTYPE(GMRAY)	; INPUT VARIABLE IS INTERNAL FORMAT OF TYPE FIELD FOR ; FILES 120.8 AND 120.82. THIS FUNCTION RETURNS OUTPUT VALUE ; FOR THAT FIELD.	ICR #6255 Status: Withdrawn Usage: Controlled Subscription
INPTYPE(GMRAEN)	; THIS PROCEDURE WILL ALLOW USER TO EDIT TYPE FIELD FOR ; FILE AND ENTRY DESIGNATED IN GMRAEN. GMRAEN IS IN VARIABLE PTR. ; FORMAT.
EDTTYPE(GMRADEF)	; THIS PROCEDURE WILL ALLOW EMULATE THE EDITING OF ; TYPE FIELD. GMRADEF IS THE VARIABLE THAT WILL BE RETURNED, AND MUST ; BE PASSED BY REFERENCE. IT SHOULD BE SET TO THE DEFAULT VALUE OF ; THE TYPE PRIOR TO THE EDIT AND WILL BE RETURNED AS THE NEW VALUE. ; GMRAOUT WILL BE SET TO 1 IF USER ABNORMALLY EXITS.
ASKTYP	; This line is where the query for type begins.
INTTYPE(GMRAX)	; INPUT VARIABLE IS INTERNAL VALUE OF TYPE FIELD FOR FILES ; 120.8 AND 120.82. THIS PROCEDURE WILL KILL GMRAX IF IT IS INVALID, ; OR WILL RETURN GMRAX IN ITS PROPER FORMAT. GMRAX MUST BE PASSED BY ; REFERENCE.
ASK(GMRATYPE,GMRAOUT,GMRASP)	;Answer yes or no to data type questions

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !?4,$C(7),"PRINTED REPORTS MUST BE QUEUED.",! Line Location: DEV+7
Function Call: WRITE	Prompt: !!?4,$C(7),"THIS REPORT MUST BE SENT TO A PRINTER WITH A MARGIN OF AT LEAST "_+$P(GMRAZIS,"M",2)_"." Line Location: DEV+10
Function Call: WRITE	Prompt: !!?4,$C(7),"THIS REPORT MUST BE SENT TO A PRINTER WITH PAGE LENGTH OF AT LEAST "_+$P(GMRAZIS,"S",2)_"." Line Location: DEV+13
Function Call: WRITE	Prompt: ! Line Location: CLOSE+2
Routine Call	%ZIS Line Location: DEV+5 DEV+15
Routine Call	DIE Line Location: INPTYPE+9
Routine Call	DIR Line Location: ASKTYP+3 ASK+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(	LOCK+2, UNLOCK+1
^GMRD(120.84 - [#120.84]	SITE+1, SITE+2

Name	Line Occurrences
DEV	DEV+6, DEV+9, DEV+12, DEV+15
EDTTYPE	INPTYPE+7

Name	Field # of Occurrence
>> %ZIS	DEV+4, DEV+15
>> %ZIS("B"	DEV+3, DEV+4
DA	INPTYPE+4~, INPTYPE+5*, INPTYPE+6
DIE	INPTYPE+4~, INPTYPE+5*, INPTYPE+6
DIR	EDTTYPE+6~, ASK+1~
DIR("?"	ASKTYP+2*
DIR("A"	ASKTYP+1, ASK+2
DIR("B"	ASKTYP+1, ASK+3
DIR(0	ASKTYP+1, ASK+2
>> DIRUT	ASKTYP+4, ASK+4
DR	INPTYPE+4~, INPTYPE+5, INPTYPE+9
DUZ(2	SITE+1
FXN	OUTTYPE+3~, OUTTYPE+4, OUTTYPE+5, INTTYPE+4~, INTTYPE+9, INTTYPE+11, INTTYPE+14*, INTTYPE+17
GMRADEF	INPTYPE+4~, INPTYPE+6, INPTYPE+7, INPTYPE+8, INPTYPE+9, EDTTYPE~, EDTTYPE+5, EDTTYPE+7, EDTTYPE+9, EDTTYPE+10 , EDTTYPE+11, EDTTYPE+12, ASKTYP+1, ASKTYP+4, ASKTYP+5
GMRAEN	INPTYPE~, INPTYPE+3, INPTYPE+5
GMRAOUT	CLOSE+1, ASKTYP+4, ASK~, ASK+4, ASK+5
>> GMRASITE	SITE+1, SITE+2
GMRASP	ASK~, ASK+3, ASK+4, ASK+5
GMRATYPE	ASK~, ASK+2
GMRAX	INTTYPE~, INTTYPE+5, INTTYPE+7, INTTYPE+11, INTTYPE+14, INTTYPE+15, INTTYPE+17!
GMRAY	OUTTYPE~, OUTTYPE+4
GMRAZIS	DEV+2*, DEV+4, DEV+5!, DEV+9, DEV+10, DEV+12, DEV+13, DEV+16!
I	INTTYPE+6~, INTTYPE+7*
IO("Q"	DEV+7, DEV+15
IO("S"	DEV+6
IOM	DEV+10, DEV+15
ION	DEV+15
IOP	DEV+3, DEV+4!, DEV+15
IOSL	DEV+13, DEV+15
IOST	DEV+7, DEV+15
J	INTTYPE+6~, INTTYPE+7, INTTYPE+8
K	INTTYPE+6~, INTTYPE+7, INTTYPE+8, INTTYPE+11
>> POP	DEV+5, DEV+6, DEV+7, DEV+9, DEV+10, DEV+12, DEV+13, DEV+15
X	LOCK~, LOCK+2, UNLOCK~, UNLOCK+1, OUTTYPE+3~, OUTTYPE+4, EDTTYPE+6~, EDTTYPE+8, EDTTYPE+9, EDTTYPE+10 , EDTTYPE+11, EDTTYPE+12, ASKTYP+5, ASK+1~
Y	LOCK~, LOCK+2, UNLOCK~, UNLOCK+1, EDTTYPE+6~, ASKTYP+5, ASK+1~, ASK+5
Z	LOCK~, LOCK+3
>> ZTQUEUED	CLOSE+3
>> ZTREQ	CLOSE+3*