Routine: GMRAFX1

Package	Total	Call Graph
Registration	4	DEM^VADPT SHOW^VALM FULL^VALM1 (CNTRL,SET)^VALM10
Adverse Reaction Tracking	2	^GMRADPT ($$GETNUM,$$LOCK,UPDATE,WAIT)^GMRAFX3
VA Fileman	2	$$FIND1^DIC ^DIR
Kernel	1	$$REPEAT^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
DESELECT	;Un-highlight selected choices
HDR	; -- header code
CHKSEL	;Evaluate selection if done by number
DET	;Detailed listing of selected group
INIT	; -- init variables and list array
PHDR	;
PROCESS(TYPE)	;API to mark selected entries from the detailed listing as entered in error or update to new reactant
EXIT	; -- exit code
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
$$FIND1^DIC	PHDR+2
^DIR	INIT+3, CHKSEL+6, PROCESS+10
^GMRADPT	DET+8
$$GETNUM^GMRAFX3	INIT+2, PROCESS+3
$$LOCK^GMRAFX3	INIT+2
UPDATE^GMRAFX3	PROCESS+17
WAIT^GMRAFX3	CHKSEL+7, HELP+7
DEM^VADPT	DET+9
SHOW^VALM	PHDR+3
FULL^VALM1	INIT+3, CHKSEL+7, HELP+1, PROCESS+2
CNTRL^VALM10	CHKSEL+8, DESELECT+2
SET^VALM10	DET+13, DET+19, DET+20
$$REPEAT^XLFSTR	DET+12, DET+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Invalid selection." Line Location: CHKSEL+7
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 selected entries as entered",!,"in error. You may select multiple patients if you like." Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"Use UR to update the reactant. Extreme caution should be used when updating",!,"reactants. You may select multiple patients if you like," Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Use PR to add new allergies for the selected patient in",!,"addition to the ones listed here." Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"Use DD to get details about the allergy entry that you're",!,"currently working on for this patient.",! Line Location: HELP+6
Function Call: WRITE	Prompt: !!,"You are about to ",$S(TYPE="E":"mark",1:"update")," the selected patient",$S($L(NMBR2,",")>2:"s'",1:"'s"),! Line Location: PROCESS+4
Function Call: WRITE	Prompt: $P(ENTRY,"^",2)," allergy ",$S(TYPE="E":"as entered in error.",1:"to a new reactant."),! Line Location: PROCESS+6
Routine Call	DIC Line Location: PHDR+2
Routine Call	VALM Line Location: PHDR+3
Routine Call	DIR Line Location: INIT+3 CHKSEL+6 PROCESS+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	DET+8
^TMP($J	DET+3!, DET+14, DET+21, INIT+4!, CHKSEL+6, CHKSEL+8, DESELECT+2, EXIT+1!, PROCESS+15
^XTMP("GMRAFX"	DET+6, DET+7, HDR+1, PROCESS+5

Label References

Name	Line Occurrences
@(	PROCESS+16
DESELECT	CHKSEL+4, CHKSEL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	DET+1~, DET+2, DET+11, DET+12, DET+13, DET+14, DET+15, DET+19, DET+20, DET+21
DFN	DET+1~, DET+8*
DIR	DET+1~, INIT+1~, CHKSEL+1~, CHKSEL+6!, PROCESS+1~
DIR("?"	PROCESS+8, PROCESS+9
DIR("A"	INIT+3, PROCESS+7
DIR("B"	PROCESS+7*
DIR("V"	CHKSEL+6*
DIR(0	INIT+3, CHKSEL+6, PROCESS+7*
DIRUT	DET+1~
DTOUT	DET+1~
DUOUT	DET+1~
ENMBR	DET+1~, DET+4*, DET+6
ENTRY	DET+1~, DET+5, DET+11, DET+13, DET+14, DET+21, PROCESS+1~, PROCESS+5*, PROCESS+6
GMRA	DET+1~, DET+8*
GMRAAR	PROCESS+1~
GMRADONE	PROCESS+1~, PROCESS+13*, PROCESS+17
GMRAI	PROCESS+1~, PROCESS+12*, PROCESS+14
GMRAJ	PROCESS+1~, PROCESS+15*
GMRAL	DET+1~
GMRAL(	DET+16, DET+17, DET+20
GMRAPA	PROCESS+1~, PROCESS+15*
GMRAR	DET+1~
GMRAR(	DET+12, DET+13!, DET+15, DET+19!, DET+20
GMRAT	DET+1~, DET+6*, DET+7
GMRAUT	DET+1~, DET+6*, DET+7
>> IORVOFF	CHKSEL+8, DESELECT+2
>> IORVON	CHKSEL+8
J	DET+1~, DET+7, DET+8, DET+14, CHKSEL+1~, CHKSEL+8, DESELECT+1~, DESELECT+2*
K	DET+1~, DET+16*, DET+17, DET+20
LEN	DET+1~, DET+15, DET+18, DET+19*
>> LTYPE	DET+3, DET+6, DET+7, DET+14, DET+21, HDR+1, INIT+4, CHKSEL+6, CHKSEL+8, DESELECT+2 , EXIT+1, PROCESS+5, PROCESS+15
NAME	DET+1~, DET+17*, DET+18, DET+19, DET+20
>> NMBR	DET+4, HDR+1, INIT+2*, INIT+3, PROCESS+5, PROCESS+11
NMBR2	DET+1~, CHKSEL+4, CHKSEL+5, CHKSEL+6, CHKSEL+7!, CHKSEL+8, DESELECT+2, DESELECT+3!, PROCESS+3, PROCESS+4 , PROCESS+12, PROCESS+14
NUM	CHKSEL+1~, CHKSEL+2, CHKSEL+3, CHKSEL+4, PROCESS+1~, PROCESS+11
NUM2	PROCESS+1~, PROCESS+14*, PROCESS+15
STOP	PROCESS+1~, PROCESS+12
TMP	CHKSEL+1~, CHKSEL+8, DESELECT+1~, DESELECT+2
TYPE	PROCESS~, PROCESS+4, PROCESS+6, PROCESS+16
U	PROCESS+15
VADM	DET+1~
VADM(1	DET+12
VADM(2	DET+12
VAERR	DET+1~, DET+10
>> VALMBCK	DET+2, INIT+5, HELP+7, PROCESS+2
>> VALMBG	INIT+5*
>> VALMCNT	DET+21, INIT+5
>> VALMHDR(1	HDR+1*
>> VALMQUIT	INIT+2, INIT+3
>> VALMSG	PHDR+1*
>> VALMWD	INIT+5*, CHKSEL+8, DESELECT+2
X	CHKSEL+1~, CHKSEL+6*
>> XQORM("#"	PHDR+2*
>> XQORNOD(0	CHKSEL+2, CHKSEL+6
Y	DET+1~, CHKSEL+1~, CHKSEL+7, PROCESS+1~, PROCESS+10

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFX1

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: