Routine: ORRDI2

Information

ORRDI2 ; SLC/JMH - RDI routine for user interface and data cleanup; 3/24/05 2:31 ; 1/11/07 8:12am

Source Information

Source file <ORRDI2.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMADD,$$FMDIFF,$$NOW)^XLFDT $$PATCH^XPDUTL
Health Level Seven	1	DIRECT^HLMA
Order Entry Results Reporting	1	SPAWN^ORRDI2
Registration	1	$$SITE^VASITE
Toolkit	1	($$GET,EN)^XPAR
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Order Entry Results Reporting	5	OR RDI PARAMS ORKCHK ORMTIM01 ORRDI1 ORRDI2

Entry Points

Name	Comments	DBIA/ICR reference
SPAWN	;subroutine to spawn the DOWNTSK task
FAILPVAL()	;parameter value for failure threshold
SET	;utility to set RDI related parameters
CLEANUP	;
TESTCALL()	;call to send a test call to CDS...returns 1 if successful, 0 if not
SUCCPVAL()	;parameter value for success threshold
DOWNRPC(ORY)	;can be used in an RPC to check if RDI is in an OUTAGE state (HDR DOWN)
LIST	;
DOWNXVAL()	;xtmp value for OUTAGE state
PINGPVAL()	;parameter value for ping frequency
DOWNTSK	;subroutine to check if HDR is back up
DICNPVAL()	;parameter value for dummy patient ICN
PIECEOUT(Y,DATA,DEL)	;
HELP3	;
PINGXVAL()	;xtmp value for last ping time
HELP1	;
SUCCXVAL()	;xtmp value for number of successful reads
FAILXVAL()	;xtmp value for number of failed reads
LDPTTVAL(DFN)	;tmp value for if the local data only message has been shown to the user during ordering session

External References

Name	Field # of Occurrence
^%ZTLOAD	SPAWN+7
^DIR	SET+14, SET+29
DIRECT^HLMA	TESTCALL+14
SPAWN^ORRDI2	CLEANUP+11
$$SITE^VASITE	TESTCALL+12
$$FMADD^XLFDT	CLEANUP+4
$$FMDIFF^XLFDT	CLEANUP+11, DOWNTSK+3
$$NOW^XLFDT	CLEANUP+3, CLEANUP+11, SPAWN+6, DOWNTSK+3, DOWNTSK+7, TESTCALL+4
$$GET^XPAR	SET+8, SET+19, SET+23, LIST+2, LIST+3, CLEANUP+2, DICNPVAL+1, FAILPVAL+1, SUCCPVAL+1, PINGPVAL+1
EN^XPAR	SET+17, SET+32
$$PATCH^XPDUTL	SET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This menu is locked until patch OR3.0238 is installed." Line Location: SET+2
Function Call: WRITE	Prompt: !!,"Sets System wide parameters to control order checking against" Line Location: SET+4
Function Call: WRITE	Prompt: !," remote data",! Line Location: SET+5
Function Call: WRITE	Prompt: "Set this to ""YES"" if this system has an HDR system that" Line Location: HELP1+1
Function Call: WRITE	Prompt: !," it uses to access remote data." Line Location: HELP1+2
Function Call: WRITE	Prompt: "Set this to the number of minutes that the retrieved data is " Line Location: HELP3+1
Function Call: WRITE	Prompt: !," to be considered valid for order checking purposes." Line Location: HELP3+2
Function Call: WRITE	Prompt: ! Line Location: LIST+1
Function Call: WRITE	Prompt: $$GET^XPAR("SYS","OR RDI HAVE HDR")," " Line Location: LIST+2
Function Call: WRITE	Prompt: $$GET^XPAR("SYS","OR RDI CACHE TIME") Line Location: LIST+3
Routine Call	DIR Line Location: SET+14 SET+29

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	LDPTTVAL+1
^XTMP("ORRDI"	CLEANUP+6, CLEANUP+7, CLEANUP+8!, DOWNXVAL+1, FAILXVAL+1, SUCCXVAL+1, PINGXVAL+1, SPAWN+1!, DOWNTSK+7, DOWNTSK+11 , DOWNTSK+13*, DOWNTSK+14!

Label References

Name	Line Occurrences
$$DICNPVAL	TESTCALL+7
$$DOWNXVAL	CLEANUP+10, DOWNRPC+1, DOWNTSK+1
$$PINGPVAL	CLEANUP+11, DOWNTSK+4
$$PINGXVAL	CLEANUP+11, DOWNTSK+3
$$SUCCPVAL	DOWNTSK+1
$$SUCCXVAL	DOWNTSK+1, DOWNTSK+11
$$TESTCALL	DOWNTSK+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	PIECEOUT+2~, PIECEOUT+3, PIECEOUT+5, PIECEOUT+6
DATA	PIECEOUT~
DATA(	PIECEOUT+3, PIECEOUT+4, PIECEOUT+5, PIECEOUT+6
DEL	PIECEOUT~, PIECEOUT+4, PIECEOUT+5, PIECEOUT+6
DFN	CLEANUP+1~, CLEANUP+5, CLEANUP+6, CLEANUP+7, CLEANUP+8, LDPTTVAL~, LDPTTVAL+1
DIR	SET+7~, SET+22~
DIR("?"	SET+12, SET+27
DIR("A"	SET+10, SET+25
DIR("B"	SET+11, SET+26
DIR(0	SET+13, SET+28
DOM	CLEANUP+1~, CLEANUP+6*, CLEANUP+7, CLEANUP+8
DTOUT	SET+7~, SET+15, SET+22~, SET+30
END	TESTCALL+1~, TESTCALL+7
HL	TESTCALL+2~
HLA	TESTCALL+1~
HLA("HLS"	TESTCALL+6, TESTCALL+7, TESTCALL+8*
HLDOM	TESTCALL+2~
HLDONE1	TESTCALL+2~
HLECH	TESTCALL+2~
HLFS	TESTCALL+2~
HLINSTN	TESTCALL+2~
HLL	TESTCALL+1~
HLL("LINKS"	TESTCALL+10*
HLMTIEN	TESTCALL+2~
HLNEXT	TESTCALL+2~
HLNODE	TESTCALL+2~
HLPARAM	TESTCALL+2~
HLQ	TESTCALL+2~
HLQUIT	TESTCALL+2~
I	PIECEOUT+2~, PIECEOUT+3*, PIECEOUT+4, PIECEOUT+5, PIECEOUT+6
ICN	TESTCALL+2~
J	PIECEOUT+2~, PIECEOUT+4*, PIECEOUT+5, PIECEOUT+6
NOW	CLEANUP+1~, CLEANUP+3*, CLEANUP+4
ORCS	TESTCALL+1~, TESTCALL+3*
ORES	TESTCALL+1~, TESTCALL+3*
ORFS	TESTCALL+1~, TESTCALL+3*
ORHLP	TESTCALL+2~, TESTCALL+14
ORHLP("OPEN T	IMEOUT" , TESTCALL+11*
ORHLP("SUBSCRIBER"	TESTCALL+12*
ORRS	TESTCALL+1~, TESTCALL+3*
ORRSLT	TESTCALL+2~, TESTCALL+14, TESTCALL+16
ORSS	TESTCALL+1~, TESTCALL+3*
ORY	DOWNRPC~, DOWNRPC+1*
PRE	TESTCALL+2~
QUIT	SET+3~, SET+6, SET+16, SET+20, SET+21, SET+31*
QUITALL	SET+3~, SET+6, SET+15, SET+18, SET+21, SET+30
RET	TESTCALL+2~
RSLT	DOWNTSK+2~, DOWNTSK+9*, DOWNTSK+11, DOWNTSK+13
START	TESTCALL+1~, TESTCALL+4*, TESTCALL+7
STATUS	TESTCALL+2~
THRESH	CLEANUP+1~, CLEANUP+4*, CLEANUP+8
TIME	CLEANUP+1~, CLEANUP+7*, CLEANUP+8
U	TESTCALL+12, TESTCALL+16
VAL	SET+7~, SET+8, SET+9, SET+22~, SET+23, SET+24, CLEANUP+1~, CLEANUP+2*, CLEANUP+4
VALEXT	SET+7~, SET+9, SET+11, SET+22~, SET+24, SET+26
WAIT	DOWNTSK+2~, DOWNTSK+3, DOWNTSK+4, DOWNTSK+6
WHATOUT	TESTCALL+2~
Y	SET+7~, SET+15, SET+16, SET+17, SET+22~, SET+30, SET+31, SET+32, PIECEOUT~, PIECEOUT+1! , TESTCALL+2~
Y(	PIECEOUT+5, PIECEOUT+6
ZTDESC	SPAWN+2~, SPAWN+3*
ZTDTH	SPAWN+2~, SPAWN+6*
ZTIO	SPAWN+2~, SPAWN+5*
ZTRTN	SPAWN+2~, SPAWN+4*
ZTSAVE	SPAWN+2~
ZTSK	SPAWN+2~

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORRDI2

Call Graph Total: 8

Caller Graph Total: 5