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 ;5/29/18 7:35am

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+21, UPDATE+31, UPDATE+45
    ^DIK EIE+9, UPDATE+39
    $$GET1^DIQ GETUSR
    ^DIWP ADCOM+3
    EN1^GMRAEAB EIE+12
    WAIT^GMRAFX3 MESS+5
    EN7^GMRAMCB UPDATE+48
    $$NKA^GMRANKA NKA+5, UPDATE+6
    $$NKASCR^GMRANKA EIE+7
    $$DUPCHK^GMRAOR0 UPDATE+3
    ADVERSE^GMRAOR7 UPDATE+57
    EN1^GMRAOR9 UPDATE+62
    GMRACHK^GMRAPEM0 UPDATE+64
    EN1^GMRAPET0 EIE+13, UPDATE+59
    EN1^GMRAPTB UPDATE+60
    RANGE^GMRASIGN UPDATE+62
    SITE^GMRAUTL UPDATE+5
    VAD^GMRAUTL1 UPDATE+48
    $$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+21
      • UPDATE+31
      • UPDATE+45

    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+37, UPDATE+38
    ^GMR(120.85 - [#120.85] OBSLOOPOBSLOOP+1
    ^GMR(120.86 - [#120.86] NKA+8, NKA+9, NKA+10*, NKA+11*, NKA+12
    ^GMRD(120.83 - [#120.83] UPDATE+40, UPDATE+55
    ^GMRD(120.84 - [#120.84] UPDATE+5
    ^TMP($J UPDATE+62*
    ^UTILITY($J ADCOM+3!
    ^XTMP("GMRAED" EIE+2, EIE+17, NKA+4, NKA+15, UPDATE+4, UPDATE+65

    Label References

    Name Line Occurrences
    ADCOM EIE+6, UPDATE+32
    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+35, UPDATE+36

    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+39*
    DA(1 UPDATE+39*
    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+48, UPDATE+52, UPDATE+65
    DIE EIE+1~, EIE+4*, NKA+2~, NKA+13*
    DIK EIE+1~, EIE+8*, UPDATE+1~, UPDATE+39*
    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+30, UPDATE+43
    ENTRY ADCOM~, ADCOM+5, ADCOM+6, ADCOM+7, ADCOM+8
    FDA ADCOM+2~, UPDATE+1~, UPDATE+14!, UPDATE+23!, UPDATE+33!
    FDA( ADCOM+5*, ADCOM+6*, ADCOM+7*, ADCOM+8*, UPDATE+8*, UPDATE+9*, UPDATE+10*, UPDATE+11*, UPDATE+16*, UPDATE+19*
    , UPDATE+20*, UPDATE+29*, UPDATE+30*, UPDATE+40*, UPDATE+42*, UPDATE+43*, UPDATE+44*
    FILE UPDATE+1~, UPDATE+28*, UPDATE+29, UPDATE+30
    >> GMRA(1 OBSLOOP+1*, OBSLOOP+4, OBSLOOP+5, OBSLOOP+8, OBSLOOP+11, OBSLOOP+14
    GMRAAR UPDATE+1~, UPDATE+61*
    GMRACOM ADCOM~, ADCOM+3, ADCOM+4*, ADCOM+8
    GMRADFN EIE~, EIE+2, EIE+13, EIE+14, EIE+17, UPDATE+1~, UPDATE+52*, UPDATE+59
    GMRAI ADCOM+2~, ADCOM+3*
    GMRAIEN OBSLOOP, EIE~, EIE+3, UPDATE~, UPDATE+1~, UPDATE+2, UPDATE+15, UPDATE+22*, UPDATE+29, UPDATE+30
    , UPDATE+32, UPDATE+37, UPDATE+38, UPDATE+39, UPDATE+40, UPDATE+41, UPDATE+48, UPDATE+51, UPDATE+53, UPDATE+54
    , UPDATE+55, UPDATE+56, UPDATE+57, UPDATE+58, UPDATE+59, UPDATE+60, UPDATE+61
    GMRAIEN( UPDATE+58*
    GMRAL UPDATE+1~, UPDATE+56*, UPDATE+57
    GMRAL( UPDATE+51*, UPDATE+53*, UPDATE+54*, UPDATE+55*
    GMRAL1 MESS+1~, MESS+3*, MESS+5, MESS+6
    GMRAL2 MESS+1~, MESS+4*, MESS+5, MESS+6
    GMRALL UPDATE+1~
    GMRALL( UPDATE+48*
    >> GMRALOC UPDATE+48
    >> GMRANAM UPDATE+48
    GMRAOUT EIE+1~, EIE+11*, EIE+13, UPDATE+1~, UPDATE+50*, UPDATE+59
    GMRAPA EIE+1~, EIE+3*, EIE+4, EIE+6, EIE+7, EIE+8, EIE+10, EIE+13, UPDATE+1~, UPDATE+60*
    , UPDATE+61*, UPDATE+62, UPDATE+64
    GMRAPA(0 EIE+10*
    GMRAPN EIE+18, UPDATE+1~, UPDATE+63
    GMRAROT UPDATE+1~
    GMRAROT( UPDATE+46*
    GMRARRAY NEXT+1, EIE~, EIE+4, EIE+6, UPDATE~, UPDATE+3, UPDATE+11, UPDATE+17*, UPDATE+19, UPDATE+20
    , UPDATE+26, UPDATE+27, UPDATE+29, UPDATE+32, UPDATE+34, UPDATE+49, UPDATE+51, UPDATE+53, UPDATE+54, UPDATE+60
    , UPDATE+61
    GMRAS0 UPDATE+1~, UPDATE+35*, UPDATE+37, UPDATE+38, UPDATE+39, UPDATE+40, UPDATE+42, UPDATE+44, UPDATE+46
    >> 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+22
    >> ND NEXT+1*
    NEW UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+7, UPDATE+15, UPDATE+16, UPDATE+20, UPDATE+22, UPDATE+47, UPDATE+64
    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+41*, UPDATE+42, UPDATE+43, UPDATE+44
    >> 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+63*, MESS+6*
    >> SEVCOD OBSLOOP+8*, OBSLOOP+9
    >> SEVER OBSLOOP+9*, OBSLOOP+10
    SIEN UPDATE+1~, UPDATE+37*, UPDATE+38, UPDATE+39, UPDATE+40, UPDATE+41
    >> 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+24*, UPDATE+26, UPDATE+27, UPDATE+28, UPDATE+29, UPDATE+34*
    , UPDATE+35, UPDATE+36, UPDATE+55*
    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+36, UPDATE+37, UPDATE+38, UPDATE+39, UPDATE+40, UPDATE+42, UPDATE+44
    , UPDATE+46, UPDATE+49, UPDATE+53, UPDATE+55, UPDATE+61
    >> 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