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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: GMRAUTL2

Package: Adverse Reaction Tracking

Routine: GMRAUTL2


Information

GMRAUTL2 ;SLC/DAN New style index utilities, update utility for 120.8 ;21-Jun-2012 08:36;DU

Source Information

Source file <GMRAUTL2.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Order Entry Results Reporting 5 BLD^ORCHECK  EN^ORKCHK  EN^ORQ1  $$STATUS^ORQOR2  $$OI^ORX8  
Adverse Reaction Tracking 2 ($$DECEASED,ADCOM)^GMRAFX  $$CHECKS^GMRAPER0  
VA Fileman 2 (,FILE,UPDATE)^DIE  $$GET1^DIQ  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Toolkit 1 ($$SCREEN,SCREEN)^XTID  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRA1005  
National Drug File 1 PSNEWCLS  

Entry Points

Name Comments DBIA/ICR reference
QUP ;Queue the update
DEL(TYPE,ALENT,SUBENT,GMRAS) ;Delete entry from multiple
CHKORD ;Check for orders that are now in conflict with existing allergy data
QTYPE ;Queue allergy type updates, section added in 36
TOP10 ;Check top 10 reactions after push of file 120.83
ADD(TYPE,ALENT,SUBENT,GMRAS) ;Adds entry to appropriate multiple
TYPE ;Find related entries in 120.8 and update, section added in 36
REACT ;Update REACTANT field with name from 120.82. Section added with patch 23
ADDCOM ;Add comment to updated allergy indicating changes
MAIL ;Send message containing potential order checks to user.
UPDATE(ENTRY,ING,CLASS) ;Update existing entries in 120.8 with new information.
  • ICR #4667
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #4667
    • Status: Active
    • Usage: Controlled Subscription
    QREACT ;Queue name update, called from "AC" xref in file 120.82. Entire section added in patch 23

    External References

    Name Field # of Occurrence
    ^%ZTLOAD QUP+1, QREACT+5, QTYPE+5
    ^DIE TYPE+9
    FILE^DIE DEL+8, REACT+8
    UPDATE^DIE ADD+7
    $$GET1^DIQ ADDCOM+7, MAIL+13, MAIL+19
    $$DECEASED^GMRAFX UPDATE+10, REACT+4, TYPE+7
    ADCOM^GMRAFX ADDCOM+8
    $$CHECKS^GMRAPER0 TOP10+8
    BLD^ORCHECK CHKORD+9
    EN^ORKCHK CHKORD+11
    EN^ORQ1 CHKORD+5
    $$STATUS^ORQOR2 CHKORD+15
    $$OI^ORX8 CHKORD+15
    ^XMD MAIL+22, TOP10+24
    $$SCREEN^XTID TOP10+8
    SCREEN^XTID TOP10+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^PS(50.416 - [#50.416] GET1^DIQ
    ^PS(50.605 - [#50.605] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR(120.8 - [#120.8] UPDATE+8, UPDATE+9, UPDATE+11, UPDATE+12, ADD+3, ADD+4, ADD+8, DEL+3, DEL+4, DEL+5
    , DEL+9, ADDCOM+8, REACT+2, REACT+3, REACT+5, REACT+6, REACT+9, TYPE+4, TYPE+5, TYPE+6
    , TYPE+8
    ^GMRD(120.82 - [#120.82] GMRAUTL2+5, QTYPE+2
    ^GMRD(120.83 - [#120.83] TOP10+9
    ^GMRD(120.84 - [#120.84] TOP10+4, TOP10+5, TOP10+6, TOP10+9
    ^OR(100 - [#100] CHKORD+14
    ^TMP("ORR" CHKORD+3!, CHKORD+6, CHKORD+7, CHKORD+8, CHKORD+9, CHKORD+17!
    ^TMP($J CHKORD+3!, CHKORD+15*, CHKORD+17!, MAIL+2, MAIL+3!, MAIL+8*, MAIL+9*, MAIL+12*, MAIL+13*, MAIL+14*
    , MAIL+15*, MAIL+16*, MAIL+17, MAIL+18*, MAIL+19*, MAIL+20*, MAIL+23!

    Label References

    Name Line Occurrences
    ADD UPDATE+16, UPDATE+19
    ADDCOM UPDATE+21
    CHKORD UPDATE+22
    DEL UPDATE+17, UPDATE+20
    MAIL CHKORD+17
    QUP GMRAUTL2+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACTION UPDATE+5~, UPDATE+14*, UPDATE+15, UPDATE+16, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+20
    ALENT ADD~, ADD+3, ADD+4, ADD+6, ADD+8, DEL~, DEL+3, DEL+4, DEL+5, DEL+7
    , DEL+9
    ALLERGY UPDATE+5~, UPDATE+6*, UPDATE+8, TYPE+1~, TYPE+2*, TYPE+4
    ARRAY TOP10+2~, TOP10+11
    ARRAY( TOP10+10*, TOP10+21, TOP10+22
    CLASS UPDATE~
    CLASS( UPDATE+18, UPDATE+19*, UPDATE+20*
    CNT CHKORD+1~, CHKORD+12*, CHKORD+15*, MAIL+1~, MAIL+7*, MAIL+8*, MAIL+9*, MAIL+12*, MAIL+13, MAIL+14*
    , MAIL+15*, MAIL+16*, MAIL+18*, MAIL+19*, MAIL+20*, TOP10+2~, TOP10+20*, TOP10+21*, TOP10+22*
    >> COM ADDCOM+5*, ADDCOM+7*, ADDCOM+8
    D ADDCOM+2~
    D0 ADDCOM+2~
    D1 ADDCOM+2~
    DA ADDCOM+2~, QTYPE+2, TYPE+9*
    DA(1 GMRAUTL2+5
    DC ADDCOM+2~
    DDER ADDCOM+2~
    DDH ADDCOM+2~
    DE ADDCOM+2~
    DFN UPDATE+5~, UPDATE+9*, UPDATE+10, UPDATE+16, UPDATE+19, CHKORD+1~, CHKORD+4*, CHKORD+5, CHKORD+11, CHKORD+15
    , REACT+1~, REACT+3*, REACT+4, TYPE+1~, TYPE+6*, TYPE+7
    DG ADDCOM+2~
    DH ADDCOM+2~
    DI ADDCOM+2~
    DIA ADDCOM+2~
    DIC ADDCOM+2~
    DICR ADDCOM+2~
    DIE ADDCOM+2~, TYPE+9*
    DIEL ADDCOM+2~
    DIFROM TOP10+2~
    DIK ADDCOM+2~
    DK ADDCOM+2~
    DL ADDCOM+2~
    DM ADDCOM+2~
    DP ADDCOM+2~
    DQ ADDCOM+2~
    DR ADDCOM+2~, TYPE+9*
    DUZ CHKORD+2, MAIL+5
    EM ADD+1~, DEL+1~, REACT+1~
    ENTRY GMRAUTL2+3~, GMRAUTL2+5*, UPDATE~, UPDATE+6, UPDATE+7, DEL+1~, DEL+5*, DEL+7, MAIL+8, QTYPE+1~
    , QTYPE+2*, TYPE+2, TYPE+3
    ERR MAIL+1~, MAIL+20*
    FDA ADD+1~, DEL+1~, REACT+1~
    FDA( ADD+6*, DEL+7*, REACT+7*
    FILE ADD+1~, ADD+5*, ADD+6, DEL+1~, DEL+6*, DEL+7
    GI CHKORD+1~, CHKORD+12*, CHKORD+13, CHKORD+14, CHKORD+15
    GLOB ADDCOM+2~, ADDCOM+3*, ADDCOM+4
    GMRAC GMRAUTL2+3~
    GMRAC("A" GMRAUTL2+6*, GMRAUTL2+8*
    GMRAC("D" GMRAUTL2+6*, GMRAUTL2+7*
    GMRACOM UPDATE+5~, UPDATE+13*, UPDATE+16*, UPDATE+17*, UPDATE+19*, UPDATE+20*, UPDATE+21
    GMRAI GMRAUTL2+3~
    GMRAI("A" GMRAUTL2+6*, GMRAUTL2+8*
    GMRAI("D" GMRAUTL2+6*, GMRAUTL2+7*
    GMRAOC CHKORD+1~, CHKORD+10!, CHKORD+11
    GMRAOC( CHKORD+12, CHKORD+13, CHKORD+14, CHKORD+15
    GMRAORX CHKORD+1~, CHKORD+10*, CHKORD+11, CHKORD+16!
    GMRAS UPDATE+5~, UPDATE+16, UPDATE+17, UPDATE+19, UPDATE+20, ADD~, ADD+2*, ADD+3*, DEL~, DEL+2*
    , DEL+3*
    >> GMRAT GMRAUTL2+6, GMRAUTL2+7, GMRAUTL2+8
    GMRATXT TOP10+2~
    GMRATXT( TOP10+21*, TOP10+22*
    GMRATXT(1 TOP10+13*
    GMRATXT(2 TOP10+14*
    GMRATXT(3 TOP10+15*
    GMRATXT(4 TOP10+16*
    GMRATXT(5 TOP10+17*
    GMRATXT(6 TOP10+18*
    GMRATXT(7 TOP10+19*
    IEN REACT+1~, REACT+2*, REACT+3, REACT+5, REACT+6, REACT+7, REACT+9
    ING UPDATE~
    ING( UPDATE+15, UPDATE+16*, UPDATE+17*
    NTERM QREACT+1~, QREACT+4*, REACT+7
    NUM MAIL+1~, MAIL+13*
    ORX CHKORD+1~, CHKORD+10!
    OTERM QREACT+1~, QREACT+4*, REACT+2
    POINTER UPDATE+5~, UPDATE+7*, UPDATE+11, TYPE+1~, TYPE+3*, TYPE+5
    REAC TOP10+2~, TOP10+5*, TOP10+6, TOP10+22*
    REACNM TOP10+2~, TOP10+9*, TOP10+10
    REACNO TOP10+2~, TOP10+6*, TOP10+8, TOP10+9
    ROOT ADDCOM+2~, ADDCOM+6*, ADDCOM+7
    SUB UPDATE+5~, UPDATE+8*, UPDATE+9, UPDATE+11, UPDATE+12, UPDATE+16, UPDATE+17, UPDATE+19, UPDATE+20, CHKORD+1~
    , CHKORD+8*, CHKORD+9, ADDCOM+8, MAIL+1~, MAIL+17*, MAIL+19, MAIL+20, TOP10+2~, TOP10+4*, TOP10+5
    , TOP10+6, TOP10+9, TOP10+21*, TOP10+22, TYPE+1~, TYPE+4*, TYPE+5, TYPE+6, TYPE+8, TYPE+9
    SUB2 ADDCOM+2~, ADDCOM+7*
    SUBC UPDATE+5~, UPDATE+18*, UPDATE+19, UPDATE+20
    SUBENT ADD~, ADD+3, ADD+6, DEL~, DEL+3, DEL+5
    SUBI UPDATE+5~, UPDATE+15*, UPDATE+16, UPDATE+17
    SUBNM TOP10+2~, TOP10+9*, TOP10+10
    TIME CHKORD+1~, CHKORD+6*, CHKORD+7, CHKORD+8, CHKORD+9
    TYPE ADD~, ADD+3, ADD+5, DEL~, DEL+3, DEL+5, DEL+6, ADDCOM+2~, ADDCOM+4*, ADDCOM+5
    , ADDCOM+6, ADDCOM+7, MAIL+1~, MAIL+10*, MAIL+11, MAIL+12, MAIL+13
    U UPDATE+9, CHKORD+13, CHKORD+14, CHKORD+15, MAIL+8, TOP10+6, TOP10+9, REACT+3, TYPE+6
    UPDATED GMRAUTL2+3~, UPDATE+22
    UPDATED( UPDATE+16*, UPDATE+19*, CHKORD+4
    >> X1(1 GMRAUTL2+4, GMRAUTL2+6, GMRAUTL2+7, GMRAUTL2+8, QREACT+2, QREACT+3, QREACT+4, QTYPE+3, QTYPE+4
    >> X2(1 GMRAUTL2+4, GMRAUTL2+6, GMRAUTL2+7, GMRAUTL2+8, QREACT+2, QREACT+3, QREACT+4, QTYPE+3, QTYPE+4, TYPE+9
    XMDUZ MAIL+1~, MAIL+4*, TOP10+2~, TOP10+12*
    XMSUB MAIL+1~, MAIL+21*, TOP10+2~, TOP10+23*
    XMTEXT MAIL+1~, MAIL+21*, TOP10+2~, TOP10+23*
    XMY MAIL+1~, TOP10+2~
    XMY( MAIL+5*
    XMY("G.GMRA R EQUEST NEW REACTANT" , MAIL+6*, TOP10+12*
    XMZ MAIL+1~
    ZTDESC QUP+1*, QREACT+1~, QREACT+5*, QTYPE+5*
    ZTDTH QUP+1*, QREACT+1~, QREACT+5*, QTYPE+5*
    ZTIO QUP+1*, QREACT+1~, QREACT+5*, QTYPE+5*
    ZTRTN QUP+1*, QREACT+1~, QREACT+5*, QTYPE+5*
    >> ZTSAVE("*" QUP+1*, QREACT+5*, QTYPE+5*

    Marked Items

    Name Field # of Occurrence
    $T(SCREEN^XTID TOP10+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All