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 ;01-May-2012 14:23;DU

Source Information

Source file <GMRAPED0.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Adverse Reaction Tracking 5 EN1^GMRADSP3  DRGCLS^GMRAPED1  EN1^GMRAPED3  EN1^GMRAPER2  ($$OUTTYPE,INPTYPE)^GMRAUTL  
VA Fileman 3 (,IX)^DIC  YN^DICN  ^DIE  

Caller Graph

Caller Graph Total: 5

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

Entry Points

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

External References

Name Field # of Occurrence
^DIC HLPLK+1
IX^DIC HLPLK+1
YN^DICN YNED, YNOK
^DIE YNED+2, YNED+5, YNED+9, YNED+12, YNED+19, MECH+3, EVENT+4, EVENT+8
EN1^GMRADSP3 EN1+18
DRGCLS^GMRAPED1 YNED+7
EN1^GMRAPED3 YNED+2
EN1^GMRAPER2 YNED+22
$$OUTTYPE^GMRAUTL EN1+10
INPTYPE^GMRAUTL YNED+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,"CAUSATIVE AGENT: ",$P(GMRAPA(0),U,2)
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !?11,"TYPE: ",$$OUTTYPE^GMRAUTL($P(GMRAPA(0),U,20))
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !?4,"INGREDIENTS: "
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !,"VA DRUG CLASSES: "
  • Line Location: EN1+12
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+14
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+20
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+15
Function Call: WRITE
  • Prompt: !,?20,GMRAMEC
  • Line Location: MECH+2
Function Call: WRITE
  • Prompt: !!?4,"Would you like to see a list of:",!?6,"1 Local Allergies (Food/Drug/Other)",!?6,"2 Drug Classes",!?6,"3 Drug Ingredients",!?6,"4 National Drugs",!?6,"5 Local Drugs"
  • Line Location: HELP+1
Function Call: READ
  • Prompt: !?4
  • Timeout: ",X:DTIME
  • Variable: "Select a number (1-5)
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?7,$C(7),"ANSWER WITH THE NUMBER (1-5) OF THE SELECTION FOR",!?7,"WHICH YOU WISH TO SEE MORE HELP."
  • Line Location: HELP+3
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+9
    • YNED+12
    • YNED+19
    • MECH+3
    • EVENT+4
    • EVENT+8
Routine Call
  • DIC
  • Line Location:
    • HLPLK+1
Routine Call
  • DIC
  • Line Location:
    • HLPLK+1

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)
^BEHOAR(90460.06 - [#90460.06] EVENT+5
^GMR(120.8 - [#120.8] EN1+4, EN1+5, EN1+6, EN1+7, YNED+3, YNED+6, YNED+11, YNED+14, YNED+26
^PS(50.416 - [#50.416] EN1+5
^PS(50.605 - [#50.605] EN1+6
^XUSEC("GMRA-ALLERGY VERIFY" EN1+3

Label References

Name Line Occurrences
EN1 YNED+27
EVENT YNED+24
HELP HELP+3, HELP+5
HLPLK HELP+4
Q1 EN1+3, EN1+4, YNED+1, YNED+2, YNED+4, YNED+5, YNED+9
YNED YNED
YNOK YNOK+2

Naked Globals

Name Field # of Occurrence
^(0 EN1+5, EN1+6, YNED+11, YNED+14, YNED+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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