Routine: GMRAFX

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Registration	4	($$TESTPAT,DEM)^VADPT (EN,SHOW)^VALM FULL^VALM1 (CNTRL,SET)^VALM10
VA Fileman	4	(,$$FIND1)^DIC ^DIE $$GET1^DIQ ^DIR
Adverse Reaction Tracking	2	PROCESS^GMRAFUT0 ($$GETNUM,$$GETTYPE,$$LOCK,EIE,UPDATE,WAIT)^GMRAFX3
Kernel	2	($$FMADD,$$FMTE,$$NOW)^XLFDT ($$REPEAT,$$UP)^XLFSTR

Package	Total	Caller Graph
Adverse Reaction Tracking	12	GMRA FREE TEXT UTILITY GMRAFX3 GMRAPNA GMRAUTL2 GMRAUTL3 GMRAY17 GMRAY19 GMRAY21 GMRAY29 GMRAY36 GMRAY38 GMRAY40

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA FREE TEXT UTILITY GMRAFX3 GMRAPNA GMRAUTL2 GMRAUTL3 GMRAY17 GMRAY19 GMRAY21
GMRAY29 GMRAY36 GMRAY38 GMRAY40

Entry Points

Name	Comments	DBIA/ICR reference
DESELECT	;Un-highlight selected choices
EN	; -- main entry point for GMRA FIX
HDR	; -- header code
CHKSEL	;Evaluate selection if done by number
DECEASED(GMRAIFN)	;Function returns 1 if patient is deceased, 0 if living
LIST	; -- obtain and display list of free text allergies
PHDR	;
ADCOM(ENTRY,TYPE,COM)	;Add comment to allergy	ICR #4783 Status: Active Usage: Private
AEA	; Entry for GMRA LOCAL ALLERGIES EDIT option
INIT	;Initialize variables, etc
PROCESS(TYPE)	;API to mark all entries as entered in error or update entries to new reactant
EXIT	; -- exit code
EIE	;Mark individual entry as entered in error
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^DIC	AEA+4, ADCOM+4
$$FIND1^DIC	PHDR+2
^DIE	AEA+14, ADCOM+8
$$GET1^DIQ	EN+6
^DIR	EN+11, CHKSEL+7, PROCESS+16
PROCESS^GMRAFUT0	AEA+1
$$GETNUM^GMRAFX3	PROCESS+3
$$GETTYPE^GMRAFX3	EN+2
$$LOCK^GMRAFX3	CHKSEL+10, PROCESS+5
EIE^GMRAFX3	EIE+1
UPDATE^GMRAFX3	PROCESS+23
WAIT^GMRAFX3	EN+7, HELP+6, CHKSEL+8, AEA+1, PROCESS+8
$$TESTPAT^VADPT	LIST+11
DEM^VADPT	DECEASED+4
EN^VALM	EN+14
SHOW^VALM	PHDR+3
FULL^VALM1	HELP+1, EXIT+1, CHKSEL+8, AEA+1, AEA+3, PROCESS+2
CNTRL^VALM10	CHKSEL+10, DESELECT+2
SET^VALM10	LIST+21
$$FMADD^XLFDT	LIST+24
$$FMTE^XLFDT	EN+9
$$NOW^XLFDT	ADCOM+3
$$REPEAT^XLFSTR	LIST+21
$$UP^XLFSTR	LIST+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The list is currently being built by another user so this option is",!,"temporarily unavailable. Please try again in a few minutes." Line Location: EN+3
Function Call: WRITE	Prompt: !,$$GET1^DIQ(200,I,.01) Line Location: EN+6
Function Call: WRITE	Prompt: !,"Building list of "_$S(LTYPE="FREE":"free text",LTYPE="ING":"ingredient",1:"drug class")_" allergies...this may take a few minutes",! Line Location: EN+12
Function Call: WRITE	Prompt: !!,"Use AE to add local allergies to the GMR ALLERGY file. This",!,"should only be done if you're sure no existing reactant matches your needs." Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"Use EE to mark all entries within the selected group as entered",!,"in error. You may select multiple groups if you like." Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"Use DD to get a detailed display. It's highly recommended that you",!,"use the detailed display menu to make all changes." Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Use UR to update the reactant. Extreme caution should be used when doing",!,"mass updates. It would be better to do the updates from within",!,"the detailed display menu.",! Line Location: HELP+5
Function Call: WRITE	Prompt: !,"Invalid selection." Line Location: CHKSEL+8
Function Call: WRITE	Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE" Line Location: AEA+5
Function Call: WRITE	Prompt: !!,"You should use the detailed display option to review entries in",!,"this group before doing a mass update. CHANGES CANNOT BE UN-DONE!" Line Location: PROCESS+8
Function Call: WRITE	Prompt: !!,"You are about to ",$S(TYPE="E":"mark",1:"update")," ALL allergies with the selected reactant ",!,$S(TYPE="E":"as entered in error.",1:"to a new reactant."),! Line Location: PROCESS+9
Function Call: WRITE	Prompt: !!,"Updating ",$P(ENTRY,U)," reactions" Line Location: PROCESS+20
Routine Call	DIE Line Location: AEA+14 ADCOM+8
Routine Call	VALM Line Location: PHDR+3
Routine Call	DIR Line Location: EN+11 CHKSEL+7 PROCESS+16
Routine Call	DIC Line Location: PHDR+2
Routine Call	DIC Line Location: AEA+4 ADCOM+4
Routine Call	VALM Line Location: EN+14

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^GMRD(120.82 - [#120.82]	Classic Fileman Calls
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	LIST+5, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10, LIST+11, LIST+12, ADCOM+3
^GMRD(120.82 - [#120.82]	LIST+4, AEA+5, AEA+6, AEA+15
^XTMP("GMRAFX"	EN+3, EN+4, EN+6, EN+8, EN+9, EN+11!, EN+12, EN+13, EN+15!, INIT+1 , LIST+3!, LIST+15, LIST+16, LIST+18, LIST+20, LIST+21, LIST+22, LIST+23!, LIST+24, DESELECT+2 , PROCESS+18

Name	Line Occurrences
$$DECEASED	LIST+10
@(	PROCESS+22
DESELECT	EXIT+2, CHKSEL+5, CHKSEL+6

Name	Field # of Occurrence
^(0	INIT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COM	ADCOM~, ADCOM+7
DA	AEA+2~, AEA+4, ADCOM+1~, ADCOM+5
DA(1	ADCOM+2*, ADCOM+3
DFN	DECEASED+1~, DECEASED+3*
DIC	AEA+2~, AEA+4!, ADCOM+1~, ADCOM+3, ADCOM+6!
DIC("A"	AEA+4*
DIC("DR"	AEA+4*
DIC(0	AEA+4, ADCOM+3
DIE	AEA+2~, AEA+7, ADCOM+1~, ADCOM+6
DIR	EN+1~, CHKSEL+1~, CHKSEL+7!, PROCESS+1~
DIR("?"	EN+10, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15
DIR("A"	EN+10, PROCESS+10
DIR("B"	EN+10, PROCESS+10
DIR("V"	CHKSEL+7*
DIR(0	EN+10, CHKSEL+7, PROCESS+10*
DLAYGO	AEA+2~, AEA+4*!
DR	AEA+2~, AEA+7, ADCOM+1~, ADCOM+7
DR(1	AEA+8, AEA+10, AEA+11, AEA+12
DT	LIST+24
DUZ	EN+13, EN+15, LIST+3, ADCOM+7
ENTRY	PROCESS+1~, PROCESS+18*, PROCESS+19, PROCESS+20, ADCOM~, ADCOM+2
GMRAAR	PROCESS+1~
GMRACT	AEA+2~, AEA+7*
GMRADONE	PROCESS+1~, PROCESS+22*, PROCESS+23
GMRAI	PROCESS+1~, PROCESS+17*, PROCESS+18
GMRAIEN	LIST+1~, LIST+5, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10, LIST+11, LIST+12, LIST+16 , AEA+2~, AEA+4, AEA+5, AEA+6, AEA+15
GMRAIFN	DECEASED~, DECEASED+2, DECEASED+3
GMRAJ	PROCESS+1~, PROCESS+19, PROCESS+21, PROCESS+22
GMRALN	AEA+2~, AEA+6*, AEA+8
GMRAOTH	LIST+1~, LIST+4*, LIST+6
GMRAPA	PROCESS+1~, PROCESS+22*
GMRASURE	PROCESS+1~
GMRATXT	LIST+1~, LIST+12, LIST+13, LIST+14, LIST+15, LIST+16
GMRAUTXT	LIST+1~, LIST+14*, LIST+15, LIST+16
GMRAX	AEA+2~
GMRAY	AEA+2~
I	EN+1~, EN+6*
>> IORVOFF	CHKSEL+10, DESELECT+2
>> IORVON	CHKSEL+10
J	CHKSEL+1~, CHKSEL+10, DESELECT+1~, DESELECT+2, PROCESS+1~, PROCESS+5*
LTYPE	EN+1~, EN+2*, EN+3, EN+4, EN+6, EN+7, EN+8, EN+9, EN+11, EN+12 , EN+13, EN+15, HDR+1, INIT+1, LIST+3, LIST+6, LIST+7, LIST+8, LIST+15, LIST+16 , LIST+18, LIST+20, LIST+21, LIST+22, LIST+23, LIST+24, PROCESS+18
NMBR	EN+1~, CHKSEL+5, CHKSEL+6, CHKSEL+7, CHKSEL+8!, CHKSEL+10, CHKSEL+11!, CHKSEL+12, DESELECT+2, DESELECT+3! , PROCESS+3, PROCESS+5, PROCESS+6!, PROCESS+7, PROCESS+17, PROCESS+18
NUM	CHKSEL+1~, CHKSEL+3, CHKSEL+4, CHKSEL+5, PROCESS+1~, PROCESS+18
REBLD	EN+1~, EN+11*, EN+12
ROOT	PROCESS+1~, PROCESS+19*, PROCESS+21
SP1	LIST+1~, LIST+20*, LIST+21
SP2	LIST+1~, LIST+20*, LIST+21
SP3	LIST+1~, LIST+20*, LIST+21
STOP	PROCESS+1~, PROCESS+18*, PROCESS+21
TMP	CHKSEL+1~, CHKSEL+10, DESELECT+1~, DESELECT+2, PROCESS+5*
TNMBR	CHKSEL+1~, CHKSEL+9, CHKSEL+10, CHKSEL+11, CHKSEL+12, PROCESS+1~, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7
TXT	LIST+1~, LIST+18*, LIST+20, LIST+21, LIST+22
TYPE	PROCESS~, PROCESS+8, PROCESS+9, PROCESS+13, PROCESS+20, PROCESS+22, ADCOM~, ADCOM+7
U	EN+9, INIT+1, LIST+6, LIST+7, LIST+8, LIST+10, LIST+11, LIST+12, LIST+24, AEA+8 , PROCESS+20
UP	LIST+1~, LIST+18*, LIST+20, LIST+21, LIST+22
VADM	DECEASED+1~
VADM(6	DECEASED+5
>> VALMBCK	INIT+1, LIST+2, HELP+6, CHKSEL+2, AEA+1, AEA+3, PROCESS+2*
>> VALMBG	INIT+1*
>> VALMCNT	INIT+1, LIST+2, LIST+19*, LIST+20, LIST+21, LIST+22, LIST+24, CHKSEL+7
>> VALMHDR(1	HDR+1*
>> VALMSG	PHDR+1*
>> VALMWD	INIT+1*, CHKSEL+10, DESELECT+2
X	CHKSEL+1~, CHKSEL+7, AEA+2~, ADCOM+1~, ADCOM+3
>> XQORM("#"	PHDR+2*
>> XQORNOD(0	CHKSEL+3, CHKSEL+7
Y	EN+1~, EN+11, CHKSEL+1~, CHKSEL+8, AEA+2~, AEA+4, PROCESS+1~, PROCESS+16, ADCOM+1~, ADCOM+4 , ADCOM+5

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFX

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: