Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 #

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
Info |  Source |  Entry Points |  Interaction Calls