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

Package: Lab Service

Routine: LRBLDT


Information

LRBLDT ; IHS/DIR/AAB - DONOR UNIT TESTING 7/5/96 08:35 ;

Source Information

Source file <LRBLDT.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 7 (D,DT)^LRBLU  EN^LRBLW  (S,SET)^LRBLWD  (D,V,YN)^LRU  ^LRUMSG  ^LRUTL  X^LRUWK  
VA Fileman 5 ^DIC  MIX^DIC1  FIELD^DID  ^DIE  $$EXTERNAL^DILFD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDT  

Entry Points

Name Comments DBIA/ICR reference
SC
ALL
END
D
SHOW
REST
MSG
S ;from LRBLDT input template only supervisor can edit data after release of components
R
CKRL
W
DNR
ASK
SEL

External References

Name Field # of Occurrence
^DIC ASK
MIX^DIC1 DNR
FIELD^DID MSG+1, W
^DIE REST+4
$$EXTERNAL^DILFD REST+5, MSG+2
D^LRBLU LRBLDT+3
DT^LRBLU LRBLDT+4
EN^LRBLW LRBLDT+4
S^LRBLWD LRBLDT+4
SET^LRBLWD REST+8
D^LRU REST+3
V^LRU LRBLDT+3, END
YN^LRU SHOW, SHOW+2, R
^LRUMSG MSG+4
^LRUTL LRBLDT+3
X^LRUWK LRBLDT+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select test(s) by number: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter one or more of the above numbers",!,"For 2 or more selections separate each with a ',' (ex. 12,13,15)",!,"Enter 'ALL' for all tests."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: $C(7),!,"None of the listed tests selected, try again "
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRF(A)
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!,"Enter TEST COMMENT(s) "
  • Line Location: SHOW+2
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),"Someone else is editing this record."
  • Line Location: DNR+4
Function Call: WRITE
  • Prompt: !!,"UNIT#:",LRQ(1)," ABO:",W(5)," Rh:",W(6)," 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+7
Function Call: WRITE
  • Prompt: $C(7),!!,LR("TXT",2,0)
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: Q
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: Q
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: D
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRA(A)
  • Line Location: W+0
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
65.54 EXTERNAL^DILFD,  FIELD^DID

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, MSG+1
^LRE("AT" R*, D!
^LRE("C" DNR+3, REST+1
^XUSEC("LRBLSUPER" REST+7, S+1

Label References

Name Line Occurrences
ALL SEL+1
ASK DNR+2
CKRL DNR+2, DNR+5
DNR DNR+1, DNR+2, DNR+3, DNR+4, DNR+5
END LRBLDT+3, LRBLDT+4, SEL, SHOW, SHOW+2, DNR
LRBLDT SHOW, SHOW+2
MSG REST+6
REST DNR+2, DNR+5
SC LRBLDT+5
SEL SEL, SEL+2, SEL+3
SHOW SEL+1
W SC, SC+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLDT+4, SHOW*, SHOW+2*, R*
>> A LRBLDT+5*, SHOW+1*, REST+5*, R, D, ALL*, CKRL*, SC, SC+1, W
>> B REST+5*
>> 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*!
DTIME SEL
DUZ REST+7, S+1
>> LR( REST+4*, REST+8
>> LR("KEY" MSG*
>> LR("SUB" MSG*
>> LR("TXT" REST+5*, MSG*, MSG+3*, MSG+4
>> LRA( SEL+4, REST+5, ALL, W*
>> LRA("LABEL" W
>> LRB SEL+4*, SHOW+2*, DNR, REST+1*
LRC SHOW+2*!
>> LRCAPA LRBLDT+4, REST+8
>> LRF SHOW
>> LRF( SEL+4*, SHOW+1, R, ALL*
>> LRH( SC+1
>> LRI DNR+3*, DNR+4, DNR+5, REST+3, REST+5, ASK+1*, R, D, CKRL, MSG+1
>> LRK LRBLDT+4
>> LRK("LRK" LRBLDT+4*
>> LRM S+1
>> LRQ DNR+3*, DNR+4, DNR+5, REST+2, REST+3, REST+4, REST+5, ASK*, ASK+1, R
, D, CKRL, MSG+1
>> LRQ(1 DNR+5*, REST+3, ASK+1*, R, D, MSG
LRR DNR!, REST+5, REST+7, S+1, CKRL*
>> LRV SEL+4*
LRZ DNR!, REST+5*, REST+6!
NAME MSG+1~*, MSG+3
NAME("LABEL" MSG+1
TYPE MSG+1~, MSG+2*, MSG+3
U SEL, DNR, REST+2, S+1, ASK+1, MSG+1
>> W(5 REST+2*, REST+3
>> W(6 REST+2*, REST+3
>> X LRBLDT+3*, LRBLDT+4*, SEL*, SEL+1, SEL+2, SEL+3, SEL+4, DNR, DNR+2, DNR+3
, REST, REST+1, REST+2*, REST+5*, MSG+1*, MSG+2
>> X(1 REST*
>> X(2 REST*, REST+1
>> X(3 REST*
>> Y LRBLDT+3, LRBLDT+4*, SEL+4*, DNR+1, DNR+2, DNR+3, REST+3*, REST+5*, REST+8*, S+1*
, 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