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

Package: Order Entry Results Reporting

Routine: ORELR1


Information

ORELR1 ; slc/dcm - Cross check/update file 100 with file 69

Source Information

Source file <ORELR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Fix inconsistencies from ^OR to ^LRO(69
LRO
CAN
FIX
DEQUE ;Queued entry point

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This utility will look for inconsistencies between OE/RR 3.0 and Lab files."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"It will compare records in the Orders file (100) with the Lab Order file (69)."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Problems identified",?53,"Resolution"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"-------------------",?53,"----------"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"^OR(100,IFN,0) does not exist",?53,"^OR(100,IFN) killed"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Bad pointers on child orders",?53,"Pointers removed"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Child orders with no parent order",?53,"Pointer removed"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Child order missing parent pointer",?53,"Pointer restored"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Incorrect status on parent order",?53,"Status corrected"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"Unrecognized pointer to file 69",?53,"Order cancelled"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"Unconverted orders from OE/RR 2.5",?53,"Order lapsed"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"Invalid pointer to file 69",?53,"Order cancelled"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"Incorrect status on uncollected specimens",?53,"Status updated"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"Incorrect status on completed orders",?53,"Status updated"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"Missing reference to file 69",?53,"Cancelled (optional)"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Old pending, active & unreleased orders",?53,"Status changed"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"Continue"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"Check for CPRS orders that no longer exist in the Lab Order file"
  • Line Location: LRO+0
Function Call: WRITE
  • Prompt: !!,"You may want to cancel any active orders that no longer have a valid",!,"reference to file 69 (may have been purged from lab files).",!
  • Line Location: LRO+1
Function Call: WRITE
  • Prompt: !,"Do you want to remove old PENDING, ACTIVE and UNRELEASED orders"
  • Line Location: CAN+1
Function Call: WRITE
  • Prompt: !!,"Unreleased orders are removed from the system.",!,"Old pending orders are changed to a Lapsed status, which will",!,"remove them from the current orders context."
  • Line Location: CAN+2
Function Call: WRITE
  • Prompt: !,"Active orders that no longer have corresponding entries in the lab files",!,"are changed to Lapsed"
  • Line Location: CAN+3
Function Call: WRITE
  • Prompt: !!,"Old orders will not be removed."
  • Line Location: CAN+6
Function Call: WRITE
  • Prompt: !,"Do you want to start where the last clean-up left off (#"_X_")"
  • Line Location: CAN+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CAN+9
Function Call: WRITE
  • Prompt: !,"OK, which ORIFN do you want to start with: 0// "
  • Line Location: CAN+9
Function Call: WRITE
  • Prompt: !,"Do you want me to correct the inconsistencies now"
  • Line Location: FIX+0
Function Call: WRITE
  • Prompt: !!,"Answer 'YES' to correct them now, or 'NO' to just display them.",!
  • Line Location: FIX+1
Function Call: WRITE
  • Prompt: !,"Inconsistency report between OE/RR (100) and LAB (69) files..."
  • Line Location: DEQUE+6
Function Call: WRITE
  • Prompt: !,"Date/time Started: "_$$DATETIME^ORU(%)
  • Line Location: DEQUE+7
Function Call: WRITE
  • Prompt: !,"Now looking for data..."
  • Line Location: DEQUE+8
Function Call: WRITE
  • Prompt: !!,"Total inconsistencies: "_TTCNT
  • Line Location: DEQUE+11
Function Call: WRITE
  • Prompt: !,"Date/time Completed: "_$$DATETIME^ORU($$NOW^XLFDT())
  • Line Location: DEQUE+12
Info |  Source |  Entry Points |  Interaction Calls