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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRAGUI1

Package: Adverse Reaction Tracking

Routine: GMRAGUI1


Information

GMRAGUI1 ; SLC/DAN - CPRS GUI support ;May 11, 2021@12:02:23

Source Information

Source file <GMRAGUI1.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Adverse Reaction Tracking 13 EN1^GMRAEAB  WAIT^GMRAFX3  EN7^GMRAMCB  ($$NKA,$$NKASCR)^GMRANKA  $$DUPCHK^GMRAOR0  ADVERSE^GMRAOR7  EN1^GMRAOR9  GMRACHK^GMRAPEM0  
EN1^GMRAPET0  EN1^GMRAPTB  RANGE^GMRASIGN  SITE^GMRAUTL  VAD^GMRAUTL1  
VA FileMan 5 $$FIND1^DIC  (,UPDATE)^DIE  ^DIK  $$GET1^DIQ  ^DIWP  
Kernel 2 $$NOW^XLFDT  EN^XQOR  
National Drug File 1 $$TGTOG^PSNAPIS  
RPC Broker 1 $$BROKER^XWBLIB  
Registration 1 INP^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: 4

Package Total Caller Graph
Adverse Reaction Tracking 3 GMRADEL  GMRAGUI  GMRAPEM0  
Order Entry Results Reporting 1 ORWDAL32  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; GETREC, cont'd
OBSV ; Get OBSERVATIONS from file 120.85
OBSLOOP
EXIT
NEXT ;SET ARRAY NODE AND INCREMENT ARRAY COUNTER
GETUSR
EIE(GMRAIEN,GMRADFN,GMRARRAY) ;Mark individual entry as entered in error
  • ICR #4682
    • Status: Active
    • Usage: Private
    ADCOM(ENTRY,TYPE,GMRACOM) ;Add comments to allergies
    NKA ;Change patient assessment to NKA
  • ICR #4682
    • Status: Active
    • Usage: Private
    UPDATE(GMRAIEN,DFN,GMRARRAY) ;Add/edit allergies
  • ICR #4682
    • Status: Active
    • Usage: Private
    MESS ;Give out locked message

    External References

    Name Field # of Occurrence
    $$FIND1^DIC EIE+15
    ^DIE EIE+5, NKA+13
    UPDATE^DIE ADCOM+9, UPDATE+13, UPDATE+24, UPDATE+34, UPDATE+48
    ^DIK EIE+9, UPDATE+42
    $$GET1^DIQ GETUSR
    ^DIWP ADCOM+3
    EN1^GMRAEAB EIE+12
    WAIT^GMRAFX3 MESS+5
    EN7^GMRAMCB UPDATE+51
    $$NKA^GMRANKA NKA+5, UPDATE+6
    $$NKASCR^GMRANKA EIE+7
    $$DUPCHK^GMRAOR0 UPDATE+3
    ADVERSE^GMRAOR7 UPDATE+60
    EN1^GMRAOR9 UPDATE+65
    GMRACHK^GMRAPEM0 UPDATE+66
    EN1^GMRAPET0 EIE+13, UPDATE+62
    EN1^GMRAPTB UPDATE+63
    RANGE^GMRASIGN UPDATE+65
    SITE^GMRAUTL UPDATE+5
    VAD^GMRAUTL1 UPDATE+51
    $$TGTOG^PSNAPIS UPDATE+17
    INP^VADPT EIE+15
    $$NOW^XLFDT ADCOM+5, UPDATE+11
    EN^XQOR EIE+16
    $$BROKER^XWBLIB MESS+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,GMRAL1,!,GMRAL2
    • Line Location: MESS+5
    Routine Call
    • DIC
    • Line Location:
      • EIE+15
    Routine Call
    • DIE
    • Line Location:
      • EIE+5
      • NKA+13
    Routine Call
    • DIE
    • Line Location:
      • ADCOM+9
      • UPDATE+13
      • UPDATE+24
      • UPDATE+34
      • UPDATE+48

    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.86 - [#120.86] Classic Fileman Calls
    ^VA(200 - [#200] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" OBSLOOP+5, OBSLOOP+11
    ^GMR(120.8 - [#120.8] EIE+7, EIE+8, EIE+10, UPDATE+40, UPDATE+41
    ^GMR(120.85 - [#120.85] OBSLOOP, OBSLOOP+1
    ^GMR(120.86 - [#120.86] NKA+8, NKA+9, NKA+10*, NKA+11*, NKA+12
    ^GMRD(120.83 - [#120.83] UPDATE+43, UPDATE+58
    ^GMRD(120.84 - [#120.84] UPDATE+5
    ^TMP($J UPDATE+65*
    ^UTILITY($J ADCOM+3!
    ^XTMP("GMRAED" EIE+2, EIE+17, NKA+4, NKA+15, UPDATE+4, UPDATE+68

    Label References

    Name Line Occurrences
    ADCOM EIE+6, UPDATE+35
    EXIT OBSLOOP
    GETUSR OBSLOOP+4, OBSLOOP+14
    MESS EIE+2, NKA+4, UPDATE+4
    NEXT OBSV+1, OBSLOOP+2, OBSLOOP+6, OBSLOOP+7, OBSLOOP+10, OBSLOOP+12, OBSLOOP+15, OBSLOOP+17
    OBSLOOP OBSLOOP+18

    Naked Globals

    Name Field # of Occurrence
    ^( UPDATE+38, UPDATE+39

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA EIE+1~, EIE+4*, EIE+8*, NKA+2~, NKA+13*, UPDATE+1~, UPDATE+42*
    DA(1 UPDATE+42*
    DFN EIE+1~, EIE+14*, NKA+2~, NKA+3*, NKA+4, NKA+5, NKA+9, NKA+10, NKA+11, NKA+12
    , NKA+13, NKA+15, UPDATE~, UPDATE+3, UPDATE+4, UPDATE+6, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11
    , UPDATE+12, UPDATE+16, UPDATE+51, UPDATE+55, UPDATE+68
    DIE EIE+1~, EIE+4*, NKA+2~, NKA+13*
    DIK EIE+1~, EIE+8*, UPDATE+1~, UPDATE+42*
    DIWL ADCOM+2~, ADCOM+3*
    DIWR ADCOM+2~, ADCOM+3*
    DR EIE+1~, EIE+4*, NKA+2~, NKA+13*
    DUZ ADCOM+6, NKA+13, UPDATE+10, UPDATE+33, UPDATE+46
    ENTRY ADCOM~, ADCOM+5, ADCOM+6, ADCOM+7, ADCOM+8
    FDA ADCOM+2~, UPDATE+1~, UPDATE+14!, UPDATE+26!, UPDATE+36!
    FDA( ADCOM+5*, ADCOM+6*, ADCOM+7*, ADCOM+8*, UPDATE+8*, UPDATE+9*, UPDATE+10*, UPDATE+11*, UPDATE+16*, UPDATE+19*
    , UPDATE+20*, UPDATE+22*, UPDATE+23*, UPDATE+32*, UPDATE+33*, UPDATE+43*, UPDATE+45*, UPDATE+46*, UPDATE+47*
    FILE UPDATE+1~, UPDATE+31*, UPDATE+32, UPDATE+33
    >> GMRA(1 OBSLOOP+1*, OBSLOOP+4, OBSLOOP+5, OBSLOOP+8, OBSLOOP+11, OBSLOOP+14
    GMRAAR UPDATE+1~, UPDATE+64*
    GMRACOM ADCOM~, ADCOM+3, ADCOM+4*, ADCOM+8
    GMRADFN EIE~, EIE+2, EIE+13, EIE+14, EIE+17, UPDATE+1~, UPDATE+55*, UPDATE+62
    GMRAI ADCOM+2~, ADCOM+3*
    GMRAIEN OBSLOOP, EIE~, EIE+3, UPDATE~, UPDATE+1~, UPDATE+2, UPDATE+15, UPDATE+25*, UPDATE+32, UPDATE+33
    , UPDATE+35, UPDATE+40, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+44, UPDATE+51, UPDATE+54, UPDATE+56, UPDATE+57
    , UPDATE+58, UPDATE+59, UPDATE+60, UPDATE+61, UPDATE+62, UPDATE+63, UPDATE+64
    GMRAIEN( UPDATE+61*
    GMRAL UPDATE+1~, UPDATE+59*, UPDATE+60
    GMRAL( UPDATE+54*, UPDATE+56*, UPDATE+57*, UPDATE+58*
    GMRAL1 MESS+1~, MESS+3*, MESS+5, MESS+6
    GMRAL2 MESS+1~, MESS+4*, MESS+5, MESS+6
    GMRALL UPDATE+1~
    GMRALL( UPDATE+51*
    >> GMRALOC UPDATE+51
    >> GMRANAM UPDATE+51
    GMRAOUT EIE+1~, EIE+11*, EIE+13, UPDATE+1~, UPDATE+53*, UPDATE+62
    GMRAPA EIE+1~, EIE+3*, EIE+4, EIE+6, EIE+7, EIE+8, EIE+10, EIE+13, UPDATE+1~, UPDATE+63*
    , UPDATE+64*, UPDATE+65, UPDATE+66
    GMRAPA(0 EIE+10*
    GMRAPN EIE+18, UPDATE+1~, UPDATE+67
    GMRAROT UPDATE+1~
    GMRAROT( UPDATE+49*
    GMRARRAY NEXT+1, EIE~, EIE+4, EIE+6, UPDATE~, UPDATE+3, UPDATE+11, UPDATE+17*, UPDATE+19, UPDATE+20
    , UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+29, UPDATE+30, UPDATE+32, UPDATE+35, UPDATE+37, UPDATE+52, UPDATE+54
    , UPDATE+56, UPDATE+57, UPDATE+63, UPDATE+64
    GMRAS0 UPDATE+1~, UPDATE+38*, UPDATE+40, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+45, UPDATE+47, UPDATE+49
    >> GMRASITE UPDATE+5
    >> GMRASITE(0 UPDATE+5*
    GMRAXBOS MESS+1~, MESS+2*, MESS+5
    >> I OBSLOOP+16*
    IEN UPDATE+1~, UPDATE+14!
    IEN( UPDATE+12*
    IEN(1 UPDATE+25
    >> ND NEXT+1*
    NEW UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+7, UPDATE+15, UPDATE+16, UPDATE+20, UPDATE+25, UPDATE+50
    NKA NKA+2~, NKA+5*, NKA+6, NKA+7, UPDATE+1~, UPDATE+6*, UPDATE+7
    NODE UPDATE+1~, UPDATE+15*, UPDATE+16, UPDATE+19, UPDATE+20, UPDATE+22, UPDATE+23, UPDATE+44*, UPDATE+45, UPDATE+46
    , UPDATE+47
    >> OBSIEN OBSV+2*, OBSLOOP*, OBSLOOP+1, OBSLOOP+2
    >> ORDFN NKA+3
    OROLD EIE+1~
    >> ORY EIE+18*, NKA+7*, NKA+8*, NKA+12*, NKA+14*, UPDATE+3*, UPDATE+67*, MESS+6*
    >> SEVCOD OBSLOOP+8*, OBSLOOP+9
    >> SEVER OBSLOOP+9*, OBSLOOP+10
    SIEN UPDATE+1~, UPDATE+40*, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+44
    >> STRING OBSV+1*, OBSLOOP+2*, OBSLOOP+6*, OBSLOOP+7*, OBSLOOP+10*, OBSLOOP+12*, OBSLOOP+15*, OBSLOOP+16*, NEXT+1*
    SUB UPDATE+1~, UPDATE+18*, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+27*, UPDATE+29, UPDATE+30, UPDATE+31, UPDATE+32
    , UPDATE+37*, UPDATE+38, UPDATE+39, UPDATE+58*
    TYPE ADCOM~, ADCOM+7
    U OBSLOOP+4, OBSLOOP+5, OBSLOOP+8, OBSLOOP+11, OBSLOOP+14, EIE+7, EIE+8, NKA+10, NKA+11, UPDATE+3
    , UPDATE+17, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+39, UPDATE+40, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+45
    , UPDATE+47, UPDATE+49, UPDATE+52, UPDATE+56, UPDATE+58, UPDATE+64
    >> USR OBSLOOP+4*, OBSLOOP+14*, GETUSR
    >> USRNAM OBSLOOP+3*, OBSLOOP+7, OBSLOOP+13*, OBSLOOP+15, GETUSR*
    VAIN EIE+1~
    X EIE+1~, EIE+15*, EIE+16, ADCOM+2~, ADCOM+3*
    Y OBSLOOP+5*, OBSLOOP+6, OBSLOOP+11*, OBSLOOP+12, EIE+1~
    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 |  Naked Globals |  Local Variables  | All