Routine: GMRAFX3

Information

GMRAFX3 ;SLC/DAN Update existing entries to new reactant ;09-May-2013 09:54;MGH

Source Information

Source file <GMRAFX3.m>

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
Adverse Reaction Tracking	7	EN1^GMRAEAB ADCOM^GMRAFX ^GMRAFX2 ($$NKASCR,NKAASK)^GMRANKA (EN1,EN2)^GMRAPEM0 $$DUPCHK^GMRAPES0 UPDATE^GMRAPES1
VA Fileman	5	$$FIND1^DIC ^DIE ^DIK ($$GET1,EN)^DIQ ^DIR
Order Entry Results Reporting	4	BLD^ORCHECK EN^ORKCHK EN^ORQ1 $$STATUS^ORQOR2
Registration	3	INP^VADPT FULL^VALM1 SET^VALM10
Kernel	2	$$REPEAT^XLFSTR EN^XQOR

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Adverse Reaction Tracking	6	GMRAFX GMRAFX1 GMRAGUI1 GMRAY21 GMRAY29 GMRAY40

Entry Points

Name	Comments	DBIA/ICR reference
DELMUL(FIELD)	;Delete multiple FIELD from GMR ALLERGY file
UIE	;Update individual entries
DUP()	;Function returns true (1) if selected reactant is a duplicate
GETNUM(ACTION)	; -- Return numbers to act on, if action chosen first
UPDATE	;Update display to account for changes to the list
AR	;Add/edit patient reactions
EIE	;Mark individual entry as entered in error
RUSURE(GMRASURE)	;20 Make sure selection from ingredient or drug class file is ok
DSPREACT	;Display detailed information about the reactant
GETTYPE(LTYPE)	;Function determines which list to work with
LOCK(ENTRY)	;Lock entry in 120.8
WAIT	;Issues press enter to return prompt

External References

Name	Field # of Occurrence
$$FIND1^DIC	EIE+15
^DIE	UIE+15, UIE+21, DELMUL+7, EIE+3
^DIK	EIE+7
$$GET1^DIQ	UIE+4, AR+9, EIE+8
EN^DIQ	DSPREACT+8
^DIR	UIE+6, WAIT+2, GETNUM+6, DSPREACT+9, GETTYPE+4, RUSURE+16
EN1^GMRAEAB	EIE+13
ADCOM^GMRAFX	UIE+26, EIE+4
^GMRAFX2	UIE+9
$$NKASCR^GMRANKA	EIE+5
NKAASK^GMRANKA	EIE+10
EN1^GMRAPEM0	AR+8
EN2^GMRAPEM0	AR+9
$$DUPCHK^GMRAPES0	UIE+13
UPDATE^GMRAPES1	UIE+23
BLD^ORCHECK	UIE+34
EN^ORKCHK	UIE+36
EN^ORQ1	UIE+30
$$STATUS^ORQOR2	UIE+40
INP^VADPT	EIE+15
FULL^VALM1	LOCK+4, AR+2, DSPREACT+2
SET^VALM10	UPDATE+6
$$REPEAT^XLFSTR	UPDATE+6
EN^XQOR	EIE+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"For patient ",$$GET1^DIQ(2,DFN_",",.01),! Line Location: UIE+4
Function Call: WRITE	Prompt: !,"Patient already has an active allergy for this reactant.",!,"Duplicate not allowed.",! Line Location: UIE+12
Function Call: WRITE	Prompt: !,"Performing order checking..." Line Location: UIE+28
Function Call: WRITE	Prompt: "patient has no active orders." Line Location: UIE+32
Function Call: WRITE	Prompt: !!,"Please choose only one entry for the detailed display." Line Location: GETNUM+3
Function Call: WRITE	Prompt: !,">>>Too many entries selected, try using smaller ranges" Line Location: GETNUM+7
Function Call: WRITE	Prompt: !,">>You may only choose ONE group for detailed display." Line Location: GETNUM+8
Function Call: WRITE	Prompt: !,"The ",$P(^XTMP("GMRAFX",LTYPE,"IDX",ENTRY),U)," group is being edited by another user" Line Location: LOCK+4
Function Call: WRITE	Prompt: !!,"You should use this option to add NEW reactions only. If you mark" Line Location: AR+3
Function Call: WRITE	Prompt: !,"existing entries as entered in error from within this option it will" Line Location: AR+4
Function Call: WRITE	Prompt: !,"not update the utility's display until the list is rebuilt upon re-entry" Line Location: AR+5
Function Call: WRITE	Prompt: !,"of this option. This could cause confusion as the list will no longer" Line Location: AR+6
Function Call: WRITE	Prompt: !,"be accurate.",! Line Location: AR+7
Function Call: WRITE	Prompt: !!,"Now working with patient ",$$GET1^DIQ(2,DFN,.01),! Line Location: AR+9
Routine Call	DIE Line Location: UIE+15 UIE+21 DELMUL+7 EIE+3
Routine Call	DIC Line Location: EIE+15
Routine Call	DIR Line Location: UIE+6 WAIT+2 GETNUM+6 DSPREACT+9 GETTYPE+4 RUSURE+16

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^GMR(120.8 - [#120.8]	Classic Fileman Calls
^GMR(120.85 - [#120.85]	Classic Fileman Calls
^GMR(120.86 - [#120.86]	Classic Fileman Calls
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	UIE+3, DELMUL+2, DUP+3, DUP+4, AR+9, EIE+5, EIE+6, EIE+11
^GMR(120.85 - [#120.85]	UIE+16, UIE+18, UIE+19
^OR(100 - [#100]	UIE+39
^TMP("ORR"	UIE+29!, UIE+31, UIE+32, UIE+33, UIE+34
^TMP($J	GETNUM+2, AR+9, DSPREACT+6
^XTMP("GMRAFX"	UIE+19, UIE+25, UPDATE+3, UPDATE+4*, LOCK+3, LOCK+4

Name	Line Occurrences
$$DUP	UIE+12
$$GETNUM	DSPREACT+3
DELMUL	UIE+22
RUSURE	UIE+9
WAIT	UIE+12, UIE+43, LOCK+4, AR+8, AR+9

Name	Field # of Occurrence
^(	UPDATE+4!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	GETNUM~, GETNUM+3, GETNUM+8
AIFN	UIE+1~, UIE+17, UIE+18, UIE+19, UIE+20
CNT	UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5, UPDATE+6
COM	UIE+1~, UIE+25*, UIE+26
DA	UIE+1~, UIE+15, UIE+20, DELMUL+1~, DELMUL+3, DSPREACT+1~, DSPREACT+6, EIE+1~, EIE+2, EIE+6 , EIE+8, EIE+10
DA(1	UIE+20, DELMUL+3
DFN	UIE+1~, UIE+3, UIE+4, UIE+13, UIE+30, UIE+36, DUP+3, AR+1~, AR+9, EIE+1~ , EIE+14*
DIC	DSPREACT+1~, DSPREACT+7*
DIE	UIE+1~, UIE+15, UIE+21, DELMUL+1~, DELMUL+5, DELMUL+6, EIE+1~, EIE+2*
DIK	EIE+1~, EIE+6*
DIR	UIE+1~, WAIT+1~, GETNUM+1~, DSPREACT+1~, GETTYPE+1~, GETTYPE+4!, RUSURE+2~
DIR("?"	GETNUM+5*
DIR("A"	UIE+6, WAIT+2, GETNUM+4, DSPREACT+9, GETTYPE+3, RUSURE+5, RUSURE+6, RUSURE+7, RUSURE+8, RUSURE+9 , RUSURE+10, RUSURE+11, RUSURE+12, RUSURE+13, RUSURE+14*
DIR("B"	UIE+6, RUSURE+15
DIR(0	UIE+6, WAIT+2, GETNUM+4, DSPREACT+9, GETTYPE+2, RUSURE+15
>> DIRUT	DSPREACT+10
DR	UIE+1~, UIE+15, UIE+21, DELMUL+1~, DELMUL+5, DELMUL+6, EIE+1~, EIE+2*
>> DTOUT	GETNUM+6
DUZ	EIE+2
ENTRY	UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, LOCK~, LOCK+3, LOCK+4
FIELD	DELMUL~, DELMUL+2, DELMUL+5, DELMUL+6
FND	UIE+1~, UIE+37, UIE+41, UIE+42, DUP+1~, DUP+2, DUP+3, DUP+4, DUP+5
GI	UIE+1~, UIE+37*, UIE+38, UIE+39, UIE+40
GMRAAR	UIE+5, UIE+7!, UIE+9, UIE+10!, UIE+25, DUP+4, RUSURE+4, RUSURE+7
GMRAAR("O"	UIE+15, UIE+23
GMRAAR(0	UIE+6, UIE+13, UIE+15, UIE+25
>> GMRADONE	UIE+2, UIE+24
GMRADRCL	UIE+1~
GMRAI	DSPREACT+1~, DSPREACT+4*, DSPREACT+5
GMRAING	UIE+1~
>> GMRAJ	UPDATE+4
GMRAOC	UIE+1~, UIE+29!, UIE+36
GMRAOC(	UIE+37, UIE+38, UIE+39, UIE+40
GMRAORX	UIE+1~, UIE+35*, UIE+36
GMRAOUT	UIE+1~, UIE+11, EIE+1~, EIE+12
>> GMRAPA	UIE+3, UIE+13, UIE+15, UIE+16, UIE+18, UIE+26, DELMUL+2, DELMUL+3, EIE+2, EIE+4 , EIE+5, EIE+6, EIE+11
>> GMRAPA(0	EIE+11*, EIE+14
GMRASURE	UIE+9, UIE+10, RUSURE~, RUSURE+3, RUSURE+16
LCV	AR+1~, AR+9*
LOCK	LOCK+1~, LOCK+2, LOCK+4, LOCK+5
LOOP	DUP+1~, DUP+2, DUP+3, DUP+4
LTYPE	UIE+19, UIE+25, GETNUM+2, UPDATE+3, UPDATE+4, LOCK+3, LOCK+4, AR+9, DSPREACT+6, GETTYPE~ , GETTYPE+5*, GETTYPE+6
MAX	GETNUM+1~, GETNUM+2*, GETNUM+4
MIEN	DELMUL+1~, DELMUL+2*, DELMUL+3
>> NMBR	UIE+19, UIE+25
>> NMBR2	AR+8, AR+9, DSPREACT+3*, DSPREACT+4, DSPREACT+5
>> NUM	UPDATE+5, UPDATE+6
NUM2	DSPREACT+1~, DSPREACT+5*, DSPREACT+6
OROLD	EIE+1~
ORX	UIE+1~, UIE+29!, UIE+35!
SIEN	UIE+1~, UIE+19*, UIE+20
SIGN	UIE+1~
SP1	UPDATE+1~, UPDATE+5*, UPDATE+6
SP2	UPDATE+1~, UPDATE+5*, UPDATE+6
SP3	UPDATE+1~, UPDATE+5*, UPDATE+6
STOP	DSPREACT+1~, DSPREACT+4, DSPREACT+10*
SUB	UIE+1~, UIE+33, UIE+34, AR+1~, AR+9
TIME	UIE+1~, UIE+31*, UIE+32, UIE+33, UIE+34
U	UIE+3, UIE+38, UIE+39, UIE+40, DUP+4, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, LOCK+4 , AR+9, DSPREACT+6, EIE+5, EIE+6, EIE+14
VAIN	EIE+1~
VALMAR	UPDATE+2~*
>> VALMBCK	LOCK+4, AR+2, DSPREACT+2*
>> VALMCNT	GETNUM+2
X	GETNUM+1~, GETTYPE+1~, EIE+1~, EIE+15*, EIE+16, RUSURE+2~
Y	UIE+1~, UIE+7, GETNUM+1~, GETNUM+6, GETNUM+7, GETNUM+8*, GETNUM+9, DSPREACT+1~, GETTYPE+1~, GETTYPE+5 , EIE+1~, RUSURE+2~, RUSURE+16
Y(1	GETNUM+7

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFX3

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: