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 ;11/20/12 08:09

Source Information

Source file <GMRAUTL2.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Order Entry Results Reporting 5 (BLD,OCAPI)^ORCHECK  EN^ORKCHK  EN^ORQ1  $$STATUS^ORQOR2  $$OI^ORX8  
Adverse Reaction Tracking 3 $$DECEASED^GMRAFX  $$ANYARTOC^GMRAUTL2  ADDCOM^GMRAUTL3  
Kernel 2 ^%ZTLOAD  $$DT^XLFDT  
National Drug File 2 ZERO^PSN50P41  C^PSN50P65  
VA FileMan 2 (,FILE,UPDATE)^DIE  $$GET1^DIQ  
MailMan 1 ^XMD  
Toolkit 1 ($$SCREEN,SCREEN)^XTID  

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: 10

Package Total Caller Graph
Adverse Reaction Tracking 5 GMRAFX3  GMRAUTL2  ^GMRD(120.82  DRUG INGREDIENTS  VA DRUG CLASSES  
National Drug File 4 PSN297P  PSN441P  PSN471P  PSNEWCLS  
Kernel 1 ^DIC(4.001  

Entry Points

Name Comments DBIA/ICR reference
QUP ;Queue the update
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
    ADD(TYPE,ALENT,SUBENT,GMRAS) ;Adds entry to appropriate multiple
    DEL(TYPE,ALENT,SUBENT,GMRAS) ;Delete entry from multiple
    CHKORD ;Check for orders that are now in conflict with existing allergy data
    ANYARTOC(GMRAIFN) ;check order to see if there are any allergy order checks
    ADDCOM ;Add comment to updated allergy indicating changes
    MAIL ;Send message containing potential order checks to user.
    TOP10 ;Check top 10 reactions after push of file 120.83
    QREACT ;Queue name update, called from "AC" xref in file 120.82. Entire section added in patch 23
    REACT ;Update REACTANT field with name from 120.82. Section added with patch 23
    QTYPE ;Queue allergy type updates, section added in 36
    TYPE ;Find related entries in 120.8 and update, section added in 36

    External References

    Name Field # of Occurrence
    ^%ZTLOAD QUP+2, QREACT+5, QTYPE+5
    ^DIE TYPE+9
    FILE^DIE DEL+8, REACT+8
    UPDATE^DIE ADD+7
    $$GET1^DIQ MAIL+22
    $$DECEASED^GMRAFX UPDATE+10, REACT+4, TYPE+7
    $$ANYARTOC^GMRAUTL2 CHKORD+16
    ADDCOM^GMRAUTL3 ADDCOM+1
    BLD^ORCHECK CHKORD+9
    OCAPI^ORCHECK ANYARTOC+4
    EN^ORKCHK CHKORD+12
    EN^ORQ1 CHKORD+5
    $$STATUS^ORQOR2 CHKORD+17
    $$OI^ORX8 CHKORD+17
    ZERO^PSN50P41 MAIL+14
    C^PSN50P65 MAIL+15
    $$DT^XLFDT MAIL+14
    ^XMD MAIL+25, TOP10+22
    $$SCREEN^XTID TOP10+6
    SCREEN^XTID TOP10+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] 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, REACT+2, REACT+3, REACT+5, REACT+6, REACT+9, TYPE+4, TYPE+5, TYPE+6, TYPE+8
    ^GMRD(120.82 - [#120.82] GMRAUTL2+19, QTYPE+2
    ^GMRD(120.83 - [#120.83] TOP10+7
    ^GMRD(120.84 - [#120.84] TOP10+3, TOP10+4, TOP10+5, TOP10+7
    ^TMP("ORR" CHKORD+3!, CHKORD+6, CHKORD+7, CHKORD+8, CHKORD+9, CHKORD+19!
    ^TMP($J CHKORD+3!, CHKORD+17*, CHKORD+19!, ANYARTOC+3!, ANYARTOC+5, ANYARTOC+6!, MAIL+2, MAIL+3!, MAIL+8*, MAIL+9*
    , MAIL+12*, MAIL+13*, MAIL+16*, MAIL+17*, MAIL+18*, MAIL+19*, MAIL+20, MAIL+21*, MAIL+22*, MAIL+23*
    , MAIL+26!

    Label References

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

    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+1~, TOP10+9
    ARRAY( TOP10+8*, TOP10+19, TOP10+20
    CLASS UPDATE~
    CLASS( UPDATE+18, UPDATE+19*, UPDATE+20*
    CNT CHKORD+1~, CHKORD+13*, CHKORD+17*, MAIL+1~, MAIL+7*, MAIL+8*, MAIL+9*, MAIL+12*, MAIL+13, MAIL+16
    , MAIL+17*, MAIL+18*, MAIL+19*, MAIL+21*, MAIL+22*, MAIL+23*, TOP10+1~, TOP10+18*, TOP10+19*, TOP10+20*
    DA QTYPE+2, TYPE+1~, TYPE+9*
    DA(1 GMRAUTL2+19
    DFN UPDATE+5~, UPDATE+9*, UPDATE+10, UPDATE+16, UPDATE+19, CHKORD+1~, CHKORD+4*, CHKORD+5, CHKORD+12, CHKORD+17
    , REACT+1~, REACT+3*, REACT+4, TYPE+1~, TYPE+6*, TYPE+7
    DIE TYPE+1~, TYPE+9*
    DIFROM TOP10+1~
    DR TYPE+1~, TYPE+9*
    DUZ CHKORD+2, MAIL+5
    EM ADD+1~, DEL+1~, REACT+1~
    ENTRY GMRAUTL2+17~, GMRAUTL2+19*, 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+23*
    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+13*, CHKORD+14, CHKORD+16, CHKORD+17
    GMRAC GMRAUTL2+17~
    GMRAC("A" GMRAUTL2+20*, GMRAUTL2+22*
    GMRAC("D" GMRAUTL2+20*, GMRAUTL2+21*
    GMRACOM UPDATE+5~, UPDATE+13*, UPDATE+16*, UPDATE+17*, UPDATE+19*, UPDATE+20*, UPDATE+21
    GMRAI GMRAUTL2+17~, ANYARTOC+1~, ANYARTOC+5*
    GMRAI("A" GMRAUTL2+20*, GMRAUTL2+22*
    GMRAI("D" GMRAUTL2+20*, GMRAUTL2+21*
    GMRAIFN ANYARTOC~, ANYARTOC+4
    GMRAOC CHKORD+1~, CHKORD+10!, CHKORD+12
    GMRAOC( CHKORD+13, CHKORD+14, CHKORD+16, CHKORD+17
    GMRAORX CHKORD+1~, CHKORD+10*, CHKORD+12, CHKORD+18!
    GMRARET ANYARTOC+1~, ANYARTOC+2*, ANYARTOC+5*, ANYARTOC+7
    GMRAS UPDATE+5~, UPDATE+16, UPDATE+17, UPDATE+19, UPDATE+20, ADD~, ADD+2*, ADD+3*, DEL~, DEL+2*
    , DEL+3*
    >> GMRAT GMRAUTL2+20, GMRAUTL2+21, GMRAUTL2+22
    GMRATXT TOP10+1~
    GMRATXT( TOP10+19*, TOP10+20*
    GMRATXT(1 TOP10+11*
    GMRATXT(2 TOP10+12*
    GMRATXT(3 TOP10+13*
    GMRATXT(4 TOP10+14*
    GMRATXT(5 TOP10+15*
    GMRATXT(6 TOP10+16*
    GMRATXT(7 TOP10+17*
    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*, MAIL+14, MAIL+15, MAIL+16
    ORDODSG CHKORD+11~*, CHKORD+12
    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+1~, TOP10+4*, TOP10+5, TOP10+20*
    REACNM TOP10+1~, TOP10+7*, TOP10+8
    REACNO TOP10+1~, TOP10+5*, TOP10+6, TOP10+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, MAIL+1~, MAIL+20*, MAIL+22, MAIL+23, TOP10+1~, TOP10+3*, TOP10+4, TOP10+5
    , TOP10+7, TOP10+19*, TOP10+20, TYPE+1~, TYPE+4*, TYPE+5, TYPE+6, TYPE+8, TYPE+9
    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+1~, TOP10+7*, TOP10+8
    TIME CHKORD+1~, CHKORD+6*, CHKORD+7, CHKORD+8, CHKORD+9
    TYPE ADD~, ADD+3, ADD+5, DEL~, DEL+3, DEL+5, DEL+6, MAIL+1~, MAIL+10*, MAIL+11
    , MAIL+12, MAIL+13, MAIL+14, MAIL+15
    U UPDATE+9, CHKORD+14, CHKORD+16, CHKORD+17, MAIL+8, TOP10+5, TOP10+7, REACT+3, TYPE+6
    UPDATED UPDATE+5~, UPDATE+22
    UPDATED( UPDATE+16*, UPDATE+19*, CHKORD+4
    >> X1(1 GMRAUTL2+18, GMRAUTL2+20, GMRAUTL2+21, GMRAUTL2+22, QREACT+2, QREACT+3, QREACT+4, QTYPE+3, QTYPE+4
    >> X2(1 GMRAUTL2+18, GMRAUTL2+20, GMRAUTL2+21, GMRAUTL2+22, QREACT+2, QREACT+3, QREACT+4, QTYPE+3, QTYPE+4, TYPE+9
    XMDUZ MAIL+1~, MAIL+4*, TOP10+1~, TOP10+10*
    XMSUB MAIL+1~, MAIL+24*, TOP10+1~, TOP10+21*
    XMTEXT MAIL+1~, MAIL+24*, TOP10+1~, TOP10+21*
    XMY MAIL+1~, TOP10+1~
    XMY( MAIL+5*
    XMY("G.GMRA R EQUEST NEW REACTANT" , MAIL+6*, TOP10+10*
    XMZ MAIL+1~
    ZTDESC QUP+1~, QUP+2*, QREACT+1~, QREACT+5*, QTYPE+1~, QTYPE+5*
    ZTDTH QUP+1~, QUP+2*, QREACT+1~, QREACT+5*, QTYPE+1~, QTYPE+5*
    ZTIO QUP+1~, QUP+2*, QREACT+1~, QREACT+5*, QTYPE+1~, QTYPE+5*
    ZTRTN QUP+1~, QUP+2*, QREACT+1~, QREACT+5*, QTYPE+1~, QTYPE+5*
    ZTSAVE QUP+1~, QTYPE+1~
    ZTSAVE("*" QUP+2*, QREACT+5*, QTYPE+5*

    Marked Items

    Name Field # of Occurrence
    $T(SCREEN^XTID TOP10+2
    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