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

Source Information

Source file <GMRAFX2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 (,IX)^DIC  ^DIR  
Kernel 1 $$UP^XLFSTR  
National Drug File 1 ($$T,$$TGTOG)^PSNAPIS  
Toolkit 1 ($$SCREEN,SCREEN)^XTID  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRAFX3  

Entry Points

Name Comments DBIA/ICR reference
MORE() ; -- show more matches
HELP ;Display help for selection of causative agent
YNOTH
MATCHES ; -- List matches for NDF
NPA
DRUG ;W !!,"Now checking the DRUG (#50) file for matches...",! K Y,DTOUT,DUOUT,ENTRY
NDF ;find partial matches and select from NDF
EN1 ; Select new reactant
DIC ; VALIDATE LOOKUP FOR A/AR
ING
CLASS

External References

Name Field # of Occurrence
^DIC NPA+2, NDF+3
IX^DIC ING+1, CLASS+1
^DIR EN1+2, NDF+18, DIC+5, MORE+3
$$T^PSNAPIS NDF+7
$$TGTOG^PSNAPIS NDF+8, NDF+10, NDF+11
$$UP^XLFSTR EN1+2
$$SCREEN^XTID NDF+8, NDF+10
SCREEN^XTID NDF+8, NDF+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking GMR ALLERGIES (#120.82) file for matches...",!
  • Line Location: NPA+2
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+2
    • NDF+3
Routine Call
  • DIR
  • Line Location:
    • EN1+2
    • NDF+18
    • DIC+5
    • MORE+3
Routine Call
  • DIC
  • Line Location:
    • ING+1
    • CLASS+1

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+2, NDF+3, NDF+19, ING+1, CLASS+1
EN1 YNOTH
MATCHES NDF+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T(SCREEN^XTID NDF+8, NDF+10
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