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

Package: Lab Service

Routine: LRBLP


Information

LRBLP ;AVAMC/REG - BLOOD BANK PATIENT OPTS ;4/11/94 07:55 ;

Source Information

Source file <LRBLP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 4 ^LRDPA  (CK,D,FRE,V,YN)^LRU  EN^LRUD  ^LRUTL  
VA FileMan 2 ^DIC  ^DIE  

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 5 LRBLPEDIT  LRBLPER  LRBLPSI  LRBLPTXR  LRBLSPP  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
B
E
C
O
PT
ASK
S
P
ABO
RH
TX
T
F
A
Z
M
END

External References

Name Field # of Occurrence
^DIC ASK, T
^DIE E+1, PT, ASK+1, S, T+1
^LRDPA B, PT, S, P+1, T
CK^LRU P+1
D^LRU C
FRE^LRU P
V^LRU END
YN^LRU F+6
EN^LRUD PT+1, T+1, F+6, F+7
^LRUTL Z

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"Edit transfusions entered via Previous records option"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!,"There are no transfusion records entered via previous records option."
  • Line Location: B+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 - ",B," to edit selection."
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,$J(B,3),") ",Y,?25,$P(X,"^",3)," ",$P(X,"^",5)," ",$P(X,"^",6)," "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!?10,"Blood bank patient data from old records"
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: $C(7),!,"For new entries only. No editing."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?10,"Blood bank patient special instructions"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !!?25,"Edit blood bank patient ABO/Rh"
  • Line Location: P+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ABO+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: A
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: !!?8,"Enter/edit transfusion reactions that do not have specific",!?18,"units associated with the reaction",!
  • Line Location: TX+0
Function Call: WRITE
  • Prompt: !
  • Line Location: T+0
Function Call: WRITE
  • Prompt: $C(7)," NOTHING TO DELETE !"
  • Line Location: F+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Units assigned/crossmatched."
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Any component requests, units assigned/crossmatched, transfusion records,",!,"RBC antigens present or absent, antibodies identified or blood bank comments",!,"must be removed before deletion allowed.",!
  • Line Location: F+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Blood bank data entered for this patient. Deletion not allowed!",!
  • Line Location: F+4
Function Call: WRITE
  • Prompt: $C(7),!,"ARE YOU SURE YOU WANT TO DELETE "
  • Line Location: F+6
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM: "
  • Line Location: F+8
Function Call: WRITE
  • Prompt: !?7,Y,?15," ",A
  • Line Location: F+8
Function Call: WRITE
  • Prompt: $C(7),!!,"Remove blood bank accession number ",$P(X,"^",6),!,"And then you can delete the ABO & RH entries.",!
  • Line Location: A+1
Function Call: READ
  • Variable: E
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"'^' TO STOP: "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+1
Routine Call
  • DIC
  • Line Location:
    • ASK
    • T
Routine Call
  • DIE
  • Line Location:
    • E+1
    • PT
    • ASK+1
    • S
    • T+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63 ABO, RH
^LAB(66 - [#66] C
^LR - [#63] B+1, PT+1, PT+2, P+1, T, T+1, F+1, F+4, F+6*, F+7*
, A, A+1
^LRD(65 - [#65] F+2
^TMP($J B+1!*, B+2, E+1

Label References

Name Line Occurrences
A F+4
ABO ABO
ASK ASK, ASK+1
B B+2, E, E+1
C B+1
E E
END B, O, PT, S, P+1, TX, T
F ABO, RH
M C
P P+1, ABO, RH, RH+1
PT ASK
RH RH
S S
T T, T+2
Z B, O, P+1, TX

Naked Globals

Name Field # of Occurrence
^( B+1
^(0 B+1, C, PT+2*, T*, A+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % F+6*
>> A B+1*, RH*, F+1*, F+8*
>> B B+1*, E, C
>> C C*
DA E+1!*, PT!*, PT+2!, ASK+1!*, S*, P+1!*, T+1*
DA(1 ASK*
DIC B!, PT!, ASK*!, S!, P+1!, T!*
DIC(0 ASK*, T*
DIE E+1*, PT*, PT+2!, ASK+1*, S*, P+1*, T+1*
DLAYGO ASK*!, T*!
DR E+1*, PT*, PT+2!, ASK+1*, S*, T+1*
DTIME E, ABO, RH, M
>> E B+1*, M*
LR PT+1, PT+2!, T*, T+1
LR("CK" P+1
>> LRABO P+1*, ABO
>> LRD ABO*, RH*, F, F+6, F+7
>> LRDFN B, B+1, E+1, PT, PT+2, ASK, ASK+1, S, P+1, T
, T+1, F+1, F+2, F+4, F+6, F+7, A, A+1
>> LRF ABO*, RH*, F+7, F+8
>> LRI E+1*, ASK+1*, T*, T+1, F+4*, A+1
LRK F+1*, F+2*, F+3!, F+4, A!*, A+1
>> LRLOKVAR P
LRM F+5!, A+1*
>> LRP ABO*, RH*, F+6, F+7
>> LRRH P+1*, RH
M PT+1*, PT+2!
O PT+1*, PT+2!, T+1*, F+6*, F+7*
U ASK, P+1, ABO, RH, T+1
W PT+1*, PT+2!
W( PT+1
>> X B+1*, E*, E+1, C, PT+1*, P+1*, ABO*, RH*, T+1*, F
, F+1, F+2, F+4, F+6*, F+7*, F+8*, A+1*, Z*
>> Y B, C*, O, ASK, ASK+1, ABO, RH, TX, T, F*
, F+3*, F+4*, F+6*, F+7*, F+8*, F+9*
>> Y(0 T
>> Z PT+1*, ABO*, RH*, T+1*
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