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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LROR8

Package: Lab Service

Routine: LROR8


Information

LROR8 ;SLC/DCM - FLAG/HOLD ORDERS ;5/1/89 17:46 ;

Source Information

Source file <LROR8.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lab Service 8 SET2^LROR  C^LROR3  EN^LRORDIM  ORDER^LROW2  INIT^LRXO00  MAX^LRXO1  EN^LRXO5  RCOM^LRXO9  
VA FileMan 3 DD^%DT  NOW^%DTC  YN^DICN  
Order Entry Results Reporting 2 READ^ORUTL  (RETURN,ST)^ORX  

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 LROR  

Entry Points

Name Comments DBIA/ICR reference
EN ;;from LROR to FLAG orders
EN1 ;;from LROR to HOLD orders
EN2 ;Verify unreleased lab orders
EN3 ;Verify upon release
S1
COL
END
DUP ;Check for duplicate in ^XUTL
GET ;Get Ord #

External References

Name Field # of Occurrence
DD^%DT COL
NOW^%DTC EN3+7
YN^DICN EN1+1
SET2^LROR S1+12
C^LROR3 EN1+2
EN^LRORDIM COL+2
ORDER^LROW2 GET+2
INIT^LRXO00 COL+1
MAX^LRXO1 S1+5
EN^LRXO5 COL+4
RCOM^LRXO9 S1+6, S1+7
READ^ORUTL EN3+5, EN3+11, DUP+3
RETURN^ORX S1+13, COL+3, COL+5
ST^ORX EN+2, EN3+11, S1+5, DUP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Only PENDING lab orders can be flagged."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Incomplete data! This order cannot be released."
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: $C(7),!!,"The specimen for test "_LRTSTNM_", has already been processed by Lab.",!,"Please create a new order, or contact lab to have this test added."
  • Line Location: EN3+11
Function Call: WRITE
  • Prompt: !?5,LRTSTNM_" Deleted"
  • Line Location: EN3+11
Function Call: WRITE
  • Prompt: " Deleted"
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !,"GENERAL WARD INSTRUCTIONS:"
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !," "_^(N1,0)
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !!,"The collection time of "_Y_" has expired",!,"Please enter a new collection time"
  • Line Location: COL+0
Function Call: WRITE
  • Prompt: !,"No Collection Time Entered",!!
  • Line Location: COL+2
Function Call: WRITE
  • Prompt: !,"A new collection time must be entered to release this order",!,"Order not released!"
  • Line Location: COL+4
Function Call: WRITE
  • Prompt: !!!,"Duplicate test "_LRTSTNM_", for the same collection time will be deleted",!!
  • Line Location: DUP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] EN3+6, S1+6, S1+7
^LRO(69 - [#69] EN3+9, EN3+10
^XUTL("OR" S1, S1+1, S1+2*, S1+3*, S1+4, S1+5!, S1+10, S1+11, DUP+2, GET+1

Label References

Name Line Occurrences
COL EN3+12, EN3+13
DUP EN3+14
END EN3+5, EN3+11, EN3+12, EN3+13, EN3+14
GET EN3+4
S1 S1

Naked Globals

Name Field # of Occurrence
^( S1+1*, S1+11, DUP+2
^(0 EN3+6, EN3+10, S1+6
^(4 EN3+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+1*, EN3+7
>> CNT S1+9*, S1+11*
GOT EN3+8~*, EN3+9, EN3+10*, EN3+11
>> I S1+9*, S1+10*, S1+11*
>> LRASK EN3+3*
LRCSX S1+9~*, S1+10*, S1+11
LREND EN3+3*, EN3+12, EN3+13, EN3+14, S1+5, COL+2, COL+4, END!, DUP+2*
>> LREXP S1+5*, S1+6*, S1+7*
LRI EN3+3*, S1+12, END!
LRLWC S1+9*, S1+12!
LRNOW EN3+7*, EN3+12, EN3+13, COL+4~
LRNSN EN3+8~
LRODT EN3+8~*, EN3+9, EN3+10
LRORD EN3+3*, EN3+4, EN3+5, EN3+9, S1+1, S1+12, END!, GET+1*, GET+2
LRORIFN EN3+3*, S1+2, S1+13, END!, DUP+2, DUP+4
LROST EN3+3*, EN3+5, EN3+8, EN3+12, EN3+13, S1, S1+1, S1+2, S1+5, S1+10
, S1+11, COL, COL+3, COL+5, END!, DUP+2, GET+1
LROT END!
LRSAMP EN3+3*, EN3+5, EN3+10, S1, S1+2, S1+5, S1+6, S1+10, S1+11, S1+12
, END!, DUP+2
>> LRSN EN3+9*, EN3+10
LRSPEC EN3+3*, EN3+5, EN3+10, S1, S1+2, S1+5, S1+10, S1+11, S1+12, END!
, DUP+2
LRSTS EN3+2~, EN3+3*, S1+5
>> LRSX EN3+3*, S1*, S1+2, S1+5
LRTEST END!
LRTEST( EN3+3*, S1+12
LRTST EN3+3*, EN3+5, EN3+6, S1+2, S1+6, S1+7, S1+11, END!, DUP+2
>> LRTSTNM EN3+6*, EN3+11, DUP+3
LRURG EN3+3*, EN3+5, S1+2, S1+12, END!
>> LRZX(1 EN3+3*, EN3+5, S1, S1+1, S1+2, S1+5, S1+9, S1+10, S1+11, COL+1
, END!, DUP+2, GET+1
>> LRZX(6 S1+5*, END!
>> ORCARY S1+3, S1+4*
>> OREND EN3+5*, EN3+11*, EN3+12*, EN3+13*
>> ORETURN S1+13
>> ORETURN("ORSTRT" COL+3*, COL+5*
>> ORETURN("ORTX" S1+11*, S1+12*
>> ORGY EN1+1
>> ORIFN EN3+3, S1+13*, DUP+4*
>> ORPK EN3+3
>> ORSTS EN+1, EN+2*, EN3+1, EN3+3, EN3+11*, S1+5*, DUP+4*
>> ORTX(1 S1+12
SX DUP+1~, DUP+2*
X EN3+3*, END!
>> Y COL*
ZTQUEUED GET+2*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All