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

Package: Adverse Reaction Tracking

Routine: GMRAPHR1


Information

GMRAPHR1 ;HIRMFO/WAA,FT-ADD/DELETE/EDIT CONCOMITANT DRUGS ;4/6/05 14:18

Source Information

Source file <GMRAPHR1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Adverse Reaction Tracking 3 ^GMRADSP7  DISP^GMRAPHR0  $$VALST^GMRAPHR2  

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 GMRAFDA  GMRAROBS  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
SELECT
EDIT ;EDIT A DRUG
EDITLST ; DISPLAY TO EDIT FIELD
EEDT
QE
ADD ;SELECT ON OF THE DRUG OR FREE TEXT
ADDED
ADD2 ;
DEL ;
DQ
LST
EXIT ;EXIT LINE

External References

Name Field # of Occurrence
^DIC EEDT+1, DEL+3
FILE^DICN ADDED+14
YN^DICN ADDED+10
^DIE EEDT+3, ADDED+25, ADD2+2
^DIK DEL+6
^DIR SELECT+5
^GMRADSP7 EN1+5
DISP^GMRAPHR0 ADD+1
$$VALST^GMRAPHR2 ADDED+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !,?3,"YOU CANNOT EDIT WHEN THERE IS NO DATA ON FILE.",$C(7)
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"Select the DRUG RX you want to edit:",!
  • Line Location: EDITLST+1
Function Call: WRITE
  • Prompt: !,"Enter the number(s) of the DRUG to ADD or ""N"" for NEW: "
  • Line Location: ADDED+0
Function Call: READ
  • Variable: GMRAX
  • Timeout: DTIME
  • Line Location: ADDED+1
Function Call: WRITE
  • Prompt: !,"ENTER THE NUMBER(S) OF THE ENTRY YOU WANT OR ""N"" FOR A NEW DRUG"
  • Line Location: ADDED+2
Function Call: WRITE
  • Prompt: !,$C(7),"INVALID SELECTION PLEASE SELECT ONE OF THE DRUGS LISTED OR ""N"" FOR A NEW DRUG"
  • Line Location: ADDED+5
Function Call: WRITE
  • Prompt: !,"Do You still want to add this one"
  • Line Location: ADDED+10
Function Call: WRITE
  • Prompt: !,"ENTER YES TO ADD THE DRUG or NO TO SELECT ANOTHER"
  • Line Location: ADDED+10
Function Call: WRITE
  • Prompt: !,"THERE ARE NO DRUGS SELECTED FOR THIS PATIENT."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: "DELETED.."
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,"THIS PATIENT HAS NO CONCOMITANT DRUGS ON FILE"
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !!,"This patient has the following Drugs selected: ",!
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !,?10,$P(^(GMRAX,0),U)
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+3
Routine Call
  • DIC
  • Line Location:
    • EEDT+1
    • DEL+3
Routine Call
  • DIE
  • Line Location:
    • EEDT+3
    • ADDED+25
    • ADD2+2
Routine Call
  • DIR
  • Line Location:
    • SELECT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.85 - [#120.85] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.85 - [#120.85] EN1+4, EDIT+1, ADDED+8, ADDED+13, ADD2+1, DEL+1, LSTLST+2
^UTILITY("PSG" EN1+3!, EXIT+1!
^UTILITY("PSIV" EN1+3!, EXIT+1!

Label References

Name Line Occurrences
ADD SELECT+7, ADD+2, ADDED+2, ADDED+4, ADDED+5
ADD2 ADD+2, ADDED+4
ADDED ADDED+2
DEL SELECT+8
DQ DEL+4
EDIT SELECT+9
EXIT EN1+5, SELECT+5, SELECT+7, SELECT+8, SELECT+9
LST SELECTEDITLST+2
QE EEDT+2
SELECT SELECT+7, SELECT+8, SELECT+9, SELECT+10

Naked Globals

Name Field # of Occurrence
^( LST+2
^(0 ADDED+13*, ADD2+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADD+2!, ADDED+8!, ADDED+10*
DA EN1+2~, EEDT!, EEDT+3*, QE!, ADDED+15*, ADDED+25!, ADD2+2*, ADD2+3!, DEL+2!, DEL+5!
DEL+6*, DQ!
DA(1 EEDT+1*, EEDT+3*, ADDED+14*, DEL+3*, DEL+6*
DD ADDED+12!
DIC EEDT!, EEDT+1*!, QE!, ADDED+14*, ADDED+15!, DEL+2!, DEL+3*, DEL+5!, DQ!
DIC(0 EEDT+1*, ADDED+14*, DEL+3*
DIE EN1+2~, EEDT!, EEDT+3*, QE!, ADDED+15*, ADDED+25!, ADD2+2*, ADD2+3!, DEL+2!
DIK DEL+6*, DQ!
DIR SELECT+2!, SELECT+6!, EXIT+1!
DIR("?" SELECT+3*, SELECT+4*
DIR("A" SELECT+2*
DIR(0 SELECT+2*
DLAYGO EEDT!, QE!, ADDED+14*, ADD2+2*, DEL+2!, DQ!
DO EEDT!, ADDED+12!, DEL+2!, DEL+5!, DQ!
DR EEDT!, EEDT+3*, QE!, ADDED+16*, ADDED+18*, ADDED+19*, ADDED+22*, ADDED+23*, ADDED+25!, ADD2+2*
ADD2+3!, DEL+2!
DTIME ADDED+1
>> DTOUT EEDT+2, DEL+4
>> DUOUT EEDT+2, DEL+4
GMRABGDT EXIT+1!
>> GMRADT EN1+4*
GMRAENDT EXIT+1!
GMRAGHC EN1+2~
GMRALOOK SELECT+7*!
GMRALST ADDED+6*, EXIT+1!
GMRALST( ADDED+6
>> GMRAOUT EN1+1, SELECT+5*, SELECT+7, SELECT+8, SELECT+9, EEDT+2*, ADD+1*, ADDED+1*, ADDED+6, ADDED+8
ADDED+10*, DEL+4*
>> GMRAPA EN1+5
>> GMRAPA1 EN1+4, EDIT+1, EEDT+1, EEDT+3, ADDED+8, ADDED+13, ADDED+14, ADD2+1, ADD2+2, DEL+1
DEL+3, DEL+6, LSTLST+2
GMRARRAY EN1+3!, ADD+2, EXIT+1!
GMRARRAY("PH" ADDED+7, ADDED+16, ADDED+17, ADDED+18, ADDED+19, ADDED+21, ADDED+22, ADDED+23
GMRASEL SELECT+6*, SELECT+7, SELECT+8, SELECT+9, EXIT+1!
GMRAX EN1+2~, QE!, ADDED+1*, ADDED+2, ADDED+3*, ADDED+4, ADDED+5, ADDED+6*, ADDED+7, ADDED+16
ADDED+17, ADDED+18, ADDED+19, ADDED+21, ADDED+22, ADDED+23, ADDED+25!, LST+2*, LST+3!
GMRAXX LST+2*, LST+3!
GMRAXXX EN1+2~
IOF EN1+2
U EN1+4, ADDED+7, ADDED+16, ADDED+17, ADDED+18, ADDED+19, ADDED+21, ADDED+22, ADDED+23, LST+2
>> X ADD+2, ADDED+4, ADDED+7*, ADDED+8, ADDED+9
Y SELECT+5, SELECT+6, EEDT+2, EEDT+3, ADDED+14, ADDED+15, DEL+4, DEL+6, DQ!, EXIT+1!
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