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

Package: Adverse Reaction Tracking

Routine: GMRAFX3


Information

GMRAFX3 ;SLC/DAN Update existing entries to new reactant ;11/20/12 07:54

Source Information

Source file <GMRAFX3.m>

Entry Points

Name Comments DBIA/ICR reference
UIE ;Update individual entries
DELMUL(FIELD) ;Delete multiple FIELD from GMR ALLERGY file
DUP() ;Function returns true (1) if selected reactant is a duplicate
WAIT ;Issues press enter to return prompt
GETNUM(ACTION) ; -- Return numbers to act on, if action chosen first
UPDATE ;Update display to account for changes to the list
LOCK(ENTRY) ;Lock entry in 120.8
AR ;Add/edit patient reactions
DSPREACT ;Display detailed information about the reactant
GETTYPE(LTYPE) ;Function determines which list to work with
EIE ;Mark individual entry as entered in error
RUSURE(GMRASURE) ;20 Make sure selection from ingredient or drug class file is ok

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"For patient ",$$GET1^DIQ(2,DFN_",",.01),!
  • Line Location: UIE+4
Function Call: WRITE
  • Prompt: !,"Patient already has an active allergy for this reactant.",!,"Duplicate not allowed.",!
  • Line Location: UIE+12
Function Call: WRITE
  • Prompt: !,"Performing order checking..."
  • Line Location: UIE+28
Function Call: WRITE
  • Prompt: "patient has no active orders."
  • Line Location: UIE+32
Function Call: WRITE
  • Prompt: !!,"Please choose only one entry for the detailed display."
  • Line Location: GETNUM+3
Function Call: WRITE
  • Prompt: !,">>>Too many entries selected, try using smaller ranges"
  • Line Location: GETNUM+7
Function Call: WRITE
  • Prompt: !,">>You may only choose ONE group for detailed display."
  • Line Location: GETNUM+8
Function Call: WRITE
  • Prompt: !,"The ",$P(^XTMP("GMRAFX",LTYPE,"IDX",ENTRY),U)," group is being edited by another user"
  • Line Location: LOCK+4
Function Call: WRITE
  • Prompt: !!,"You should use this option to add NEW reactions only. If you mark"
  • Line Location: AR+3
Function Call: WRITE
  • Prompt: !,"existing entries as entered in error from within this option it will"
  • Line Location: AR+4
Function Call: WRITE
  • Prompt: !,"not update the utility's display until the list is rebuilt upon re-entry"
  • Line Location: AR+5
Function Call: WRITE
  • Prompt: !,"of this option. This could cause confusion as the list will no longer"
  • Line Location: AR+6
Function Call: WRITE
  • Prompt: !,"be accurate.",!
  • Line Location: AR+7
Function Call: WRITE
  • Prompt: !!,"Now working with patient ",$$GET1^DIQ(2,DFN,.01),!
  • Line Location: AR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^GMR(120.8 - [#120.8] Classic Fileman Calls
^GMR(120.85 - [#120.85] Classic Fileman Calls
^GMR(120.86 - [#120.86] Classic Fileman Calls
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call