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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Adverse Reaction Tracking 16 MESS^GMRAGUI1  EN1^GMRAKILL  ($$NKA,$$NKASCR,NKAASK)^GMRANKA  (PAT,REACT)^GMRAPAT  EN1^GMRAPED0  EN1^GMRAPEE0  HANGT^GMRAPEH0  GMRACHK^GMRAPEM0  
(ERR,SIGNED,UPDATE,UPOUT)^GMRAPEM3  EDIT^GMRAPEM4  EN1^GMRAPES0  EN2^GMRAROBS  (ALERT,IDBAND,SIGNOFF)^GMRASIGN  EN2^GMRAU85  (ASK,SITE,UNLOCK)^GMRAUTL  EN1^GMRAVFY  
Kernel 3 EN^XQOR  ($$NS,$$STA)^XUAF4  $$KSP^XUPARAM  
VA FileMan 3 ^DIC  ^DIK  ($$GET1,GETS)^DIQ  
Order Entry Results Reporting 2 $$ONOFF^ORB3USER  (CHKMEDS,GETPROV,SENDALRT)^ORWDAL32  
MailMan 1 ^XMD  
Registration 1 (1,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Adverse Reaction Tracking 7 GMRA PATIENT A/AR EDIT  GMRA USER E/E PAT REC DATA  GMRAFX3  GMRAGUI1  GMRAOR ALLERGY ENTER/EDIT  GMRAPEM0  GMRASIGN  
Medicine 2 MCARGE  MCARGES  
Order Entry Results Reporting 2 ORC ADD ALLERGY  ^ORD(101.41  
Outpatient Pharmacy 2 PSOLMUTL  PSOTPRX1  
Inpatient Medications 1 PSJLMUTL  
Kernel 1 ^ORD(101  

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

    External References

    Name Field # of Occurrence
    ^DIC ADDSTHR+7
    ^DIK EN21+5, EN21+25, DELETE+5, DELETE+6
    $$GET1^DIQ GMRACHK+10, GMRACHK+11, GMRACHK+39
    GETS^DIQ GMRACHK+5
    MESS^GMRAGUI1 EN21+8
    EN1^GMRAKILL EN1+6, EN2+6, ALERT+19
    $$NKA^GMRANKA EN21+3, EN21+7, EN21+23
    $$NKASCR^GMRANKA EN21+3, EN21+23
    NKAASK^GMRANKA EN21+7
    PAT^GMRAPAT EN1+3
    REACT^GMRAPAT SELECT+4
    EN1^GMRAPED0 OBSDATE+17
    EN1^GMRAPEE0 TYPE+3
    HANGT^GMRAPEH0 ALERT+9
    GMRACHK^GMRAPEM0 SELECT+12
    ERR^GMRAPEM3 SELECT+9
    SIGNED^GMRAPEM3 SELECT+10
    UPDATE^GMRAPEM3 ALERT+13, SELECT+14
    UPOUT^GMRAPEM3 SELECT+8
    EDIT^GMRAPEM4 ALERT+12, OBSDATE+21
    EN1^GMRAPES0 SELECT+5
    EN2^GMRAROBS OBSDATE+2
    ALERT^GMRASIGN EN21+17
    IDBAND^GMRASIGN EN21+16
    SIGNOFF^GMRASIGN EN21+15, ALERT+14
    EN2^GMRAU85 OBSDATE+1
    ASK^GMRAUTL EN21+13, TYPE+8, OBSDATE+16, MEDCHK+18, ADDSTHR+12
    SITE^GMRAUTL OBSDATE+17, REQCOM+1
    UNLOCK^GMRAUTL EXIT, DELETE+5, DELETE+6
    EN1^GMRAVFY OBSDATE+8
    $$ONOFF^ORB3USER ADDSTHR+9
    CHKMEDS^ORWDAL32 MEDCHK+3
    GETPROV^ORWDAL32 MEDCHK+11
    SENDALRT^ORWDAL32 MEDCHK+24
    1^VADPT SELECT+1
    KVAR^VADPT SELECT+2
    ^XMD GMRACHK+47
    EN^XQOR XQOR+8
    $$NS^XUAF4 GMRACHK+45
    $$STA^XUAF4 GMRACHK+43
    $$KSP^XUPARAM GMRACHK+43

    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
    Routine Call
    • DIC
    • Line Location:
      • ADDSTHR+7

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR(120.8 - [#120.8] ALERT+6, OBSDATE+2, OBSDATE+6, OBSDATE+9, OBSDATE+12, OBSDATE+22, MISSREQ+2, REQCOM+3, GMRACHK+7, XQOR+3
    ^GMR(120.85 - [#120.85] TYPE+10, OBSDATE+3, DELETE+3, DELETE+4!, MISSREQ+6, XQOR+5
    ^GMRD(120.83 - [#120.83] SELECT+2
    ^GMRD(120.84 - [#120.84] REQCOM+2
    ^ORD(101 - [#101] XQOR+1
    ^TMP($J EN21+14, EN21+17!, SELECT+8*, EXIT, EXIT+1!, EXIT+2!
    ^XTMP("GMRACHK" GMRACHK+14!, GMRACHK+16*, GMRACHK+18*, GMRACHK+20*, GMRACHK+22*, GMRACHK+24*, GMRACHK+26*, GMRACHK+35*, GMRACHK+37*, GMRACHK+39*
    , GMRACHK+48!
    ^XTMP("GMRAED" EN21+8, EN21+20, EN21+27
    ^XUSEC("GMRA-ALLERGY VERIFY" EN11+3, EN2+2, ALERT+5, OBSDATE+6, OBSDATE+12

    Label References

    Name Line Occurrences
    $$MISSREQ SELECT+8
    $$REQCOM MISSREQ+6
    ADDSTHR MEDCHK+19
    DELETE SELECT+8
    EN1 EN1+4
    EN21 EN1+4, EN21+20, EN2+4
    EXIT EN1+6, EN2+6, ALERT+19
    MEDCHK SELECT+13
    OBSDATE OBSDATE+3
    OBSPROB OBSDATE+3
    SELECT EN21+10
    TYPE SELECT+6
    XQOR SELECT+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA EN21+4~, EN21+5*, EN21+24~, EN21+25*, DELETE+1~, DELETE+5*, DELETE+6*
    DFN EN1+5!, EN21+3, EN21+5, EN21+7, EN21+8, EN21+20, EN21+23, EN21+25, EN21+27, ALERT+1~
    , ALERT+4*, SELECT+4, GMRACHK+39, MEDCHK+11
    DIC EN1+5!, ADDSTHR+2~, ADDSTHR+6*, ADDSTHR+11!
    DIC("A" ADDSTHR+7*
    DIC(0 ADDSTHR+6*
    DIK EN21+4~, EN21+5*, EN21+24~, EN21+25*, DELETE+1~, DELETE+5*, DELETE+6*
    DUZ EN11+3, EN2+2, ALERT+5, OBSDATE+6, OBSDATE+12, GMRACHK+41
    DUZ(2 GMRACHK+43*, GMRACHK+45
    GMA EN1+5!, EN2+8!
    GMRA0 MISSREQ+1~, MISSREQ+2*, MISSREQ+3
    GMRACNT EN21+14*, EN21+15, EN21+17!, ALERT+1~, ALERT+2*, SELECT+1*, SELECT+8
    GMRADA MEDCHK+6~, MEDCHK+8*, MEDCHK+9*, MEDCHK+10, MEDCHK+11, MEDCHK+14
    GMRADFN TYPE+3~
    GMRADUP SELECT+3!
    GMRADUZ MEDCHK+6~
    >> GMRAERR SELECT+9, TYPE+1*, TYPE+3, OBSDATE+6, OBSDATE+12, GMRACHK+13
    GMRAEVT SELECT+7, SELECT+16!, TYPE+1*, OBSDATE+2*, OBSDATE+17*
    >> GMRALAGO SELECT+3*, OBSDATE+1*
    GMRALLER OBSDATE+8!
    >> GMRALOC SELECT+2*
    GMRALST MEDCHK+6~, MEDCHK+19, MEDCHK+23, ADDSTHR~, ADDSTHR+1!
    GMRALST( ADDSTHR+11*
    GMRAMCHK MEDCHK+1~, MEDCHK+3, MEDCHK+4!, MEDCHK+5, MEDCHK+26!
    GMRAMCHK( MEDCHK+9, MEDCHK+10, MEDCHK+11, MEDCHK+14
    GMRAMEC OBSDATE+8!
    >> GMRANAM SELECT+2*
    GMRANEW ALERT+1~, ALERT+2*, SELECT+8, SELECT+12, SELECT+13, TYPE+3, OBSDATE+3
    GMRANOTE ADDSTHR+2~, ADDSTHR+4*, ADDSTHR+9
    GMRAOD TYPE+10~*, OBSDATE+3
    GMRAON ADDSTHR+2~, ADDSTHR+9*, ADDSTHR+10
    GMRAORD MEDCHK+6~, MEDCHK+20*, MEDCHK+24
    >> GMRAOTH SELECT+2*
    GMRAOUT EN1+2*, EN1+4, EN1+5!, EN21+1*, EN21+7, EN21+9*, EN21+10, EN21+11*, EN21+12, EN21+13
    , EN21+16, EN21+17*, EN21+20, EN2+3~, ALERT+1~, ALERT+2*, ALERT+15*, SELECT+2*, SELECT+8*, TYPE+3
    , TYPE+5, TYPE+8, OBSDATE+1, OBSDATE+2, OBSDATE+3*, OBSDATE+6, OBSDATE+12, OBSDATE+16, MEDCHK+6~, MEDCHK+18*
    , ADDSTHR+2~, ADDSTHR+12*
    GMRAPA EN21+11, ALERT+1~, ALERT+4*, ALERT+6, SELECT+6, SELECT+8, SELECT+12, TYPE+10, OBSDATE+2, OBSDATE+3
    , OBSDATE+6, OBSDATE+9, OBSDATE+12, OBSDATE+22, EXIT*, DELETE+3, DELETE+4, DELETE+6, MISSREQ+2, MISSREQ+6
    , REQCOM+3, GMRACHK~, GMRACHK+5, GMRACHK+7, GMRACHK+8, GMRACHK+9, GMRACHK+10, GMRACHK+26, GMRACHK+30, GMRACHK+32
    , GMRACHK+33, GMRACHK+37, XQOR+2, XQOR+3, XQOR+7
    GMRAPA(0 ALERT+6*, ALERT+7, ALERT+14, ALERT+17, ALERT+18, SELECT+8, SELECT+10, TYPE+5, OBSDATE+6, OBSDATE+20
    , MEDCHK+3, MEDCHK+7, XQOR+3*
    GMRAPA1 TYPE+1!, OBSDATE+1, OBSDATE+2, DELETE+1~, DELETE+3*, DELETE+4, DELETE+5, XQOR+4, XQOR+5, XQOR+7!
    GMRAPA1(0 XQOR+5*, XQOR+7
    GMRAPRNT OBSDATE+8~
    GMRAPROV MEDCHK+6~, MEDCHK+11, MEDCHK+16!, MEDCHK+21!, MEDCHK+22*, MEDCHK+23*, MEDCHK+24
    GMRAPROV( MEDCHK+13, MEDCHK+14, MEDCHK+15
    GMRARET EN1+5!, EN2+8!
    GMRARP EN21+12*, EN21+13, EN21+14, EN21+20!, EN21+21!, TYPE+7~, TYPE+8*, TYPE+9, OBSDATE+14~, OBSDATE+15*
    , OBSDATE+16, OBSDATE+17
    GMRASEND MEDCHK+6~, MEDCHK+24, MEDCHK+25!
    >> GMRASEX SELECT+2*
    >> GMRASITE REQCOM+1, REQCOM+2
    >> GMRASLL( OBSDATE+9*, OBSDATE+22*
    GMRASLST MEDCHK+6~, MEDCHK+20, MEDCHK+25!
    GMRASLST( MEDCHK+14*, MEDCHK+20
    GMRAUSER EN11+3*, EN1+5!, EN2+2*, EN2+8!, ALERT+1~, ALERT+4*, ALERT+5!, TYPE+6
    GMRAVER OBSDATE+7!*, OBSDATE+13
    GMRAY OBSDATE+8!
    GMRAYN MEDCHK+6~, MEDCHK+18*, MEDCHK+19, ADDSTHR+2~, ADDSTHR+3*, ADDSTHR+5, ADDSTHR+12*
    I ADDSTHR+2~, ADDSTHR+5*
    IOF EN1+3, TYPE+3
    LAST4 GMRACHK+4~, GMRACHK+12*, GMRACHK+24
    LINE GMRACHK+3~, GMRACHK+15*, GMRACHK+16, GMRACHK+17*, GMRACHK+18, GMRACHK+19*, GMRACHK+20, GMRACHK+21*, GMRACHK+22, GMRACHK+23*
    , GMRACHK+24, GMRACHK+25*, GMRACHK+26, GMRACHK+27*, GMRACHK+35, GMRACHK+36*, GMRACHK+37, GMRACHK+38*, GMRACHK+39, GMRACHK+40*
    PATALLER GMRACHK+3~
    PATALLER( GMRACHK+8, GMRACHK+9, GMRACHK+26, GMRACHK+30, GMRACHK+32, GMRACHK+33, GMRACHK+37
    PATIEN GMRACHK+4~, GMRACHK+10*, GMRACHK+11
    PATNAME GMRACHK+3~, GMRACHK+9*, GMRACHK+12, GMRACHK+13, GMRACHK+22
    PRVDA MEDCHK+12~*, MEDCHK+13*, MEDCHK+14, MEDCHK+15
    REAC GMRACHK+3~, GMRACHK+29*, GMRACHK+30, GMRACHK+31*, GMRACHK+32, GMRACHK+33, GMRACHK+34*
    REACTS GMRACHK+3~, GMRACHK+30*, GMRACHK+33*, GMRACHK+35
    SSN GMRACHK+4~, GMRACHK+11*, GMRACHK+12
    TYPE MISSREQ+1~, MISSREQ+3*, MISSREQ+4, MISSREQ+5, MISSREQ+6
    U ALERT+4, ALERT+7, ALERT+14, ALERT+17, ALERT+18, SELECT+2, SELECT+8, SELECT+10, TYPE+5, OBSDATE+2
    , OBSDATE+6, OBSDATE+9, OBSDATE+12, OBSDATE+20, OBSDATE+22, MISSREQ+3, REQCOM+2, GMRACHK+45, ADDSTHR+9, XQOR+7
    VA SELECT+2!
    >> VADM(1 SELECT+2
    >> VADM(5 SELECT+2
    VADRCL1 GMRACHK+3~, GMRACHK+8*, GMRACHK+13
    >> VAIN(4 SELECT+2
    VAROOT SELECT+2!
    X XQOR+1~*, XQOR+2, XQOR+8
    >> XMDUZ GMRACHK+41*
    >> XMSUB GMRACHK+44*, GMRACHK+45*
    >> XMTEXT GMRACHK+42*
    >> XMY("G.ADVERSE_ALLERGY_WARNING" GMRACHK+46*
    >> XQADATA ALERT+3, ALERT+4
    XQAKILL ALERT+3*, ALERT+10*, ALERT+15!, ALERT+17*, ALERT+18!
    Y ADDSTHR+2~, ADDSTHR+8, ADDSTHR+9, ADDSTHR+11!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All