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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRBLPCS

Package: Lab Service

Routine: LRBLPCS


Information

LRBLPCS ;AVAMC/REG - COMPONENT SELECTION FOR PATIENTS ;8/4/95 06:32 ;

Source Information

Source file <LRBLPCS.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 7 ^LRBLPA  EN^LRBLPCS1  ^LRBLPCSS  (CK,EN)^LRBLPUS  ^LRDPA  (V,YN)^LRU  DD^LRX  
VA FileMan 3 ^DIE  ^DIWP  ^DIWW  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Lab Service 3 LRBLPCS  LRBLPCSS  LRBLPLOGIN  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
P
EN1
OP
EN3
G
H
A
EN2
L
M
N
DEL
END
EN

External References

Name Field # of Occurrence
^DIE OP+6
^DIWP EN2+2
^DIWW EN2+3
^LRBLPA EN1+1
EN^LRBLPCS1 OP+7
^LRBLPCSS OP+4
CK^LRBLPUS LRBLPCS+3
EN^LRBLPUS EN1+3
^LRDPA P
V^LRU LRBLPCS+3, END
YN^LRU LRBLPCS+9, OP+2, EN3+3, EN+1
DD^LRX M, N+4
$$FMTE^XLFDT H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: LRBLPCS+5
Function Call: WRITE
  • Prompt: !?20,LRAA(4),!!?15,"Selection of blood components for a patient"
  • Line Location: LRBLPCS+6
Function Call: WRITE
  • Prompt: !,"Display instructions for component selected "
  • Line Location: LRBLPCS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"No units currently assigned/xmatched"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"Is patient Pre-op "
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: $C(7),!,"You must answer 'YES' or 'NO' to enter component request.",!,"Do you want to enter component request at this time "
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+6
Function Call: WRITE
  • Prompt: $C(7),!,"No DATA NAME in file 60 for ",$P(X,"^")
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !?10,"No ",$P(S(A,B),"^",2)," results "
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !?10,$P(S(A,B),"^",3)," Last ",$P(S(A,B),"^",2),": ",$P(S(A,B),"^")," ",$P(S(A,B),"^",4)," ",$P(S(A,B),"^",5)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,23),?24,$J($P(X,"^",4),3),?30
  • Line Location: L+2
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+2
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+2
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$J(B,2),")",?5,$P(X,"^"),?20,$E($P(M,"^"),1,21),?42,$J($P(X,"^",7),2),?45,$P(X,"^",8),?49
  • Line Location: N+4
Function Call: WRITE
  • Prompt: Y,?67,L
  • Line Location: N+4
Function Call: WRITE
  • Prompt: !,"FOR TRANSFUSION REQUESTS: Display instructions for components "
  • Line Location: EN+1
Routine Call
  • DIE
  • Line Location:
    • OP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] G, G+2
^LAB(61 - [#61] H+3
^LAB(66 - [#66] EN3, EN2+2, L+1, L+2, N+3
^LR - [#63] EN1+6, G+3, L+1!, DEL*!, DEL+1!
^LRD(65 - [#65] EN1+4, N+1!, N+2
^UTILITY($J EN2!
^VA(200 - [#200] L+2

Label References

Name Line Occurrences
A EN3+1
DEL EN3+3
EN1 P+2
END LRBLPCS+4, LRBLPCS+5, LRBLPCS+9, P+2
G EN3
H G+3
L EN1+6
M L+2
N EN1+4
OP OP+2
P P+2

Naked Globals

Name Field # of Occurrence
^( EN1+6, EN3, G+3, EN2+2, N+2
^(0 G, G+2, L+1*, L+2, DEL+1*
^(3 N+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLPCS+9*, OP+2*, OP+3, EN3+3*, EN+1*
>> A EN1+4*, EN1+6*, EN3*, EN3+1*, A, A+1, A+2, EN2+2*, N+1, N+2
>> B EN1+4*, EN1+5, EN1+6*, EN3+1*, G+3*, A, A+1, A+2, N, N+4
C OP+8!, EN3, EN3+1, EN3+4, A+2, EN2+2, DEL, DEL+1
C( EN3*, EN3+1, A+2
>> DA OP+5*
DIC P!, P+1!
DIE P+1!, OP+5*, OP+6!
>> DIWF EN2+1*
>> DIWL EN2+1*
>> DIWR EN2+1*
DR P+1!, OP+5*, OP+6!
>> E EN3*, G+2, G+3, G+4, H+3
>> F EN3*, G, G+2, G+4, H+3
>> G G+2*, G+3
>> H G+2*, H+3
>> I(0 EN3+1!, EN3+2, G+2*, G+4, H+3, A+3*
IOM EN2+1, EN*
>> K EN2+2*, EN2+3
>> L N+2*, N+4*
>> LRAA(4 LRBLPCS+6
>> LRCPT OP+1*
LRDATE H~*, H+1*, H+2*, H+3
>> LRDFN P+2, EN1+4, EN1+6, OP+5, G+3, L+1, N+1, DEL, DEL+1
>> LRJ LRBLPCS+7*
LRK OP+7, OP+8!
LRK( EN3+4*
>> LRLLOC EN1+1
LRO LRBLPCS+9*, EN!, EN+1*
>> LRP EN1, EN1+2
>> LRPABO EN1+2
>> LRPRH EN1+2
>> LRQ EN1+5
LRR OP!, EN3+3*, EN3+4
>> LRSS LRBLPCS+5
>> LRV OP+3*, OP+4
>> LRV(1 OP+3*, EN3
>> M N+3*, N+4
Q EN3+2!, EN3+3!, A+1*, A+2*
Q("Q" EN1+1
S OP+8!, G+3*
S( EN3, G+4*, H+3*, A, A+1, A+2
>> SSN(1 EN1+2
>> W G+3*, H
>> X EN1+6*, EN3*, G*, G+1, G+2, G+3*, H+3, EN2+2*, L, L+2
, N+2*, N+3, N+4, DEL+1*
>> X(1 DEL+1*
>> X(2 DEL+1*
>> Y LRBLPCS+4, EN3+3*, L*, L+1*, L+2*, M, N+4*
>> Z G+2*, H+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All