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

Package: Lab Service

Routine: LRBLDPA2


Information

LRBLDPA2 ;AVAMC/REG/CYM - BLOOD DONOR PRINT 6/26/96 20:57 ;

Source Information

Source file <LRBLDPA2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (H,M,S,V)^LRBLDPA1  D^LRU  
VA FileMan 1 FIELD^DID  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDPA1  

Entry Points

Name Comments DBIA/ICR reference
T
R
A ;donor antigen list from LRBLDPA1
C
L
P

External References

Name Field # of Occurrence
FIELD^DID T+1, T+3
H^LRBLDPA1 L
M^LRBLDPA1 LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T, R+3
S^LRBLDPA1 LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+1, R+2, A+5
V^LRBLDPA1 LRBLDPA2+6, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+2, R+1, R+2
D^LRU LRBLDPA2+3, LRBLDPA2+4, R

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"COLLECTION STARTED: ",Y
  • Line Location: LRBLDPA2+3
Function Call: WRITE
  • Prompt: ?40,"COMPLETED: ",Y
  • Line Location: LRBLDPA2+3
Function Call: WRITE
  • Prompt: !?9,"PROCESSED: ",Y,?40,"COLLECTION WT(gm): ",$P(LRZ,U,5)
  • Line Location: LRBLDPA2+4
Function Call: WRITE
  • Prompt: !,"EMPTY PRIMARY UNIT(gm): ",$P(LRZ,U,6),?40,"COLLECTION VOL(ml): ",$P(LRZ,U,7)
  • Line Location: LRBLDPA2+5
Function Call: WRITE
  • Prompt: !,"PROCESSING TECH: ",X
  • Line Location: LRBLDPA2+6
Function Call: WRITE
  • Prompt: !,"COLLECTION DISPOSITION: ",Y
  • Line Location: LRBLDPA2+8
Function Call: WRITE
  • Prompt: !,"COLLECTION DISPOSITION COMMENT:"
  • Condition for execution: E=1
  • Line Location: LRBLDPA2+9
Function Call: WRITE
  • Prompt: !?3,LRA
  • Line Location: LRBLDPA2+9
Function Call: WRITE
  • Prompt: !,"ABO INTERPRETATION: ",Y
  • Line Location: LRBLDPA2+10
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+10
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+10
Function Call: WRITE
  • Prompt: !,"ABO RECHECK: ",Y
  • Line Location: LRBLDPA2+11
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+11
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+11
Function Call: WRITE
  • Prompt: !,"RH INTERPRETATION: ",Y
  • Line Location: LRBLDPA2+12
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+12
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+12
Function Call: WRITE
  • Prompt: !,"RH RECHECK: ",Y
  • Line Location: LRBLDPA2+13
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+13
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+13
Function Call: WRITE
  • Prompt: !!,"COMPONENT PREPARED:"
  • Condition for execution: E=1
  • Line Location: LRBLDPA2+15
Function Call: WRITE
  • Prompt: !?3,$S($D(^LAB(66,X,0)):$P(^(0),U),1:X)
  • Line Location: LRBLDPA2+15
Function Call: WRITE
  • Prompt: !,NAME,": ",Y
  • Line Location: T+1
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,NAME,": ",$P(I,U,3)
  • Line Location: T+3
Function Call: WRITE
  • Prompt: ?40,"DISPOSITION DATE: ",Y
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"DATE STORED: ",Y
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"DATE STORED: ",Y
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"COMPONENT VOL(ml): ",$P(LRA,U,5)
  • Line Location: R+1
Function Call: WRITE
  • Prompt: ?40,"LABELING TECH:",X
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"DISPOSITION TECH:",X
  • Line Location: R+2
Function Call: WRITE
  • Prompt: ?40,"DISPOSITION: ",Y
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,"COMPONENT DISPOSITION COMMENT:"
  • Condition for execution: G=1
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !,LRB
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !,"Antigen(s) present",?40,"| Antigen(s) absent",!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: A+3
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"CMV ANTIBODY: ",Y
  • Line Location: A+5
Function Call: WRITE
  • Prompt: X
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?3,$P(^LAB(61.3,B,0),U)
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !?5,$P(LRB,U,2)
  • Condition for execution: $P(LRB,U,2)]""
  • Line Location: L+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] P
^LAB(61.3 - [#61.3] A+1, A+2, L
^LAB(66 - [#66] LRBLDPA2+15
^LR - [#63] P
^LRE - [#65.5] LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T+1, R+3, A+1, A+2, L

Label References

Name Line Occurrences
C A+3
L A+4
R LRBLDPA2+15
T LRBLDPA2+14

Naked Globals

Name Field # of Occurrence
^( LRBLDPA2+9, LRBLDPA2+15, T+1, R+3, L
^(0 LRBLDPA2+15
^(10 LRBLDPA2+10
^(11 LRBLDPA2+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T+1, R+3, A+4*, L
>> B A+1*, A+2*, L*
>> C LRBLDPA2+9*, LRBLDPA2+15*, R+3, L*
>> E LRBLDPA2+9*, LRBLDPA2+15*, A+1*, A+2*, A+3*
>> F R+3*
>> F( A+1*, A+3
>> F(1 A+1*, A+3
>> G R+3*, A+1*, A+2*
>> I LRBLDPA2+10*, LRBLDPA2+11, LRBLDPA2+12*, LRBLDPA2+13, T+1*, T+2, T+3, A+1*, A+2*
IOSL L
>> J( A+2*, A+3
>> J(1 A+2*, A+3
>> K A+2*, A+3*
>> LR LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T+1, R+3, A+1, A+2, L
>> LR("Q" LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+14, LRBLDPA2+15, T, R+3, A+4, A+5, L
>> LRA LRBLDPA2+9*, LRBLDPA2+15*, R, R+1, R+2
>> LRB R+3*, L*
>> LRF LRBLDPA2+15*, A+5*
>> LRX LRBLDPA2+7, LRBLDPA2+8, A+5
>> LRZ LRBLDPA2+3, LRBLDPA2+4, LRBLDPA2+5, LRBLDPA2+6, LRBLDPA2+14*, T+1, T+3
>> NAME T+1*, T+3*
>> NAME("LABEL" T+1, T+3
U LRBLDPA2+3, LRBLDPA2+4, LRBLDPA2+5, LRBLDPA2+6, LRBLDPA2+7, LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13
, LRBLDPA2+15, T+1, T+2, T+3, R, R+1, R+2, A+5, L, P
>> V A+1*, A+2*
>> X LRBLDPA2+6*, LRBLDPA2+8*, LRBLDPA2+10*, LRBLDPA2+11*, LRBLDPA2+12*, LRBLDPA2+13*, LRBLDPA2+15*, T+1*, T+2*, R+1*
, R+2*, A+3*, A+5*, C*, C+1, P*
>> Y LRBLDPA2+3*, LRBLDPA2+4*, LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+1, R*, R+2
, A+5, C*, P*
>> Z LRBLDPA2+8*, LRBLDPA2+10*, LRBLDPA2+11*, LRBLDPA2+12*, LRBLDPA2+13*, T+1*, R+2*, A+5*
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