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 ; IHS/DIR/AAB - COMPONENT SELECTION FOR PATIENTS 8/4/95 06:32 ;

Source Information

Source file <LRBLPCS.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 6 ^LRBLPA  EN^LRBLPCS1  ^LRBLPCSS  (CK,EN)^LRBLPUS  ^LRDPA  (DT,V,YN)^LRU  
VA Fileman 3 ^DIE  ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLPCS  LRBLPCSS  LRBLPLOGIN  

Entry Points

Name Comments DBIA/ICR reference
A
EN
END
G
EN1 ;Q:'$D(LRP) D ^LRBLPA Q:$D(Q("Q"))!(LRLLOC["DIED") W LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH D EN^LRBLPUS
H
M
L
N
P
EN2
EN3
DEL
OP

External References

Name Field # of Occurrence
^DIE OP+3
^DIWP EN2
^DIWW EN2+1
^LRBLPA EN1+1
EN^LRBLPCS1 OP+3
^LRBLPCSS OP+1
CK^LRBLPUS LRBLPCS+3
EN^LRBLPUS EN1+1
^LRDPA P
DT^LRU N+3
V^LRU LRBLPCS+3, END
YN^LRU LRBLPCS+5, OP, EN3+2, EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: LRBLPCS+3
Function Call: WRITE
  • Prompt: !?20,LRAA(4),!!?15,"Selection of blood components for a patient"
  • Line Location: LRBLPCS+4
Function Call: WRITE
  • Prompt: !,"Display instructions for component selected "
  • Line Location: LRBLPCS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: LRP," ",HRCN,?42,$J(LRPABO,2),?45,LRPRH
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"No units currently assigned/xmatched"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"Is patient Pre-op "
  • Line Location: OP+0
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+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: $C(7),!,"No DATA NAME in file 60 for ",$P(X,"^")
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !?10,"No ",$P(S(A,B),"^",2)," results "
  • Line Location: A+0
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+1
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,27),?27,$J($P(X,"^",4),3),?33
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y,?47
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y,?47
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y,?47
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !,$J(B,2),")",?6,$P(X,"^"),?17,$E($P(M,"^"),1,24),?42,$J($P(X,"^",7),2),?45,$P(X,"^",8),?49
  • Line Location: N+3
Function Call: WRITE
  • Prompt: Y,?64,L
  • Line Location: N+3
Function Call: WRITE
  • Prompt: !,"FOR TRANSFUSION REQUESTS: Display instructions for components "
  • Line Location: EN+1
Routine Call
  • DIE
  • Line Location:
    • OP+3

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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