Routine: ORRCACK

Information

ORRCACK ;SLC/MKB - Result Acknowledgement file utilities ; 25 Jul 2003 9:31 AM

Package	Total	Call Graph
Lab Service	3	RR^LR7OR1 EN1^LR7OSBR EN^LR7OSMZ0
Order Entry Results Reporting	3	$$NMSP^ORCD $$VALUE^ORCSAVE2 TEXT^ORQ12
VA FileMan	3	FILE^DICN ^DIE ^DIK
Consult Request Tracking	2	RT^GMRCGUIA DT^GMRCSLM2
Kernel	2	($$FMTHL7,$$HL7TFM)^XLFDT $$REPEAT^XLFSTR
Care Management	1	RSLT^ORRCXQ
Radiology Nuclear Medicine	1	EN30^RAO7PC3
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORMGMRC ORMLR ORMRA
Emergency Department Integration Software	1	EDPUPD

Entry Points

Name	Comments	DBIA/ICR reference
PARAM(PROV)	; -- Return ORRC ACTIVATION DATE parameter for PROV
ADD(ORDER,PROV,ACK)	; -- Create new entry in file #102.4 when results are posted ; [called from HL7 messages: ORMLR, ORMRA, ORMGMRC]	ICR #4170 Status: Active Usage: Private
ACK(ORY,ORUSR,ORDER)	; -- Acknowledge results of ORDERs by ORUSR ; where ORDER(#) = ID ^ 1 or 0, if acknowledged ; Returns ORY(#) = ID ^ 1 or 0, if successful ; RPC = ORRC RESULTS ACKNOWLEDGE
DEL(DA)	; -- Delete old acknowledgment stub
PATS(ORY,ORUSR)	; -- Return list of patients for whom ORUSR has unack'd results ; in @ORY@(PAT) = #orders ^ 1 if any are abnormal ; @ORY@(PAT,ID) = * if abnormal, else null ; [from ORRCDPT]
ORSLT	; -- Add ORIFN to ^TMP($J,"ORSLT",PAT,pkgid) for use by Events
IDS(ORY,ORPAT,ORUSR,SDATE,EDATE)	; -- Return new results for ORPAT ; between ORBEG & OREND that ORUSR has not acknowledged ; in @ORY@(ORPAT) = #orders ^ 1 if any are abnormal ; @ORY@(ORPAT,ID) = * if abnormal, else null ; [from ORRCDPT1]
LIST(ORY,ORUSR,ORPAT,ORSLT)	; -- Return orders by ORUSR for ORPAT with new results ; in @ORY@(#) = Item=ID^Text^ResultDate in HL7 format, and also if ORSLT ; = Data=Test^Value^Units^ReferenceRange^CriticalFlag ; = Cmnt=result comment ; or Text=line of report text ; RPC = ORRC RESULTS BY PATIENT
LISTD(ORY,ORPAT,ORUSR,ORBEG,OREND,ORSLT)	; -- Return new results for ORPAT ; between ORBEG & OREND that ORUSR has not acknowledged ; in @ORY@(#) = Item=ID^Text^ResultDate in HL7 format, and also if ORSLT ; = Data=Test^Value^Units^ReferenceRange^CriticalFlag ; = Cmnt=result comment ; or Text=line of report text ; RPC = ORRC RESULTS BY DATE
DATES	; -- Return SDATE and EDATE from ORBEG and OREND ; [Inverted for rev-chron search]
DT1
ACKD(ORDER,USER)	; -- Returns 1 or 0, if USER has acknowledged ORDER
RESULT(ORY,ORDER)	; -- Return results of ORDERs ; where ORDER(#) = ID ; in @ORY@(#) = Item=ID^Text^ResultDate in HL7 format, and ; = Data=Test^Value^Units^ReferenceRange^CriticalFlag ; = Cmnt=result comment ; or Text=line of report text ; RPC = ORRC RESULTS BY ID
ORD	; -- Add results for ORIFN to @ORY@(ORN)
LR	; -- Lab results
RA	; -- Radiology results
XRPT	; -- body of report for CASE, PROC
GMRC	; -- Consult results

External References

Name	Field # of Occurrence
FILE^DICN	ADD+8
^DIE	ACK+11
^DIK	DEL+2
RT^GMRCGUIA	GMRC+3
DT^GMRCSLM2	GMRC+3
RR^LR7OR1	LR+5, LR+6
EN1^LR7OSBR	LR+15
EN^LR7OSMZ0	LR+15
$$NMSP^ORCD	ORSLT+3, ORD+2
$$VALUE^ORCSAVE2	LR+4
TEXT^ORQ12	LIST+11, LISTD+13, RESULT+11
RSLT^ORRCXQ	ACK+13
EN30^RAO7PC3	RA+2
$$FMTHL7^XLFDT	LIST+12, LISTD+14, RESULT+12, LR+9
$$HL7TFM^XLFDT	DATES+2
$$REPEAT^XLFSTR	XRPT+2
$$GET^XPAR	PARAM+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORA(102.4 - [#102.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	GMRC+2
^LAB(60 - [#60]	LR+13
^OR(100 - [#100]	PATS+8, PATS+9, ORSLT+2, IDS+9, IDS+10, IDS+11, IDS+12, LIST+9, LIST+10, LIST+11 , LISTD+10, LISTD+11, LISTD+12, RESULT+10, ORD+2, LR+2, RA+2, GMRC+1
^ORA(102.4 - [#102.4]	ADD+4, ACK+9, ACK+10, DEL+2, PATS+7, PATS+11, LIST+9, ACKD+2, ACKD+3
^ORD(101.43 - [#101.43]	LR+4
^TMP("GMRCR"	GMRC+4, GMRC+5!
^TMP("LRC"	LR+15!, LR+16, LR+17!
^TMP("LRRR"	LR+1!, LR+5, LR+7, LR+8, LR+9, LR+10!, LR+11, LR+17!
^TMP($J	PATS+6!, PATS+10, ORSLT+5, ORSLT+8, IDS+6, LIST+7, LISTD+8, RESULT+8, RA+3, RA+4 , RA+5, RA+6, RA+7!, XRPT+3, XRPT+4
^VA(200 - [#200]	PARAM+1

Label References

Name	Line Occurrences
$$ACKD	IDS+12, LISTD+13
$$PARAM	ADD+5, PATS+5
@(	ORD+4
ADD	ACK+9
DATES	LISTD+9
DEL	PATS+11
DT1	IDS+8
ORD	LIST+13, LISTD+15, RESULT+13
ORSLT	PATS+15
XRPT	RA+5, RA+6

Naked Globals

Name	Field # of Occurrence
^(	LR+16, RA+6, XRPT+3, XRPT+4, GMRC+4
^("ORD"	XRPT+3
^(4	ORSLT+2, LR+2, RA+2
^(7	PATS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABN	PATS+4~, PATS+9, PATS+13, PATS+14, IDS+5~, IDS+13, IDS+14
ACK	ADD~, ADD+3, PATS+4~, PATS+11*
ACTDT	ADD+5~, ADD+6, PATS+4~, PATS+5, PATS+11
CASE	RA+1~, RA+4, RA+5, RA+6, XRPT+3, XRPT+4
CNT	PATS+4~, PATS+12, PATS+13, IDS+5~, IDS+7, IDS+12, IDS+14
DA	ACK+4~, ACK+10*, DEL~, DEL+2
DIC	ADD+2~, ADD+7*
DIC("DR"	ADD+7*
DIC(0	ADD+7*
DIE	ACK+4~, ACK+5*
DIK	DEL+1~*
DO	ADD+2~
DR	ACK+4~, ACK+11*
DT	ADD+6
EDATE	IDS~, IDS+8, IDS+9, LISTD+7~, LISTD+10, DATES+2, DT1, DT1+2, DT1+3*
FIRST	RA+1~, RA+3, XRPT+2, XRPT+5
GMRCID	GMRC+1~*, GMRC+2, GMRC+3
I	LR+1~, LR+13, LR+16, XRPT+1~, XRPT+4, GMRC+1~, GMRC+4
IDX	ORSLT+4~, ORSLT+5
>> IFN	ACKD+2*, ACKD+3
LRDT	LR+9, LR+11~, LR+12, LR+13, LR+14
LRI	LR+11~, LR+14*
LRID	LR+1~, LR+2, LR+3, LR+5, LR+6
LRN	LR+11~, LR+12*, LR+13, LR+14
LRSUB	LR+1~, LR+8*, LR+9, LR+10, LR+15
LRTST	LR+1~, LR+4*, LR+5, LR+6
NMSP	ORSLT+1~, ORSLT+3*, ORSLT+6, ORSLT+7
OR0	ORSLT+1~, ORSLT+2*, ORSLT+3
OR4	ORSLT+1~, ORSLT+2*, ORSLT+5, ORSLT+7
ORACK	ACK+4~, ACK+7*, ACK+11
ORBEG	LISTD~, DATES+2
ORD	XRPT+1~, XRPT+3*
ORDER	ADD~, ADD+2, ADD+4, ADD+8, ACK~, ACKD~, ACKD+2, RESULT~
ORDER(	ACK+6, ACK+7, RESULT+9
ORDT	IDS+5~, IDS+9, IDS+10, LIST+6~, LIST+11, LIST+12, LISTD+7~, LISTD+10, LISTD+11, LISTD+14 , RESULT+7~, RESULT+10, RESULT+12
OREND	LISTD~, DATES+2
ORI	ACK+4~, ACK+6, ACK+7, ACK+8, ACK+12, RESULT+7~, RESULT+9
ORIFN	ACK+4~, ACK+7, ACK+8, ACK+9, ACK+10, ACK+12, PATS+4~, PATS+7, PATS+8, PATS+9 , PATS+11, PATS+14, ORSLT+2, ORSLT+5, ORSLT+6, ORSLT+8, IDS+5~, IDS+10, IDS+11, IDS+12 , IDS+13, LIST+6~, LIST+9, LIST+10, LIST+11, LIST+12, LISTD+7~, LISTD+11, LISTD+12, LISTD+13 , LISTD+14, RESULT+7~, RESULT+9, RESULT+10, RESULT+11, RESULT+12, ORD+1, ORD+2, ORD+3, LR+2 , LR+4, RA+2, GMRC+1~
ORN	LIST+6~, LIST+8, LIST+12, LISTD+7~, LISTD+9, LISTD+14, RESULT+7~, RESULT+8, RESULT+12, LR+3* , LR+7, LR+9, LR+13, LR+14, LR+16, XRPT+2, XRPT+3, XRPT+4, GMRC+4
ORPAT	IDS~, IDS+7, IDS+9, IDS+10, IDS+13, IDS+14, LIST~, LIST+8, LIST+9, LISTD~ , LISTD+9*, LISTD+10, LISTD+11
ORSLT	LIST~, LIST+13, LISTD~, LISTD+15
ORTX	LIST+6~, LIST+11, LISTD+7~, LISTD+13, RESULT+7~, RESULT+11
ORTX(1	LIST+12, LISTD+14, RESULT+12
ORUSR	ACK~, ACK+4, ACK+5, ACK+9, ACK+10, ACK+13, PATS~, PATS+5, PATS+7, PATS+11 , IDS~, IDS+7, IDS+12, LIST~, LIST+8, LIST+9, LISTD~, LISTD+9*, LISTD+13
ORVP	LR+1~, LR+2, LR+5, LR+6, LR+7, LR+8, LR+9, LR+11, LR+15, RA+1~ , RA+2, RA+3, RA+4, RA+5, RA+6, RA+7, XRPT+3, XRPT+4
ORXQ	ACK+4~, ACK+13
ORXQ(	ACK+12*
ORY	ACK~, PATS~, PATS+6, PATS+13, PATS+14, IDS~, IDS+6, IDS+13, IDS+14, LIST~ , LIST+7, LIST+12, LISTD~, LISTD+8, LISTD+14, RESULT~, RESULT+8, RESULT+12, LR+3, LR+7 , LR+9, LR+13, LR+14, LR+16, XRPT+2, XRPT+3, XRPT+4, GMRC+4
ORY(	ACK+8, ACK+12, PATS+12
ORY(1	ORD+3*
PAT	PATS+4~, PATS+9*, PATS+10, PATS+12, PATS+13, PATS+14, ORSLT+5, ORSLT+8
PKG	ORD+1~, ORD+2*, ORD+3, ORD+4
PROC	RA+1~, RA+5, RA+6, XRPT+3, XRPT+4
PROV	PARAM~, PARAM+1*, PARAM+2, ADD~, ADD+3, ADD+4, ADD+5, ADD+7
PSET	RA+1~, RA+3*, RA+4, RA+6
RAID	RA+1~, RA+2*
RDT	PATS+4~, PATS+9*, PATS+11
SDATE	IDS~, IDS+8, IDS+9, LISTD+7~, LISTD+10, DATES+2, DT1+1, DT1+2, DT1+3*
SERV	PARAM+1~*, PARAM+2
STOP	ADD+2~, ADD+3, ADD+4, ADD+6
SUB	GMRC+1~, GMRC+2, GMRC+3, GMRC+4
TEST	LR+11~*
TEST(	LR+12, LR+13, LR+14
U	ACK+7, ACK+12, DEL+2, PATS+8, PATS+9, PATS+13, ORSLT+3, IDS+11, IDS+12, IDS+14 , LIST+9, LIST+10, LIST+12, LISTD+12, LISTD+14, ACKD+3, RESULT+12, ORD+2, ORD+3, LR+2 , LR+4, LR+9, LR+13, RA+2
USER	ACKD~, ACKD+3
X	ADD+2~, ADD+8, ACK+4~, ACK+7, PATS+4~, PATS+12, PATS+13, ORSLT+1~, ORSLT+2, ORSLT+5* , ORSLT+6, ORSLT+7, ORSLT+8, IDS+5~, IDS+12, IDS+13, DT1+3, ACKD+3, LR+1~, LR+4 , LR+13, LR+16, XRPT+1~, XRPT+4, GMRC+1~, GMRC+4
Y	PARAM+1~, PARAM+2, PARAM+3, ADD+2~, ACK+4~, ACKD+1~, ACKD+2, ACKD+3*, ACKD+4

Customize PDF page

Package: Care Management