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 ; 12 Jul 2016 1:54 PM

Source Information

Source file <GMRAPEM0.m>

Call Graph

Call Graph

Call Graph Total: 22

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 2 ($$NS,$$STA)^XUAF4  $$KSP^XUPARAM  
VA FileMan 2 ^DIK  ($$GET1,GETS)^DIQ  
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) ;

    External References

    Name Field # of Occurrence
    ^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+11
    ERR^GMRAPEM3 SELECT+8
    SIGNED^GMRAPEM3 SELECT+9
    UPDATE^GMRAPEM3 ALERT+13, SELECT+12
    UPOUT^GMRAPEM3 SELECT+7
    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
    SITE^GMRAUTL OBSDATE+17, REQCOM+1
    UNLOCK^GMRAUTL EXIT, DELETE+5, DELETE+6
    EN1^GMRAVFY OBSDATE+8
    1^VADPT SELECT+1
    KVAR^VADPT SELECT+2
    ^XMD GMRACHK+47
    $$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

    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
    ^DGPM - [#405] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR(120.8 - [#120.8] ALERT+6, OBSDATE+6, OBSDATE+9, OBSDATE+12, OBSDATE+22, MISSREQ+2, REQCOM+3, GMRACHK+7
    ^GMR(120.85 - [#120.85] TYPE+10, OBSDATE+3, DELETE+3, DELETE+4!, MISSREQ+6
    ^GMRD(120.83 - [#120.83] SELECT+2
    ^GMRD(120.84 - [#120.84] REQCOM+2
    ^TMP($J EN21+14, EN21+17!, SELECT+7*, 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+7
    $$REQCOM MISSREQ+6
    DELETE SELECT+7
    EN1 EN1+4
    EN21 EN1+4, EN21+20, EN2+4
    EXIT EN1+6, EN2+6, ALERT+19
    OBSDATE OBSDATE+3
    OBSPROB OBSDATE+3
    SELECT EN21+10
    TYPE SELECT+6

    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
    DIC EN1+5!
    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+7
    GMRADFN TYPE+3~
    GMRADUP SELECT+3!
    >> GMRAERR SELECT+8, TYPE+1*, TYPE+3, OBSDATE+6, OBSDATE+12, GMRACHK+13
    >> GMRALAGO SELECT+3*, OBSDATE+1*
    GMRALLER OBSDATE+8!
    >> GMRALOC SELECT+2*
    GMRAMEC OBSDATE+8!
    >> GMRANAM SELECT+2*
    GMRANEW ALERT+1~, ALERT+2*, SELECT+7, SELECT+11, TYPE+3, OBSDATE+3
    GMRAOD TYPE+10~*, OBSDATE+3
    >> 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+7*, TYPE+3
    , TYPE+5, TYPE+8, OBSDATE+1, OBSDATE+2, OBSDATE+3*, OBSDATE+6, OBSDATE+12, OBSDATE+16
    GMRAPA EN21+11, ALERT+1~, ALERT+4*, ALERT+6, SELECT+6, SELECT+7, SELECT+11, TYPE+10, 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
    GMRAPA(0 ALERT+6*, ALERT+7, ALERT+14, ALERT+17, ALERT+18, SELECT+7, SELECT+9, TYPE+5, OBSDATE+6, OBSDATE+20
    GMRAPA1 OBSDATE+1, OBSDATE+2, DELETE+1~, DELETE+3*, DELETE+4, DELETE+5
    GMRAPRNT OBSDATE+8~
    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
    >> GMRASEX SELECT+2*
    >> GMRASITE REQCOM+1, REQCOM+2
    >> GMRASLL( OBSDATE+9*, OBSDATE+22*
    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!
    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
    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+7, SELECT+9, TYPE+5, OBSDATE+6
    , OBSDATE+9, OBSDATE+12, OBSDATE+20, OBSDATE+22, MISSREQ+3, REQCOM+2, GMRACHK+45
    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!
    >> 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!
    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