Routine: GMRAPED0

Package	Total	Call Graph
Adverse Reaction Tracking	5	EN1^GMRADSP3 DRGCLS^GMRAPED1 EN1^GMRAPED3 EN1^GMRAPER2 ($$OUTTYPE,INPTYPE)^GMRAUTL
VA Fileman	3	(,IX)^DIC YN^DICN ^DIE

Package	Total	Caller Graph
Adverse Reaction Tracking	5	GMRAPEH0 GMRAPEM0 GMRAPEO0 GMRAPEV0 GMRAPVDE

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;Exit
HEAD	; Header for reactions
MECH	;Mechanism for ADRs
HELP	; HELP FOR A/AR LOOKUP
DIC	; VALIDATE LOOKUP FOR A/AR
EN1	; ENTRY TO EDIT INFO SPECIFIC TO DRUG A/AR FOR VERIFIER
HLPLK	; LOOKUP ON FILE IN DIC
YNOK
EVENT	;Store the event
YNED

External References

Name	Field # of Occurrence
^DIC	HLPLK+1
IX^DIC	HLPLK+1
YN^DICN	YNED, YNOK
^DIE	YNED+2, YNED+5, YNED+9, YNED+12, YNED+19, MECH+3, EVENT+4, EVENT+8
EN1^GMRADSP3	EN1+18
DRGCLS^GMRAPED1	YNED+7
EN1^GMRAPED3	YNED+2
EN1^GMRAPER2	YNED+22
$$OUTTYPE^GMRAUTL	EN1+10
INPTYPE^GMRAUTL	YNED+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+8
Function Call: WRITE	Prompt: !,"CAUSATIVE AGENT: ",$P(GMRAPA(0),U,2) Line Location: EN1+9
Function Call: WRITE	Prompt: !?11,"TYPE: ",$$OUTTYPE^GMRAUTL($P(GMRAPA(0),U,20)) Line Location: EN1+10
Function Call: WRITE	Prompt: !?4,"INGREDIENTS: " Line Location: EN1+11
Function Call: WRITE	Prompt: !,"VA DRUG CLASSES: " Line Location: EN1+12
Function Call: WRITE	Prompt: !," OBS/HIST: ",$S($P(GMRAPA(0),U,6)="o":"OBSERVED",$P(GMRAPA(0),U,6)="h":"HISTORICAL",1:"") Line Location: EN1+14
Function Call: WRITE	Prompt: !," MECHANISM: ",$S($P(GMRAPA(0),U,14)="A":"ALLERGY",$P(GMRAPA(0),U,14)="P":"PHARMACOLOGIC",$P(GMRAPA(0),U,14)="U":"UNKNOWN",1:"") Line Location: EN1+20
Function Call: WRITE	Prompt: !?4,$C(7),"ANSWER YES IF YOU WISH TO CHANGE ANY OF THE DATA ABOVE, ELSE ANSWER NO." Line Location: YNED+0
Function Call: WRITE	Prompt: $C(7)," Required??" Line Location: YNED+15
Function Call: WRITE	Prompt: !,?20,GMRAMEC Line Location: MECH+2
Function Call: WRITE	Prompt: !!?4,"Would you like to see a list of:",!?6,"1 Local Allergies (Food/Drug/Other)",!?6,"2 Drug Classes",!?6,"3 Drug Ingredients",!?6,"4 National Drugs",!?6,"5 Local Drugs" Line Location: HELP+1
Function Call: READ	Prompt: !?4 Timeout: ",X:DTIME Variable: "Select a number (1-5) Line Location: HELP+2
Function Call: WRITE	Prompt: !?7,$C(7),"ANSWER WITH THE NUMBER (1-5) OF THE SELECTION FOR",!?7,"WHICH YOU WISH TO SEE MORE HELP." Line Location: HELP+3
Function Call: WRITE	Prompt: !?3,X," OK" Line Location: YNOK+0
Function Call: WRITE	Prompt: ! Line Location: YNOK+0
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES IF THIS IS THE CORRECT ALLERGY/ADVERSE REACTION,",!?5,"ELSE ANSWER NO." Line Location: YNOK+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Reactions: (cont.) " Line Location: HEAD+2
Routine Call	DIE Line Location: YNED+2 YNED+5 YNED+9 YNED+12 YNED+19 MECH+3 EVENT+4 EVENT+8
Routine Call	DIC Line Location: HLPLK+1
Routine Call	DIC Line Location: HLPLK+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(120.8 - [#120.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BEHOAR(90460.06 - [#90460.06]	EVENT+5
^GMR(120.8 - [#120.8]	EN1+4, EN1+5, EN1+6, EN1+7, YNED+3, YNED+6, YNED+11, YNED+14, YNED+26
^PS(50.416 - [#50.416]	EN1+5
^PS(50.605 - [#50.605]	EN1+6
^XUSEC("GMRA-ALLERGY VERIFY"	EN1+3

Label References

Name	Line Occurrences
EN1	YNED+27
EVENT	YNED+24
HELP	HELP+3, HELP+5
HLPLK	HELP+4
Q1	EN1+3, EN1+4, YNED+1, YNED+2, YNED+4, YNED+5, YNED+9
YNED	YNED
YNOK	YNOK+2

Naked Globals

Name	Field # of Occurrence
^(0	EN1+5, EN1+6, YNED+11, YNED+14, YNED+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	YNED, YNED+1, YNOK
>> D	HLPLK+1*
DA	YNED+2, YNED+5, YNED+9, YNED+12, YNED+19, Q1+2!, MECH+3, EVENT+1~, EVENT+3, EVENT+8
DIC	Q1+2!, EVENT+1~, HELP+4*, HLPLK+1
DIC("W"	HLPLK+1*
DIC(0	HLPLK+1*
DIE	YNED+2, YNED+5, YNED+9, YNED+12, YNED+19, Q1+2!, MECH+3, EVENT+1~, EVENT+3, EVENT+8
DR	YNED+2, YNED+5, YNED+9, YNED+12, YNED+19, Q1+2!, MECH+3, EVENT+1~, EVENT+3, EVENT+8
DTIME	HELP+2
>> DTOUT	DIC+1
>> DUOUT	DIC+2
DUZ	EN1+3
GMRAAR	YNED+2, Q1+1!
GMRAAR("O"	YNED+2
GMRACLAS	EN1+2!, EN1+6*
GMRACLAS(	EN1+6*, EN1+13
GMRAEN	YNED+4*, Q1+1!
GMRAINGR	EN1+2!, EN1+5*
GMRAINGR(	EN1+5*, EN1+11
>> GMRAMEC	MECH+2*
>> GMRANEW(0	YNED+14*, YNED+15, YNED+16, YNED+17
>> GMRAOUT	YNED+1, YNED+2, YNED+4, YNED+5, YNED+9, YNED+10, YNED+13, YNED+22, YNED+24, YNED+27* , MECH+1, MECH+4, EVENT+9, HELP+2, DIC+1, YNOK*
>> GMRAPA	EN1+4, EN1+5, EN1+6, EN1+7, YNED+2, YNED+3, YNED+4, YNED+5, YNED+6, YNED+9 , YNED+11, YNED+12, YNED+14, YNED+19, YNED+22, YNED+26, MECH+3, EVENT+3, EVENT+8
>> GMRAPA(0	EN1+4, EN1+7, EN1+9, EN1+10, EN1+14, EN1+20, YNED+3, YNED+6, YNED+11, YNED+16 , YNED+17, YNED+19, YNED+26
>> GMRAPRSW	EN1+11, EN1+13
GMRAVFY	EN1+16~, EN1+17*
IEN	EVENT+1~
IOF	EN1+8, HEAD+1
MECH	EVENT+1~, EVENT+7*
TXT	EVENT+1~, EVENT+2, EVENT+5, EVENT+7
U	EN1+5, EN1+6, EN1+9, EN1+10, EN1+13, EN1+14, EN1+20, EVENT+5, HELP+2
X	EN1+5, EN1+6, EN1+11, EN1+13, Q1+1!, EVENT+1~, EVENT+5, HELP+2, HELP+3, HELP+4 , HLPLK+1, DIC+1*, YNOK
Y	EN1+5, EN1+6, EN1+11, EN1+13, YNED+5, YNED+9, YNED+10!, YNED+13, YNED+15, YNED+19 , MECH+1, MECH+4, EVENT+1~, EVENT+9, DIC+2, YNOK

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPED0

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: