Routine: ORB31

Information

ORB31 ; slc/CLA - Routine to support OE/RR 3 notifications ;06/27/17 07:14

Package	Total	Call Graph
Kernel	4	(,KILL)^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT RESTORE^XQALERT1 FORWARD^XQALFWD
Order Entry Results Reporting	1	$$ORDERER^ORQOR2
Registration	1	INP^VADPT
VA FileMan	1	(,LIST)^DIC

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: 24

Package	Total	Caller Graph
Order Entry Results Reporting	20	OCXOZ08 OCXOZ0A OCXOZ0W ORB FORWARD ALERT ORB RENEW ALERT ORB3 ORB3FUP1 ORB3FUP2 ORB3REG ORB3SPEC ORB3TIM1 ORB3TIM2 ORB3U1 ORB3USER ORBPRCHK ORKLR ORKPS ORWDAL32 ORWDPLM1 ORWORB
Inpatient Medications	1	PSJLMHED
Outpatient Pharmacy	1	PSOORUT2
Shift Handoff Tool	1	CRHDDNR
Text Integration Utility	1	TIUTIUS

Entry Points

Name	Comments	DBIA/ICR reference
QUEUE(ORN,ORBDFN,ORNUM,ORBADUZ,ORBPMSG,ORBPDATA,ORBH,ORBD,ORDGPMA,ORFORCE)	;
DUP(ORN,ORBDFN,ORBPMSG,ORNUM)	;ext funct return "1" if a duplicate notif w/in 1 min.
RECIP(ORNUM)
REGDEV(ORBDA)	;send to regular recipient devices
PRINTD	;print queued notification to device - setup via REGDEV^ORB3
FWD(ORY,ORBLST,ORBRECIP,ORBTYPE,ORBCOMNT)	; forward a notification
RENEW(ORY,XQAID)	; renew/restore an alert/notification
TERMLKUP(OCXARR,OCXTERM)	; extrinsic function returns the local terms ; linked to the nat'l OCX term in an array and the file where those ; array terms can be found. The value of the extrinsic function is the ; file pointed to for the local terms.
DUPCLN(ORBNOW)	;clean up old entires in ^XTMP("ORBDUP")
TMDEV(ORBTM)	;returns Device for a team in format device ien^device name
ENTITY(ORNUM)	;ext funct. rtns entity for parameter use
ADT(ORN,ORBDFN,ORBPRIM,ORBATTD,ORDGPMA)	;get inpt primary and attending for ADT notifs
DEFDIV(ORDUZ)	; Return user's default division, if specified.
ORDIV(ORNUM)	; Return order's division based upon patient's location when order was placed

External References

Name	Field # of Occurrence
^%ZTLOAD	QUEUE+31, REGDEV+7
KILL^%ZTLOAD	PRINTD+1
^DIC	QUEUE+15, TMDEV+7
LIST^DIC	DEFDIV+8
$$ORDERER^ORQOR2	DUP+11
INP^VADPT	ADT+10
$$FMADD^XLFDT	DUP+5, DUP+14, DUPCLN+2, ADT+5
$$FMTE^XLFDT	PRINTD+4
$$NOW^XLFDT	DUP+4, REGDEV+3
RESTORE^XQALERT1	RENEW+3
FORWARD^XQALFWD	FWD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: XQAMSG Line Location: PRINTD+2
Function Call: WRITE	Prompt: !!!," *** NOTIFICATION PROCESSED ***",!! Line Location: PRINTD+3
Function Call: WRITE	Prompt: $$FMTE^XLFDT(ORBDT)," " Line Location: PRINTD+4
Function Call: WRITE	Prompt: XQAMSG Line Location: PRINTD+5
Function Call: WRITE	Prompt: @IOF Line Location: PRINTD+6
Routine Call	DIC Line Location: QUEUE+15 TMDEV+7
Routine Call	DIC Line Location: DEFDIV+8

Used in RPC

RPC Name	Call Tags
ORB FORWARD ALERT	FWD
ORB RENEW ALERT	RENEW

FileNo	Call Tags
200.02	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	QUEUE+20, ADT+4
^OCXS(860.9 - [#860.9]	TERMLKUP+10, TERMLKUP+12, TERMLKUP+13, TERMLKUP+14
^OR(100 - [#100]	RECIP+2, RECIP+3, ORDIV+3, ORDIV+6
^OR(100.21 - [#100.21]	TMDEV+4, TMDEV+5
^SC - [#44]	ORDIV+8
^XTMP("ORBDUP"	DUP+5, DUP+6, DUP+8, DUP+15*, DUPCLN+4, DUPCLN+5, DUPCLN+6!
^XTV(8992 - [#8992]	RENEW+3

Label References

Name	Line Occurrences
$$ORDIV	ENTITY+5
$$RECIP	DUP+12
DUPCLN	DUP+16

Naked Globals

Name	Field # of Occurrence
^(0	TERMLKUP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	QUEUE+13~, QUEUE+15, QUEUE+21!, TMDEV+7, TMDEV+10!
DIC(0	QUEUE+15, TMDEV+7
DTOUT	QUEUE+21!
DUOUT	QUEUE+21!
DUZ	RENEW+3
FILE	TERMLKUP+8~, TERMLKUP+9, TERMLKUP+12, TERMLKUP+16
I	TERMLKUP+8~, TERMLKUP+9, TERMLKUP+14, TERMLKUP+15
IOF	PRINTD+6
IOST	PRINTD+6
>> IOT	PRINTD+2
OCXARR	TERMLKUP~, TERMLKUP+15*
OCXARR(	TERMLKUP+14*
OCXI	TERMLKUP+8~, TERMLKUP+9, TERMLKUP+10, TERMLKUP+11, TERMLKUP+12, TERMLKUP+13, TERMLKUP+14
OCXJ	TERMLKUP+8~, TERMLKUP+9, TERMLKUP+13, TERMLKUP+14
OCXTERM	TERMLKUP~, TERMLKUP+10
ORBADTDT	ADT+1~, ADT+4*, ADT+5
ORBADUZ	QUEUE~
ORBATTD	ADT~, ADT+11*
ORBCOMNT	FWD~, FWD+3
ORBD	QUEUE~, QUEUE+19, REGDEV+1~, REGDEV+2, REGDEV+4, REGDEV+6
ORBDA	REGDEV~
ORBDA(	REGDEV+4
ORBDFN	QUEUE~, QUEUE+20, DUP~, DUP+6, DUP+8, DUP+15, ADT~, ADT+4
ORBDT	REGDEV+1~, REGDEV+3, PRINTD+4, DUPCLN+1~, DUPCLN+5, DUPCLN+6
ORBDUP	DUP+1~, DUP+2, DUP+14, DUP+17
ORBENT	ENTITY+1~, ENTITY+2, ENTITY+6, ENTITY+7
ORBH	QUEUE~, QUEUE+18
ORBLAST	DUP+1~, DUP+8, DUP+9, DUP+10, DUP+14
ORBLST	FWD~, FWD+1, FWD+2, FWD+3
ORBLST(1	FWD+2*
ORBNOW	DUP+1~, DUP+4*, DUP+5, DUP+6, DUP+14, DUP+15, DUP+16, DUPCLN~, DUPCLN+2
ORBPDATA	QUEUE~
ORBPMSG	QUEUE~, DUP~, DUP+6, DUP+8, DUP+15
ORBPRIM	ADT~, ADT+11*
ORBRECIP	FWD~, FWD+3
ORBTDEV	TMDEV+1~, TMDEV+5*, TMDEV+6, TMDEV+7, TMDEV+11
ORBTDEVN	TMDEV+1~, TMDEV+2, TMDEV+9, TMDEV+11
ORBTM	TMDEV~, TMDEV+3, TMDEV+4, TMDEV+5
ORBTYPE	FWD~, FWD+3
ORBX	DUPCLN+1~, DUPCLN+3, DUPCLN+4, DUPCLN+5, DUPCLN+6
ORDD	DEFDIV+2~, DEFDIV+5, DEFDIV+11, DEFDIV+13
ORDGPMA	QUEUE~, ADT~, ADT+4, ADT+7
ORDIV	ENTITY+4~, ENTITY+5, ENTITY+6, DEFDIV+2~, DEFDIV+4, DEFDIV+13, DEFDIV+14, ORDIV+4~, ORDIV+5, ORDIV+8* , ORDIV+9
ORDUZ	DEFDIV~, DEFDIV+8
ORFORCE	QUEUE~
ORGOOD	DEFDIV+2~, DEFDIV+5, DEFDIV+11, DEFDIV+13
ORI	RECIP~, RECIP+2*, RECIP+3
ORLNUM	DUP+1~, DUP+9*, DUP+11, DUP+12
ORN	QUEUE~, DUP~, DUP+6, DUP+8, DUP+12, DUP+15, ADT~, ADT+3, ADT+7
ORNDT	DUPCLN+1~, DUPCLN+2*, DUPCLN+6
ORNUM	QUEUE~, DUP~, DUP+6, DUP+11, DUP+12, DUP+15, RECIP~, RECIP+1, RECIP+2, RECIP+3 , ENTITY~, ENTITY+3, ENTITY+5, ORDIV~, ORDIV+2, ORDIV+3, ORDIV+6
ORSAMEP	DUP+1~, DUP+3, DUP+11, DUP+14
ORSAMEREC	DUP+1~, DUP+12*, DUP+14
ORY	FWD~, FWD+1, FWD+4, RENEW~, RENEW+4*
ORZ	DEFDIV+2~
ORZ("DILIST"	DEFDIV+9, DEFDIV+11, DEFDIV+13
ORZERR	DEFDIV+2~
PTLOC	ORDIV+4~, ORDIV+6*, ORDIV+7, ORDIV+8
RECIP	RECIP~, RECIP+3*, RECIP+4
U	QUEUE+16, QUEUE+20, RECIP+3, TERMLKUP+12, TERMLKUP+14, TMDEV+5, TMDEV+9, TMDEV+11, ADT+4, ADT+7 , ADT+11, DEFDIV+9, DEFDIV+13, ORDIV+6, ORDIV+8
>> VAIN(11	ADT+11
>> VAIN(2	ADT+11
VAINDT	ADT+1~, ADT+5, ADT+7, ADT+9
X	QUEUE+13~, QUEUE+15, TMDEV+7, TMDEV+10!
XQAID	RENEW~, RENEW+1, RENEW+3
XQAKILL	RENEW+2!
>> XQAMSG	PRINTD+2, PRINTD+5
Y	QUEUE+13~, QUEUE+16, QUEUE+21!, TMDEV+8, TMDEV+9, TMDEV+10!, DEFDIV+5*
ZTCPU	QUEUE+13~, QUEUE+21!
ZTDESC	QUEUE+13~, QUEUE+19, QUEUE+20, REGDEV+5*
ZTDTH	QUEUE+13~, QUEUE+18, REGDEV+5
ZTIO	QUEUE+13~, QUEUE+16, QUEUE+17, REGDEV+6*
ZTPAR	QUEUE+13~, QUEUE+21!
ZTPRE	QUEUE+13~, QUEUE+21!
ZTPRI	QUEUE+13~, QUEUE+21!
ZTREQ	QUEUE+13~
ZTRTN	QUEUE+13~, QUEUE+18, REGDEV+5
ZTSAVE	QUEUE+13~, QUEUE+21!
ZTSAVE("ORBADUZ("	QUEUE+26*
ZTSAVE("ORBDFN"	QUEUE+24*
ZTSAVE("ORBDT"	REGDEV+6*
ZTSAVE("ORBPDATA"	QUEUE+28*
ZTSAVE("ORBPMSG"	QUEUE+27*
ZTSAVE("ORDGPMA"	QUEUE+29*
ZTSAVE("ORFORCE("	QUEUE+30*
ZTSAVE("ORN"	QUEUE+23*
ZTSAVE("ORNUM"	QUEUE+25*
ZTSAVE("XQAMSG"	REGDEV+6*
ZTSK	QUEUE+13~, PRINTD+1
ZTUCI	QUEUE+13~, QUEUE+21!

Customize PDF page

Package: Order Entry Results Reporting