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 |  All
Print Page as PDF
Routine: LRUG

Package: Lab Service

Routine: LRUG


Information

LRUG ; IHS/DIR/AAB - GET LRDFN 9/3/97 09:18 ; [ 07/22/2002 1:55 PM ]

Source Information

Source file <LRUG.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 EN1^LRDPA  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 DONATION OR DEFERRAL DATE  ^LRD(65  PATIENT XMATCHED/ASSIGNED  

Entry Points

Name Comments DBIA/ICR reference
CK
AUTO ;Check for autologous donor in patient file

External References

Name Field # of Occurrence
EN1^LRDPA LRUG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PATIENT: "
  • Line Location: LRUG+5
Function Call: WRITE
  • Prompt: !,LRP(1)
  • Line Location: LRUG+5
Function Call: WRITE
  • Prompt: $C(7),!!,LRP(0)," does not equal ",LRP(1)," "
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Dates of birth are different"
  • Line Location: CK+1
Function Call: WRITE
  • Prompt: !!,"Donor:",LRP," DOB:",LRB
  • Line Location: AUTO+1
Function Call: WRITE
  • Prompt: " SSN:",LRS(2)
  • Condition for execution: LRS(2)]""
  • Line Location: AUTO+1
Function Call: WRITE
  • Prompt: $C(7),!,LRP(0)," not entered in PATIENT FILE"
  • Line Location: AUTO+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] LRUG+5
^DPT("B" AUTO+2
^LR - [#63] LRUG+5

Label References

Name Line Occurrences
AUTO LRUG+3
CK LRUG+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRUG+5*
>> B LRUG+5*
DIC LRUG+4, LRUG+5!, LRUG+6*
DIC("W" LRUG+4, LRUG+6*
DIC(0 LRUG+4, LRUG+5*, LRUG+6*
LRA LRUG+3*, LRUG+5!, LRUG+7*
>> LRB AUTO+1
>> LRD CK+1
>> LRD(1 LRUG+5*, CK+1
>> LRDFN LRUG+5, LRUG+7, LRUG+9
>> LRP AUTO+1
>> LRP(0 CK, AUTO+2
>> LRP(1 LRUG+5*, CK
>> LRS(2 AUTO+1
LRSAVE LRUG+4~*, LRUG+6
LRSAVE("W" LRUG+4*, LRUG+6
LRSAVE(0 LRUG+4*, LRUG+6
>> LRT LRUG+3, LRUG+8
X LRUG+3, LRUG+5*, LRUG+7!, LRUG+8, LRUG+9*, CK!, CK+1!, AUTO+1, AUTO+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All