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: GMRAPED0

Package: Adverse Reaction Tracking

Routine: GMRAPED0


Information

GMRAPED0 ;HIRMFO/RM,WAA-VERIFIER EDIT OF DRUG A/AR ;11/16/07 10:03

Source Information

Source file <GMRAPED0.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Adverse Reaction Tracking 6 EN1^GMRADSP3  HELP^GMRAPED0  DRGCLS^GMRAPED1  EN1^GMRAPED3  EN1^GMRAPER2  ($$OUTTYPE,INPTYPE)^GMRAUTL  
National Drug File 2 ZERO^PSN50P41  C^PSN50P65  
VA FileMan 2 YN^DICN  ^DIE  
Kernel 1 $$DT^XLFDT  

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: 6

Package Total Caller Graph
Adverse Reaction Tracking 6 GMRAPED0  GMRAPEH0  GMRAPEM0  GMRAPEO0  GMRAPEV0  GMRAPVDE  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY TO EDIT INFO SPECIFIC TO DRUG A/AR FOR VERIFIER
YNED
Q1 ;Exit
MECH ;Mechanism for ADRs
HELP ; HELP FOR A/AR LOOKUP
DIC ; VALIDATE LOOKUP FOR A/AR
YNOK
HEAD ; Header for reactions

External References

Name Field # of Occurrence
YN^DICN YNED, YNOK
^DIE YNED+2, YNED+5, YNED+10, YNED+17, MECH+3
EN1^GMRADSP3 EN1+19
HELP^GMRAPED0 HELP+1
DRGCLS^GMRAPED1 YNED+7
EN1^GMRAPED3 YNED+2
EN1^GMRAPER2 YNED+20
$$OUTTYPE^GMRAUTL EN1+11
INPTYPE^GMRAUTL YNED+4
ZERO^PSN50P41 EN1+5
C^PSN50P65 EN1+7
$$DT^XLFDT EN1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !,"CAUSATIVE AGENT: ",$P(GMRAPA(0),U,2)
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !?11,"TYPE: ",$$OUTTYPE^GMRAUTL($P(GMRAPA(0),U,20))
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !?4,"INGREDIENTS: "
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,"VA DRUG CLASSES: "
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !," OBS/HIST: ",$S($P(GMRAPA(0),U,6)="o":"OBSERVED",$P(GMRAPA(0),U,6)="h":"HISTORICAL",1:"")
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !," MECHANISM: ",$S($P(GMRAPA(0),U,14)="A":"ALLERGY",$P(GMRAPA(0),U,14)="P":"PHARMACOLOGIC",$P(GMRAPA(0),U,14)="U":"UNKNOWN",1:"")
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER YES IF YOU WISH TO CHANGE ANY OF THE DATA ABOVE, ELSE ANSWER NO."
  • Line Location: YNED+0
Function Call: WRITE
  • Prompt: $C(7)," Required??"
  • Line Location: YNED+13
Function Call: WRITE
  • Prompt: !,?20,GMRAMEC
  • Line Location: MECH+2
Function Call: WRITE
  • Prompt: !?3,X," OK"
  • Line Location: YNOK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: YNOK+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER YES IF THIS IS THE CORRECT ALLERGY/ADVERSE REACTION,",!?5,"ELSE ANSWER NO."
  • Line Location: YNOK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Reactions: (cont.) "
  • Line Location: HEAD+2
Routine Call
  • DIE
  • Line Location:
    • YNED+2
    • YNED+5
    • YNED+10
    • YNED+17
    • MECH+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, YNED+3, YNED+6, YNED+9, YNED+12
, YNED+22
^TMP($J EN1+1!, EN1+5, EN1+7, Q1+1!
^XUSEC("GMRA-ALLERGY VERIFY" EN1+2

Label References

Name Line Occurrences
EN1 YNED+23
MECH YNED+21
Q1 EN1+2, EN1+3, YNED+1, YNED+2, YNED+4, YNED+5
YNED YNED
YNOK YNOK+2

Naked Globals

Name Field # of Occurrence
^( EN1+5, EN1+7
^(0 EN1+5, EN1+7, YNED+9, YNED+12, YNED+22
^(1 EN1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YNED*, YNED+1, YNOK*
DA YNED+2*, YNED+5*, YNED+10*, YNED+17*, Q1+2!, MECH+3*
DIE YNED+2*, YNED+5*, YNED+10*, YNED+17*, Q1+2!, MECH+3*
DR YNED+2*, YNED+5*, YNED+10*, YNED+17*, Q1+2!, MECH+3*
>> DTOUT DIC+1
>> DUOUT DIC+2
DUZ EN1+2
GMRAAR YNED+2, Q1+1!
GMRAAR("O" YNED+2
GMRACLAS EN1+1!, EN1+6*, EN1+7
GMRACLAS( EN1+7*, EN1+14
GMRAEN YNED+4*, Q1+1!
GMRAINGR EN1+1!, EN1+4*, EN1+5
GMRAINGR( EN1+5*, EN1+12
>> GMRAMEC MECH+2*
>> GMRANEW(0 YNED+12*, YNED+13, YNED+14, YNED+15
>> GMRAOUT YNED+1*, YNED+2, YNED+4, YNED+5*, YNED+8, YNED+11*, YNED+20, YNED+21, YNED+23*, MECH+1
, MECH+4*, DIC+1*, YNOK*
>> GMRAPA EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, YNED+2, YNED+3, YNED+4, YNED+5
, YNED+6, YNED+9, YNED+10, YNED+12, YNED+17, YNED+20, YNED+22, MECH+3
>> GMRAPA(0 EN1+3*, EN1+8*, EN1+10, EN1+11, EN1+15, EN1+21, YNED+3*, YNED+6*, YNED+9*, YNED+14
, YNED+15, YNED+17, YNED+22*
>> GMRAPRSW EN1+12*, EN1+14*
GMRAVFY EN1+17~, EN1+18*
IOF EN1+9, HEAD+1
U EN1+5, EN1+7, EN1+10, EN1+11, EN1+14, EN1+15, EN1+21
X EN1+5*, EN1+7*, EN1+12*, EN1+14*, Q1+1!, DIC+1*, YNOK
Y EN1+5*, EN1+7*, EN1+12*, EN1+14*, YNED+5, YNED+8!, YNED+11, YNED+13*, YNED+17*, MECH+1
, MECH+4, DIC+2*, YNOK*
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