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 ; IHS/DIR/AAB - PATIENT UNIT SELECTION 8/16/96 06:33 ;

Source Information

Source file <LRBLPUS.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 8 (BAR,P)^LRBLB  ^LRBLPA  ^LRBLPCS1  ^LRBLPUS1  EN1^LRBLU  ^LRDPA  (DT,V,YN)^LRU  ^LRUTL  
VA Fileman 1 ^DIC  

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
CK ;called by LRBLPX,LRBLJLA,LRBLAA,LRBLJL,LRBLPCS
C
EN ; from LRBLJL
END
G
M
L
REST ;Q:LRLLOC["DIED" W !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH D EN
N
P
S
R

External References

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

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+5
Function Call: WRITE
  • Prompt: !!?15,"Select only unassigned/uncrossmatched units "
  • Line Location: LRBLPUS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: !,LRP," ",HRCN,?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: READ
  • Prompt: "Blood component for unit selection: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,A,") ",Y," Acc # ",$P(Z(A),"^",3)
  • Line Location: G+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+3
Function Call: WRITE
  • Prompt: Y,?64,L
  • Line Location: N+3
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,27),?27,$J($P(X,"^",4),3),?33
  • Line Location: L+0
Function Call: WRITE
  • Prompt: Y,?47
  • Line Location: L+0
Function Call: WRITE
  • Prompt: Y,?47
  • 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+1
Function Call: WRITE
  • Prompt: $C(7),!,"TRANSFUSION REQUEST must be entered in LAB TEST file (#60).",!
  • Line Location: CK+2
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+3
Function Call: WRITE
  • Prompt: $C(7),!!,"There is no accession area for ",LRAA,!,"in the accession area file (#68)."
  • Line Location: CK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"There is no abbreviation entered for ",LRO(68),!,"in the accession area file (#68)."
  • Line Location: CK+5
Routine Call
  • DIC
  • Line Location:
    • C+2

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+2, CK+3
^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+4
^VA(200 - [#200] L

Label References

Name Line Occurrences
C C+1, C+2
CK LRBLPUS+3
EN REST+1
END LRBLPUS+3, LRBLPUS+6, P
G C+2
L REST+4
M L
N REST+3
P P
R G+2
REST P
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+6*
>> A REST+3*, REST+4*, G+1*, N+1, N+2, EN+1*
>> B REST+3*, REST+4*, G+1*, G+2, S, S+1, N, N+3
>> C G*, EN+1*
>> C(1 G*
>> C(19 G*
>> C(7 G*
>> C(8 G*
>> C(9 G*, R+1
DIC P!, C+2*!
DIC(0 C+2*
DIE P!
DR P!
DTIME C, S
DUZ(2 CK+3
G C+2!, G+2*, 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
>> HRCN REST+1
>> L N+2*, N+3*
>> LR C+1
>> LR("M" CK+1*
>> LR(2 C+1
>> LR(3 LRBLPUS+5*
>> LRAA CK+3*, CK+4
>> LRAA(4 LRBLPUS+5
>> LRABV CK+4*, CK+5
>> LRB LRBLPUS+4*
>> LRDFN P, REST+2, REST+3, REST+4, R+2, R+3, N+1, EN+1
>> LRI CK+2*, CK+3
>> LRK LRBLPUS+6*
>> LRLLOC REST+1
>> LRO(68 LRBLPUS+5, CK+4*, CK+5
>> 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+1
>> LRU(2 LRBLPUS+5*
>> LRV G*
>> M N+3*, EN+1*
>> Q("Q" P
S P!
U C, S, R+1, R+2, R+3, CK+3, CK+4
V P!
X REST+4*, C!*, C+1, G*, S*, S+1, N+2*, N+3, L, EN+1*
, CK+1*, CK+4*
>> Y LRBLPUS+3, C+2, G, G+1*, N+3*, L*, M*, CK+1*, CK+2*, CK+3*
, CK+4*, CK+5*
Z P!, G, G+1
Z( G+1, S+1
Z(1 G+2
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