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

Package: Adverse Reaction Tracking

Routine: GMRAFX


Information

GMRAFX ;SLC/DAN Fix existing allergy entries ;3/2/06 13:46

Source Information

Source file <GMRAFX.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 4 (,$$FIND1)^DIC  ^DIE  $$GET1^DIQ  ^DIR  
List Manager 3 (EN,SHOW)^VALM  FULL^VALM1  (CNTRL,SET)^VALM10  
Adverse Reaction Tracking 2 PROCESS^GMRAFUT0  ($$GETNUM,$$GETTYPE,$$LOCK,EIE,UPDATE,WAIT)^GMRAFX3  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$REPEAT,$$UP)^XLFSTR  
Registration 1 ($$TESTPAT,DEM)^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: 21

Package Total Caller Graph
Adverse Reaction Tracking 19 GMRA FIX  GMRA FIX ADD/EDIT ALLERGY FILE  GMRA FIX ADD/EDIT ALLERGY FILE IN DETAIL  GMRA FIX DETAIL LIST  GMRA FIX ENTERED IN ERROR  GMRA FIX FREE TEXT LIST  GMRA FIX UPDATE REACTANT  GMRA FREE TEXT UTILITY  
GMRAFX3  GMRAPNA  GMRAUTL2  GMRAUTL3  GMRAY17  GMRAY19  GMRAY21  GMRAY29  
GMRAY36  GMRAY38  GMRAY40  
Kernel 1 ^ORD(101  
National Drug File 1 PSNCLING  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for GMRA FIX
HDR ; -- header code
PHDR ;
INIT ;Initialize variables, etc
LIST ; -- obtain and display list of free text allergies
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
CHKSEL ;Evaluate selection if done by number
DESELECT ;Un-highlight selected choices
AEA ; Entry for GMRA LOCAL ALLERGIES EDIT option
PROCESS(TYPE) ;API to mark all entries as entered in error or update entries to new reactant
EIE ;Mark individual entry as entered in error
DECEASED(GMRAIFN) ;Function returns 1 if patient is deceased, 0 if living
ADCOM(ENTRY,TYPE,COM) ;Add comment to allergy
  • ICR #4783
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^DIC AEA+4, ADCOM+4
    $$FIND1^DIC PHDR+2
    ^DIE AEA+14, ADCOM+8
    $$GET1^DIQ EN+6
    ^DIR EN+11, CHKSEL+7, PROCESS+16
    PROCESS^GMRAFUT0 AEA+1
    $$GETNUM^GMRAFX3 PROCESS+3
    $$GETTYPE^GMRAFX3 EN+2
    $$LOCK^GMRAFX3 CHKSEL+10, PROCESS+5
    EIE^GMRAFX3 EIE+1
    UPDATE^GMRAFX3 PROCESS+23
    WAIT^GMRAFX3 EN+7, HELP+6, CHKSEL+8, AEA+1, PROCESS+8
    $$TESTPAT^VADPT LIST+11
    DEM^VADPT DECEASED+4
    EN^VALM EN+14
    SHOW^VALM PHDR+3
    FULL^VALM1 HELP+1, EXIT+1, CHKSEL+8, AEA+1, AEA+3, PROCESS+2
    CNTRL^VALM10 CHKSEL+10, DESELECT+2
    SET^VALM10 LIST+21
    $$FMADD^XLFDT LIST+24
    $$FMTE^XLFDT EN+9
    $$NOW^XLFDT ADCOM+3
    $$REPEAT^XLFSTR LIST+21
    $$UP^XLFSTR LIST+14

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"The list is currently being built by another user so this option is",!,"temporarily unavailable. Please try again in a few minutes."
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: !,$$GET1^DIQ(200,I,.01)
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !,"Building list of "_$S(LTYPE="FREE":"free text",LTYPE="ING":"ingredient",1:"drug class")_" allergies...this may take a few minutes",!
    • Line Location: EN+12
    Function Call: WRITE
    • Prompt: !!,"Use AE to add local allergies to the GMR ALLERGY file. This",!,"should only be done if you're sure no existing reactant matches your needs."
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: !!,"Use EE to mark all entries within the selected group as entered",!,"in error. You may select multiple groups if you like."
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !!,"Use DD to get a detailed display. It's highly recommended that you",!,"use the detailed display menu to make all changes."
    • Line Location: HELP+4
    Function Call: WRITE
    • Prompt: !!,"Use UR to update the reactant. Extreme caution should be used when doing",!,"mass updates. It would be better to do the updates from within",!,"the detailed display menu.",!
    • Line Location: HELP+5
    Function Call: WRITE
    • Prompt: !,"Invalid selection."
    • Line Location: CHKSEL+8
    Function Call: WRITE
    • Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE"
    • Line Location: AEA+5
    Function Call: WRITE
    • Prompt: !!,"You should use the detailed display option to review entries in",!,"this group before doing a mass update. CHANGES CANNOT BE UN-DONE!"
    • Line Location: PROCESS+8
    Function Call: WRITE
    • Prompt: !!,"You are about to ",$S(TYPE="E":"mark",1:"update")," ALL allergies with the selected reactant ",!,$S(TYPE="E":"as entered in error.",1:"to a new reactant."),!
    • Line Location: PROCESS+9
    Function Call: WRITE
    • Prompt: !!,"Updating ",$P(ENTRY,U)," reactions"
    • Line Location: PROCESS+20
    Routine Call
    • DIC
    • Line Location:
      • AEA+4
      • ADCOM+4
    Routine Call
    • DIC
    • Line Location:
      • PHDR+2
    Routine Call
    • DIE
    • Line Location:
      • AEA+14
      • ADCOM+8
    Routine Call
    • DIR
    • Line Location:
      • EN+11
      • CHKSEL+7
      • PROCESS+16
    Routine Call
    • VALM
    • Line Location:
      • EN+14
    Routine Call
    • VALM
    • Line Location:
      • PHDR+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ORD(101 - [#101] FIND1^DIC
    ^GMRD(120.82 - [#120.82] Classic Fileman Calls
    ^VA(200 - [#200] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR(120.8 - [#120.8] LIST+5, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10, LIST+11, LIST+12, ADCOM+3
    ^GMRD(120.82 - [#120.82] LIST+4, AEA+5, AEA+6, AEA+15
    ^XTMP("GMRAFX" EN+3, EN+4, EN+6, EN+8, EN+9, EN+11!, EN+12, EN+13*, EN+15!, INIT+1
    LIST+3!*, LIST+15*, LIST+16*, LIST+18, LIST+20, LIST+21, LIST+22*, LIST+23!, LIST+24*, DESELECT+2
    , PROCESS+18

    Label References

    Name Line Occurrences
    $$DECEASED LIST+10
    @( PROCESS+22
    DESELECT EXIT+2, CHKSEL+5, CHKSEL+6

    Naked Globals

    Name Field # of Occurrence
    ^(0 INIT+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COM ADCOM~, ADCOM+7
    DA AEA+2~, AEA+4*, ADCOM+1~, ADCOM+5*
    DA(1 ADCOM+2*, ADCOM+3
    DFN DECEASED+1~, DECEASED+3*
    DIC AEA+2~, AEA+4*!, ADCOM+1~, ADCOM+3*, ADCOM+6!
    DIC("A" AEA+4*
    DIC("DR" AEA+4*
    DIC(0 AEA+4*, ADCOM+3*
    DIE AEA+2~, AEA+7*, ADCOM+1~, ADCOM+6*
    DIR EN+1~, CHKSEL+1~, CHKSEL+7!, PROCESS+1~
    DIR("?" EN+10*, PROCESS+11*, PROCESS+12*, PROCESS+13*, PROCESS+14*, PROCESS+15*
    DIR("A" EN+10*, PROCESS+10*
    DIR("B" EN+10*, PROCESS+10*
    DIR("V" CHKSEL+7*
    DIR(0 EN+10*, CHKSEL+7*, PROCESS+10*
    DLAYGO AEA+2~, AEA+4*!
    DR AEA+2~, AEA+7*, ADCOM+1~, ADCOM+7*
    DR(1 AEA+8*, AEA+10*, AEA+11*, AEA+12*
    DT LIST+24
    DUZ EN+13, EN+15, LIST+3, ADCOM+7
    ENTRY PROCESS+1~, PROCESS+18*, PROCESS+19, PROCESS+20, ADCOM~, ADCOM+2
    GMRAAR PROCESS+1~
    GMRACT AEA+2~, AEA+7*
    GMRADONE PROCESS+1~, PROCESS+22*, PROCESS+23
    GMRAI PROCESS+1~, PROCESS+17*, PROCESS+18
    GMRAIEN LIST+1~, LIST+5*, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10, LIST+11, LIST+12, LIST+16
    AEA+2~, AEA+4*, AEA+5, AEA+6, AEA+15
    GMRAIFN DECEASED~, DECEASED+2, DECEASED+3
    GMRAJ PROCESS+1~, PROCESS+19*, PROCESS+21*, PROCESS+22
    GMRALN AEA+2~, AEA+6*, AEA+8
    GMRAOTH LIST+1~, LIST+4*, LIST+6
    GMRAPA PROCESS+1~, PROCESS+22*
    GMRASURE PROCESS+1~
    GMRATXT LIST+1~, LIST+12*, LIST+13*, LIST+14, LIST+15, LIST+16
    GMRAUTXT LIST+1~, LIST+14*, LIST+15, LIST+16
    GMRAX AEA+2~
    GMRAY AEA+2~
    I EN+1~, EN+6*
    >> IORVOFF CHKSEL+10, DESELECT+2
    >> IORVON CHKSEL+10
    J CHKSEL+1~, CHKSEL+10*, DESELECT+1~, DESELECT+2*, PROCESS+1~, PROCESS+5*
    LTYPE EN+1~, EN+2*, EN+3, EN+4, EN+6, EN+7, EN+8, EN+9, EN+11, EN+12
    EN+13, EN+15, HDR+1, INIT+1, LIST+3, LIST+6, LIST+7, LIST+8, LIST+15, LIST+16
    LIST+18, LIST+20, LIST+21, LIST+22, LIST+23, LIST+24, PROCESS+18
    NMBR EN+1~, CHKSEL+5, CHKSEL+6, CHKSEL+7*, CHKSEL+8!, CHKSEL+10, CHKSEL+11!, CHKSEL+12*, DESELECT+2, DESELECT+3!
    , PROCESS+3*, PROCESS+5, PROCESS+6!, PROCESS+7*, PROCESS+17, PROCESS+18
    NUM CHKSEL+1~, CHKSEL+3*, CHKSEL+4, CHKSEL+5, PROCESS+1~, PROCESS+18*
    REBLD EN+1~, EN+11*, EN+12
    ROOT PROCESS+1~, PROCESS+19*, PROCESS+21
    SP1 LIST+1~, LIST+20*, LIST+21
    SP2 LIST+1~, LIST+20*, LIST+21
    SP3 LIST+1~, LIST+20*, LIST+21
    STOP PROCESS+1~, PROCESS+18*, PROCESS+21
    TMP CHKSEL+1~, CHKSEL+10*, DESELECT+1~, DESELECT+2*, PROCESS+5*
    TNMBR CHKSEL+1~, CHKSEL+9*, CHKSEL+10*, CHKSEL+11, CHKSEL+12, PROCESS+1~, PROCESS+4*, PROCESS+5*, PROCESS+6, PROCESS+7
    TXT LIST+1~, LIST+18*, LIST+20, LIST+21, LIST+22
    TYPE PROCESS~, PROCESS+8, PROCESS+9, PROCESS+13, PROCESS+20, PROCESS+22, ADCOM~, ADCOM+7
    U EN+9, INIT+1, LIST+6, LIST+7, LIST+8, LIST+10, LIST+11, LIST+12, LIST+24, AEA+8
    , PROCESS+20
    UP LIST+1~, LIST+18*, LIST+20, LIST+21, LIST+22
    VADM DECEASED+1~
    VADM(6 DECEASED+5
    >> VALMBCK INIT+1*, LIST+2*, HELP+6*, CHKSEL+2*, AEA+1*, AEA+3*, PROCESS+2*
    >> VALMBG INIT+1*
    >> VALMCNT INIT+1*, LIST+2*, LIST+19*, LIST+20, LIST+21, LIST+22, LIST+24, CHKSEL+7
    >> VALMHDR(1 HDR+1*
    >> VALMSG PHDR+1*
    >> VALMWD INIT+1*, CHKSEL+10, DESELECT+2
    X CHKSEL+1~, CHKSEL+7*, AEA+2~, ADCOM+1~, ADCOM+3*
    >> XQORM("#" PHDR+2*
    >> XQORNOD(0 CHKSEL+3, CHKSEL+7
    Y EN+1~, EN+11, CHKSEL+1~, CHKSEL+8, AEA+2~, AEA+4, PROCESS+1~, PROCESS+16, ADCOM+1~, ADCOM+4
    , ADCOM+5
    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