Routine: ORELR1

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

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORELR

Entry Points

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: !,"Old veiled orders",?53,"Purged" Line Location: EN+10
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	Timeout: DTIME Variable: X 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

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

>>	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*, DEQUE+21
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*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORELR1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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