Routine: GMRARAD0

Information

GMRARAD0 ;HIRMFO/RM-Radiology\ART Interface Routine (cont.);12/30/93

Source Information

Source file <GMRARAD0.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Adverse Reaction Tracking	5	$$RALLG^GMRARAD PTBUL^GMRAROBS BULLT^GMRASEND SITE^GMRAUTL EN1^GMRAVAB
Kernel	1	$$HTFM^XLFDT
National Drug File	1	IEN^PSN50P65
Registration	1	(1,KVAR)^VADPT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRARAD

Entry Points

Name	Comments	DBIA/ICR reference
DRCLRACK(DA)	; This function will determine if entry DA in 120.8 represents ; a contrast media allergy that is not entered in error if the Drug ; Class DX100 is deleted. ; Input variable: DA=entry in file 120.8 ; Return value: 1 if entry is contrast media allergy, 0 if not
CHKEXAL	; This entry point will check the database for existing Rad. Allergies, ; and ask user if they should be entered in error.
QBULL	; THIS ENTRY POINT WILL ALLOW BE CALLED AS A TASKED JOB TO SEND ; BULLETINS FOR A RAD ALLERGY IF NECESSARY. ; INPUT VARIABLE: GMRAPA = IEN 120.8 ENTRY
NKADD	; This entry point will add the NKA entry in file 120.8 if needed.

External References

Name	Field # of Occurrence
^DIR	CHKEXAL+5
$$RALLG^GMRARAD	CHKEXAL+2, CHKEXAL+7
PTBUL^GMRAROBS	QBULL+10
BULLT^GMRASEND	QBULL+9
SITE^GMRAUTL	QBULL+7
EN1^GMRAVAB	QBULL+8
IEN^PSN50P65	DRCLRACK+11
1^VADPT	QBULL+6
KVAR^VADPT	QBULL+6
$$HTFM^XLFDT	CHKEXAL+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!!,$C(7) Line Location: CHKEXAL+3
Routine Call	DIR Line Location: CHKEXAL+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(120.8	CHKEXAL+9, CHKEXAL+11
^GMR(120.8 - [#120.8]	CHKEXAL+2, CHKEXAL+7, CHKEXAL+8, CHKEXAL+10*, QBULL+4, QBULL+9, DRCLRACK+7, DRCLRACK+8, DRCLRACK+16
^GMR(120.86 - [#120.86]	NKADD+3, NKADD+4, NKADD+6, NKADD+8, NKADD+9, NKADD+10*, NKADD+12
^GMRD(120.82 - [#120.82]	DRCLRACK+18
^GMRD(120.84 - [#120.84]	QBULL+7
^TMP($J	DRCLRACK+12, DRCLRACK+13!

Naked Globals

Name	Field # of Occurrence
^(0	NKADD+12*
^(1	CHKEXAL+11
^(2	CHKEXAL+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QBULL+11!
DA	NKADD+1~, CHKEXAL+8*, DRCLRACK~, DRCLRACK+16
DA(1	DRCLRACK+7, DRCLRACK+8, DRCLRACK+16
DFN	NKADD+1~, CHKEXAL+2, CHKEXAL+7, QBULL+5*, QBULL+11!
DIK	NKADD+1~
>> DIR("?"	CHKEXAL+5*
>> DIR("A"	CHKEXAL+4, CHKEXAL+5
>> DIR(0	CHKEXAL+5*
DRCL	DRCLRACK+6~, DRCLRACK+9*, DRCLRACK+11, DRCLRACK+12
DRCL1	DRCLRACK+6~, DRCLRACK+12*, DRCLRACK+15, DRCLRACK+16
DRCL2	DRCLRACK+6~, DRCLRACK+16*
DUZ	CHKEXAL+10
FXN	CHKEXAL+6, DRCLRACK+6~, DRCLRACK+7, DRCLRACK+9, DRCLRACK+15, DRCLRACK+16, DRCLRACK+18*, DRCLRACK+20
GMRA	NKADD+1~
GMRA(0	NKADD+2*, NKADD+3, NKADD+4, NKADD+6, NKADD+12
GMRACNT	NKADD+5~, NKADD+8*, NKADD+10
>> GMRADA	CHKEXAL+2, CHKEXAL+3, CHKEXAL+7, CHKEXAL+8, CHKEXAL+10
GMRADFN	NKADD+5~, NKADD+6*, NKADD+8, NKADD+9, NKADD+10
>> GMRAER	CHKEXAL+8, CHKEXAL+9, CHKEXAL+10, CHKEXAL+11
GMRAHLOC	QBULL+11!
>> GMRAL	NKADD+2
GMRALOC	QBULL+6*, QBULL+9, QBULL+11!
GMRANAM	QBULL+6*, QBULL+11!
GMRAOUT	QBULL+11!
GMRAPA	NKADD+1~, QBULL+3, QBULL+4, QBULL+9, QBULL+11!
GMRAPA(0	QBULL+4*, QBULL+5, QBULL+8, QBULL+10
GMRASITE	QBULL+7, QBULL+11!
GMRASITE(0	QBULL+7*, QBULL+9
GMRATMP	NKADD+1~
GMRATYPE	QBULL+11!
GMRAVIP	QBULL+6*, QBULL+11!
GMRAX	NKADD+1~, NKADD+5~, NKADD+6, NKADD+7, NKADD+8, NKADD+10, CHKEXAL+9, CHKEXAL+11*
GMRAY	NKADD+1~, CHKEXAL+9, CHKEXAL+11
U	NKADD+3, NKADD+8, NKADD+10, NKADD+12, CHKEXAL+9, CHKEXAL+11, QBULL+4, QBULL+6, QBULL+8, QBULL+9 , QBULL+10, DRCLRACK+15, DRCLRACK+18
VA	QBULL+6!
VA("PID"	QBULL+6
>> VADM(1	QBULL+6
>> VAIN(4	QBULL+6
>> X	CHKEXAL+9, CHKEXAL+11
XMB	QBULL+11!
XMY	QBULL+11!
XQA	QBULL+11!
XQAMSG	QBULL+11!
>> Y	CHKEXAL+6
ZERO	DRCLRACK+6~, DRCLRACK+7*, DRCLRACK+15, DRCLRACK+18
>> ZTREQ	QBULL+11*

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRARAD0

Call Graph Total: 9

Caller Graph Total: 1