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

Package: Adverse Reaction Tracking

Routine: GMRALAB1


Information

GMRALAB1 ;HIRMFO/WAA-THIS PROGRAM WILL SELECT ALL LAB TEST FOR A PATIENT ;1/9/96 09:48

Source Information

Source file <GMRALAB1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  
Adverse Reaction Tracking 2 (DISP,LST)^GMRALAB0  $$VALST^GMRALAB1  

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 GMRALAB0  GMRALAB1  

Entry Points

Name Comments DBIA/ICR reference
EDIT ;EDIT EXISTING DATA
EDITLST ; DISPLAY TO EDIT FIELD
EEDT
ADD ;This is to allow the user to select a LAB TEST
ADDED
ADD2 ;This is to allow the patient's lab test to be added.
DEL ;This entry point is to delete a lab entry from the Adverse Reaction file.
LDATE(X) ;This function takes X and will return Y
VALST(LST,SUB) ; GIVEN LST, THIS FUNCTION RETURNS 1 IF LIST VALID, ELSE 0

External References

Name Field # of Occurrence
^DIC EEDT+1, DEL+3
FILE^DICN ADDED+16
YN^DICN ADDED+12
^DIE EEDT+4, ADDED+21, ADD2+1
^DIK DEL+7
DISP^GMRALAB0 ADD+1, ADDED+3
LST^GMRALAB0 EDITLST+1
$$VALST^GMRALAB1 ADDED+7

Interaction Calls

Name Line Occurrences
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: !,"Enter the number of the TX/Test 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 OF THE ENTRY YOU WANT OR ""N"" FOR A NEW TEST"
  • Line Location: ADDED+2
Function Call: WRITE
  • Prompt: !,$C(7),"INVALID SELECTION PLEASE SELECT ONE OF THE TEST/TX LISTED OR ""N"" FOR A NEW TEST"
  • Line Location: ADDED+7
Function Call: WRITE
  • Prompt: !,"Do You still want to add this one"
  • Line Location: ADDED+12
Function Call: WRITE
  • Prompt: !,"ENTER YES TO ADD THE TEST/TX OR NO TO SELECT ANOTHER"
  • Line Location: ADDED+12
Function Call: WRITE
  • Prompt: !,"THERE IS NO LAB DATA SELECTED FOR THIS PATIENT"
  • Line Location: DEL+1
Routine Call
  • DIC
  • Line Location:
    • EEDT+1
    • DEL+3
Routine Call
  • DIE
  • Line Location:
    • EEDT+4
    • ADDED+21
    • ADD2+1

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] EDIT+1, ADDED+10, ADDED+15, DEL+1
^TMP($J ADD+2, ADDED+9, ADDED+17, ADDED+18, ADDED+19, ADDED+21, VALST+6

Label References

Name Line Occurrences
ADD ADD+2, ADDED+6, ADDED+7
ADD2 ADD+2, ADDED+6
ADDED ADDED+2

Naked Globals

Name Field # of Occurrence
^(0 ADDED+15*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADD+2!, ADDED+10!, ADDED+12*, ADDED+22!
A VALST+1~, VALST+6*
DA EEDT!, EEDT+4*, EEDT+5!, ADDED+20*, ADDED+22!, ADD2+1*, ADD2+3!, DEL+2!, DEL+6!, DEL+7*
, DEL+8!
DA(1 EEDT+1*, EEDT+4*, ADDED+16*, DEL+3*, DEL+7*
DD ADDED+14!, ADDED+22!
DIC EEDT!, EEDT+1*!, ADDED+16*, ADDED+20, ADDED+21!, DEL+2!, DEL+3*, DEL+6!, DEL+8!
DIC(0 EEDT+1*, ADDED+16*, DEL+3*
DIE EEDT!, EEDT+4*, EEDT+5!, ADDED+20*, ADDED+22!, ADD2+1*, ADD2+3!, DEL+2!
>> DIK DEL+7*
DLAYGO EEDT!, EEDT+1!, ADDED+16*!, ADD2+1*, DEL+2!, DEL+6!, DEL+8!
DO EEDT!, ADDED+14!, ADDED+22!, DEL+2!, DEL+6!, DEL+8!
DR EEDT!, EEDT+4*, EEDT+5!, ADDED+20*, ADDED+21*, ADDED+22!, ADD2+1*, ADD2+3!, DEL+2!
DTIME ADDED+1
>> DTOUT EEDT+2, DEL+4
>> DUOUT EEDT+2, DEL+4
GMRALST ADDED+8*, VALST+2!, VALST+8!
GMRALST( ADDED+8, VALST+6*
>> GMRAOUT EEDT+2*, EEDT+3*, ADD+1*, ADDED+1*, ADDED+2, ADDED+3*, ADDED+8, ADDED+10, ADDED+12*, ADD2+2*
, DEL+4*, DEL+5*
>> GMRAPA1 EDIT+1, EEDT+1, EEDT+4, ADDED+10, ADDED+15, ADDED+16, ADD2+1, DEL+1, DEL+3, DEL+7
GMRARSLT ADDED+17*, ADDED+18*, ADDED+19*, ADDED+20, ADDED+22!
GMRAX EEDT+5!, ADDED+1*, ADDED+2, ADDED+5*, ADDED+6, ADDED+7, ADDED+8*, ADDED+9, ADDED+17, ADDED+18
, ADDED+19, ADDED+21, ADDED+22!
LST VALST~, VALST+3
SUB VALST~, VALST+6
U ADDED+9, ADDED+17, ADDED+18, ADDED+19, ADDED+21
X ADD+2, ADDED+6, ADDED+9*, ADDED+10, ADDED+11, ADDED+22!, LDATE~, LDATE+3, LDATE+4*, VALST+1~
, VALST+3*
Y EEDT+3, EEDT+4, ADDED+16, ADDED+20, ADDED+21!, ADD2+2, DEL+5, DEL+7, LDATE+2~, LDATE+3*
, LDATE+4*, LDATE+5, 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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All