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 |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  MIX^DIC1  YN^DICN  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Adverse Reaction Tracking 1 DELREAC^GMRAPER1  
Health Data and Informatics 1 NTRTMSG^HDISVAP  
Toolkit 1 ($$SCREEN,SCREEN)^XTID  

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

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRAPER2  GMRAU851  

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

External References

Name Field # of Occurrence
^%DT DATE+6
^DIC ADD+4
MIX^DIC1 STRIN+2
YN^DICN YNOK, ASKAN+1
^DIR RRD+7
DELREAC^GMRAPER1 MANIL+4
NTRTMSG^HDISVAP ADDG+2
$$FMTE^XLFDT PRTREAC+8, DATE+4, DATE+5
$$REPEAT^XLFSTR DSPREAC+15, PRTREAC+4
$$SCREEN^XTID RRD+15
SCREEN^XTID RRD+15

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
Routine Call
  • DIC
  • Line Location:
    • ADD+4
Routine Call
  • DIR
  • Line Location:
    • RRD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(120.83 - [#120.83] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XUSEC("GMRA-ALLERGY VERIFY" CHC+1

Label References

Name Line Occurrences
$$CHC DSPREAC+7
ADD RRD+14, RRD+16
ADDG STRIN+3, YNOK+2
ADREAC NOREAC, RRD+17
ASKAN STRIN+3, YNOK+2, ASKAN+1
DATE NOREAC+7
DSPREAC RELIST
LIST RELIST+5
MANIL MANIL+3
NOREAC DSPREAC+1
PRTREAC DSPREAC+19, DSPREAC+27
Q1 RELIST+2
RELIST RELIST+4
SETT ADD+5, ADD+6, YNOK+3
STRIN STRIN+2, STRIN+3, YNOK+2, ASKAN+3
YNOK YNOK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q1+1!, STRIN+3, YNOK*, YNOK+1, YNOK+2, ASKAN+1*, ASKAN+2, ADDG+1*, ADDG+2*, ADDG+3
, ADDG+4~
%DT DATE+2~, DATE+3*
%DT("A" DATE+3*
%DT("B" DATE+4*, DATE+5*
%DT(0 DATE+6*
ASK DATE~, DATE+1, DATE+7*
>> D STRIN+2*
DATE DATE~, DATE+3*, DATE+4, DATE+5, DATE+7*
DIC Q1+1!, ADD+4*, STRIN+2*!
DIC("S" ADD+4*, STRIN+2*
DIC(0 ADD+4*, STRIN+2*
DIR RRD+1!, RRD+7!
DIR("?" RRD+4*, RRD+5*, RRD+6*
DIR("A" RRD+3*
DIR(0 RRD+1*, RRD+2*
DTIME MANIL+1, STRIN+1
DTOUT RRD+8, STRIN+2!, STRIN+3
DUOUT RRD+9, STRIN+2!, STRIN+3
DUZ CHC+1
ERR ADREAC+1!, RRD+15*, RRD+17
GMADATE Q1+1!, NOREAC+5*, NOREAC+6*, NOREAC+7, NOREAC+13, NOREAC+14, NOREAC+19, NOREAC+20, NOREAC+22!, PRTREAC+7
>> GMRAASK NOREAC+4*, NOREAC+7, RRD+12*
GMRACHC DSPREAC+4!
GMRACHC( DSPREAC+7*, DSPREAC+8*, DSPREAC+24, DSPREAC+25, DSPREAC+26
GMRACHC(0 DSPREAC+12, DSPREAC+16
GMRACTR Q1+1!, DSPREAC+4*, MANIL+1, MANIL+3, CHC+1*
GMRADATE Q1+1!, PRTREAC+7
GMRADO Q1+1!, RRD+11*, RRD+13
>> GMRANDT DSPREAC+14, NOREAC+7, PRTREAC+3, PRTREAC+8
>> GMRAODT NOREAC+6
GMRAOK Q1+1!
>> GMRAOTH EN1+1, NOREAC+20, ADDG+4
>> GMRAOUT RELIST+2, RELIST+4, RELIST+5*, MANIL+1*, NOREAC+3, NOREAC+7, RRD+8*, RRD+9*, RRD+10, STRIN+1*
, STRIN+3*, YNOK+1*, YNOK+2, ASKAN+2*, ADDG+3*, ADDG+4, DATE+6*
>> GMRAPA(0 RELIST+2, RELIST+4, CHC+1, DATE+4, DATE+5
GMRAPC Q1+1!
GMRAPDAT PRTREAC+1~, PRTREAC+7*, PRTREAC+8
>> GMRAPRP( DSPREAC+19, DSPREAC+27
GMRAR10 Q1+1!
GMRAR10( ADREAC+3, RRD+15, ADD+6
GMRAR10(11 EN1+1*
GMRAR10(6 ADREAC+4
GMRARAD EN1+1!
GMRARAD( NOREAC+11, NOREAC+12, NOREAC+13*, NOREAC+14, SETT+3*
GMRARADD Q1+1!
GMRARADD("DONE" NOREAC+12, NOREAC+13*
GMRARDL EN1+1!
GMRARDL( SETT+2!
GMRAREAC Q1+1!, DSPREAC+4*, DSPREAC+5*, DSPREAC+6, DSPREAC+7, DSPREAC+8, DSPREAC+18*, DSPREAC+19, DSPREAC+26*, DSPREAC+27
, ADREAC+3*, CHC+1, PRTREAC+6, PRTREAC+7, SETT+2*, SETT+3, STRIN+2*, YNOK+2
GMRARECN Q1+1!, DSPREAC+6*, DSPREAC+7, DSPREAC+8, DSPREAC+17*, DSPREAC+19, DSPREAC+25*, DSPREAC+27, CHC+1, PRTREAC+6
, PRTREAC+7, SETT+2*, SETT+3
GMRAROT EN1+1!
GMRAROT( NOREAC+17, NOREAC+18, NOREAC+19*, NOREAC+20, ADDG+4*
GMRAROTD EN1+1!
GMRAROTD( ADDG+4!
GMRAROTT Q1+1!
GMRAROTT("DONE" NOREAC+18, NOREAC+19*
GMRARPR Q1+1!, NOREAC+1
GMRARPR( DSPREAC+5, DSPREAC+6, NOREAC+14*, NOREAC+20*, CHC+1, PRTREAC+6, PRTREAC+7, SETT+3*, ADDG+4*
GMRARPR("" LIST+2, RELIST+2, RELIST+4, DSPREAC+1
GMRAX Q1+1!, NOREAC+8~, NOREAC+11*, NOREAC+12, NOREAC+13, NOREAC+14, NOREAC+17*, NOREAC+18, NOREAC+19, NOREAC+20
GMRAY Q1+1!, RRD+11!, RRD+13*, RRD+14, RRD+15, ADD+2, ADD+6
U RELIST+2, RELIST+4, DSPREAC+8, DSPREAC+25, DSPREAC+26, NOREAC+12, NOREAC+13, NOREAC+14, NOREAC+18, NOREAC+19
, NOREAC+20, ADREAC+3, ADREAC+4, RRD+15, CHC+1, PRTREAC+6, PRTREAC+7, SETT+2, STRIN+1, YNOK
, YNOK+2, DATE+4, DATE+5
X Q1+1!, DSPREAC+16*, DSPREAC+18, DSPREAC+24*, DSPREAC+25, DSPREAC+26, MANIL+1*, MANIL+2*, MANIL+3, MANIL+4
, PRTREAC+2, PRTREAC+6, STRIN+1*, STRIN+2, YNOK+2*, ADDG+1, ADDG+2, ADDG+4, DATE+2~, DATE+6
Y Q1+1!, DSPREAC+7*, DSPREAC+8, DSPREAC+16*, DSPREAC+17, RRD+10, RRD+11!, RRD+13*, ADD+1~, ADD+3
, ADD+5, ADD+6*, SETT+1, SETT+2, STRIN+3, YNOK, YNOK+2, DATE+2~, DATE+7

Marked Items

Name Field # of Occurrence
$T(NTRTMSG^HDISVAP ADDG+2
$T(SCREEN^XTID RRD+15
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 |  Local Variables |  Marked Items  | All