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 ; IHS/DIR/AAB - FLAG/HOLD ORDERS 5/1/89 17:46 ; [ 07/22/2002 1:31 PM ]

Source Information

Source file <LROR8.m>

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

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
END
GET ;Get Ord #
S1
EN1 ;;from LROR to HOLD orders
EN2 ;Verify unreleased lab orders
EN3 ;Verify upon release
DUP ;Check for duplicate in ^XUTL
COL

External References

Name Field # of Occurrence
DD^%DT COL
NOW^%DTC EN3+10
YN^DICN EN1+1
SET2^LROR S1+16
C^LROR3 EN1+2
EN^LRORDIM COL+2
ORDER^LROW2 GET+2
INIT^LRXO00 COL+1
MAX^LRXO1 S1+7
EN^LRXO5 COL+5
RCOM^LRXO9 S1+10, S1+11
READ^ORUTL EN3+7, EN3+16, DUP+3
RETURN^ORX S1+19, COL+3, COL+6
ST^ORX EN+4, EN3+16, S1+7, 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+7
Function Call: WRITE
  • Prompt: !,"Incomplete data! This order cannot be released."
  • Line Location: EN3+8
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+16
Function Call: WRITE
  • Prompt: !?5,LRTSTNM_" Deleted"
  • Line Location: EN3+16
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+17
Function Call: WRITE
  • Prompt: !?5,LRTSTNM_" Deleted"
  • Line Location: EN3+18
Function Call: WRITE
  • Prompt: " Deleted"
  • Line Location: S1+7
Function Call: WRITE
  • Prompt: " Deleted"
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !,"GENERAL WARD INSTRUCTIONS:"
  • Line Location: S1+12
Function Call: WRITE
  • Prompt: !," "_^(N1,0)
  • Line Location: S1+12
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+5
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+9, S1+10, S1+11
^LRO(69 - [#69] EN3+12, EN3+13
^XUTL("OR" S1, S1+1, S1+2*, S1+3*, S1+4, S1+7!, S1+14, S1+15, S1+21!, DUP+2
, GET+1

Label References

Name Line Occurrences
COL EN3+20, EN3+21
DUP EN3+22
END EN3+7, EN3+16, EN3+20, EN3+21, EN3+22
GET EN3+4
S1 S1

Naked Globals

Name Field # of Occurrence
^( S1+1*, S1+15, DUP+2
^(0 EN3+9, EN3+13, S1+10
^(4 EN3+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+1*, EN3+10
>> CNT S1+13*, S1+15*
GOT EN3+11~*, EN3+12, EN3+13*, EN3+16
>> I S1+13*, S1+14*, S1+15*
>> LRASK EN3+3*
LRCSX S1+13~*, S1+14*, S1+15
LREND EN3+3*, EN3+20, EN3+21, EN3+22, S1+7, COL+2, COL+5, END!, DUP+2*
>> LREXP S1+7*, S1+10*, S1+11*
LRI EN3+3*, S1+16, END!
LRLWC S1+13*, S1+16!
LRNOW EN3+10*, EN3+20, EN3+21, COL+5~
LRNSN EN3+11~
LRODT EN3+11~*, EN3+12, EN3+13
LRORD EN3+3*, EN3+4, EN3+7, EN3+12, S1+1, S1+16, END!, GET+1*, GET+2
LRORIFN EN3+3*, S1+2, S1+19, END!, DUP+2, DUP+4
LROST EN3+3*, EN3+7, EN3+11, EN3+20, EN3+21, S1, S1+1, S1+2, S1+7, S1+14
, S1+15, S1+21, COL, COL+3, COL+6, END!, DUP+2, GET+1
LROT END!
LRSAMP EN3+3*, EN3+7, EN3+13, S1, S1+2, S1+7, S1+10, S1+14, S1+15, S1+16
, S1+21, END!, DUP+2
>> LRSN EN3+12*, EN3+13
LRSPEC EN3+3*, EN3+7, EN3+13, S1, S1+2, S1+7, S1+14, S1+15, S1+16, S1+21
, END!, DUP+2
LRSTS EN3+2~, EN3+3*, S1+7
>> LRSX EN3+3*, S1*, S1+2, S1+7, S1+21
LRTEST END!
LRTEST( EN3+3*, S1+16
LRTST EN3+3*, EN3+7, EN3+9, S1+2, S1+10, S1+11, S1+15, END!, DUP+2
>> LRTSTNM EN3+9*, EN3+16, DUP+3
LRURG EN3+3*, EN3+7, S1+2, S1+16, END!
>> LRZX(1 EN3+3*, EN3+7, S1, S1+1, S1+2, S1+7, S1+13, S1+14, S1+15, S1+21
, COL+1, END!, DUP+2, GET+1
>> LRZX(6 S1+7*, END!
>> ORCARY S1+3, S1+4*
>> OREND EN3+7*, EN3+16*, EN3+20*, EN3+21*
>> ORETURN S1+19
>> ORETURN("ORSTRT" COL+3*, COL+6*
>> ORETURN("ORTX" S1+15*, S1+16*
>> ORGY EN1+1
>> ORIFN EN3+3, S1+19*, DUP+4*
>> ORPK EN3+3
>> ORSTS EN+1, EN+4*, EN3+1, EN3+3, EN3+16*, S1+7*, DUP+4*
>> ORTX(1 S1+16
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