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

Package: Lab Service

Routine: LRBLDUC


Information

LRBLDUC ; IHS/DIR/AAB - DONOR ABO/RH RECHECK 7/5/96 22:39 ;

Source Information

Source file <LRBLDUC.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 4 (S,SET)^LRBLWD  (D,V,YN)^LRU  ^LRUTL  X^LRUWK  
VA Fileman 3 ^DIC  MIX^DIC1  ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDUC  

Entry Points

Name Comments DBIA/ICR reference
END
REST
S ;from LRBLDUC input template only supervisor can edit data after release of components
CKRL
DNR
ASK

External References

Name Field # of Occurrence
^DIC ASK
MIX^DIC1 DNR
^DIE REST+4
S^LRBLWD LRBLDUC+4
SET^LRBLWD REST+7
D^LRU REST+3
V^LRU LRBLDUC+3, END
YN^LRU LRBLDUC+5
^LRUTL LRBLDUC+3
X^LRUWK LRBLDUC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter TEST COMMENT(s) "
  • Line Location: LRBLDUC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DNR+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Complete DONOR ID must be entered (ex. If ID=H12345 then H123 unacceptable)."
  • Line Location: DNR+1
Function Call: WRITE
  • Prompt: $C(7)," ",X," does not exist. Try again"
  • Line Location: DNR+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, someone else is editing this record"
  • Line Location: DNR+4
Function Call: WRITE
  • Prompt: !!,"UNIT#:",LRQ(1)," Donation date:",Y
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: $C(7),!?35,"Must have UNIT # to proceed."
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !,"One or more components were released. You may not edit existing test results."
  • Line Location: REST+6
Function Call: WRITE
  • Prompt: $C(7),!,"ABO/Rh testing not completed."
  • Line Location: S+2
Routine Call
  • DIE
  • Line Location:
    • REST+4
Routine Call
  • DIC
  • Line Location:
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRE - [#65.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRE - [#65.5] DNR+4, DNR+5, REST+2, REST+3, REST+5, ASK+1, CKRL
^LRE("C" DNR+3, REST+1
^XUSEC("LRBLSUPER" REST+6, S+1

Label References

Name Line Occurrences
ASK DNR+2
CKRL DNR+2, DNR+5
DNR DNR+1, DNR+2, DNR+3, DNR+4, DNR+5
END LRBLDUC+3, LRBLDUC+4, DNR
REST DNR+2, DNR+5

Naked Globals

Name Field # of Occurrence
^( REST+5, CKRL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLDUC+5*
>> A REST+5*, CKRL*
>> D DNR*
DA DNR!, REST+4*
DIC DNR*!, ASK*!
DIC("A" DNR*, ASK*
DIC("B" DNR*
DIC(0 DNR*, ASK*
DIE REST+4*!
DR REST+4*!
DUZ REST+6, S+1
LR DNR!, REST+5*
>> LRA( REST+5
>> LRB LRBLDUC+5*, DNR, REST+1*
LRC LRBLDUC+5*!
>> LRCAPA LRBLDUC+4, REST+7
>> LRI DNR+3*, DNR+4, DNR+5, REST+3, REST+5, ASK+1*, CKRL
>> LRM S+1, S+2
>> LRQ DNR+3*, DNR+4, DNR+5, REST+2, REST+3, REST+4, REST+5, ASK*, ASK+1, CKRL
>> LRQ(1 DNR+5*, REST+3, ASK+1*
LRR DNR!, REST+5, REST+6, S+1, CKRL*
U DNR, REST+2, S+1, S+2, ASK+1
>> W(5 REST+2*
>> W(6 REST+2*
>> X LRBLDUC+3*, LRBLDUC+4*, DNR, DNR+2, DNR+3, REST, REST+1, REST+2*
>> X(1 REST*
>> X(2 REST*, REST+1
>> X(3 REST*
>> Y LRBLDUC+3, LRBLDUC+4*, DNR+1, DNR+2, DNR+3, REST+3*, REST+7*, S+1*, S+2*, ASK
, ASK+1
>> Z S+1
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