Routine: GMRAFX2

Name	Comments	DBIA/ICR reference
MORE()	; -- show more matches
HELP	;Display help for selection of causative agent
YNOTH
MATCHES	; -- List matches for NDF
NPA
DRUG	;W !!,"Now checking the DRUG (#50) file for matches...",! K Y,DTOUT,DUOUT,ENTRY
NDF	;find partial matches and select from NDF
EN1	; Select new reactant
DIC	; VALIDATE LOOKUP FOR A/AR
ING
CLASS

Name	Field # of Occurrence
^DIC	NPA+2, NDF+3
IX^DIC	ING+1, CLASS+1
^DIR	EN1+2, NDF+18, DIC+5, MORE+3
$$T^PSNAPIS	NDF+7
$$TGTOG^PSNAPIS	NDF+8, NDF+10, NDF+11
$$UP^XLFSTR	EN1+2
$$SCREEN^XTID	NDF+8, NDF+10
SCREEN^XTID	NDF+8, NDF+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking GMR ALLERGIES (#120.82) file for matches...",! Line Location: NPA+2
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 INGREDIENT (#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.",!,"Please try again (check spelling, etc).",!,"If you need to add a new reactant, use the AE option." Line Location: YNOTH+0
Function Call: WRITE	Prompt: !!,"You selected ",ENTRY Line Location: DIC+4
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 new causative agent to be assigned to the selected entries." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter between 3 and 30 characters. The entered text will then be" Line Location: HELP+2
Function Call: WRITE	Prompt: !,"searched for in a number of different files. Select the appropriate" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"entry from the appropriate file to update the selected patient." Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Enter ^ to skip the current patient or ^^ to exit the entire process." Line Location: HELP+5
Routine Call	DIC Line Location: NPA+2 NDF+3
Routine Call	DIR Line Location: EN1+2 NDF+18 DIC+5 MORE+3
Routine Call	DIC Line Location: ING+1 CLASS+1

FileNo	Call Tags
^GMRD(120.82 - [#120.82]	Classic Fileman Calls
^PS(50.416 - [#50.416]	Classic Fileman Calls
^PS(50.605 - [#50.605]	Classic Fileman Calls

Name	Line Occurrences
$$MORE	MATCHES+4
DIC	NPA+2, NDF+3, NDF+19, ING+1, CLASS+1
EN1	YNOTH
MATCHES	NDF+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EN1+1~, NDF+7, NDF+8, NDF+11*, NDF+12, NDF+13, NDF+14, NDF+16, MATCHES+2
D	EN1+1~, ING+1, CLASS+1
DIC	EN1+1~, NPA+2!, NDF+3!, ING+1!, CLASS+1!
DIC("S"	NPA, NDF+3, ING+1, CLASS+1
DIC("W"	NPA+2*
DIC(0	NPA+2, NDF+3, ING+1, CLASS+1
DIR	EN1+1~, DIC+1~, MORE+1~
DIR("?"	EN1+2, NDF+17, DIC+5*
DIR("A"	EN1+2, NDF+16, DIC+5, MORE+2
DIR("B"	DIC+5*
DIR(0	EN1+2, NDF+16, DIC+5, MORE+2
DIROUT	EN1+1~, EN1+2
DIRUT	EN1+1~, EN1+2
DTOUT	EN1+1~, NPA+2!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, MORE+1~
DUOUT	EN1+1~, NPA+2!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, MORE+1~
ENTRY	EN1+1~, NPA+2!, NDF+1!, NDF+3, NDF+6!, NDF+13, NDF+18, ING+1!, CLASS+1!, DIC+2 , DIC+4
>> GMRAAR	NPA+3, NDF+4, NDF+20, ING+2, CLASS+2*
>> GMRAAR("O"	NPA+3, NDF+4, NDF+20, ING+2, CLASS+2*
>> GMRAAR(0	NPA+3, NDF+4, NDF+20, ING+2, CLASS+2*
GMRALAR	EN1+1~, EN1+2*, NPA+2, NDF+3, NDF+7, ING+1, CLASS+1, YNOTH
I	MATCHES+1~, MATCHES+3*, MATCHES+5
IOSL	MATCHES+4
J	MATCHES+1~, MATCHES+3, MATCHES+4, MATCHES+5
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
OK	EN1+1~, NPA+3, NDF+4, NDF+20, ING+2, CLASS+2, DIC+3!, DIC+5*
QUIT	MATCHES+1~, MATCHES+3, MATCHES+4
ROOT	EN1+1~, NDF+7*, NDF+8, NDF+9
>> STOP	EN1+2*
U	NDF+4, NDF+8, NDF+11, NDF+13, NDF+18, NDF+20
X	EN1+1~, NPA+2, NDF+3, NDF+7, NDF+8, NDF+9, NDF+18, ING+1, ING+2, CLASS+1 , CLASS+2, DIC+1~, MORE+1~
Y	EN1+1~, EN1+2, NPA+2!, NPA+3, NDF+1!, NDF+3, NDF+4, NDF+6!, NDF+12, NDF+13 , NDF+18*, NDF+20, ING+1!, ING+2, CLASS+1!, CLASS+2, DIC+1~, DIC+5, MORE+1~, MORE+4
Y(0	NPA+3, NDF+13, NDF+18, NDF+20

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFX2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Marked Items