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

Package: Lab Service

Routine: LRBLJLG1


Information

LRBLJLG1 ;AVAMC/REG/CYM - REVIEW UNIT LOG-IN ;11/12/96 07:41 ;

Source Information

Source file <LRBLJLG1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 EN^LRBLDC  ^LRBLJLG1  (K,KK,S)^LRBLU  ^LRBLW  (D,YN)^LRU  
VA FileMan 2 C^%DTC  ^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: 2

Package Total Caller Graph
Lab Service 2 LRBLJLG  LRBLJLG1  

Entry Points

Name Comments DBIA/ICR reference
ASK
DIE
WRK
FIX
H
EN ;from LRBLJLG
END
CK
EN1 ;
A
Z

External References

Name Field # of Occurrence
C^%DTC EN+3
^DIE DIE+3
EN^LRBLDC EN+3
^LRBLJLG1 ASK
K^LRBLU CK+6
KK^LRBLU DIE+5
S^LRBLU CK+11
^LRBLW WRK
D^LRU LRBLJLG1+6
YN^LRU LRBLJLG1+7, EN1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,P," Source: ",LRW," Invoice: ",LRI,!,"Review:",?9,"Unit",?25,"ABO/Rh",?33,"Expiration date (*=Expired or expires today)"
  • Line Location: LRBLJLG1+5
Function Call: WRITE
  • Prompt: !,X,")",?9,$P(LRL(X),"^",2),?25,$P(LRL(X),"^",3),?28,$P(LRL(X),"^",4),?34
  • Line Location: LRBLJLG1+6
Function Call: WRITE
  • Prompt: Y,$P(LRL(X),"^",6)
  • Line Location: LRBLJLG1+6
Function Call: READ
  • Variable: LRE
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!,"No entering '^' during this edit !!"
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: " Enter a number from 1 to ",A
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(7)," Sorry, that unit exists in inventory."
  • Line Location: CK+1
Function Call: WRITE
  • Prompt: $C(7),!!?4,"Expiration date exceeds allowable limit !",!
  • Line Location: A+0
Routine Call
  • DIE
  • Line Location:
    • DIE+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN1+1
^LAB(66 - [#66] EN+1
^LRD(65 - [#65] LRBLJLG1+7, DIE, DIE+5, CK+1*, CK+3!, CK+4!, CK+5!, CK+8*, CK+9*, CK+10*
, EN1+2, Z, Z+1*, Z+2!, Z+3*, Z+4*
^LRO(69.2 - [#69.2] DIE+7, FIX+1

Label References

Name Line Occurrences
ASK ASK
DIE DIE+3
END EN+1
FIX DIE+4
H ASK
LRBLJLG1 DIE+4, DIE+9
WRK LRBLJLG1+7
Z EN1+2

Naked Globals

Name Field # of Occurrence
^( CK+10
^(0 DIE+7*, FIX+1!*, CK+1, Z*
^(4 EN1+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLJLG1+7*, EN1+2*
>> A LRBLJLG1+6*, LRBLJLG1+7, ASK, FIX+2*, FIX+3*, H, Z*
B FIX+2!
B( FIX+2*, FIX+3!
>> C CK+1*, EN1+2, Z, Z+1, Z+2, Z+3, Z+4
DA DIE*, DIE+4, DIE+5, DIE+6, DIE+7, DIE+8!, CK+1, CK+3, CK+4, CK+5
, CK+8, CK+9, CK+10
DIE DIE*, DIE+8!
DR DIE+2*, DIE+8!
DTIME ASK
DUZ Z+3
IOF LRBLJLG1+5
>> LR(65 DIE*, DIE+5
>> LRA DIE+1*, DIE+6
>> LRAA DIE+7, FIX+1
>> LRABO DIE+6, DIE+7
LRB END!
LRB(3 EN+2*, EN+3
LRB(6 EN+1*, EN+3*, END
LRB(7 EN+1*, EN+2, EN+3
>> LRC DIE+6, EN+1
>> LRCAPA LRBLJLG1+7
>> LRE ASK*, DIE, DIE+6, FIX, CK, CK+1
>> LRF CK*, CK+1*, CK+2
>> LRH DIE+6
>> LRI LRBLJLG1+5, Z+3
>> LRK EN+2, Z+1, Z+3
LRL LRBLJLG1+4, WRK*, FIX+3!
LRL( LRBLJLG1+6, DIE, DIE+6*, WRK, FIX!, FIX+2, FIX+3*, CK, CK+1
>> LRO CK*, CK+1, CK+7
>> LRP DIE+6, DIE+7, EN1+2*
>> LRRH DIE+6, DIE+7
>> LRS END*
>> LRW LRBLJLG1+5
>> LRX WRK*
>> P LRBLJLG1+5
U DIE, DIE+5, CK+4, CK+9, CK+10, Z+1
>> W EN1+2*, Z+1
>> W(11 Z+1*, Z+2
>> W(5 Z+1*, Z+3
>> X LRBLJLG1+6*, DIE+5*, FIX*, FIX+1*, FIX+2*, EN+3*, CK+1, CK+3, CK+4, CK+5
, CK+7*, CK+8, CK+9, CK+10, EN1+1*, Z*, Z+1
>> X1 EN+2*
>> X2 EN+2*
>> Y LRBLJLG1+6*, DIE+3, CK+4*, CK+9*, CK+12*
>> Y(0 EN1+1
>> Z EN+3*, CK+5*, CK+10*, Z+1*, Z+3*, Z+4
>> Z(0 EN+3*
>> Z(4 Z+1*, Z+4
>> Z(6 Z+1*, Z+4
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