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 |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRAPEL0

Package: Adverse Reaction Tracking

Routine: GMRAPEL0


Information

GMRAPEL0 ;HIRMFO/YMP,WAA-EDIT LIKELIHOOD ; 8/25/92

Source Information

Source file <GMRAPEL0.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 YN^DICN  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRAPHR2  GMRAROBS  

Entry Points

Name Comments DBIA/ICR reference
LAST
HELP ;
QUEST5
QUEST4
EN1 ;ENTRY FROM MAIN TO EDIT THE LIKELIHOOD OF REACTION FIELD USING THE FDA
SETTING ;
EXIT
QUEST1
QUEST2
QUEST3
YNED

External References

Name Field # of Occurrence
YN^DICN YNED, QUEST1+2, QUEST2+1, QUEST3+1, QUEST4+1, QUEST5+1, LAST+1, SETTING+2
^DIE SETTING+5, SETTING+7, SETTING+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DETERMINATION OF LIKELIHOOD OF ALLERGY/ADVERSE REACTION:"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !?2,"The likelihood of this reaction was previously determined as ",$S(GMRAPA("LIKE")=1:"REMOTE",GMRAPA("LIKE")=2:"POSSIBLE",GMRAPA("LIKE")=3:"PROBABLE",GMRAPA("LIKE")=4:"HIGHLY PROBABLE",1:""),"."
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !,?2,"Would you like to enter/edit Likelihood"
  • Line Location: YNED+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER YES IF YOU WISH TO CHANGE THIS LIKELIHOOD, ELSE ANSWER NO."
  • Line Location: YNED+1
Function Call: WRITE
  • Prompt: !?2,"Does the event have a reasonable temporal association with use of drug"
  • Line Location: QUEST1+1
Function Call: WRITE
  • Prompt: !?2,"Was there a dechallenge from the drug"
  • Line Location: QUEST2+0
Function Call: WRITE
  • Prompt: !?2,"Did the observed event abate upon dechallenge"
  • Line Location: QUEST3+0
Function Call: WRITE
  • Prompt: !?2,"Was there a rechallenge"
  • Line Location: QUEST4+0
Function Call: WRITE
  • Prompt: !?2,"Did the reaction or event reappear upon rechallenge"
  • Line Location: QUEST5+0
Function Call: WRITE
  • Prompt: !?2,"Could the event be due to an existing clinical condition"
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !,"THE LIKELIHOOD IS DETERMINED AS ",$S(GMRAFDA=1:"REMOTE",GMRAFDA=2:"POSSIBLE",GMRAFDA=3:"PROBABLE",GMRAFDA=4:"HIGHLY PROBABLE",1:""),":"
  • Line Location: SETTING+1
Function Call: WRITE
  • Prompt: !,"IS THAT OK"
  • Line Location: SETTING+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"Answer Yes if this is correct, else answer No."
  • Line Location: SETTING+3
Function Call: WRITE
  • Prompt: !?5,$C(7),"ENTER YES IF THIS QUESTION IS TRUE, ELSE ANSWER NO."
  • Line Location: HELP+1
Routine Call
  • DIE
  • Line Location:
    • SETTING+5
    • SETTING+7
    • SETTING+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.85 - [#120.85] EN1+5, QUEST1

Label References

Name Line Occurrences
EXIT YNED, QUEST1+2, QUEST2+1, QUEST3+1, QUEST4+1, QUEST5+1, LAST+1, SETTING+9
HELP QUEST1+2, QUEST2+1, QUEST3+1, QUEST4+1, QUEST5+1, LAST+1
LAST QUEST4+2, LAST+1
QUEST1 QUEST1+2, SETTING+2
QUEST2 QUEST2+1
QUEST3 QUEST3+1
QUEST4 QUEST4+1
QUEST5 QUEST5+1
SETTING QUEST1+3, QUEST2+2, QUEST3+2, QUEST5+2, QUEST5+3, SETTING+3
YNED YNED+1

Naked Globals

Name Field # of Occurrence
^("LIKE" QUEST1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% YNED*, YNED+1, QUEST1+2*, QUEST1+3, QUEST2+1*, QUEST2+2, QUEST3+1*, QUEST3+2, QUEST4+1*, QUEST4+2
, QUEST5+1*, QUEST5+2, LAST+1*, LAST+2, LAST+3, SETTING+2*, SETTING+3, EXIT!
DA SETTING+4*, SETTING+8*, EXIT!
DA(1 SETTING+4*, SETTING+8*
DIE SETTING+4*, SETTING+8*, EXIT!
DR SETTING+4*, SETTING+6*, SETTING+8*, EXIT!
GMRAFDA QUEST1+3*, QUEST2+2*, QUEST3+2*, QUEST5+2*, QUEST5+3*, LAST+2*, LAST+3*, SETTING+1, SETTING+8, EXIT!
GMRALIKA QUEST1*, QUEST1+3*, QUEST1+4*, QUEST2+2*, QUEST2+3*, QUEST3+2*, QUEST3+3*, QUEST4+2*, QUEST4+3*, QUEST5+2*
, QUEST5+3*, LAST+2*, LAST+3*, SETTING+6, EXIT!
GMRALIKB QUEST1*, QUEST1+2, QUEST2+1, QUEST3+1, QUEST4+1, QUEST5+1, LAST+1, SETTING+4, EXIT!
>> GMRAOUT YNED*, QUEST1+2*, QUEST2+1*, QUEST3+1*, QUEST4+1*, QUEST5+1*, LAST+1*
>> GMRAPA("LIKE" EN1+5*, EN1+6
>> GMRAPA1 EN1+3, EN1+5, QUEST1, SETTING+4, SETTING+8
>> GMRASUS EN1+2, EN1+5, QUEST1, SETTING+4, SETTING+8
X SETTING+4*, SETTING+6*, EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All