Routine: ORELR5

Package	Total	Call Graph
Order Entry Results Reporting	6	STATUS^ORCSAVE2 (S1,SET)^ORDD100 ACT1^ORDD100A $$DATETIME^ORU QUE^ORUTL1 ST^ORX
Kernel	1	($$FMADD,$$NOW)^XLFDT
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORELR

Entry Points

Name	Comments	DBIA/ICR reference
DEQUE	;Queued entry point
EN	;Check file 69 against 100 for inconsistencies
UPD
LOOP(LRDFN,ORAFIX)	;Loop on patient
STATUS(I,J,K,Z,UPDATE)	;Check status of exploded panels
WRT(LRODT,LRSN,LRTST,TEXT,FIXED)	;Write error message

External References

Name	Field # of Occurrence
YN^DICN	EN+6, UPD+2
STATUS^ORCSAVE2	STATUS+17
S1^ORDD100	LOOP+26
SET^ORDD100	LOOP+26
ACT1^ORDD100A	LOOP+26
$$DATETIME^ORU	DEQUE+3, DEQUE+10
QUE^ORUTL1	UPD+7
ST^ORX	STATUS+16
$$FMADD^XLFDT	LOOP+17
$$NOW^XLFDT	DEQUE+3, DEQUE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will go through the LAB ORDER ENTRY file (69)" Line Location: EN+2
Function Call: WRITE	Prompt: !,"and check for inconsistencies between Lab files and CPRS files." Line Location: EN+3
Function Call: WRITE	Prompt: !,"This process could take several hours to complete." Line Location: EN+4
Function Call: WRITE	Prompt: !,"Are you sure you want to continue" Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Answer YES to continue" Line Location: EN+7
Function Call: WRITE	Prompt: !!,"You have the option of just checking the database, or updating the database." Line Location: UPD+0
Function Call: WRITE	Prompt: !,"Do you want to update the database now" Line Location: UPD+1
Function Call: WRITE	Prompt: !!,"Select YES to update the database" Line Location: UPD+3
Function Call: WRITE	Prompt: !,"Inconsistency report between LAB (69) and OE/RR (100) files..." Line Location: DEQUE+2
Function Call: WRITE	Prompt: !,"Date/time Started: "_$$DATETIME^ORU($$NOW^XLFDT()) Line Location: DEQUE+3
Function Call: WRITE	Prompt: !,"Now looking for data..." Line Location: DEQUE+4
Function Call: WRITE	Prompt: !!,"Total Inconsistencies Found" Line Location: DEQUE+9
Function Call: WRITE	Prompt: !,"Date/time Completed: "_$$DATETIME^ORU($$NOW^XLFDT()) Line Location: DEQUE+10
Function Call: WRITE	Prompt: !,"-------------------------------------------------" Line Location: DEQUE+11
Function Call: WRITE	Prompt: !,"Bad entry in ^LRO(69,""D""",?40,$J(DCNT,7) Line Location: DEQUE+12
Function Call: WRITE	Prompt: !,"Broken pointer to 100",?40,$J(F100CNT,7) Line Location: DEQUE+13
Function Call: WRITE	Prompt: !,"Inconsistent entry dates",?40,$J(ENTCNT,7) Line Location: DEQUE+14
Function Call: WRITE	Prompt: !,"Patient mismatch"_$S(UPD:" (not fixed)",1:""),?40,$J(PTCNT,7) Line Location: DEQUE+15
Function Call: WRITE	Prompt: !,"Status update on panel test",?40,$J(STCNT,7) Line Location: DEQUE+16
Function Call: WRITE	Prompt: !,"=================================================" Line Location: DEQUE+17
Function Call: WRITE	Prompt: !,"Total: ",?40,$J(TOTCNT,7) Line Location: DEQUE+18
Function Call: WRITE	Prompt: "." Line Location: WRT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(100	STATUS+16, STATUS+17
^LAB(60 - [#60]	STATUS+7
^LR - [#63]	LOOP+1, LOOP+2, LOOP+3
^LRO(69 - [#69]	DEQUE+7, LOOP+1!, LOOP+4, LOOP+6, LOOP+7!, LOOP+8, LOOP+9, LOOP+12*, STATUS+1, STATUS+8
^OR(100 - [#100]	LOOP+12, LOOP+13, LOOP+19, LOOP+20, LOOP+22!, LOOP+23!, LOOP+24!, LOOP+25*, STATUS+11
^TMP("ORCHKLRO"	STATUS+3!, STATUS+9, STATUS+18*, STATUS+19!

Label References

Name	Line Occurrences
EN	EN+7
LOOP	DEQUE+7
STATUS	LOOP+15
UPD	UPD+3
WRT	LOOP+1, LOOP+7, LOOP+12, LOOP+14

Naked Globals

Name	Field # of Occurrence
^(	LOOP+9, STATUS+7, STATUS+8
^("VR"	STATUS+16, STATUS+17
^(0	LOOP+20, STATUS+1, STATUS+8
^(3	LOOP+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, EN+6, EN+7, EN+8, UPD+2, UPD+3, UPD+4, UPD+5
D0	LOOP+21~
DA	LOOP+21~
DCNT	DEQUE+5~, DEQUE+6, DEQUE+12, LOOP+1, LOOP+7*
>> DFN	LOOP+3*, LOOP+14
DI	LOOP+21~
DIC	LOOP+21~
DIE	LOOP+21~
DISYS	LOOP+21~
DQ	LOOP+21~
DR	LOOP+21~
ENTCNT	DEQUE+5~, DEQUE+6, DEQUE+14, LOOP+18
F	STATUS+2~, STATUS+4, STATUS+13, STATUS+14
F100CNT	DEQUE+5~, DEQUE+6, DEQUE+13, LOOP+12
FIXED	WRT~
I	STATUS~, STATUS+1, STATUS+8
IO	DEQUE+1
IOF	DEQUE+8
IOSL	DEQUE+8
IOST	WRT+1
J	STATUS~, STATUS+1, STATUS+8
K	STATUS~, STATUS+1
LRDFN	DEQUE+5~, DEQUE+6, DEQUE+7, LOOP~, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+7
LRENT	LOOP+5~, LOOP+8*, LOOP+16, LOOP+18, LOOP+19, LOOP+24, LOOP+25, LOOP+26
LRODT	LOOP+5~, LOOP+6*, LOOP+7, LOOP+8, LOOP+9, LOOP+12, LOOP+14, LOOP+15, WRT~
LRSN	LOOP+5~, LOOP+6*, LOOP+7, LOOP+8, LOOP+9, LOOP+12, LOOP+14, LOOP+15, WRT~
LRTI	LOOP+5~, LOOP+9*, LOOP+12, LOOP+14, LOOP+15
LRTST	LOOP+5~, LOOP+10*, WRT~
N	STATUS+6~, STATUS+8*
ORAFIX	DEQUE+5~, DEQUE+6*, LOOP~, LOOP+1, LOOP+7, LOOP+12, LOOP+15, LOOP+18
ORIFN	LOOP+5~, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+19, LOOP+20, LOOP+22, LOOP+23 , LOOP+24, LOOP+25, LOOP+26, STATUS+2~, STATUS+16
ORSTS	STATUS+2~, STATUS+16*
ORX1	LOOP+5~, LOOP+17*, LOOP+18
ORX2	LOOP+5~, LOOP+17*, LOOP+18
PTCNT	DEQUE+5~, DEQUE+6, DEQUE+15, LOOP+14
STCNT	DEQUE+5~, DEQUE+6, DEQUE+16, STATUS+13
T	STATUS+6~, STATUS+7, STATUS+8
TEXT	WRT~
TOTCNT	DEQUE+5~, DEQUE+6, DEQUE+18, LOOP+1, LOOP+7, LOOP+12, LOOP+14, LOOP+18, STATUS+13*
TST	STATUS+6~
TST(	STATUS+7*, STATUS+8
UPD	EN+1~, UPD+5*, DEQUE+7, DEQUE+15
UPDATE	STATUS~, STATUS+15
X	LOOP+5~, LOOP+8, LOOP+13, LOOP+14, LOOP+16, LOOP+17, LOOP+20, LOOP+22, LOOP+23, LOOP+24 , STATUS+2~, STATUS+8*
X0	LOOP+5~, LOOP+9*, LOOP+10, LOOP+15
X1	STATUS+10~, STATUS+11*, STATUS+12, STATUS+16, STATUS+17
X2	STATUS+10~, STATUS+11*, STATUS+12
X3	LOOP+5~, LOOP+13*, LOOP+14
X7	STATUS+2~, STATUS+8*, STATUS+9, STATUS+11
X8O	LOOP+5~, LOOP+20*, LOOP+22, LOOP+23, LOOP+24
Z	STATUS~, STATUS+1*, STATUS+4, STATUS+5, STATUS+7
Z7	STATUS+2~, STATUS+4*, STATUS+9, STATUS+11, STATUS+16, STATUS+17, STATUS+18
>> ZTQUEUED	DEQUE+19
>> ZTREQ	DEQUE+19*
ZTSAVE	EN+1~, UPD+7
ZTSAVE("UPD"	UPD+6*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORELR5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: