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

Package: Adverse Reaction Tracking

Routine: GMRAPER0


Information

GMRAPER0 ; HIRMFO/WAA - REACTIONS SELECT ROUTINE ;May 11, 2021@12:02:09

Source Information

Source file <GMRAPER0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY POINT TO SELECT SIGNS/SYMPTOMS
LIST ; Display Signs/Symptoms
RELIST
Q1 ; Exit from program
DSPREAC ; Display all the patient reactions
MANIL ;
NOREAC
ADREAC ;This is the site parameter's top ten most common signs/symptoms
RRD ;
CHC() ; Check reaction to see if user can see and edit this reaction
PRTREAC ;
ADD ;
SETT ;
STRIN ;This will handle a string input
YNOK
ASKAN ;
ADDG ;
DATE(DATE,ASK) ; Enter the date for a reaction

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"No signs/symptoms have been specified. Please add some now."
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!,$C(7),"SIGNS/SYMPTOMS MUST BE SPECIFIED. THIS IS A REQUIRED RESPONSE."
  • Line Location: RELIST+4
Function Call: WRITE
  • Prompt: !!,"The following is the list of reported signs/symptoms for this reaction:"
  • Line Location: DSPREAC+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MANIL+1
Function Call: WRITE
  • Prompt: !!,"Select Action (A)DD",$S(GMRACTR>0:", (D)ELETE ",1:" "),"OR <RET>: "
  • Line Location: MANIL+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"ENTER AN A TO ADD SIGNS/SYMPTOMS TO THIS LIST,"
  • Line Location: MANIL+3
Function Call: WRITE
  • Prompt: !?10,"OR D TO DELETE SIGNS/SYMPTOMS FROM THIS LIST,"
  • Condition for execution: GMRACTR
  • Line Location: MANIL+3
Function Call: WRITE
  • Prompt: !?10,"OR <RET> TO ACCEPT THIS LIST OF SIGNS/SYMPTOMS."
  • Line Location: MANIL+3
Function Call: WRITE
  • Prompt: !!,"One or more entries you selected were inactive. Please use option 11",!,"to find a similar term to replace the inactive sign/symptom you selected."
  • Line Location: ADREAC+1
Function Call: WRITE
  • Prompt: !!,"The following are the top ten most common signs/symptoms:"
  • Line Location: ADREAC+2
Function Call: WRITE
  • Prompt: !,$J(GMRAREAC,2),".",?4,$P(GMRAR10(GMRAREAC),U,2),?35,$J(GMRAREAC+6,2),".",?39,$P(GMRAR10(GMRAREAC+6),U,2)
  • Line Location: ADREAC+3
Function Call: WRITE
  • Prompt: !?1,"6.",?4,$P(GMRAR10(6),U,2)
  • Line Location: ADREAC+4
Function Call: WRITE
  • Prompt: !!,$P(GMRAR10(+GMRAY),U,2)," is inactive and may not be used."
  • Line Location: RRD+15
Function Call: WRITE
  • Prompt: !?1,$S(X:$J(X,2),1:""),?5,$E($P(GMRARPR(GMRAREAC,GMRARECN),U),1,45)
  • Line Location: PRTREAC+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: STRIN+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER YES IF THE DATA ABOVE IS CORRECT, ELSE ANSWER NO."
  • Line Location: YNOK+0
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER YES TO ADD ANOTHER SIGN/SYMPTOM, ELSE ANSWER NO."
  • Line Location: ASKAN+1
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: ADDG+1
Function Call: WRITE
  • Prompt: !,X," is not in the Sign/Symptoms file."
  • Line Location: ADDG+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(120.83 - [#120.83] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call