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 |  Marked Items |  All
Print Page as PDF
Routine: GMRAPES0

Package: Adverse Reaction Tracking

Routine: GMRAPES0


Information

GMRAPES0 ;HIRMFO/RM-SELECT PATIENT ALLERGY TO EDIT ;11/16/07 10:26

Source Information

Source file <GMRAPES0.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 5 ^DIC  YN^DICN  GETS^DIQ  ^DIR  EN^DIWE  
National Drug File 3 ALL^PSN5067  $$TGTOG^PSNAPIS  (DIC,IX)^PSNDI  
Adverse Reaction Tracking 2 EN1^GMRAHLP0  ADAR^GMRAPES1  
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  
MailMan 1 ^XMD  
Toolkit 1 ($$SCREEN,SCREEN)^XTID  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Adverse Reaction Tracking 4 GMRAEER0  GMRAFX3  GMRAPEM0  GMRAPVDE  
Order Entry Results Reporting 1 ORWDAL32  

Entry Points

Name Comments DBIA/ICR reference
Q1 ;
YNDRG ;
MORE()
GETINPUT(GMRAET) ;Allow user to add comment to message
MESS ;Provide help for sending email message
YNOTH
MATCHES ; -- List matches for NDF
NPA
NDF ;find partial matches and select from NDF
EN1 ; GIVEN DFN, SELECT PATIENT ALLERGY
DUPCHK(X,Y,Z) ;CHECK FOR ENTERED IN ERROR
DIC ; VALIDATE LOOKUP FOR A/AR
SENDREQ(USER,PAT,TEXT,GMRAET) ;Send email to GMRA REQUEST NEW REACTANT indicating user's request for a new allergy
  • ICR #4374
    • Status: Active
    • Usage: Private
    ING
    PAL
    CLASS
    YNOK

    External References

    Name Field # of Occurrence
    ^DIC PAL+2, NPA+2
    YN^DICN YNOK, DUPCHK+7
    GETS^DIQ SENDREQ+8
    ^DIR NDF+19, YNOTH+5, MORE+3
    EN^DIWE GETINPUT+7
    EN1^GMRAHLP0 EN1+4
    ADAR^GMRAPES1 NPA+3, NDF+4, NDF+21, ING+3, CLASS+3
    ALL^PSN5067 NDF+8
    $$TGTOG^PSNAPIS NDF+9, NDF+11, NDF+12
    DIC^PSNDI NDF+3
    IX^PSNDI ING+1, CLASS+1
    $$DT^XLFDT NDF+3, NDF+8, ING+1, CLASS+1
    $$UP^XLFSTR EN1+5
    ^XMD SENDREQ+26
    $$SCREEN^XTID NDF+9, NDF+11
    SCREEN^XTID NDF+9, NDF+11

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Prompt: "Enter Causative Agent: "
    • Formatting: !!
    • Timeout: DTIME
    • Variable: GMRALAR
    • Line Location: EN1+3
    Function Call: WRITE
    • Prompt: !!,"Checking existing PATIENT ALLERGIES (#120.8) file for matches...",!
    • Line Location: PAL+1
    Function Call: WRITE
    • Prompt: !!,"Now checking GMR ALLERGIES (#120.82) file for matches...",!
    • Line Location: NPA+0
    Function Call: WRITE
    • Prompt: !!,"Now checking the National Drug File - Generic Names (#50.6)",!
    • Line Location: NDF+2
    Function Call: WRITE
    • Prompt: !!,"Now checking the National Drug File - Trade Names (#50.67)",!
    • Line Location: NDF+5
    Function Call: WRITE
    • Prompt: !!,"Now checking the INGREDIENTS (#50.416) file for matches...",!
    • Line Location: ING+0
    Function Call: WRITE
    • Prompt: !!,"Now checking VA DRUG CLASS (50.605) file for matches...",!
    • Line Location: CLASS+0
    Function Call: WRITE
    • Prompt: !!,"Could not find ",GMRALAR," in any files."
    • Line Location: YNOTH+0
    Function Call: WRITE
    • Prompt: !!,"Before sending an email requesting the addition of a new reactant, please",!,"try entering the first 3 or 4 letters of the reactant to search for",!,"the desired entry.",!
    • Line Location: YNOTH+1
    Function Call: WRITE
    • Prompt: !,"Would you like to send an email requesting ",GMRALAR,!,"be added as a causative agent?"
    • Line Location: YNOTH+2
    Function Call: WRITE
    • Prompt: !!,"Error - Message not sent - ",$P(X,U,2)
    • Line Location: YNDRG+3
    Function Call: WRITE
    • Prompt: !!,"Message sent - NOTE: This reactant was NOT added for this patient."
    • Line Location: YNDRG+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: YNDRG+5
    Function Call: WRITE
    • Prompt: !?3,X," OK"
    • Line Location: YNOK+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: YNOK+0
    Function Call: WRITE
    • Prompt: !?5,$C(7),"ANSWER YES IF THIS IS THE CORRECT ALLERGY/ADVERSE REACTION,",!?5,"ELSE ANSWER NO."
    • Line Location: YNOK+1
    Function Call: WRITE
    • Prompt: !,?5,$C(7),"This Agent has been Entered in Error once before.",!,?5,"Are you sure you want to select this Agent again"
    • Line Location: DUPCHK+6
    Function Call: WRITE
    • Prompt: !,?10,"ENTER 'Y' FOR YES OR 'N' FOR NO"
    • Line Location: DUPCHK+8
    Function Call: WRITE
    • Prompt: !!,"Choose from the following "_+$G(CNT)_" matches:"
    • Line Location: MATCHES+2
    Function Call: WRITE
    • Prompt: !,J," ",$P(LST(I),"^",2)
    • Line Location: MATCHES+5
    Function Call: WRITE
    • Prompt: !,"Enter YES to send an email to the allergy coordinator(s) indicating that",!,"Reactant--> ",GMRALAR,!,"was not found when you were trying to add it for this patient.",!,"Enter NO to try entering the reactant again."
    • Line Location: MESS+1
    Function Call: WRITE
    • Prompt: !!,"You may now add any comments you may have to the message that",!,"is going to be sent with the request to add this reactant."
    • Line Location: GETINPUT+5
    Function Call: WRITE
    • Prompt: !,"You may want to add things like sign/symptoms, observed or historical, etc",!,"that may be useful to the reviewer.",!
    • Line Location: GETINPUT+6
    Routine Call
    • DIC
    • Line Location:
      • PAL+2
      • NPA+2
    Routine Call
    • DIR
    • Line Location:
      • NDF+19
      • YNOTH+5
      • MORE+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(120.8 - [#120.8] Classic Fileman Calls
    ^GMRD(120.82 - [#120.82] Classic Fileman Calls
    ^DPT - [#2] GETS^DIQ
    ^VA(200 - [#200] GETS^DIQ
    ^PS(50.416 - [#50.416] Classic Fileman Calls
    ^PS(50.605 - [#50.605] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR(120.8 - [#120.8] Q1+1, DUPCHK+2, DUPCHK+3, DUPCHK+4, DUPCHK+5
    ^TMP($J GETINPUT+2*, GETINPUT+8, GETINPUT+9!

    Label References

    Name Line Occurrences
    $$DUPCHK YNOK
    $$MORE MATCHES+4
    $$SENDREQ YNDRG+2
    CLASS CLASS+4
    DIC PAL+2, NPA+2, NDF+3, NDF+20, ING+1, CLASS+1
    EN1 EN1+4, PAL+2, PAL+3, NPA+2, NPA+3, NPA+4, NDF+4, NDF+20, NDF+21, ING+2
    , ING+3, ING+4, CLASS+2, CLASS+3, CLASS+4, YNOTH+7
    GETINPUT YNDRG+1
    ING ING+4
    MATCHES NDF+16
    NPA NPA+4
    PAL PAL+3
    Q1 EN1+3, EN1+4, PAL+2, PAL+3, PAL+4, NPA+2, NPA+3, NPA+4, NDF+4, NDF+20
    , NDF+21, ING+2, ING+3, ING+4, CLASS+2, CLASS+3, CLASS+4, YNOTH+6
    YNOK YNOK+2

    Naked Globals

    Name Field # of Occurrence
    ^(0 Q1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % Q1+2!, YNOK*, DUPCHK+1~, DUPCHK+6*, DUPCHK+7*, DUPCHK+8, DUPCHK+10
    %Y DUPCHK+1~, DUPCHK+7
    CNT EN1+1~, NDF+7*, NDF+9*, NDF+12*, NDF+13, NDF+14, NDF+15, NDF+17, MATCHES+2, SENDREQ+3~
    , SENDREQ+9*, SENDREQ+10*, SENDREQ+11*, SENDREQ+12*, SENDREQ+13*, SENDREQ+14*, SENDREQ+15*, SENDREQ+16*, SENDREQ+17*, SENDREQ+18*
    , SENDREQ+19*, SENDREQ+20*, SENDREQ+21*, SENDREQ+22*, SENDREQ+23*, SENDREQ+24*
    D ING+1*, CLASS+1*, Q1+2!
    DA Q1+2!
    >> DFN YNDRG+2, YNOK
    DGSENFLG PAL*, PAL+2!
    DIC PAL*, PAL+2!, NPA+2*!, NDF+3*!, ING+1*!, CLASS+1*!, Q1+2!, GETINPUT+1~, GETINPUT+3*
    DIC("S" PAL*, NPA+1*, NDF+3*, ING+1*, CLASS+1*
    DIC("W" PAL*, NPA+2*
    DIC(0 PAL*, NPA+2*, NDF+3*, ING+1*, CLASS+1*
    DIR EN1+1~, MORE+1~
    DIR("?" NDF+18*, YNOTH+4*
    DIR("A" NDF+17*, YNOTH+3*, MORE+2*
    DIR("B" YNOTH+4*
    DIR(0 NDF+17*, YNOTH+4*, MORE+2*
    DIWEPSE GETINPUT+1~, GETINPUT+4*
    DTIME EN1+3
    DTOUT PAL!, PAL+2!, NPA+2!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, Q1+2!, DIC+1, MORE+1~
    DUOUT PAL!, PAL+2!, NPA+2!, NDF+1!, NDF+6!, ING+1!, CLASS+1!, Q1+2!, DIC+2, MORE+1~
    DUZ YNDRG+2, SENDREQ+4, SENDREQ+7
    DWLW GETINPUT+1~, GETINPUT+4*
    DWPK GETINPUT+1~, GETINPUT+4*
    GMRAAR NPA+3*, NDF+4*, NDF+21*, ING+3*, CLASS+3*, Q1+2!
    GMRAAR("O" NPA+3*, NDF+4*, NDF+21*, ING+3*, CLASS+3*
    GMRAAR(0 NPA+3*, NDF+4*, NDF+21*, ING+3*, CLASS+3*
    GMRAET EN1+1~, YNDRG+1, YNDRG+2, SENDREQ~, SENDREQ+18, SENDREQ+19, GETINPUT~, GETINPUT+8*
    GMRAET( SENDREQ+18
    GMRAET(0 SENDREQ+18
    GMRAGOUT EN1+1~, DUPCHK+1~*, DUPCHK+2, DUPCHK+3, DUPCHK+10*, DUPCHK+13*, DUPCHK+14
    GMRAHLP EN1+4*, Q1+2!
    GMRAING Q1+2!
    GMRALAGO PAL+4, Q1+2!
    GMRALAR EN1+3*, EN1+4, EN1+5*, NPA+2, NDF+3, NDF+7, ING+1, CLASS+1, YNOTH, YNOTH+2
    , YNDRG+2, Q1+2!, MESS+1
    >> GMRANAM PAL
    >> GMRANEW EN1+3*
    >> GMRAOUT EN1+3*, EN1+4, PAL+2*, PAL+3, NPA+2*, NPA+3, NPA+4, NDF+4, NDF+20*, NDF+21
    , ING+2*, ING+3, ING+4, CLASS+2*, CLASS+3, CLASS+4, YNOTH+6*, DIC+1*, YNOK*, DUPCHK+3
    , DUPCHK+7*
    GMRAPA EN1+3*, PAL+3*, NPA+3, NDF+4, NDF+21, ING+3, CLASS+3, Q1+1, DUPCHK+1~, DUPCHK+3*
    , DUPCHK+4, DUPCHK+5
    GMRAPA(0 Q1+1*
    GMRAPI SENDREQ+3~
    GMRAPI(2 SENDREQ+11
    GMRAPS SENDREQ+3~, SENDREQ+8*, SENDREQ+11
    >> GMRARET EN1+2*, EN1+3*
    GMRATXT SENDREQ+3~
    GMRATXT( SENDREQ+10*, SENDREQ+11*, SENDREQ+12*, SENDREQ+13*, SENDREQ+14*, SENDREQ+15*, SENDREQ+16*, SENDREQ+17*, SENDREQ+18*, SENDREQ+19*
    , SENDREQ+20*, SENDREQ+21*, SENDREQ+22*, SENDREQ+23*, SENDREQ+24*
    GMRAUI SENDREQ+3~
    GMRAUI(200 SENDREQ+11, SENDREQ+14, SENDREQ+15, SENDREQ+16
    GMRAUS SENDREQ+3~, SENDREQ+8*, SENDREQ+11, SENDREQ+14, SENDREQ+15, SENDREQ+16
    I MATCHES+1~, MATCHES+3*, MATCHES+5
    IOSL MATCHES+4
    J MATCHES+1~, MATCHES+3*, MATCHES+4*, MATCHES+5, SENDREQ+3~, SENDREQ+18*
    LST EN1+1~
    LST( NDF+9*, NDF+12*, NDF+19, MATCHES+3, MATCHES+5
    LST(1 NDF+14
    NAM EN1+1~, NDF+10*, NDF+11, NDF+12
    PAT SENDREQ~, SENDREQ+8
    PSNDA Q1+2!
    PSODA Q1+2!
    QUIT MATCHES+1~, MATCHES+3*, MATCHES+4*
    ROOT EN1+1~, NDF+7*, NDF+9, NDF+10
    TEXT SENDREQ~, SENDREQ+4, SENDREQ+10, SENDREQ+24
    U NDF+4, NDF+9, NDF+12, NDF+14, NDF+19, NDF+21, YNDRG+3, DUPCHK+2, DUPCHK+4, SENDREQ+18
    USER SENDREQ~, SENDREQ+4, SENDREQ+8
    X PAL*, PAL+2*, PAL+3, NPA+2*, NPA+4, NDF+3*, NDF+7*, NDF+8, NDF+9, NDF+10
    , NDF+14*, NDF+19*, ING+1*, ING+3, ING+4, CLASS+1*, CLASS+3, CLASS+4, YNDRG+2*, YNDRG+3
    , YNDRG+4, Q1+2!, DIC+1*, YNOK, DUPCHK~, DUPCHK+2, DUPCHK+4, MORE+1~
    XMDUZ SENDREQ+3~, SENDREQ+5*
    XMMG SENDREQ+3~, SENDREQ+27
    XMSUB SENDREQ+3~, SENDREQ+5*
    XMTEXT SENDREQ+3~, SENDREQ+25*
    XMY SENDREQ+3~
    XMY( SENDREQ+7*
    XMY("G.GMRA R EQUEST NEW REACTANT" , SENDREQ+6*
    XMZ SENDREQ+3~
    Y PAL!, PAL+3, NPA+2!, NPA+3, NPA+4, NDF+1!, NDF+4, NDF+6!, NDF+13*, NDF+14*
    , NDF+19*, NDF+21, ING+1!, ING+3, ING+4, CLASS+1!, CLASS+3, CLASS+4, YNOTH+6, YNOTH+7
    , Q1+2!, DIC+2*, YNOK*, DUPCHK~, DUPCHK+3, MORE+1~, MORE+4
    Y(0 PAL+2, NPA+3, NDF+14*, NDF+19*, NDF+21
    Z DUPCHK~, DUPCHK+2

    Marked Items

    Name Field # of Occurrence
    $T(SCREEN^XTID NDF+9, NDF+11
    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 |  Marked Items |  All