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 ; IHS/DIR/AAB - BB INVENTORY LOG-IN 11/12/96 07:49 ;

Source Information

Source file <LRBLJLG.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 6 (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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLILR  

Entry Points

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

External References

Name Field # of Occurrence
^%DT D, ED+1
^DIC C+2, C+4, E+7
FIELD^DID I+1, I+2, C+6, C+7
^DIE ED+15, ED+16
^DIK ED+16
A^LRBLB A
BAR^LRBLB LRBLJLG+5
D^LRBLB ED
P^LRBLB C+1
T^LRBLB A+1
U^LRBLB E+1
^LRBLJLG1 E
EN^LRBLJLG1 C+5
EN1^LRBLJLG1 E+9
S^LRBLW LRBLJLG+6
V^LRU END
YN^LRU E+10
^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
  • Prompt: "Enter INVOICE (or order) NUMBER: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !!,$C(7),HLP
  • Line Location: I+2
Function Call: READ
  • Prompt: "DATE/TIME RECEIVED: NOW// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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: READ
  • Prompt: "Select BLOOD COMPONENT: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: C+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+2
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+3
Function Call: READ
  • Prompt: "UNIT ID: "
  • Formatting: !!?13
  • Timeout: DTIME
  • Variable: X
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7)," No spaces allowed."
  • Line Location: E+2
Function Call: WRITE
  • Prompt: $C(7)," Enter the Unit ID Without the Prefix"
  • Line Location: E+3
Function Call: WRITE
  • Prompt: !!,$C(7),HLP
  • Line Location: E+5
Function Call: WRITE
  • Prompt: $C(7),!!,"I might have that unit already in inventory. Let's try that again ",!
  • Line Location: E+8
Function Call: WRITE
  • Prompt: $C(7),!,$P(^LAB(66,LRC,0),U)," already in inventory with same Unit ID !"
  • Line Location: E+9
Function Call: WRITE
  • Prompt: $C(7),!,"Entry in INVENTORY file.",!,"Add ",P," for this DONOR ID# "
  • Line Location: E+10
Function Call: READ
  • Prompt: "ABO/Rh: "
  • Formatting: !?14
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$C(7),"No such ABO/Rh bar code",!!
  • Line Location: A+0
Function Call: READ
  • Prompt: "EXPIRATION DATE/TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: $C(7),!,"Not Date bar code",!
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: $C(7),!?4,"Expiration date exceeds allowable limit !"
  • Line Location: ED+2
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+3
Function Call: WRITE
  • Prompt: $C(7),!!,"I think someone else is trying to log this unit in"
  • Line Location: ED+7
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+10
Function Call: WRITE
  • Prompt: $C(7),!!,"Entry deleted."
  • Line Location: ED+16
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
  • DIE
  • Line Location:
    • ED+15
    • ED+16
Routine Call
  • DIC
  • Line Location:
    • C+2
    • C+4
    • E+7

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+3, E+9
^LRD(65 - [#65] E+8, E+9, ED+3, ED+5, ED+6, ED+7, ED+9, ED+10, ED+11*, ED+12
, ED+13*, ED+14*
^LRO(69.2 - [#69.2] S, S+1, S+2, S+3*

Label References

Name Line Occurrences
A A, A+1
C C+1, C+2, C+3, C+4, E
D D
E E+2, E+3, E+4, E+5, E+8, E+9, E+10, A, ED, ED+1
, ED+3, ED+8, ED+10, ED+16, ED+17
ED E+10, ED, ED+1, ED+2
END LRBLJLG+3, LRBLJLG+4, LRBLJLG+6, I, D
I I+3, C, C+2
S ED+17

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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