Routine: GMRAPED3

Package	Total	Call Graph
Adverse Reaction Tracking	6	PASS^GMRADPT EN1^GMRADSP0 EN1^GMRAHLP0 EN1^GMRAKILL PAT^GMRAPAT HANGT^GMRAPEH0
IHS Electronic Health Record	3	CKIN^BEHOARMU ($$CANVERIF,FIREEVT)^BEHOART $$HASKEY^BEHOUSCX
Kernel	3	$$NOW^XLFDT $$UP^XLFSTR EN^XQOR
VA Fileman	3	(,$$FIND1)^DIC YN^DICN (FILE,UPDATE)^DIE
Registration	1	1^VADPT

Package

Total

Call Graph

Adverse Reaction Tracking

PASS^GMRADPT EN1^GMRADSP0 EN1^GMRAHLP0 EN1^GMRAKILL PAT^GMRAPAT HANGT^GMRAPEH0

IHS Electronic Health Record

CKIN^BEHOARMU ($$CANVERIF,FIREEVT)^BEHOART $$HASKEY^BEHOUSCX

Kernel

$$NOW^XLFDT $$UP^XLFSTR EN^XQOR

VA Fileman

(,$$FIND1)^DIC YN^DICN (FILE,UPDATE)^DIE

Registration

1^VADPT

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA REACTIVATE A/AR GMRAPED0

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA REACTIVATE A/AR GMRAPED0

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;
EN21	;Load the inactive allergies and ask user to select one
REACT(DFN,GMRAPA)	;Find the entry to inactivate
REAC	;EP Called to reactivate an inactive entry
EN1	; GIVEN DFN, SELECT PATIENT ALLERGY
RESET(DATA,GMRAPA,DFN,VAL)	;Reactivate
LIST(DFN,GMRA)	;Get all the reaction for a patient
DIC	; VALIDATE LOOKUP FOR A/AR
YNOK

External References

Name	Field # of Occurrence
CKIN^BEHOARMU	RESET+3
$$CANVERIF^BEHOART	RESET+23
FIREEVT^BEHOART	RESET+29
$$HASKEY^BEHOUSCX	RESET+22
^DIC	EN21+12
$$FIND1^DIC	EN21+16
YN^DICN	YNOK
FILE^DIE	RESET+21
UPDATE^DIE	RESET+12, RESET+28
PASS^GMRADPT	LIST+12
EN1^GMRADSP0	EN21+6
EN1^GMRAHLP0	EN21+8
EN1^GMRAKILL	REAC+7
PAT^GMRAPAT	REAC+3
HANGT^GMRAPEH0	REACT+8
1^VADPT	EN21+2
$$NOW^XLFDT	RESET+9, RESET+26
$$UP^XLFSTR	EN21+9
EN^XQOR	EN21+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CAUSATIVE AGENT: "_$P(GMRAPA(0),"^",2)_"// (Uneditable)" Line Location: EN1+2
Function Call: WRITE	Prompt: @IOF Line Location: REAC+3
Function Call: WRITE	Prompt: !,"This patient has no inactive allergies" Line Location: EN21+5
Function Call: READ	Prompt: "Enter Item to Reactivate: " Formatting: !! Timeout: DTIME Variable: GMRALAR Line Location: EN21+7
Function Call: WRITE	Prompt: !!,"Checking existing PATIENT ALLERGIES (#120.8) file for matches..." Line Location: EN21+11
Function Call: WRITE	Prompt: !,"Reaction has been reactivated" Line Location: REACT+8
Function Call: WRITE	Prompt: !?3,X," OK" Line Location: YNOK+0
Function Call: WRITE	Prompt: ! Line Location: YNOK+1
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES IF THIS IS THE CORRECT ALLERGY/ADVERSE REACTION,",!?5,"ELSE ANSWER NO." Line Location: YNOK+2
Routine Call	DIE Line Location: RESET+12 RESET+28
Routine Call	DIC Line Location: EN21+16
Routine Call	DIE Line Location: RESET+21
Routine Call	DIC Line Location: EN21+12

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^GMR(120.8 - [#120.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	REACT+2, REACT+3, REACT+4, LIST+3, LIST+4, LIST+5, LIST+7, LIST+8, LIST+9, Q1+1 , RESET+5

Name	Line Occurrences
DIC	EN21+12
EN1	EN21+8
EN21	REAC+4
LIST	EN21+4
Q1	EN21+12, EN21+13
REAC	EN21+7, EN21+12, REACT+8
REACT	EN21+15
RESET	REACT+7
YNOK	YNOK+3

Name	Field # of Occurrence
^(0	Q1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q1+2!, YNOK*, YNOK+1
AIEN	RESET+1~, RESET+7, RESET+10, RESET+11, RESET+17, RESET+18, RESET+19, RESET+20, RESET+24*, RESET+25 , RESET+26, RESET+27
BIEN	RESET+1~, RESET+4*, RESET+17, RESET+24
CANVER	RESET+1~, RESET+22*, RESET+23
D	Q1+2!
DA	Q1+2!
DATA	REACT+1~, REACT+7, REACT+8, RESET~, RESET+2, RESET+6, RESET+13, RESET+14
DFN	REAC+1~, REAC+6!, EN21+4, EN21+15, REACT~, REACT+7, LIST~, LIST+3, RESET~, RESET+3 , RESET+29
DGSENFLG	EN21+10*, EN21+12!
DIC	REAC+6!, EN21+10*, EN21+12!, Q1+2!
DIC("S"	EN21+10*
DIC("W"	EN21+10*
DIC(0	EN21+10*
DTIME	EN21+7
DTOUT	EN21+10!, EN21+12!, Q1+2!, DIC+1
DUOUT	EN21+10!, EN21+12!, Q1+2!, DIC+2
DUZ	RESET+8, RESET+27
ERR	RESET+1~, RESET+15!, RESET+30!
ERR("DIERR"	RESET+13
FDA	RESET+15!, RESET+30!
FDA(	RESET+10, RESET+11, RESET+18, RESET+19, RESET+20, RESET+25, RESET+26, RESET+27
FNUM	RESET+1~, RESET+4*
GMA	REAC+6!
GMALAR	EN21+1~
GMRA	REAC+1~, LIST~, LIST+2, LIST+12, LIST+13
GMRAAR	EN1+1!*, Q1+2!
GMRACNT	EN21+1~, EN21+2*
GMRAHLP	EN21+8*, Q1+2!
GMRAIEN	EN21+1~
GMRAING	Q1+2!
>> GMRAL	EN21+4, EN21+5, EN21+6
GMRALAGO	Q1+2!
GMRALAR	EN21+7, EN21+8, EN21+9, Q1+2!
GMRALOC	EN21+1~, EN21+3*
GMRANAM	EN21+1~, EN21+3*, EN21+10
GMRAOUT	REAC+1~, REAC+2, REAC+4, REAC+6!, EN21+1~, EN21+6, EN21+7, EN21+8, EN21+12, EN21+13 , DIC+1, YNOK*
GMRAPA	EN21+13, EN21+14, EN21+15, REACT~, REACT+2, REACT+3, REACT+4, REACT+7, REACT+8, LIST+1~ , LIST+2, LIST+3*, LIST+4, LIST+5, LIST+7, LIST+8, LIST+9, LIST+12, Q1+1, RESET~ , RESET+2, RESET+4, RESET+5, RESET+7, RESET+14, RESET+23, RESET+29
GMRAPA(0	EN1+2, Q1+1*
GMRARET	REAC+6!, EN21+7*
GMRASEX	EN21+1~, EN21+3*
GMRAUSER	REAC+6!
IEN	RESET+1~
INACT	REACT+1~, REACT+3, REACT+5, REACT+6, LIST+1~, LIST+8, LIST+10
INZ	LIST+1~, LIST+6, LIST+10, LIST+11
IOF	REAC+3
MIEN	RESET+1~
PSNDA	Q1+2!
PSODA	Q1+2!
REACT	REACT+1~, REACT+4, REACT+5, LIST+1~, LIST+9, LIST+10
SIEN	RESET+1~, RESET+5*, RESET+6, RESET+7
STOP	RESET+1~, RESET+4*, RESET+6
U	EN21+3, REACT+3, REACT+4, LIST+8, LIST+9, RESET+13
VADM	EN21+1~
VADM(1	EN21+3
VADM(5	EN21+3
>> VAIN(4	EN21+3
VAL	REACT+1~, REACT+7, RESET~
VAL("GMRAINACT"	REACT+6*
VAL("GMRAINRE"	RESET+9*, RESET+10
VAL("GMRAINREBY"	RESET+8*, RESET+11
VER	RESET+1~, RESET+23
X	EN21+1~, EN21+10, EN21+12, EN21+16, EN21+17, Q1+2!, DIC+1, YNOK, RESET+1~
Y	EN21+10!, EN21+13, Q1+2!, DIC+2, YNOK, YNOK+1*, RESET+1~
Y(0	EN21+12
Z	REACT+1~, REACT+2, REACT+3, REACT+4, LIST+1~, LIST+7, LIST+8, LIST+9

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPED3

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: