Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRARAD0

Package: Adverse Reaction Tracking

Routine: GMRARAD0


Information

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

Source Information

Source file <GMRARAD0.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRARAD  

Entry Points

Name Comments DBIA/ICR reference
NKADD ; This entry point will add the NKA entry in file 120.8 if needed.
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
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

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All