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

Package: Lab Service

Routine: LRBLPUS


Information

LRBLPUS ;AVAMC/REG/CYM - PATIENT UNIT SELECTION ;08/15/01 1:15 pm

Source Information

Source file <LRBLPUS.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 9 ($$READ,$$STRIP,BAR,P)^LRBLB  ^LRBLPA  ^LRBLPCS1  ^LRBLPUS1  EN1^LRBLU  ^LRDPA  (V,YN)^LRU  ^LRUTL  
DD^LRX  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Lab Service 6 LRBLAA  LRBLJL  LRBLJLA  LRBLPCS  LRBLPIC  LRBLPX  

Entry Points

Name Comments DBIA/ICR reference
P
REST
C
G
S
R
N
L
M
EN ; from LRBLJL
CK ;called by LRBLPX,LRBLJLA,LRBLAA,LRBLJL,LRBLPCS
END

External References

Name Field # of Occurrence
^DIC C+5
$$READ^LRBLB C
$$STRIP^LRBLB C+3
BAR^LRBLB LRBLPUS+7
P^LRBLB C+2
^LRBLPA P+3
^LRBLPCS1 G+4
^LRBLPUS1 R+7
EN1^LRBLU LRBLPUS+5
^LRDPA P+1
V^LRU END
YN^LRU LRBLPUS+9
^LRUTL CK+1
DD^LRX G+6, N+5, M

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?24,"Selection of units for a patient",!!?28,LRAA(4),!?12,"Accession Area: ",LRO(68)
  • Line Location: LRBLPUS+6
Function Call: WRITE
  • Prompt: !!?15,"Select only unassigned/uncrossmatched units "
  • Line Location: LRBLPUS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have blood component request(s) on record to select units",!
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: C+3
Function Call: WRITE
  • Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",!
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !,A,") ",Y," Acc # ",$P(Z(A),"^",3)
  • Line Location: G+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !,"Select a number from 1 to ",B,!
  • Line Location: S+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Results on "_G(5)_" do not match the Patient's previous ABO/Rh history",!!,"Resolve the discrepancy before proceeding ",!
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !,$J(B,2),")",?6,$P(X,"^"),?17,$E($P(M,"^"),1,19),?38,$P(X,"^",7)_" "_$P(X,"^",8),?44
  • Line Location: N+4
Function Call: WRITE
  • Prompt: Y,?64,L
  • Line Location: N+5
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,23),?24,$J($P(X,"^",4),3),?30
  • Line Location: L+0
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+0
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,$C(7),"Units restricted for ",LRP
  • Condition for execution: M=1
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?15,$P(^LAB(66,$P(X,"^",4),0),"^")
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: CK+2
Function Call: WRITE
  • Prompt: $C(7),!,"TRANSFUSION REQUEST must be entered in LAB TEST file (#60).",!
  • Line Location: CK+3
Function Call: WRITE
  • Prompt: !!,$C(7),!!,"TRANSFUSION REQUEST in LAB TEST file (#60) must have an accession area",!,"assigned to your DIVISION.",!
  • Line Location: CK+4
Function Call: WRITE
  • Prompt: $C(7),!!,"There is no accession area for ",LRAA,!,"in the accession area file (#68)."
  • Line Location: CK+6
Function Call: WRITE
  • Prompt: !!,$C(7),"There is no abbreviation entered for ",LRO(68),!,"in the accession area file (#68)."
  • Line Location: CK+7
Routine Call
  • DIC
  • Line Location:
    • C+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] CK+3, CK+4
^LAB(61.3 - [#61.3] LRBLPUS+4
^LAB(66 - [#66] G, N+3, L, EN+1
^LR - [#63] REST+2, REST+4, R+2, R+3
^LRD(65 - [#65] REST+3, N+1!, N+2, EN+1
^LRO(68 - [#68] CK+5
^VA(200 - [#200] L

Label References

Name Line Occurrences
C C+6
CK LRBLPUS+3
EN REST+1
END LRBLPUS+3, LRBLPUS+9, P+2
G C+6
L REST+4
M L
N REST+3
P P+4
R G+7
REST P+4
S S

Naked Globals

Name Field # of Occurrence
^( REST+4, N+2
^(0 L, EN+1
^(3 N+2
^(4 EN+1
^(8 EN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLPUS+9*
>> A REST+3*, REST+4*, G+6*, N+1, N+2, EN+1*
>> B REST+3*, REST+4*, G+6*, G+7, S, S+1, N, N+4
>> C G*, EN+1*
>> C(1 G*
>> C(19 G*
>> C(7 G*
>> C(8 G*
>> C(9 G*, G+4, R+1
DIC P!, P+1!, C+5*!
DIC(0 C+5*
DIE P+1!
DR P+1!
DTIME S
DUZ(2 CK+4
G C+5!, G+7*, S+1*, R, R+1, R+6
G(1 R*
G(3 R*
G(4 R+1*, R+2, R+3
G(5 R+1*, R+5
G(6 R*, R+5*, R+6
>> L N+2*, N+5*
>> LR C+1
>> LR("M" CK+1*
>> LR(2 C+1
>> LR(3 LRBLPUS+7*
>> LRAA CK+4*, CK+5, CK+6
>> LRAA(4 LRBLPUS+6
>> LRABV CK+5*, CK+7
>> LRB LRBLPUS+4*, LRBLPUS+5
>> LRDFN P+2, P+4, REST+2, REST+3, REST+4, R+2, R+3, N+1, EN+1
>> LRI CK+3*, CK+4
LRJ G+4!
>> LRK LRBLPUS+9*
>> LRLLOC REST
>> LRO(68 LRBLPUS+6, CK+5*, CK+7
>> LRP REST+1, EN+1
>> LRPABO REST+1, R+5
>> LRPRH REST+1, R+5
LRSPABO R+2*, R+4, R+5!
LRSPRH R+3*, R+4, R+5!
>> LRSS CK+2
>> LRU(2 LRBLPUS+7*
>> LRV G*
>> M N+3*, N+4, EN+1*
>> Q("Q" P+4
S P!
>> SSN(1 REST+1
U C, S, R+1, R+2, R+3, CK+4, CK+5
V P!
X REST+4*, C!*, C+1, C+3, C+4, G*, S*, S+1, N+2*, N+3
, N+4, N+5, L, EN+1*, CK+1*, CK+5*, CK+6
>> Y LRBLPUS+3, C+6, G, G+6*, N+5*, L*, CK+1, CK+2*, CK+3*, CK+4*
, CK+6*, CK+7*
Z P+3!, G+4, G+6
Z( G+6, S+1
Z(1 G+7
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