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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMRAFX2

Package: Adverse Reaction Tracking

Routine: GMRAFX2


Information

GMRAFX2 ;SLC/DAN - Select reactant for update ;1/7/08 09:36

Source Information

Source file <GMRAFX2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
National Drug File 3 ALL^PSN5067  $$TGTOG^PSNAPIS  (DIC,IX)^PSNDI  
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  
VA FileMan 2 ^DIC  ^DIR  
Toolkit 1 ($$SCREEN,SCREEN)^XTID  

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

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRAFX3  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Select new reactant
NPA
NDF ;find partial matches and select from NDF
ING
CLASS
YNOTH
DIC ; VALIDATE LOOKUP FOR A/AR
MATCHES ; -- List matches for NDF
MORE()
HELP ;Display help for selection of causative agent

External References

Name Field # of Occurrence
^DIC NPA+1
^DIR EN1+2, NDF+19, DIC+5, MORE+3
ALL^PSN5067 NDF+8
$$TGTOG^PSNAPIS NDF+9, NDF+11, NDF+12
DIC^PSNDI NDF+3
IX^PSNDI ING+1, CLASS+1
$$DT^XLFDT NDF+3, NDF+8, ING+1, CLASS+1
$$UP^XLFSTR EN1+2
$$SCREEN^XTID NDF+9, NDF+11
SCREEN^XTID NDF+9, NDF+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking GMR ALLERGIES (#120.82) file for matches...",!
  • Line Location: NPA+1
Function Call: WRITE
  • Prompt: !!,"Now checking the National Drug File - Generic Names (#50.6)",!
  • Line Location: NDF+2
Function Call: WRITE
  • Prompt: !!,"Now checking the National Drug File - Trade Names (#50.67)",!
  • Line Location: NDF+5
Function Call: WRITE
  • Prompt: !!,"Now checking INGREDIENT (#50.416) file for matches...",!
  • Line Location: ING+0
Function Call: WRITE
  • Prompt: !!,"Now checking VA DRUG CLASS (#50.605) file for matches...",!
  • Line Location: CLASS+0
Function Call: WRITE
  • Prompt: !!,"Could not find ",GMRALAR," in any files.",!,"Please try again (check spelling, etc).",!,"If you need to add a new reactant, use the AE option."
  • Line Location: YNOTH+0
Function Call: WRITE
  • Prompt: !!,"You selected ",ENTRY
  • Line Location: DIC+4
Function Call: WRITE
  • Prompt: !!,"Choose from the following "_+$G(CNT)_" matches:"
  • Line Location: MATCHES+2
Function Call: WRITE
  • Prompt: !,J," ",$P(LST(I),"^",2)
  • Line Location: MATCHES+5
Function Call: WRITE
  • Prompt: !,"Enter new causative agent to be assigned to the selected entries."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter between 3 and 30 characters. The entered text will then be"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"searched for in a number of different files. Select the appropriate"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"entry from the appropriate file to update the selected patient."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,"Enter ^ to skip the current patient or ^^ to exit the entire process."
  • Line Location: HELP+5
Routine Call
  • DIC
  • Line Location:
    • NPA+1
Routine Call
  • DIR
  • Line Location:
    • EN1+2
    • NDF+19
    • DIC+5
    • MORE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(120.82 - [#120.82] Classic Fileman Calls
^PS(50.416 - [#50.416] Classic Fileman Calls
^PS(50.605 - [#50.605] Classic Fileman Calls

Label References

Name Line Occurrences
$$MORE MATCHES+4
DIC NPA+1, NDF+3, NDF+20, ING+1, CLASS+1
EN1 YNOTH
MATCHES NDF+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT EN1+1~, NDF+7*, NDF+9*, NDF+12*, NDF+13, NDF+14, NDF+15, NDF+17, MATCHES+2
D EN1+1~, ING+1*, CLASS+1*
DIC EN1+1~, NPA+1*!, NDF+3*!, ING+1*!, CLASS+1*!
DIC("S" NPA*, NDF+3*, ING+1*, CLASS+1*
DIC("W" NPA+1*
DIC(0 NPA+1*, NDF+3*, ING+1*, CLASS+1*
DIR EN1+1~, DIC+1~, MORE+1~
DIR("?" EN1+2*, NDF+18*, DIC+5*
DIR("A" EN1+2*, NDF+17*, DIC+5*, MORE+2*
DIR("B" DIC+5*
DIR(0 EN1+2*, NDF+17*, DIC+5*, MORE+2*
DIROUT EN1+1~, EN1+2
DIRUT EN1+1~, EN1+2
DTOUT EN1+1~, NPA+1!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, MORE+1~
DUOUT EN1+1~, NPA+1!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, MORE+1~
ENTRY EN1+1~, NPA+1!*, NDF+1!, NDF+3*, NDF+6!, NDF+14*, NDF+19*, ING+1!*, CLASS+1!*, DIC+2
DIC+4
>> GMRAAR NPA+2*, NDF+4*, NDF+21*, ING+2*, CLASS+2*
>> GMRAAR("O" NPA+2*, NDF+4*, NDF+21*, ING+2*, CLASS+2*
>> GMRAAR(0 NPA+2*, NDF+4*, NDF+21*, ING+2*, CLASS+2*
GMRALAR EN1+1~, EN1+2*, NPA+1, NDF+3, NDF+7, ING+1, CLASS+1, YNOTH
I MATCHES+1~, MATCHES+3*, MATCHES+5
IOSL MATCHES+4
J MATCHES+1~, MATCHES+3*, MATCHES+4*, MATCHES+5
LST EN1+1~
LST( NDF+9*, NDF+12*, NDF+19, MATCHES+3, MATCHES+5
LST(1 NDF+14
NAM EN1+1~, NDF+10*, NDF+11, NDF+12
OK EN1+1~, NPA+2, NDF+4, NDF+21, ING+2, CLASS+2, DIC+3!, DIC+5*
QUIT MATCHES+1~, MATCHES+3*, MATCHES+4*
ROOT EN1+1~, NDF+7*, NDF+9, NDF+10
>> STOP EN1+2*
U NDF+4, NDF+9, NDF+12, NDF+14, NDF+19, NDF+21
X EN1+1~, NPA+1*, NDF+3*, NDF+7*, NDF+8, NDF+9, NDF+10, NDF+19*, ING+1*, ING+2
CLASS+1*, CLASS+2, DIC+1~, MORE+1~
Y EN1+1~, EN1+2, NPA+1!, NPA+2, NDF+1!, NDF+3, NDF+4, NDF+6!, NDF+13*, NDF+14*
NDF+19*, NDF+21, ING+1!, ING+2, CLASS+1!, CLASS+2, DIC+1~, DIC+5, MORE+1~, MORE+4
Y(0 NPA+2, NDF+14*, NDF+19*, NDF+21

Marked Items

Name Field # of Occurrence
$T(SCREEN^XTID NDF+9, NDF+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All