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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Order Entry Results Reporting 3 A^ORELR2  $$DATETIME^ORU  QUE^ORUTL1  
VA FileMan 3 ^%DT  NOW^%DTC  YN^DICN  
Kernel 1 $$NOW^XLFDT  

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
Order Entry Results Reporting 1 ORELR  

Entry Points

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

External References

Name Field # of Occurrence
^%DT CAN+5
NOW^%DTC DEQUE+3
YN^DICN EN+20, LRO+1, CAN+1, FIX+1
A^ORELR2 DEQUE+9
$$DATETIME^ORU DEQUE+7, DEQUE+12
QUE^ORUTL1 FIX+3
$$NOW^XLFDT DEQUE+12

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] DEQUE+2
^OR(100 - [#100] DEQUE+9

Label References

Name Line Occurrences
CAN CAN+3
FIX FIX+1
LRO LRO+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+19~, EN+20*, LRO+1*, CAN+1*, CAN+2, CAN+3, CAN+5~, CAN+8*, CAN+9, FIX+1*
, DEQUE+7
>> %DT CAN+4*
>> %DT("A" CAN+4*
>> %DT("B" CAN+4*
A DEQUE+1~
ACNT DEQUE+1~, DEQUE+2*, DEQUE+28
APCNT DEQUE+1~, DEQUE+2*, DEQUE+15
BSCNT DEQUE+1~, DEQUE+2*, DEQUE+23
CNT DEQUE+1~, DEQUE+2*
DCNT DEQUE+1~, DEQUE+2*, DEQUE+13
DT DEQUE+4*
DTIME CAN+9
END DEQUE+1~, DEQUE+2*, DEQUE+9
HCNT DEQUE+1~, DEQUE+2*, DEQUE+19
I EN+19~, FIX+2*
ICCNT DEQUE+1~, DEQUE+2*, DEQUE+29
ICNT DEQUE+1~, DEQUE+2*, DEQUE+27
IO DEQUE+5
IOF DEQUE+10
IOSL DEQUE+10
IVCNT DEQUE+1~, DEQUE+2*, DEQUE+24
LCNT DEQUE+1~, DEQUE+2*, DEQUE+31
NCNT DEQUE+1~, DEQUE+2*, DEQUE+20
NOCNT DEQUE+1~, DEQUE+2*, DEQUE+32
OCNT DEQUE+1~, DEQUE+2*, DEQUE+33
ORAFIX EN+19~, FIX+1*, DEQUE+36!
ORDUZ DEQUE+1~, DEQUE+2*
ORIFN EN+19~, CAN+8*, CAN+9*, DEQUE+9*, DEQUE+36!
ORLOR EN+19~
ORLRO LRO+1*, DEQUE+36!
ORPEND EN+19~, CAN*, CAN+1*, CAN+4, CAN+6*, CAN+7*, DEQUE+36!
ORPENDT EN+19~, CAN*, CAN+7*, DEQUE+36!
ORSICK DEQUE+1~, DEQUE+9*
PCNT DEQUE+1~, DEQUE+2*, DEQUE+14
PHCNT DEQUE+1~, DEQUE+2*, DEQUE+26
PKG DEQUE+1~, DEQUE+2*
PTCNT DEQUE+1~, DEQUE+2*, DEQUE+18
SIBCNT DEQUE+1~, DEQUE+2*, DEQUE+34
SIBPCNT DEQUE+1~, DEQUE+2*, DEQUE+35
STCNT DEQUE+1~, DEQUE+2*, DEQUE+30
TTCNT DEQUE+1~, DEQUE+2*, DEQUE+11
UCCNT DEQUE+1~, DEQUE+2*, DEQUE+22
UCNT DEQUE+1~, DEQUE+2*, DEQUE+16
UNCNT DEQUE+1~, DEQUE+2*, DEQUE+17
VCNT DEQUE+1~, DEQUE+2*
WICNT DEQUE+1~, DEQUE+2*, DEQUE+25
>> X CAN+9*, DEQUE+4
>> Y CAN+6, CAN+7
>> ZTQUEUED DEQUE+37
>> ZTREQ DEQUE+37*
ZTSAVE EN+19~, FIX+3
ZTSAVE( FIX+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All