Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call