Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; GIVEN DFN, SELECT PATIENT ALLERGY
PAL
NPA
NDF ;find partial matches and select from NDF
ING
CLASS
YNOTH
YNDRG ;
Q1 ;
DIC ; VALIDATE LOOKUP FOR A/AR
YNOK
DUPCHK(X,Y,Z) ;CHECK FOR ENTERED IN ERROR
MATCHES ; -- List matches for NDF
MORE()
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
    MESS ;Provide help for sending email message
    GETINPUT(GMRAET) ;Allow user to add comment to message

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Formatting: !!
    • Prompt: "Enter Causative Agent: "
    • Variable: GMRALAR
    • Timeout: DTIME
    • 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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call