Routine: GMRAVAM0

Package	Total	Call Graph
Adverse Reaction Tracking	3	EN1^GMRAPET0 EN1^GMRAPEV0 ($$LOCK,SITE,UNLOCK)^GMRAUTL
Registration	2	(1,KVAR)^VADPT PID^VADPT6
VA Fileman	2	^DIC ^DIR
Kernel	1	KILL^XUSCLEAN

Package

Total

Call Graph

Adverse Reaction Tracking

EN1^GMRAPET0 EN1^GMRAPEV0 ($$LOCK,SITE,UNLOCK)^GMRAUTL

Registration

(1,KVAR)^VADPT PID^VADPT6

VA Fileman

^DIC ^DIR

Kernel

KILL^XUSCLEAN

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRA PATIENT A/AR VERIFY

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA PATIENT A/AR VERIFY

Entry Points

Name	Comments	DBIA/ICR reference
SELL
ALLERPR	;
SCREEN
NOVER	;
WRITE
EN1	; Entry for VERIFY PATIENT REACTION DATA option
EN2	;Select the type of Agent to verify
EXIT	;
VERPT	; Loop through all Patient GMRADFN's data to be verified and save ; in ^TMP("GMRAV",$J array.
FF	;
SELT	;SELECT THE REACTIONS
ARRAY
SEL	;
DISPLAY	;
SELECT

Name	Field # of Occurrence
^DIC	EN2+6
^DIR	EN2+3, EN2+17, SEL+4
EN1^GMRAPET0	SELT+8
EN1^GMRAPEV0	SELT+7
$$LOCK^GMRAUTL	SELT+6
SITE^GMRAUTL	SELT+7
UNLOCK^GMRAUTL	SELT+11
1^VADPT	SELT+4, WRITE+1
KVAR^VADPT	SELT+4, WRITE+2
PID^VADPT6	WRITE+1
KILL^XUSCLEAN	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?20,$E(I,1),?23,I Line Location: EN2+12
Function Call: WRITE	Prompt: !,$C(7),"There isn't any ",$S(GMRAFLAG=1:"drug ",GMRAFLAG=0:"non-drug ",1:""),"allergy data to verify.",! Line Location: EN2+24
Function Call: WRITE	Prompt: !,?66,"OBS/" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,?4,"PATIENT",?41,"ALLERGY",?66,"HIST",?71,"ADR",?75,"TYPE" Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,?4,"-------",?41,"-------",?66,"----",?71,"---",?75,"----",! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,$J(CX,2),".",?4,$E(GMRANAME,1,20)," (",GMRASSN,") ",$E(GMRALOC,1,8),?41,$E(GMRALLER,1,23),?66 Line Location: WRITE+3
Function Call: WRITE	Prompt: $S($P(GMRAG,"^",6)="o":"OBS",$P(GMRAG,"^",6)="h":"HIST",1:""),?71,$S($P(GMRAG,"^",14)="A":"NO",$P(GMRAG,"^",14)="P":"YES",1:"UNK") Line Location: WRITE+4
Function Call: WRITE	Prompt: ?75 Line Location: WRITE+5
Function Call: WRITE	Prompt: !,?75 Condition for execution: X>1 Line Location: WRITE+8
Function Call: WRITE	Prompt: $P("^FOOD^DRUG^OTHER","^",$F("FDO",$E(GMRAY,X))) Line Location: WRITE+8
Function Call: WRITE	Prompt: !,"TYPE '^' TO STOP OR" Line Location: SCREEN+0
Function Call: WRITE	Prompt: !?4,$C(7),"ANSWER WITH A NUMBER BETWEEN 1 AND ",CX Line Location: SCREEN+4
Function Call: WRITE	Prompt: !,"ERROR INVALID SELECTION" Line Location: SEL+8
Function Call: WRITE	Prompt: !!?5,$C(7),"You do not have the 'GMRA-ALLERGY VERIFY' Security Key." Line Location: NOVER+1
Function Call: WRITE	Prompt: # Line Location: FF+1
Routine Call	DIC Line Location: EN2+6
Routine Call	DIR Line Location: EN2+3 EN2+17 SEL+4

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ARRAY+2, SELT+10
^GMR(120.8 - [#120.8]	EN2+23, VERPT+2, ARRAY, SELT+7
^GMRD(120.83 - [#120.83]	SELT+5
^TMP("GMRA"	EN2+21!, SELL+1!, SELT+3, WRITE+10*, SEL+8, EXIT+1!
^TMP("GMRAV"	EN2+21!, EN2+24, ARRAY+2*, DISPLAY+2, DISPLAY+7, SELT+10!, ALLERPR+1, WRITE, EXIT+1!
^XUSEC("GMRA-ALLERGY VERIFY"	EN1+1

Label References

Name	Line Occurrences
ALLERPR	DISPLAY+7
ARRAY	VERPT+2, SELT+7
DISPLAY	EN2+25, SELL+2
EN1	EN2+24
EXIT	EN2+3, EN2+5, EN2+17, DISPLAY+1, DISPLAY+2, DISPLAY+8, DISPLAY+9, SELECT, SELECT+1, SELECT+2
FF	EN2+11, EN2+20, DISPLAY+3, SELT+1, SCREEN+2
NOVER	EN1+1
SCREEN	ALLERPR+1, SCREEN+4
SEL	SELECT, SCREEN+1
SELL	DISPLAY+9
SELT	SELL
VERPT	EN2+22, EN2+23
WRITE	ALLERPR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ARRAY+1*
>> CX	DISPLAY+7, ALLERPR+1, WRITE+3, WRITE+10, SCREEN+4, SEL+1, SEL+2
>> DFN	SELT+4, WRITE+1
DIC	EN2+6*, EN2+7!, EN2+9!
DIC(0	EN2+6*
DIR	EN2+3!, EN2+13!, EN2+17!, SEL+2!, SEL+4!
DIR("?"	EN2+15, EN2+16
DIR("A"	EN2+2, EN2+14, SEL+2*
DIR("B"	EN2+3*
DIR(0	EN2+3, EN2+13, SEL+2, SEL+3
DIRUT	EN2+3!
DTOUT	EN2+7!
DUOUT	EN2+7!
DUZ	EN1+1
>> GMRACHK	SELT+3*, SELT+4, SELT+5
>> GMRADFN	EN2+1, EN2+8, EN2+22, EN2+23, VERPT+2, ARRAY+2, SELT+7, SELT+8
GMRADIG	DISPLAY+3!, DISPLAY+9, ALLERPR+1, SCREEN+5*
>> GMRADRUG	ARRAY+1, ARRAY+2, SELT+5
>> GMRAER	SELL, SCREEN+4, SEL+7, SEL+8
>> GMRAERR	SELT+9, SELT+10
>> GMRAFLAG	EN2+18*, EN2+24, ARRAY+2, SELT+5
>> GMRAG	ARRAY, ARRAY+1, ARRAY+2, WRITE, WRITE+1, WRITE+4, WRITE+7, WRITE+10
>> GMRALL	VERPT+2, ARRAY, ARRAY+2, SELT+7
>> GMRALLER	DISPLAY+7, SELT+10, ALLERPR+1*, WRITE, WRITE+3
>> GMRALOC	SELT+4, WRITE+1, WRITE+3
>> GMRANAM	SELT+4*
>> GMRANAME	DISPLAY+7, SELT+10, ALLERPR+1, WRITE, WRITE+3
>> GMRANS	SELL*, SELT+3
>> GMRAOTH	SELT+5*
>> GMRAOUT	EN2+1, EN2+5, EN2+7, EN2+21, DISPLAY+1, DISPLAY+7, DISPLAY+8, DISPLAY+9, SELECT, SELECT+2 , SELL, SELT+5, SELT+8, SELT+9, ALLERPR+1, SCREEN+1, SCREEN+3, SEL+6*
>> GMRAPA	SELT+5*, SELT+6, SELT+7, SELT+8, SELT+10, SELT+11
>> GMRAPA(0	SELT+5*, SELT+10
>> GMRAREC	ALLERPR+1*, WRITE, WRITE+10
>> GMRASEX	SELT+4*
>> GMRASSN	WRITE+1*, WRITE+3
>> GMRAVEDT	SELT+5*
>> GMRAVER	SELT+8, SELT+10
GMRAX	SEL+7*, SEL+8, SEL+10!
GMRAY	SELECT+1, SELL, SELT+2~, WRITE+6~, WRITE+7, WRITE+8, SCREEN+2, SEL+5, SEL+6, SEL+7
GMRAZ	SELL, SELT+2~, SEL+7, SEL+10!
>> I	EN2+12*
IOSL	ALLERPR+1
U	ARRAY+1, SELT+7, SELT+10, WRITE+1
VA	SELT+4!, WRITE+2!
VA("BID"	WRITE+1
>> VADM(1	SELT+4
>> VADM(5	SELT+4
>> VAIN(4	SELT+4, WRITE+1
VAROOT	SELT+4!, WRITE+2!
X	WRITE+6~, WRITE+8*
Y	EN2+5, EN2+7, EN2+8, EN2+17, EN2+18, EN2+19!, SEL+5!

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAVAM0

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: