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

Package: Lab Service

Routine: LRBLJLG


Information

LRBLJLG ;AVAMC/REG/CYM - BB INVENTORY LOG-IN 11/12/96 07:49 ; 11/22/00 2:21pm

Source Information

Source file <LRBLJLG.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 6 ($$READ,$$STRIP,A,BAR,D,P,T,U)^LRBLB  (,EN,EN1)^LRBLJLG1  S^LRBLW  (V,YN)^LRU  ^LRUTL  X^LRUWK  
VA FileMan 5 ^%DT  ^DIC  FIELD^DID  ^DIE  ^DIK  

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

Package Total Caller Graph
Lab Service 1 LRBLILR  

Entry Points

Name Comments DBIA/ICR reference
I
D
C
E
A
ED
S
H
END

External References

Name Field # of Occurrence
^%DT D, ED+3
^DIC C+3, C+5, E+8
FIELD^DID I+1, I+2, C+7, C+8
^DIE ED+17, ED+18
^DIK ED+18
$$READ^LRBLB C, E, A, ED
$$STRIP^LRBLB C+2, E+2, A+2, ED+2
A^LRBLB A+1
BAR^LRBLB LRBLJLG+5
D^LRBLB ED+1
P^LRBLB C+1
T^LRBLB A+2
U^LRBLB E+1
^LRBLJLG1 E
EN^LRBLJLG1 C+6
EN1^LRBLJLG1 E+10
S^LRBLW LRBLJLG+6
V^LRU END
YN^LRU E+11
^LRUTL LRBLJLG+4
X^LRUWK LRBLJLG+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"I need to know the name of your site (In the INSTITUTION file)."
  • Line Location: LRBLJLG+3
Function Call: WRITE
  • Prompt: !!?28,"Blood Component Log-In",!!?15,"Division: ",LRAA(4)
  • Line Location: LRBLJLG+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter INVOICE (or order) NUMBER: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !!,$C(7),HLP
  • Line Location: I+2
Function Call: READ
  • Formatting: !
  • Prompt: "DATE/TIME RECEIVED: NOW// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!,"Must enter a TIME. Future DATE/TIME not allowed.",!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !!,"Invoice number: ",LRI,!
  • 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: !
  • Line Location: C+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have at least one supplier for this component",!,"Please have appropriate person enter supplier(s) in ",$P(^LAB(66,0),U)," FILE (#66)",!
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7)," No spaces allowed."
  • Line Location: E+3
Function Call: WRITE
  • Prompt: $C(7)," Enter the Unit ID Without the Prefix"
  • Line Location: E+4
Function Call: WRITE
  • Prompt: !!,$C(7),HLP
  • Line Location: E+6
Function Call: WRITE
  • Prompt: $C(7),!!,"I might have that unit already in inventory. Let's try that again ",!
  • Line Location: E+9
Function Call: WRITE
  • Prompt: $C(7),!,$P(^LAB(66,LRC,0),U)," already in inventory with same Unit ID !"
  • Line Location: E+10
Function Call: WRITE
  • Prompt: $C(7),!,"Entry in INVENTORY file.",!,"Add ",P," for this DONOR ID# "
  • Line Location: E+11
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$C(7),"No such ABO/Rh bar code",!!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: $C(7),!,"Not Date bar code",!
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: $C(7),!?4,"Expiration date exceeds allowable limit !"
  • Line Location: ED+4
Function Call: WRITE
  • Prompt: $C(7),!!,"We can't do this right now...",!!,"Someone else is creating a new entry in the INVENTORY file ",!!,"Try again..",!!
  • Line Location: ED+5
Function Call: WRITE
  • Prompt: $C(7),!!,"I think someone else is trying to log this unit in"
  • Line Location: ED+9
Function Call: WRITE
  • Prompt: $C(7),!!,"Can't do this now...",!!,"Looks like 2 of you are creating the same record.",!!,"Try again..."
  • Line Location: ED+12
Function Call: WRITE
  • Prompt: $C(7),!!,"Entry deleted."
  • Line Location: ED+18
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't add this to the ABO/Rh typing worksheet",!!,"Someone else is editing that worksheet",!!,"Add this unit Manually when printing the ABO/Rh typing worksheet",!!
  • Line Location: S+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Answer prompt. To quit enter '^' and unit will be deleted.",!
  • Line Location: H+0
Routine Call
  • DIC
  • Line Location:
    • C+3
    • C+5
    • E+8
Routine Call
  • DIE
  • Line Location:
    • ED+17
    • ED+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls,  FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(66 - [#66] C+4, E+10
^LRD(65 - [#65] E+9, E+10, ED+5, ED+7, ED+8, ED+9, ED+11, ED+12, ED+13*, ED+14
, ED+15*, ED+16*
^LRO(69.2 - [#69.2] S, S+1, S+2, S+3*

Label References

Name Line Occurrences
A A+1, A+2
C C+1, C+3, C+4, C+5, E
D D
E E+3, E+4, E+5, E+6, E+9, E+10, E+11, A, ED, ED+3
, ED+5, ED+10, ED+12, ED+18, ED+19
ED E+11, ED+1, ED+3, ED+4
END LRBLJLG+3, LRBLJLG+4, LRBLJLG+6, I, D
I I+3, C, C+3
S ED+19

Naked Globals

Name Field # of Occurrence
^(0 E+9, E+10, S*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % E+11*
%DT D*!, ED+3*!
%DT(0 D*
>> C E+9*, E+10*
>> DA C+7*, E+8*, ED+11*, ED+12, ED+13, ED+15, ED+16, ED+19, S+3
DIC C+3*!, C+5*!, E+8*!
DIC("B" C+5*
DIC("S" C+3*
DIC(0 C+3*, C+5*, E+8*
>> DIE ED+16*
>> DIE("NO^" ED+16*
DIK ED+18*!
>> DR ED+17*, ED+18*
DTIME I, D
DUZ ED+17
DUZ(2 LRBLJLG+3, ED+17
HLP I+1~, I+2*, C+7~, C+8*, E+6
HLP("HELP-PROMPT" I+2, C+8
IPTR I+1~*, C+7~*, E+5
IPTR("INPUT T RANSFORM" , I+1, C+7
>> LR C+1, C+2, E+1, E+2, A+1, ED+1, ED+2
>> LR("M" LRBLJLG+4*
>> LR(1 C+5*, E+7
>> LR(2 C+1, E+1, A+1, ED+1
>> LR(3 C+5*
>> LR(4 C+5*, ED+15
>> LRA ED*, ED+19
>> LRAA S, S+1, S+2, S+3
>> LRAA(4 LRBLJLG+5
>> LRABO E+11*, A*, A+2, ED+17, ED+19
>> LRBLISBT C+3*, E+7
>> LRC C*, C+3*, C+4, C+5, E+9, E+10, ED+8, ED+17, ED+19
>> LRCAPA LRBLJLG+6
LRDPAF LRBLJLG+4!
>> LRH ED*, ED+3*, ED+4, ED+17, ED+19
>> LRI I*, C, ED+17
>> LRJ C+3*, ED+18
>> LRK D*, ED+17
LRL C!*, ED+19*
LRL( ED+19*
>> LRM C+5*, ED+17
>> LRP E+8*, ED+7, ED+13, ED+15, ED+16, ED+19
>> LRR C+3*, ED+19
>> LRRH E+11*, A*, ED+17, ED+19
>> LRS ED+4
>> LRV C+3*, ED+17
>> LRW C+5*, ED+17
>> P C+3*, E+11
TYPE ED+6*, ED+8*, ED+9!
U I, D, C, C+3, C+4, C+5, E, E+10, E+11, A
, ED, ED+8
UNIT ED+6*, ED+7*, ED+8, ED+9!, ED+10
>> W E+8*, E+11
X LRBLJLG+4*, LRBLJLG+6*, I*, I+1!, I+2, I+3, D*, C!*, C+1, C+2
, C+3, C+5, E*, E+1, E+2, E+3, E+4, E+5!, E+6, E+7*
, E+8, E+9, E+10*, A!*, A+1, A+2, ED*, ED+1, ED+2, ED+3
, S+2*, S+3
X(1 C+4*, C+5
Y LRBLJLG+4, D, C+3, C+5!, E+8, E+9, E+10!, E+11, ED+3, ED+18
Y(0 C+3, C+5, E+8, E+10, E+11!
>> Z C+3*
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