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 ;22-Aug-2013 08:37;DU

Source Information

Source file <GMRAPEM0.m>

Call Graph

Call Graph Total: 26

Package Total Call Graph
Adverse Reaction Tracking 17 MESS^GMRAGUI1  EN1^GMRAKILL  ($$NKA,$$NKASCR,NKAASK)^GMRANKA  SET^GMRAOR8  (PAT,REACT)^GMRAPAT  EN1^GMRAPED0  EN1^GMRAPEE0  HANGT^GMRAPEH0  
(ERR,SIGNED,UPDATE,UPOUT)^GMRAPEM3  EDIT^GMRAPEM4  EN1^GMRAPES0  EN2^GMRAROBS  (ALERT,IDBAND,SIGNOFF)^GMRASIGN  EN2^GMRAU85  (ASK,SITE,UNLOCK)^GMRAUTL  EN1^GMRAVFY  
RXNORM^GMRAZRXU  
VA Fileman 5 $$FIND1^DIC  (,UPDATE)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  EN^XQOR  
IHS Electronic Health Record 1 CKIN^BEHOARMU  
Registration 1 (1,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Adverse Reaction Tracking 5 GMRA PATIENT A/AR EDIT  GMRA USER E/E PAT REC DATA  GMRAFX3  GMRASIGN  GMRAZNAS  
Medicine 2 MCARGE  MCARGES  
Outpatient Pharmacy 2 PSOLMUTL  PSOTPRX1  
Inpatient Medications 1 PSJLMUTL  
Patient Care Component 1 APCDAALG  

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
OBSPROB ;Display help information for missing observed date/time entry
REQCOM() ;Function determines if comments required
EN21 ; Process patient data and determine if patient is NKA
MISSREQ() ;Function determines if required data is missing
INASSESS(DFN) ;Is pt unassessable
OBSDATE
ALERT ; PROCESS ALERTS FOR ART
EN1 ; Entry for ENTER/EDIT PATIENT REACTION DATA option
; EDIT PATIENT A/AR (DFN UNK.)
EN2 ; EDIT PATIENT A/AR (DFN KNOWN)
; Called from the GMRAOR ALLERGY ENTER/EDIT protocol
  • ICR #190
    • Status: Active
    • Usage: Controlled Subscription
    EXIT
    TYPE ; Select the type of the process to use this reaction
    SELECT ;Select a patient reaction
    DELETE ;Delete entry if required information is not entered - section added in 17

    External References

    Name Field # of Occurrence
    CKIN^BEHOARMU EN21+14
    $$FIND1^DIC EN21+34
    ^DIE TYPE+7
    UPDATE^DIE OBSDATE+29
    ^DIK EN21+20, EN21+44, DELETE+5, DELETE+6
    $$GET1^DIQ INASSESS+7, INASSESS+9
    ^DIR EN21+13
    MESS^GMRAGUI1 EN21+23
    EN1^GMRAKILL EN1+6, EN2+6, ALERT+19
    $$NKA^GMRANKA EN21+18, EN21+22, EN21+42
    $$NKASCR^GMRANKA EN21+18, EN21+42
    NKAASK^GMRANKA EN21+22
    SET^GMRAOR8 EN21+15
    PAT^GMRAPAT EN1+3
    REACT^GMRAPAT EN21+8, SELECT+4
    EN1^GMRAPED0 OBSDATE+17
    EN1^GMRAPEE0 TYPE+3
    HANGT^GMRAPEH0 ALERT+9
    ERR^GMRAPEM3 SELECT+8
    SIGNED^GMRAPEM3 SELECT+9
    UPDATE^GMRAPEM3 ALERT+13, SELECT+11
    UPOUT^GMRAPEM3 SELECT+7
    EDIT^GMRAPEM4 ALERT+12, OBSDATE+21
    EN1^GMRAPES0 SELECT+5
    EN2^GMRAROBS OBSDATE+2
    ALERT^GMRASIGN EN21+36
    IDBAND^GMRASIGN EN21+31
    SIGNOFF^GMRASIGN EN21+30, ALERT+14
    EN2^GMRAU85 OBSDATE+1
    ASK^GMRAUTL EN21+28, TYPE+13, OBSDATE+16
    SITE^GMRAUTL OBSDATE+17, REQCOM+1
    UNLOCK^GMRAUTL EXIT, DELETE+5, DELETE+6
    EN1^GMRAVFY OBSDATE+8
    RXNORM^GMRAZRXU OBSDATE+31
    1^VADPT SELECT+1
    KVAR^VADPT SELECT+2
    $$NOW^XLFDT OBSDATE+27
    EN^XQOR EN21+35

    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
    Routine Call
    • DIE
    • Line Location:
      • OBSDATE+29
    Routine Call
    • DIE
    • Line Location:
      • TYPE+7
    Routine Call
    • DIC
    • Line Location:
      • EN21+34
    Routine Call
    • DIR
    • Line Location:
      • EN21+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ORD(101 - [#101] FIND1^DIC
    ^GMR(120.8 - [#120.8] Classic Fileman Calls
    ^GMR(120.85 - [#120.85] Classic Fileman Calls
    ^GMR(120.86 - [#120.86] Classic Fileman Calls
    120.869999911 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
    ^GMR(120.85 - [#120.85] TYPE+15, OBSDATE+3, DELETE+3, DELETE+4!, MISSREQ+6
    ^GMR(120.86 - [#120.86] INASSESS+3, INASSESS+4
    ^GMRD(120.83 - [#120.83] SELECT+2
    ^GMRD(120.84 - [#120.84] REQCOM+2
    ^TMP($J EN21+29, EN21+36!, SELECT+7*, EXIT, EXIT+1!, EXIT+2!
    ^XTMP("GMRAED" EN21+23, EN21+39, EN21+46
    ^XUSEC("GMRA-ALLERGY VERIFY" EN11+3, EN2+2, ALERT+5, OBSDATE+6, OBSDATE+12

    Label References

    Name Line Occurrences
    $$INASSESS EN21+5
    $$MISSREQ SELECT+7
    $$REQCOM MISSREQ+6
    DELETE SELECT+7
    EN1 EN1+4
    EN21 EN1+4, EN21+39, EN2+4
    EXIT EN1+6, EN2+6, ALERT+19
    OBSDATE OBSDATE+3
    OBSPROB OBSDATE+3
    SELECT EN21+25
    TYPE SELECT+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA EN21+19~, EN21+20*, EN21+43~, EN21+44*, TYPE+6*, TYPE+8!, DELETE+1~, DELETE+5*, DELETE+6*
    DFN EN1+5!, EN21+5, EN21+8, EN21+14, EN21+15, EN21+18, EN21+20, EN21+22, EN21+23, EN21+39
    , EN21+42, EN21+44, EN21+46, ALERT+1~, ALERT+4*, SELECT+4, INASSESS~, INASSESS+3, INASSESS+4, INASSESS+6
    DIC EN1+5!
    DIE TYPE+6*, TYPE+8!
    DIK EN21+19~, EN21+20*, EN21+43~, EN21+44*, DELETE+1~, DELETE+5*, DELETE+6*
    DIR EN21+4~
    DIR("?" EN21+12*
    DIR("A" EN21+11*
    DIR("B" EN21+12*
    DIR(0 EN21+12*
    DIRUT EN21+13!
    DR TYPE+6*, TYPE+8!
    DUZ EN11+3, EN2+2, ALERT+5, OBSDATE+6, OBSDATE+12, OBSDATE+28
    ERR OBSDATE+25~
    FDA OBSDATE+25~
    FDA( OBSDATE+27*, OBSDATE+28*
    GMA EN1+5!, EN2+8!
    GMRA0 MISSREQ+1~, MISSREQ+2*, MISSREQ+3
    GMRACNT EN21+29*, EN21+30, EN21+36!, 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
    >> GMRALAGO SELECT+3*, OBSDATE+1*
    GMRALLER OBSDATE+8!
    >> GMRALOC SELECT+2*
    GMRAMEC OBSDATE+8!
    >> GMRANAM SELECT+2*
    GMRANEW ALERT+1~, ALERT+2*, SELECT+7, TYPE+3, TYPE+5, OBSDATE+3
    GMRAOD TYPE+15~*, OBSDATE+3
    >> GMRAOTH SELECT+2*
    GMRAOUT EN1+2*, EN1+4, EN1+5!, EN21+1*, EN21+22, EN21+24*, EN21+25, EN21+26*, EN21+27, EN21+28
    , EN21+31, EN21+36*, EN21+39, EN2+3~, ALERT+1~, ALERT+2*, ALERT+15*, SELECT+2*, SELECT+7*, TYPE+3
    , TYPE+10, TYPE+13, OBSDATE+1, OBSDATE+2, OBSDATE+3*, OBSDATE+6, OBSDATE+12, OBSDATE+16
    GMRAPA EN21+26, ALERT+1~, ALERT+4*, ALERT+6, SELECT+6, SELECT+7, TYPE+6, TYPE+15, OBSDATE+3, OBSDATE+6
    , OBSDATE+9, OBSDATE+12, OBSDATE+22, OBSDATE+26, OBSDATE+31, EXIT*, DELETE+3, DELETE+4, DELETE+6, MISSREQ+2
    , MISSREQ+6, REQCOM+3
    GMRAPA(0 ALERT+6*, ALERT+7, ALERT+14, ALERT+17, ALERT+18, SELECT+7, SELECT+9, TYPE+10, 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+27*, EN21+28, EN21+29, EN21+39!, EN21+40!, TYPE+12~, TYPE+13*, TYPE+14, 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+11
    GMRAVER OBSDATE+7!*, OBSDATE+13
    GMRAY OBSDATE+8!
    GMRCK EN21+4~, EN21+5*, EN21+7, EN21+10
    I INASSESS+1~, INASSESS+2*, INASSESS+10*, INASSESS+11
    IEN OBSDATE+25~
    INIEN INASSESS+1~, INASSESS+6*, INASSESS+7, INASSESS+9
    IOF EN1+3, TYPE+3
    MIEN OBSDATE+25~, OBSDATE+26*, OBSDATE+27, OBSDATE+28
    REA2 INASSESS+1~, INASSESS+9*
    REASON INASSESS+1~, INASSESS+7*, INASSESS+8, INASSESS+9*, INASSESS+10
    STOP EN21+4~, EN21+6*, EN21+7, EN21+14*, EN21+15*
    TYPE MISSREQ+1~, MISSREQ+3*, MISSREQ+4, MISSREQ+5, MISSREQ+6
    U EN21+10, ALERT+4, ALERT+7, ALERT+14, ALERT+17, ALERT+18, SELECT+2, SELECT+7, SELECT+9, TYPE+10
    , OBSDATE+6, OBSDATE+9, OBSDATE+12, OBSDATE+20, OBSDATE+22, MISSREQ+3, REQCOM+2, INASSESS+4
    VA SELECT+2!
    >> VADM(1 SELECT+2
    >> VADM(5 SELECT+2
    >> VAIN(4 SELECT+2
    VAL EN21+4~
    VAROOT SELECT+2!
    X EN21+33~, EN21+34*, EN21+35, OBSDATE+25~
    >> X1 INASSESS+5*
    >> XQADATA ALERT+3, ALERT+4
    XQAKILL ALERT+3*, ALERT+10*, ALERT+15!, ALERT+17*, ALERT+18!
    Y EN21+4~, EN21+14, EN21+15, INASSESS+1~, INASSESS+3*, INASSESS+4, INASSESS+6
    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