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 |  Local Variables |  All
Print Page as PDF
Routine: GMRAROBS

Package: Adverse Reaction Tracking

Routine: GMRAROBS


Information

GMRAROBS ;HIRMFO/RFM,WAA-OBSERVED REACTION DATA EDIT ;12/22/04 10:37

Source Information

Source file <GMRAROBS.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Adverse Reaction Tracking 10 ^GMRADSP7  EN1^GMRALAB0  EN1^GMRAPEL0  ADDCOM^GMRAPET0  EN1^GMRAPHR1  EN1^GMRAPHR2  EN1^GMRAU85  RXN^GMRAU851  
(SITE,UNLOCK)^GMRAUTL  $$DATE^GMRAUTL1  
VA Fileman 5 NOW^%DTC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
MailMan 1 ^XMB  
Registration 1 PID^VADPT6  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Adverse Reaction Tracking 5 GMRAPEM0  GMRAPEO0  GMRARAD0  GMRASIGN  GMRAVFY  

Entry Points

Name Comments DBIA/ICR reference
FDA
3
1
EN1 ; Entry for EDIT OBSERVED REACTION DATA option
EN2 ; ENTRY FROM ENTER/EDIT OPTION GMRAPA1 AND GMRAPA ARE KNOWN
2
EXIT ;
4
PTBUL ;Fire off the P&T FDA bul
FDA1

External References

Name Field # of Occurrence
NOW^%DTC PTBUL+1
YN^DICN EN2+5
^DIE EN2+1, 1, 3+1, 4+5
$$GET1^DIQ EN2+1, 4+1, 4+4, PTBUL+10
^DIR FDA1+10
^GMRADSP7 EN1+2
EN1^GMRALAB0 1
EN1^GMRAPEL0 FDA
ADDCOM^GMRAPET0 PTBUL+12
EN1^GMRAPHR1 3
EN1^GMRAPHR2 2
EN1^GMRAU85 EN1+1
RXN^GMRAU851 1
SITE^GMRAUTL EN2+2
UNLOCK^GMRAUTL EN1+3
$$DATE^GMRAUTL1 EN2+1, PTBUL+11
PID^VADPT6 PTBUL+7
^XMB PTBUL+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Complete the FDA data"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !,"ENTER YES TO EDIT FDA DATA ENTER NO TO SKIP FDA DATA",$C(7)
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: @IOF,!,"Indicate which FDA Report Sections to be completed:"
  • Line Location: FDA1+0
Function Call: WRITE
  • Prompt: !,"1. Reaction Information",!,"2. Suspect Drug(s) Information",!,"3. Concomitant Drugs and History",!,"4. Initial Reporter"
  • Line Location: FDA1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 4+0
Routine Call
  • DIE
  • Line Location:
    • EN2+1
    • 1
    • 3+1
    • 4+5
Routine Call
  • DIR
  • Line Location:
    • FDA1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.85 - [#120.85] Classic Fileman Calls
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(3.1 - [#3.1] 4+2
^DPT - [#2] PTBUL+8
^GMR(120.85 - [#120.85] EN2+1
^GMRD(120.84 - [#120.84] EN2+2
^TMP("TIUP" PTBUL+12!

Label References

Name Line Occurrences
@( FDA1+12
EN2 EN1+2
EXIT EN1+1, EN1+4, EN2+1, EN2+3, EN2+6, FDA, FDA1+10
FDA EN2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN2+5*, EN2+6!, PTBUL+11
DA EN2+1*, EXIT+1!, 1*, 3+1*, 4+3*
>> DFN PTBUL+7*, PTBUL+8
DIE EN2+1*, EXIT+1!, 1*, 3+1*, 4+3*
DIR FDA1+2!, FDA1+10!
DIR("?" FDA1+4*, FDA1+5*, FDA1+6*, FDA1+7*, FDA1+8*
DIR("A" FDA1+2*
DIR("B" FDA1+9*
DIR(0 FDA1+2*, FDA1+3*
>> DIRUT FDA1+10
DR EN2+1*, EXIT+1!, 1*, 3+1*, 4+4*
DUZ EN2+1, 4+1, 4+4, PTBUL+10
GMRABGDT EXIT+1!, 1!, 2!, 3!, 3+2!
GMRACNT PTBUL+12~*
GMRADT EXIT+1!, 1!, 2!, 3!, 3+2!
GMRAENDT EXIT+1!, 1!, 2!, 3!, 3+2!
GMRAGHC FDA1+11!, EXIT+1!
GMRAGHC( FDA1+11*, FDA1+12
>> GMRALAGO EN1+1*
>> GMRAOUT EN1+1*, FDA, FDA1+12*, 1, 2*, 3*
>> GMRAPA EN1+2*
>> GMRAPA(0 EN2+3, PTBUL+7, PTBUL+10
>> GMRAPA1 EN1+1, EN1+3, EN2+1, 1, 3+1, 4+3
>> GMRASITE EN2+2
>> GMRASITE(0 EN2+2*, EN2+4
GMRAT 4~, 4+1*, 4+2*, 4+4
GMRAX FDA1+11*, EXIT+1!
GMRAXXX FDA1+12*, EXIT+1!
IOF FDA1, 1, 2, 3, 4
U EN2+1, EN2+3, EN2+4, 4+2, PTBUL+7, PTBUL+8, PTBUL+10
VA EXIT+1!, PTBUL+9!
VA("PID" PTBUL+9
X FDA1+11*, EXIT+1!
XMB EXIT+1!, PTBUL+11*
XMB(1 PTBUL+8*
XMB(2 PTBUL+9*
XMB(3 PTBUL+10*
XMB(4 PTBUL+10*
XMB(5 PTBUL+11*
>> XMTEXT PTBUL+12*
XMY EXIT+1!
XMY("G.GMRA P &T COMMITTEE FDA" , PTBUL+13*
Y EN2+1, FDA1+10, FDA1+11, FDA1+12, EXIT+1!, PTBUL+11*
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 |  Local Variables |  All