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 Total: 12

Package Total Call Graph
Registration 4 ($$TESTPAT,DEM)^VADPT  (EN,SHOW)^VALM  FULL^VALM1  (CNTRL,SET)^VALM10  
VA Fileman 4 (,$$FIND1)^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Adverse Reaction Tracking 2 PROCESS^GMRAFUT0  ($$GETNUM,$$GETTYPE,$$LOCK,EIE,UPDATE,WAIT)^GMRAFX3  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$REPEAT,$$UP)^XLFSTR  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Adverse Reaction Tracking 12 GMRA FREE TEXT UTILITY  GMRAFX3  GMRAPNA  GMRAUTL2  GMRAUTL3  GMRAY17  GMRAY19  GMRAY21  
GMRAY29  GMRAY36  GMRAY38  GMRAY40  

Entry Points

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

    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
    • DIE
    • Line Location:
      • AEA+14
      • ADCOM+8
    Routine Call
    • VALM
    • Line Location:
      • PHDR+3
    Routine Call
    • DIR
    • Line Location:
      • EN+11
      • CHKSEL+7
      • PROCESS+16
    Routine Call
    • DIC
    • Line Location:
      • PHDR+2
    Routine Call
    • DIC
    • Line Location:
      • AEA+4
      • ADCOM+4
    Routine Call
    • VALM
    • Line Location:
      • EN+14

    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