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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRAU85

Package: Adverse Reaction Tracking

Routine: GMRAU85


Information

GMRAU85 ;HIRMFO/RFM,WAA-UTILITIES FOR FILE 120.85 ;02-Nov-2010 16:37;DU

Source Information

Source file <GMRAU85.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  IX1^DIK  ^DIR  
Adverse Reaction Tracking 1 ($$LOCK,SITE)^GMRAUTL  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Adverse Reaction Tracking 8 GMRAFDA  GMRAFDA1  GMRAMAN  GMRAPEM0  GMRAPEO0  GMRAPT  GMRAREP  GMRAROBS  

Entry Points

Name Comments DBIA/ICR reference
Q1 ;
ADR ; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT (DFN) IS KNOWN,
; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT.
OBSDRG(GMRA) ; GIVEN GMRA AS ENTRY IN 120.8, FUNCTION RETURNS 1 IF OBS. DRUG
; ELSE IT RETURNS 0
EN1 ; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT IS NOT KNOWN
; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT.
EN2 ; LOOKUP 120.85 ENTRY IF PATIENT (DFN) KNOWN, AND 120.8 ENTRY (GMRAPA)
; IS KNOWN.
; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT.
SCR03 ; SCREEN FOR .03 FIELD OF FILE 120.85
SCR02 ; SCREEN FOR .02 FIELD OF FILE 120.85

External References

Name Field # of Occurrence
^DIC EN1+3, ADR+11, EN2+10
IX1^DIK EN2+23
^DIR ADR+9, EN2+6
$$LOCK^GMRAUTL EN2+12
SITE^GMRAUTL EN2+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,$C(7),"THIS PATIENT HAS NO ALLERGY/ADVERSE REACTIONS TO REPORT ON."
  • Line Location: ADR+6
Routine Call
  • DIC
  • Line Location:
    • EN1+3
    • ADR+11
    • EN2+10
Routine Call
  • DIR
  • Line Location:
    • ADR+9
    • EN2+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls
^GMR(120.85 - [#120.85] Classic Fileman Calls
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ADR+11
^GMR(120.8 - [#120.8] ADR+3, EN2+15, EN2+16, EN2+17, SCR02+4, SCR03+2, SCR03+5, OBSDRG+3, OBSDRG+5
^GMR(120.85 - [#120.85] EN2+15*, EN2+17*, EN2+20*, EN2+21*, EN2+22*, SCR02+2, SCR03+2, OBSDRG+2
^GMRD(120.84 - [#120.84] EN2+20

Label References

Name Line Occurrences
ADR EN1+4
EN1 EN1+5
EN2 ADR+16
Q1 EN1+3

Naked Globals

Name Field # of Occurrence
^(0 ADR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA EN2+23*, SCR02+1, SCR02+2, SCR03+1, SCR03+2
>> DFN EN1+3*, ADR+3, ADR+11, EN2+10
DIC EN1+3*!, ADR+11*!, EN2+8*, EN2+10!
DIC("DR" EN2+10*
DIC("S" ADR+11*, EN2+9*
DIC("W" ADR+11*, EN2+10*
DIC(0 EN1+3*, ADR+11*, EN2+8*
>> DIK EN2+23*
DIR ADR+8!, ADR+9!, EN2+5!, EN2+6!
DIR("?" ADR+8*, EN2+6*
DIR("??" ADR+9*, EN2+6*
DIR("A" ADR+8*, EN2+5*
DIR(0 ADR+8*, EN2+5*
>> DIRUT ADR+9, EN2+7
DLAYGO EN2+9*, EN2+10!
>> DTOUT ADR+12, EN2+7, EN2+10
>> DUOUT ADR+12, EN2+7, EN2+10
DUZ EN2+10, EN2+17
GMRA SCR02+2*, SCR02+3!, SCR02+4!, SCR02+6!, SCR03+2*, SCR03+3!, SCR03+4!, SCR03+5!, SCR03+7!, OBSDRG~
, OBSDRG+2*, OBSDRG+3*, OBSDRG+5*, OBSDRG+8*, OBSDRG+9
GMRA(0 SCR03+2*, SCR03+3, OBSDRG+3*, OBSDRG+5
>> GMRALAGO EN2+8, EN2+9
>> GMRAN85 EN2+13*
GMRANAM EN1+3*, Q1+1!
>> GMRAOUT EN1+2*, EN1+5, ADR+7, ADR+9*, ADR+10*, ADR+12*, ADR+15*, EN2+4, EN2+7*, EN2+10*
, EN2+26*
>> GMRAPA ADR+7*, EN2+10, EN2+15, EN2+16, EN2+17
>> GMRAPA(0 ADR+7*, EN2+22
>> GMRAPA1 EN1+3*, EN1+5, ADR+3*, EN2+3*, EN2+4*, EN2+11*, EN2+12*, EN2+15, EN2+17, EN2+20
, EN2+21, EN2+22, EN2+23
>> GMRASITE EN2+19, EN2+20
GMRAX EN2+8*, EN2+15*, EN2+16, EN2+17, EN2+27!
>> GMRAX85 ADR+11*
U ADR+3, EN2+13, EN2+15, EN2+17, EN2+20, EN2+22, SCR02+3, SCR02+4, SCR03+3, SCR03+4
, SCR03+5, OBSDRG+2, OBSDRG+5
>> X ADR+3*, ADR+6, ADR+11*, EN2+8*
>> Y EN1+3, ADR+3*, ADR+7, ADR+11, EN2+4, EN2+8, EN2+11, EN2+12*, EN2+13, SCR02+4
, SCR03+2, SCR03+5, OBSDRG+2
>> Y(0 ADR+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All