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

Package: Adverse Reaction Tracking

Routine: GMRAPEM0


Information

GMRAPEM0 ; HIRMFO/WAA,FT - ALLERGY/ADVERSE REACTION PATIENT EDIT DRIVER; October 18, 2023@08:47:00

Source Information

Source file <GMRAPEM0.m>

Entry Points

Name Comments DBIA/ICR reference
EN11 ; Entry point for GMRA USER E/E PAT REC DATA option
; GMRAUSER is a flag that indicates that this is a User
; If user has Verifier Key then user will act normal
EN1 ; Entry for ENTER/EDIT PATIENT REACTION DATA option
; EDIT PATIENT A/AR (DFN UNK.)
EN21 ; Process patient data and determine if patient is NKA
EN2 ; EDIT PATIENT A/AR (DFN KNOWN)
; Called from the GMRAOR ALLERGY ENTER/EDIT protocol
  • ICR #190
    • Status: Active
    • Usage: Controlled Subscription
    ALERT ; PROCESS ALERTS FOR ART
    SELECT ;Select a patient reaction
    TYPE ; Select the type of the process to use this reaction
    OBSDATE
    EXIT
    DELETE ;Delete entry if required information is not entered - section added in 17
    OBSPROB ;Display help information for missing observed date/time entry
    MISSREQ() ;Function determines if required data is missing
    REQCOM() ;Function determines if comments required
    GMRACHK(GMRAPA) ;
    MEDCHK ; NSR 20070203
    ADDSTHR(GMRALST) ; NSR 20070203
    XQOR ; GMRA EDIT VERIFIED DATA event driver ;P68

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: EN1+3
    Function Call: WRITE
    • Prompt: !,"This reaction has been signed off.",$C(7)
    • Line Location: ALERT+8
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: TYPE+3
    Function Call: WRITE
    • Prompt: !,"You must enter a valid date or an Up-arrow to exit",!,$C(7)
    • Line Location: OBSDATE+1
    Function Call: WRITE
    • Prompt: !!,"Entry process not completed, deleting entry...",!
    • Line Location: DELETE+2
    Function Call: WRITE
    • Prompt: !!,"Observed reactions must have at least one observation entry.",!,"If this reaction is incorrect then enter a date and then proceed",!,"to mark it as entered in error.",!
    • Line Location: OBSPROB+1
    Function Call: WRITE
    • Prompt: !!,?2,"Checking new allergy against the patient's active medication profile . . . "
    • Line Location: MEDCHK+2
    Function Call: WRITE
    • Prompt: !!,?2,"No conflicts were discovered.",!
    • Line Location: MEDCHK+4
    Function Call: WRITE
    • Prompt: !!,?2,"The following Active Orders contain "_$P(GMRAPA(0),"^",2)_":"
    • Line Location: MEDCHK+7
    Function Call: WRITE
    • Prompt: !!,$P(GMRAMCHK(GMRADA),"^",3)_" (Order #"_$P(GMRAMCHK(GMRADA),"^")_") An alert will be sent to:"
    • Line Location: MEDCHK+10
    Function Call: WRITE
    • Prompt: !?3,$P(GMRAPROV(PRVDA),"^",2)," - ",$P(GMRAPROV(PRVDA),"^",3)
    • Line Location: MEDCHK+15
    Function Call: WRITE
    • Prompt: !!
    • Line Location: MEDCHK+17
    Function Call: WRITE
    • Prompt: !!," User is unable to receive the notification!",!
    • Line Location: ADDSTHR+10

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(120.8 - [#120.8] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
    ^GMR(120.85 - [#120.85] Classic Fileman Calls
    ^GMR(120.86 - [#120.86] Classic Fileman Calls
    ^DPT - [#2] GET1^DIQ
    ^VA(200 - [#200] Classic Fileman Calls
    ^DGPM - [#405] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call