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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: GMRALAB0

Package: Adverse Reaction Tracking

Routine: GMRALAB0


Information

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

Source Information

Source file <GMRALAB0.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  C^%DTC  D^DIQ  ^DIR  
Adverse Reaction Tracking 2 ^GMRADSP7  ($$LDATE,ADD,DEL,EDIT)^GMRALAB1  
Health Summary 1 (GMTSLRCE,XTRCT)^GMTSLRCE  
Kernel 1 $$VERSION^XPDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Adverse Reaction Tracking 3 GMRAFDA  GMRALAB1  GMRAROBS  

Entry Points

Name Comments DBIA/ICR reference
DISP ;DISPLAY ALL THE LABTEST FOR THIS PATIENT
DTEX
EN1 ;THIS PROGRAM IS TO FIND AND PRINT ALL LAB TEST FOR A PATIENT
LST ;This entry point is to display patient lab test adverse reaction.
EXIT ;EXIT THE PROGRAM
DT ;SELECT LOOKUP DATE RANGE
DISP2
SELECT

External References

Name Field # of Occurrence
^%DT DT+4, DT+6
C^%DTC DT+4, DT+6
D^DIQ DT+4, DT+5, DT+6, DT+7
^DIR SELECT+6, DISP2+4, LST+6
^GMRADSP7 EN1+7
$$LDATE^GMRALAB1 LST+13
ADD^GMRALAB1 SELECT+8
DEL^GMRALAB1 SELECT+9
EDIT^GMRALAB1 SELECT+10
GMTSLRCE^GMTSLRCE EN1+3
XTRCT^GMTSLRCE DISP+5
$$VERSION^XPDUTL EN1+3

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+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+10
Function Call: WRITE
  • Prompt: @IOF,!,"LAB TEST:",!,?3,"Collection DT",?19,"Test Name",?39,"Specimen",?52,"Results",?68,"Hi/Low",!!
  • Line Location: DISP2+0
Function Call: WRITE
  • Prompt: ?50,$P(^TMP($J,"GMRALAB","L",GMRACH),U,5)
  • Line Location: DISP2+12
Function Call: WRITE
  • Prompt: $P(^TMP($J,"GMRALAB","L",GMRACH),U,8),"/",$P(^TMP($J,"GMRALAB","L",GMRACH),U,7)
  • Line Location: DISP2+14
Function Call: WRITE
  • Prompt: !,"THIS PATIENT HAS NO LAB TEST ON FILE FOR THIS ADVERSE REACTION REPORT"
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: @IOF,!,"This patient has the following Test selected: "
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,"TEST/TX",?33,"RESULTS",?64,"DRAW DATE/TIME"
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+3
Routine Call
  • DIR
  • Line Location:
    • SELECT+6
    • DISP2+4
    • LST+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISP+5
^GMR(120.85 - [#120.85] EN1+6, LST+1, LST+4, LST+11, LST+12, LST+13
^TMP($J EN1+5!, DISP+1!, DISP+9*, DISP2+1, DISP2+2, DISP2+9, DISP2+10, DISP2+11, DISP2+12, DISP2+13
, DISP2+14, EXIT+1!

Label References

Name Line Occurrences
DT DISP+3
DTEX DT+4, DT+6
EXIT EN1+1, SELECT+6, SELECT+8, SELECT+9, SELECT+10
LST SELECT
SELECT SELECT+8, SELECT+9, SELECT+10, SELECT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DT+4*!, DT+6*!, DTEX!
%DT("A" DT+4*, DT+6*
%DT("B" DT+4*, DT+6*
%DT(0 DT+6*
DA EN1+2~
>> DFN DISP+2*, DISP+5
DIE EN1+2~
DIR SELECT+3!, SELECT+6!, SELECT+7!, DISP2+5!, LST+7!, EXIT+1!
DIR("?" SELECT+4*, SELECT+5*
DIR("A" SELECT+3*
DIR(0 SELECT+3*, DISP2+4*, LST+6*
DIROUT DISP2+4, DISP2+5!, LST+6, LST+7!
DIRUT DISP2+5!, LST+7!
DTOUT DISP2+5!, LST+7!
DUOUT DISP2+5!, LST+7!
GMRABGDT DISP+5, DISP2+1!, LST+1!, DT+2*, DT+4, DT+5*, DT+6, EXIT+1!
GMRACH DISP+1*, DISP2+2*, DISP2+9, DISP2+10, DISP2+11, DISP2+12, DISP2+13, DISP2+14, DISP2+17!
GMRACT DISP+1*, DISP+7*, DISP+9*, DISP2+17!
GMRADFL SELECT+7!, SELECT+8, DT+3!, DT+4*, DT+6*, EXIT+1!
GMRADT EN1+6*, DT+4, DT+6, EXIT+1!
GMRAENDT DISP+5, DISP2+1!, LST+1!, DT+2*, DT+6, DT+7*, EXIT+1!
GMRAGHC EN1+2~
GMRALOOK SELECT+8*!, DISP+4*, DT+1, EXIT+1!
>> GMRALRCG EN1+4*, EN1+5, DISP+1, DISP+7, DISP+8, DISP+9, EXIT+1
>> GMRALRCV EN1+3*, EN1+4, DISP+5, DISP2+1
>> GMRAOUT EN1+1, SELECT+2*, SELECT+6*, SELECT+8, SELECT+9, SELECT+10, DISP+3, DISP2+2, DISP2+3, DISP2+4*
, DISP2+6, LST+4, LST+5, LST+6*, LST+8, DT+4*, DT+6*
>> GMRAPA EN1+7
>> GMRAPA(0 DISP+2
>> GMRAPA1 EN1+6, LST+1, LST+4, LST+11, LST+12, LST+13
GMRASEL SELECT+7*, SELECT+8, SELECT+9, SELECT+10, EXIT+1!
>> GMRASEX DISP+5
GMRAX EN1+2~, DISP+7*, DISP2+17!, LST+4*, LST+11, LST+12, LST+13, LST+16!
GMRAXX LST+4*, LST+11, LST+14*, LST+16!
GMRAXXX EN1+2~
GMRAY DISP+8*, DISP2+17!
GMRAZ DISP2+17!
GMTS1 DISP+5*, DISP+6!
GMTS2 DISP+5*, DISP+6!
IOF EN1+2, DISP2, DISP2+7, LST+2, LST+9
IOSL DISP2+3, LST+5
LRDFN DISP+5*, DISP+6!
MAX DISP+5*, DISP+6!
SEX DISP+5*, DISP+6!
U EN1+6, DISP+5, DISP2+9, DISP2+10, DISP2+11, DISP2+12, DISP2+13, DISP2+14, LST+11, LST+12
, LST+13, DT+5, DT+7
X DISP2+17!, DT+4, DT+6, DTEX!, EXIT+1!
X1 DT+4*, DT+6*, DTEX!
X2 DT+4*, DT+6*, DTEX!
Y SELECT+6, SELECT+7, DISP2+4, DISP2+5!, DISP2+17!, LST+6, LST+7!, DT+4*, DT+5, DT+6*
, DT+7, DTEX!, EXIT+1!
>> Z DISP2*, DISP2+9

Marked Items

Name Field # of Occurrence
$T(GMTSLRCE^GMTSLRCE EN1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All