Routine: GMRAUTL

Information

GMRAUTL ;HIRMFO/YMP,RM,WAA-ALLERGY UTILITIES ;7/28/03 08:40

Source file <GMRAUTL.m>

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

Name	Comments	DBIA/ICR reference
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
ASK(GMRATYPE,GMRAOUT,GMRASP)	;Answer yes or no to data type questions
UNLOCK(X,Y)	; UNLOCKS ^GMR(X,Y,0)
SITE	; GET SITE PARAMTER NODE	ICR #4684 Status: Active Usage: Private
DEV	;Device selecting module
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.
ASKTYP	; This line is where the query for type begins.
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.
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
CLOSE	; Close device, and dequeue if queued.
INPTYPE(GMRAEN)	; THIS PROCEDURE WILL ALLOW USER TO EDIT TYPE FIELD FOR ; FILE AND ENTRY DESIGNATED IN GMRAEN. GMRAEN IS IN VARIABLE PTR. ; FORMAT.

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	DIE Line Location: INPTYPE+9
Routine Call	DIR Line Location: ASKTYP+3 ASK+3
Routine Call	%ZIS Line Location: DEV+5 DEV+15

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*