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 ;06-May-2013 11:01;DU

Source Information

Source file <GMRAGUI1.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Adverse Reaction Tracking 12 EN1^GMRAEAB  WAIT^GMRAFX3  EN7^GMRAMCB  ($$NKA,$$NKASCR)^GMRANKA  $$DUPCHK^GMRAOR0  ADVERSE^GMRAOR7  EN1^GMRAOR9  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

Caller Graph Total: 5

Package Total Caller Graph
Adverse Reaction Tracking 3 GMRADEL  GMRAGUI  GMRAPEM0  
IHS Electronic Health Record 1 BEHOARMU  
Order Entry Results Reporting 1 ORWDAL32  

Entry Points

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

    External References

    Name Field # of Occurrence
    $$FIND1^DIC EIE+15
    ^DIE EIE+5, NKA+13
    UPDATE^DIE ADCOM+9, UPDATE+13, UPDATE+21, UPDATE+29, UPDATE+43
    ^DIK EIE+9, UPDATE+37
    $$GET1^DIQ GETUSR
    ^DIWP ADCOM+3
    EN1^GMRAEAB EIE+12
    WAIT^GMRAFX3 MESS+5
    EN7^GMRAMCB UPDATE+46
    $$NKA^GMRANKA NKA+5, UPDATE+6
    $$NKASCR^GMRANKA EIE+7
    $$DUPCHK^GMRAOR0 UPDATE+3
    ADVERSE^GMRAOR7 UPDATE+55
    EN1^GMRAOR9 UPDATE+60
    EN1^GMRAPET0 EIE+13, UPDATE+57
    EN1^GMRAPTB UPDATE+58
    RANGE^GMRASIGN UPDATE+60
    SITE^GMRAUTL UPDATE+5
    VAD^GMRAUTL1 UPDATE+46
    $$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
    • DIE
    • Line Location:
      • ADCOM+9
      • UPDATE+13
      • UPDATE+21
      • UPDATE+29
      • UPDATE+43
    Routine Call
    • DIE
    • Line Location:
      • EIE+5
      • NKA+13
    Routine Call
    • DIC
    • Line Location:
      • EIE+15

    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+35, UPDATE+36
    ^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+38, UPDATE+53
    ^GMRD(120.84 - [#120.84] UPDATE+5
    ^TMP($J UPDATE+60*
    ^UTILITY($J ADCOM+3!
    ^XTMP("GMRAED" EIE+2, EIE+17, NKA+4, NKA+15, UPDATE+4, UPDATE+62

    Label References

    Name Line Occurrences
    ADCOM EIE+6, UPDATE+30
    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+33, UPDATE+34

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