Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRUG

Package: Lab Service

Routine: LRUG


Information

LRUG ;AVAMC/REG/CYM - GET LRDFN ;9/3/97 09:18 ;

Source Information

Source file <LRUG.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PATIENT: "
  • Line Location: LRUG+4
Function Call: WRITE
  • Prompt: !,LRP(1)
  • Line Location: LRUG+4
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
Info |  Source |  Entry Points |  Interaction Calls