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

Package: Adverse Reaction Tracking

Routine: GMRAFX1


Information

GMRAFX1 ;SLC/DAN Fix existing allergy entries-continued ;10/6/05 11:42

Source Information

Source file <GMRAFX1.m>

Entry Points

Name Comments DBIA/ICR reference
DET ;Detailed listing of selected group
HDR ; -- header code
PHDR ;
INIT ; -- init variables and list array
CHKSEL ;Evaluate selection if done by number
DESELECT ;Un-highlight selected choices
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
PROCESS(TYPE) ;API to mark selected entries from the detailed listing as entered in error or update to new reactant

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Invalid selection."
  • Line Location: CHKSEL+7
Function Call: WRITE
  • Prompt: !!,"Use AE to add local allergies to the GMR ALLERGY file. This",!,"should only be done if you're sure no existing reactant matches your needs."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Use EE to mark all selected entries as entered",!,"in error. You may select multiple patients if you like."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"Use UR to update the reactant. Extreme caution should be used when updating",!,"reactants. You may select multiple patients if you like,"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,"Use PR to add new allergies for the selected patient in",!,"addition to the ones listed here."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !!,"Use DD to get details about the allergy entry that you're",!,"currently working on for this patient.",!
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"You are about to ",$S(TYPE="E":"mark",1:"update")," the selected patient",$S($L(NMBR2,",")>2:"s'",1:"'s"),!
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: $P(ENTRY,"^",2)," allergy ",$S(TYPE="E":"as entered in error.",1:"to a new reactant."),!
  • Line Location: PROCESS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call