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

Package: Adverse Reaction Tracking

Routine: GMRAFX


Information

GMRAFX ;SLC/DAN Fix existing allergy entries ;3/2/06 13:46

Source Information

Source file <GMRAFX.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for GMRA FIX
HDR ; -- header code
PHDR ;
INIT ;Initialize variables, etc
LIST ; -- obtain and display list of free text allergies
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
CHKSEL ;Evaluate selection if done by number
DESELECT ;Un-highlight selected choices
AEA ; Entry for GMRA LOCAL ALLERGIES EDIT option
PROCESS(TYPE) ;API to mark all entries as entered in error or update entries to new reactant
EIE ;Mark individual entry as entered in error
DECEASED(GMRAIFN) ;Function returns 1 if patient is deceased, 0 if living
ADCOM(ENTRY,TYPE,COM) ;Add comment to allergy
  • ICR #4783
    • Status: Active
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"The list is currently being built by another user so this option is",!,"temporarily unavailable. Please try again in a few minutes."
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: !,$$GET1^DIQ(200,I,.01)
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !,"Building list of "_$S(LTYPE="FREE":"free text",LTYPE="ING":"ingredient",1:"drug class")_" allergies...this may take a few minutes",!
    • Line Location: EN+12
    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 entries within the selected group as entered",!,"in error. You may select multiple groups if you like."
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !!,"Use DD to get a detailed display. It's highly recommended that you",!,"use the detailed display menu to make all changes."
    • Line Location: HELP+4
    Function Call: WRITE
    • Prompt: !!,"Use UR to update the reactant. Extreme caution should be used when doing",!,"mass updates. It would be better to do the updates from within",!,"the detailed display menu.",!
    • Line Location: HELP+5
    Function Call: WRITE
    • Prompt: !,"Invalid selection."
    • Line Location: CHKSEL+8
    Function Call: WRITE
    • Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE"
    • Line Location: AEA+5
    Function Call: WRITE
    • Prompt: !!,"You should use the detailed display option to review entries in",!,"this group before doing a mass update. CHANGES CANNOT BE UN-DONE!"
    • Line Location: PROCESS+8
    Function Call: WRITE
    • Prompt: !!,"You are about to ",$S(TYPE="E":"mark",1:"update")," ALL allergies with the selected reactant ",!,$S(TYPE="E":"as entered in error.",1:"to a new reactant."),!
    • Line Location: PROCESS+9
    Function Call: WRITE
    • Prompt: !!,"Updating ",$P(ENTRY,U)," reactions"
    • Line Location: PROCESS+20

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ORD(101 - [#101] FIND1^DIC
    ^GMRD(120.82 - [#120.82] Classic Fileman Calls
    ^VA(200 - [#200] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call