Routine: GMRAPES0

Information

GMRAPES0 ;HIRMFO/RM-SELECT PATIENT ALLERGY TO EDIT ;07-Jun-2012 17:59;DU

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	5	(,IX)^DIC YN^DICN GETS^DIQ ^DIR EN^DIWE
Adverse Reaction Tracking	2	EN1^GMRAHLP0 ADAR^GMRAPES1
Kernel	1	$$UP^XLFSTR
MailMan	1	^XMD
National Drug File	1	($$T,$$TGTOG)^PSNAPIS
Toolkit	1	($$SCREEN,SCREEN)^XTID

Package	Total	Caller Graph
Adverse Reaction Tracking	4	GMRAEER0 GMRAFX3 GMRAPEM0 GMRAPVDE
Order Entry Results Reporting	1	ORWDAL32

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;
YNDRG	;
MORE()	; -- show more matches
GETINPUT(GMRAET)	;Allow user to add comment to message
MESS	;Provide help for sending email message
YNOTH
MATCHES	; -- List matches for NDF
CHECK(ORIEN)	;Check to see if allergy is active)
NPA
DRUG	;W !!,"Now checking the DRUG (#50) file for matches...",! K Y,DTOUT,DUOUT
NDF	;find partial matches and select from NDF
EN1	; GIVEN DFN, SELECT PATIENT ALLERGY
DUPCHK(X,Y,Z)	;CHECK FOR ENTERED IN ERROR
DIC	; VALIDATE LOOKUP FOR A/AR
SENDREQ(USER,PAT,TEXT,GMRAET)	;Send email to GMRA REQUEST NEW REACTANT indicating user's request for a new allergy	ICR #4374 Status: Active Usage: Private
ING
PAL
CLASS
YNOK

External References

Name	Field # of Occurrence
^DIC	PAL+2, NPA+4, NDF+3
IX^DIC	ING+1, CLASS+1
YN^DICN	YNOK, DUPCHK+7
GETS^DIQ	SENDREQ+8
^DIR	NDF+18, YNOTH+5, MORE+3
EN^DIWE	GETINPUT+7
EN1^GMRAHLP0	EN1+4
ADAR^GMRAPES1	NPA+5, NDF+4, NDF+20, ING+2, CLASS+2
$$T^PSNAPIS	NDF+7
$$TGTOG^PSNAPIS	NDF+8, NDF+10, NDF+11
$$UP^XLFSTR	EN1+5
^XMD	SENDREQ+28
$$SCREEN^XTID	NDF+8, NDF+10
SCREEN^XTID	NDF+8, NDF+10

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Enter Causative Agent: " Formatting: !! Timeout: DTIME Variable: GMRALAR Line Location: EN1+3
Function Call: WRITE	Prompt: !!,"Checking existing PATIENT ALLERGIES (#120.8) file for matches...",! Line Location: PAL+1
Function Call: WRITE	Prompt: !!,"Now checking GMR ALLERGIES (#120.82) file for matches...",! Line Location: NPA+0
Function Call: WRITE	Prompt: !!,"Now checking the National Drug File - Generic Names (#50.6)",! Line Location: NDF+2
Function Call: WRITE	Prompt: !!,"Now checking the National Drug File - Trade Names (#50.67)",! Line Location: NDF+5
Function Call: WRITE	Prompt: !!,"Now checking the INGREDIENTS (#50.416) file for matches...",! Line Location: ING+0
Function Call: WRITE	Prompt: !!,"Now checking VA DRUG CLASS (50.605) file for matches...",! Line Location: CLASS+0
Function Call: WRITE	Prompt: !!,"Could not find ",GMRALAR," in any files." Line Location: YNOTH+0
Function Call: WRITE	Prompt: !!,"Before sending an email requesting the addition of a new reactant, please",!,"try entering the first 3 or 4 letters of the reactant to search for",!,"the desired entry.",! Line Location: YNOTH+1
Function Call: WRITE	Prompt: !,"Would you like to send an email requesting ",GMRALAR,!,"be added as a causative agent?" Line Location: YNOTH+2
Function Call: WRITE	Prompt: !!,"Error - Message not sent - ",$P(X,U,2) Line Location: YNDRG+3
Function Call: WRITE	Prompt: !!,"Message sent - NOTE: This reactant was NOT added for this patient." Line Location: YNDRG+4
Function Call: WRITE	Prompt: ! Line Location: YNDRG+5
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: !,?5,$C(7),"This Agent has been Entered in Error once before.",!,?5,"Are you sure you want to select this Agent again" Line Location: DUPCHK+6
Function Call: WRITE	Prompt: !,?10,"ENTER 'Y' FOR YES OR 'N' FOR NO" Line Location: DUPCHK+8
Function Call: WRITE	Prompt: !!,"Choose from the following "_+$G(CNT)_" matches:" Line Location: MATCHES+2
Function Call: WRITE	Prompt: !,J," ",$P(LST(I),"^",2) Line Location: MATCHES+5
Function Call: WRITE	Prompt: !,"Enter YES to send an email to the allergy coordinator(s) indicating that",!,"Reactant--> ",GMRALAR,!,"was not found when you were trying to add it for this patient.",!,"Enter NO to try entering the reactant again." Line Location: MESS+1
Function Call: WRITE	Prompt: !!,"You may now add any comments you may have to the message that",!,"is going to be sent with the request to add this reactant." Line Location: GETINPUT+5
Function Call: WRITE	Prompt: !,"You may want to add things like sign/symptoms, observed or historical, etc",!,"that may be useful to the reviewer.",! Line Location: GETINPUT+6
Routine Call	DIC Line Location: PAL+2 NPA+4 NDF+3
Routine Call	DIR Line Location: NDF+18 YNOTH+5 MORE+3
Routine Call	DIC Line Location: ING+1 CLASS+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(120.8 - [#120.8]	Classic Fileman Calls
^GMRD(120.82 - [#120.82]	Classic Fileman Calls
^DPT - [#2]	GETS^DIQ
^VA(200 - [#200]	GETS^DIQ
^PS(50.416 - [#50.416]	Classic Fileman Calls
^PS(50.605 - [#50.605]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	Q1+1, DUPCHK+2, DUPCHK+3, DUPCHK+4, DUPCHK+5
^GMRD(120.82 - [#120.82]	CHECK+4, CHECK+5, CHECK+6
^TMP($J	GETINPUT+2*, GETINPUT+8, GETINPUT+9!

Label References

Name	Line Occurrences
$$DUPCHK	YNOK
$$MORE	MATCHES+4
$$SENDREQ	YNDRG+2
CLASS	CLASS+3
DIC	PAL+2, NPA+4, NDF+3, NDF+19, ING+1, CLASS+1
EN1	EN1+4, PAL+2, PAL+3, NPA+4, NPA+5, NPA+6, NDF+4, NDF+19, NDF+20, ING+1 , ING+2, ING+3, CLASS+1, CLASS+2, CLASS+3, YNOTH+7
GETINPUT	YNDRG+1
ING	ING+3
MATCHES	NDF+15
NPA	NPA+6
PAL	PAL+3
Q1	EN1+3, EN1+4, PAL+2, PAL+3, PAL+4, NPA+4, NPA+5, NPA+6, NDF+4, NDF+19 , NDF+20, ING+1, ING+2, ING+3, CLASS+1, CLASS+2, CLASS+3, YNOTH+6
YNOK	YNOK+2

Naked Globals

Name	Field # of Occurrence
^(0	Q1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q1+2!, YNOK, DUPCHK+1~, DUPCHK+6, DUPCHK+7*, DUPCHK+8, DUPCHK+10
%Y	DUPCHK+1~, DUPCHK+7
CNT	EN1+1~, NDF+7, NDF+8, NDF+11, NDF+12, NDF+13, NDF+14, NDF+16, MATCHES+2, SENDREQ+3~ , SENDREQ+9, SENDREQ+10, SENDREQ+11, SENDREQ+12, SENDREQ+13, SENDREQ+14, SENDREQ+15, SENDREQ+16, SENDREQ+17, SENDREQ+18* , SENDREQ+19, SENDREQ+20, SENDREQ+21, SENDREQ+22, SENDREQ+23, SENDREQ+24, SENDREQ+25, SENDREQ+26
D	ING+1, CLASS+1, Q1+2!
DA	Q1+2!
>> DFN	YNDRG+2, YNOK
DGSENFLG	PAL*, PAL+2!
DIC	PAL, PAL+2!, NPA+4!, NDF+3!, ING+1!, CLASS+1!, Q1+2!, GETINPUT+1~, GETINPUT+3
DIC("S"	PAL, NPA+3, NDF+3, ING+1, CLASS+1*
DIC("W"	PAL, NPA+4
DIC(0	PAL, NPA+4, NDF+3, ING+1, CLASS+1*
DIR	EN1+1~, MORE+1~
DIR("?"	NDF+17, YNOTH+4
DIR("A"	NDF+16, YNOTH+3, MORE+2*
DIR("B"	YNOTH+4*
DIR(0	NDF+16, YNOTH+4, MORE+2*
DIWEPSE	GETINPUT+1~, GETINPUT+4*
DTIME	EN1+3
DTOUT	PAL!, PAL+2!, NPA+4!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, Q1+2!, DIC+1, MORE+1~
DUOUT	PAL!, PAL+2!, NPA+4!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, Q1+2!, DIC+2, MORE+1~
DUZ	YNDRG+2, SENDREQ+4, SENDREQ+7
DWLW	GETINPUT+1~, GETINPUT+4*
DWPK	GETINPUT+1~, GETINPUT+4*
GMRAAR	NPA+5, NDF+4, NDF+20, ING+2, CLASS+2*, Q1+2!
GMRAAR("O"	NPA+5, NDF+4, NDF+20, ING+2, CLASS+2*
GMRAAR(0	NPA+5, NDF+4, NDF+20, ING+2, CLASS+2*
GMRAET	EN1+1~, YNDRG+1, YNDRG+2, SENDREQ~, SENDREQ+18, SENDREQ+19, GETINPUT~, GETINPUT+8*
GMRAET(	SENDREQ+18
GMRAET(0	SENDREQ+18
GMRAGOUT	EN1+1~, DUPCHK+1~, DUPCHK+2, DUPCHK+3, DUPCHK+10, DUPCHK+13*, DUPCHK+14
GMRAHLP	EN1+4*, Q1+2!
GMRAING	Q1+2!
GMRALAGO	PAL+4, Q1+2!
GMRALAR	EN1+3, EN1+4, EN1+5, NPA+4, NDF+3, NDF+7, ING+1, CLASS+1, YNOTH, YNOTH+2 , YNDRG+2, Q1+2!, MESS+1
>> GMRANAM	PAL
>> GMRANEW	EN1+3*
>> GMRAOUT	EN1+3, EN1+4, PAL+2, PAL+3, NPA+4, NPA+5, NPA+6, NDF+4, NDF+19, NDF+20 , ING+1, ING+2, ING+3, CLASS+1, CLASS+2, CLASS+3, YNOTH+6, DIC+1, YNOK, DUPCHK+3 , DUPCHK+7
GMRAPA	EN1+3, PAL+3, NPA+5, NDF+4, NDF+20, ING+2, CLASS+2, Q1+1, DUPCHK+1~, DUPCHK+3* , DUPCHK+4, DUPCHK+5
GMRAPA(0	Q1+1*
GMRAPI	SENDREQ+3~
GMRAPI(2	SENDREQ+11
GMRAPS	SENDREQ+3~, SENDREQ+8*, SENDREQ+11
>> GMRARET	EN1+2, EN1+3
GMRATXT	SENDREQ+3~
GMRATXT(	SENDREQ+10, SENDREQ+11, SENDREQ+12, SENDREQ+13, SENDREQ+14, SENDREQ+15, SENDREQ+16, SENDREQ+17, SENDREQ+18, SENDREQ+19 , SENDREQ+20, SENDREQ+21, SENDREQ+22, SENDREQ+23, SENDREQ+24, SENDREQ+25, SENDREQ+26*
GMRAUI	SENDREQ+3~
GMRAUI(200	SENDREQ+11, SENDREQ+14, SENDREQ+15, SENDREQ+16
GMRAUS	SENDREQ+3~, SENDREQ+8*, SENDREQ+11, SENDREQ+14, SENDREQ+15, SENDREQ+16
I	MATCHES+1~, MATCHES+3*, MATCHES+5
IOSL	MATCHES+4
J	MATCHES+1~, MATCHES+3, MATCHES+4, MATCHES+5, SENDREQ+3~, SENDREQ+18*
LST	EN1+1~
LST(	NDF+8, NDF+11, NDF+18, MATCHES+3, MATCHES+5
LST(1	NDF+13
NAM	EN1+1~, NDF+9*, NDF+10, NDF+11
ORIEN	CHECK~, CHECK+4, CHECK+5, CHECK+6
PAT	SENDREQ~, SENDREQ+8
PSNDA	Q1+2!
PSODA	Q1+2!
QUIT	MATCHES+1~, MATCHES+3, MATCHES+4
ROOT	EN1+1~, NDF+7*, NDF+8, NDF+9
STAT	CHECK+1~, CHECK+5*, CHECK+6
STATUS	CHECK+1~, CHECK+6*, CHECK+7
>> TERMDT	CHECK+4*
TEXT	SENDREQ~, SENDREQ+4, SENDREQ+10, SENDREQ+26
U	NDF+4, NDF+8, NDF+11, NDF+13, NDF+18, NDF+20, YNDRG+3, DUPCHK+2, DUPCHK+4, SENDREQ+18 , CHECK+6
USER	SENDREQ~, SENDREQ+4, SENDREQ+8
VALUE	CHECK+1~, CHECK+2, CHECK+7, CHECK+8
X	PAL, PAL+2, PAL+3, NPA+4, NPA+6, NDF+3, NDF+7, NDF+8, NDF+9, NDF+13 , NDF+18, ING+1, ING+2, ING+3, CLASS+1, CLASS+2, CLASS+3, YNDRG+2, YNDRG+3, YNDRG+4 , Q1+2!, DIC+1*, YNOK, DUPCHK~, DUPCHK+2, DUPCHK+4, MORE+1~
XMDUZ	SENDREQ+3~, SENDREQ+5*
XMMG	SENDREQ+3~, SENDREQ+29
XMSUB	SENDREQ+3~, SENDREQ+5*
XMTEXT	SENDREQ+3~, SENDREQ+27*
XMY	SENDREQ+3~
XMY(	SENDREQ+7*
XMY("G.GMRA R	EQUEST NEW REACTANT" , SENDREQ+6*
XMZ	SENDREQ+3~
Y	PAL!, PAL+3, NPA+4!, NPA+5, NPA+6, NDF+1!, NDF+4, NDF+6!, NDF+12, NDF+13 , NDF+18, NDF+20, ING+1!, ING+2, ING+3, CLASS+1!, CLASS+2, CLASS+3, YNOTH+6, YNOTH+7 , Q1+2!, DIC+2, YNOK*, DUPCHK~, DUPCHK+3, MORE+1~, MORE+4
Y(0	PAL+2, NPA+5, NDF+13, NDF+18, NDF+20
Z	DUPCHK~, DUPCHK+2

Marked Items

Name	Field # of Occurrence
$T(SCREEN^XTID	NDF+8, NDF+10

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPES0

Information

Source Information

Call Graph

Call Graph Total: 11

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:

Marked Items