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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRAPHR2

Package: Adverse Reaction Tracking

Routine: GMRAPHR2


Information

GMRAPHR2 ;HIRMFO/WAA,FT-ADD/DELETE/EDIT SUSPECT DRUGS ;9/11/96 10:49

Source Information

Source file <GMRAPHR2.m>

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  EN1^GMRAPEL0  DISP^GMRAPHR0  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Adverse Reaction Tracking 3 GMRAFDA  GMRAPHR1  GMRAROBS  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;EXIT LINE
VALST(LST,SUB) ; GIVEN LST, THIS FUNCTION RETURNS 1 IF LIST VALID, ELSE 0
ADDED
ADD2 ;
LST
EDIT ;EDIT A DRUG
ADD ;SELECTION OF A DRUG OR ENTER A NEW DRUG
EN1 ;
EDITLST ; DISPLAY TO EDIT FIELD
QE
SELECT
DEL ;
EEDT
DQ

External References

Name Field # of Occurrence
^DIC EEDT+1, ADD2+4, DEL+3
FILE^DICN ADDED+14
YN^DICN ADDED+10
^DIE EEDT+4, ADDED+27, ADD2+9
^DIK DEL+6
^DIR SELECT+4
^GMRADSP7 EN1+5
EN1^GMRAPEL0 EEDT+6, ADDED+28, ADD2+12
DISP^GMRAPHR0 ADD+1

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+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+8
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 RX/DRUG to ADD or ""N"" for NEW: "
  • Line Location: ADDED+0
Function Call: READ
  • Timeout: DTIME
  • Variable: GMRAX
  • 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 DRUG SELECTED FOR THIS PATIENT"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"THIS PATIENT HAS NO SUSPECTED AGENTS 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
Routine Call
  • DIE
  • Line Location:
    • EEDT+4
    • ADDED+27
    • ADD2+9
Routine Call
  • DIC
  • Line Location:
    • EEDT+1
    • ADD2+4
    • DEL+3
Routine Call
  • DIR
  • Line Location:
    • SELECT+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$VALST ADDED+5
ADD SELECT+6, ADD+2, ADDED+2, ADDED+4, ADDED+5
ADD2 ADD+2, ADDED+4
ADDED ADDED+2
DEL SELECT+7
DQ DEL+4
EDIT SELECT+8
EXIT EN1+5, SELECT+4, SELECT+6, SELECT+7, SELECT+8
LST SELECT, EDITLST+2
QE EEDT+2, EEDT+5
SELECT SELECT+6, SELECT+7, SELECT+8, SELECT+9

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADD+2!, ADDED+8!, ADDED+10*
A VALST+1~, VALST+6*
DA EN1+2~, EEDT!, EEDT+4*, EEDT+5, EEDT+6!, QE!, ADDED+17*, ADDED+27!, ADD2+7!, ADD2+8*
, ADD2+11, ADD2+12, ADD2+13!, DEL+2!, DEL+5!, DEL+6*, DQ!
DA(1 EEDT+1*, EEDT+4*, ADDED+14*, ADD2+4*, ADD2+9*, DEL+3*, DEL+6*
DD ADDED+12!, ADD2+1!
DIC EEDT!, EEDT+1*!, EEDT+6!, QE!, ADDED+14*, ADDED+15!, ADDED+17!, ADD2+4*, ADD2+7!, ADD2+8!
, DEL+2!, DEL+3*, DEL+5!, DQ!
DIC(0 EEDT+1*, ADDED+14*, ADD2+4*, DEL+3*
DIE EN1+2~, EEDT!, EEDT+4*, EEDT+6!, QE!, ADDED+17*, ADDED+27!, ADD2+9*, ADD2+13!, DEL+2!
DIK DEL+6*, DQ!
DIR SELECT+2!, SELECT+4!, EXIT+1!
DIR("?" SELECT+3*
DIR("A" SELECT+2*
DIR(0 SELECT+2*
DLAYGO EEDT!, EEDT+6!, QE!, ADDED+14*, ADD2+4*, ADD2+9*, ADD2+13!, DEL+2!, DQ!
DO EEDT!, ADDED+12!, ADD2+1!, DEL+2!, DEL+5!, DQ!
DR EEDT!, EEDT+4*, EEDT+6!, QE!, ADDED+18*, ADDED+20*, ADDED+21*, ADDED+24*, ADDED+25*, ADDED+27!
, ADD2+9*, ADD2+13!, DEL+2!
DTIME ADDED+1
DTOUT EEDT+2, EEDT+5, ADDED+15!, ADDED+28, ADD2+6, ADD2+10, DEL+4
DUOUT EEDT+2, EEDT+5, ADDED+15!, ADDED+28, ADD2+6, DEL+4
GMRABGDT EXIT+1!
>> GMRADT EN1+4*
GMRAENDT EXIT+1!
GMRAGHC EN1+2~
GMRALOOK SELECT+6*!
GMRALST ADDED+6*, VALST+2!, VALST+8!
GMRALST( ADDED+6, VALST+6*
>> GMRAOUT EN1+1, SELECT+4*, SELECT+6, SELECT+7, SELECT+8, EEDT+2*, ADD+1*, ADD+2*, ADDED+1*, ADDED+6
, ADDED+8, ADDED+10*, ADDED+15*, ADD2+6*, ADD2+7, ADD2+10*, ADD2+12, DEL+4*
>> GMRAPA EN1+5
>> GMRAPA1 EN1+4, EDIT+1, EEDT+1, EEDT+4, ADDED+8, ADDED+13, ADDED+14, ADD2+2, ADD2+3, ADD2+4
, ADD2+5, ADD2+9, ADD2+11, DEL+1, DEL+3, DEL+6, LST, LST+2
GMRARRAY EN1+3!, ADD+2, EXIT+1!
GMRARRAY( VALST+6
GMRARRAY("PH" ADDED+7, ADDED+18, ADDED+19, ADDED+20, ADDED+21, ADDED+23, ADDED+24, ADDED+25
GMRASEL SELECT+5*, SELECT+6, SELECT+7, SELECT+8, EXIT+1!
GMRASUS EEDT+3*, QE!, ADDED+27*, ADDED+29!, ADD2+12*, ADD2+13!
GMRAX EN1+2~, EEDT+6!, QE!, ADDED+1*, ADDED+2, ADDED+3*, ADDED+4, ADDED+5, ADDED+6*, ADDED+7
, ADDED+18, ADDED+19, ADDED+20, ADDED+21, ADDED+23, ADDED+24, ADDED+25, ADDED+27!, LST+2*
>> GMRAXX LST+2*
GMRAXXX EN1+2~
IOF EN1+2
LST VALST~, VALST+3
SUB VALST~, VALST+6
U EN1+4, ADDED+7, ADDED+18, ADDED+19, ADDED+20, ADDED+21, ADDED+23, ADDED+24, ADDED+25, ADD2+11
, LST+2
X ADD+2, ADDED+4, ADDED+7*, ADDED+8, ADDED+9, ADDED+28~, ADD2+11*, ADD2+12~, VALST+1~, VALST+3*
Y SELECT+4, SELECT+5, EEDT+2, EEDT+3, EEDT+4, EEDT+5, ADD+2, ADDED+16, ADDED+17, ADD2+7
, ADD2+8, ADD2+10, DEL+4, DEL+6, DQ!, EXIT+1!, VALST+1~, VALST+3*, VALST+4, VALST+5*
, VALST+6
Z VALST+1~, VALST+3*, VALST+4*, VALST+6*, VALST+8, VALST+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All