Routine: ORB31

Call Graph

Call Graph Total: 7

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

Package	Total	Caller Graph
Order Entry Results Reporting	13	OCXOZ08 OCXOZ0A OCXOZ0Z ORB3 ORB3REG ORB3SPEC ORB3TIM1 ORB3TIM2 ORB3U1 ORB3USER ORBPRCHK ORKLR ORKPS

Package

Total

Caller Graph

Order Entry Results Reporting

OCXOZ08 OCXOZ0A OCXOZ0Z ORB3 ORB3REG ORB3SPEC ORB3TIM1 ORB3TIM2
ORB3U1 ORB3USER ORBPRCHK ORKLR ORKPS

Entry Points

Name	Comments	DBIA/ICR reference
DUPCLN(ORBNOW)	;clean up old entires in ^XTMP("ORBDUP")
ADT(ORN,ORBDFN,ORBPRIM,ORBATTD,ORDGPMA)	;get inpt primary and attending for ADT notifs
FWD(ORY,ORBLST,ORBRECIP,ORBTYPE,ORBCOMNT)	; forward a notification
ORDIV(ORNUM)	; Return order's division based upon patient's location when order was placed
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.
PRINTD	;print queued notification to device - setup via REGDEV^ORB3
QUEUE(ORN,ORBDFN,ORNUM,ORBADUZ,ORBPMSG,ORBPDATA,ORBH,ORBD,ORDGPMA)	;
DUP(ORN,ORBDFN,ORBPMSG,ORNUM)	;ext funct return "1" if a duplicate notif w/in 1 min.
ENTITY(ORNUM)	;ext funct. rtns entity for parameter use
DEFDIV(ORDUZ)	; Return user's default division, if specified.
REGDEV(ORBDA)	;send to regular recipient devices
TMDEV(ORBTM)	;returns Device for a team in format device ien^device name
RENEW(ORY,XQAID)	; renew/restore an alert/notification

External References

Name	Field # of Occurrence
^%ZTLOAD	QUEUE+29, REGDEV+7
KILL^%ZTLOAD	PRINTD+1
^DIC	QUEUE+14, TMDEV+7
LIST^DIC	DEFDIV+8
$$ORDERER^ORQOR2	DUP+11
INP^VADPT	ADT+10
$$FMADD^XLFDT	DUP+5, DUP+13, 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: DEFDIV+8
Routine Call	DIC Line Location: QUEUE+14 TMDEV+7

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+19, ADT+4
^OCXS(860.9 - [#860.9]	TERMLKUP+10, TERMLKUP+12, TERMLKUP+13, TERMLKUP+14
^OR(100 - [#100]	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+14*, DUPCLN+4, DUPCLN+5, DUPCLN+6!
^XTV(8992 - [#8992]	RENEW+3

Name	Line Occurrences
$$ORDIV	ENTITY+5
DUPCLN	DUP+15

Name	Field # of Occurrence
^(0	TERMLKUP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	QUEUE+12~, QUEUE+14, QUEUE+20!, TMDEV+7, TMDEV+10!
DIC(0	QUEUE+14, TMDEV+7
DTOUT	QUEUE+20!
DUOUT	QUEUE+20!
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+18, REGDEV+1~, REGDEV+2, REGDEV+4, REGDEV+6
ORBDA	REGDEV~
ORBDA(	REGDEV+4
ORBDFN	QUEUE~, QUEUE+19, DUP~, DUP+6, DUP+8, DUP+14, ADT~, ADT+4
ORBDT	REGDEV+1~, REGDEV+3, PRINTD+4, DUPCLN+1~, DUPCLN+5, DUPCLN+6
ORBDUP	DUP+1~, DUP+2, DUP+13, DUP+16
ORBENT	ENTITY+1~, ENTITY+2, ENTITY+6, ENTITY+7
ORBH	QUEUE~, QUEUE+17
ORBLAST	DUP+1~, DUP+8, DUP+9, DUP+10, DUP+13
ORBLST	FWD~, FWD+1, FWD+2, FWD+3
ORBLST(1	FWD+2*
ORBNOW	DUP+1~, DUP+4*, DUP+5, DUP+6, DUP+13, DUP+14, DUP+15, DUPCLN~, DUPCLN+2
ORBPDATA	QUEUE~
ORBPMSG	QUEUE~, DUP~, DUP+6, DUP+8, DUP+14
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
ORGOOD	DEFDIV+2~, DEFDIV+5, DEFDIV+11, DEFDIV+13
ORLNUM	DUP+1~, DUP+9*, DUP+11
ORN	QUEUE~, DUP~, DUP+6, DUP+8, DUP+14, ADT~, ADT+3, ADT+7
ORNDT	DUPCLN+1~, DUPCLN+2*, DUPCLN+6
ORNUM	QUEUE~, DUP~, DUP+6, DUP+11, DUP+14, ENTITY~, ENTITY+3, ENTITY+5, ORDIV~, ORDIV+2 , ORDIV+3, ORDIV+6
ORSAMEP	DUP+1~, DUP+3, DUP+11, DUP+13
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
U	QUEUE+15, QUEUE+19, 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+12~, QUEUE+14, TMDEV+7, TMDEV+10!
XQAID	RENEW~, RENEW+1, RENEW+3
XQAKILL	RENEW+2!
>> XQAMSG	PRINTD+2, PRINTD+5
Y	QUEUE+12~, QUEUE+15, QUEUE+20!, TMDEV+8, TMDEV+9, TMDEV+10!, DEFDIV+5*
ZTCPU	QUEUE+12~, QUEUE+20!
ZTDESC	QUEUE+12~, QUEUE+18, QUEUE+19, REGDEV+5*
ZTDTH	QUEUE+12~, QUEUE+17, REGDEV+5
ZTIO	QUEUE+12~, QUEUE+15, QUEUE+16, REGDEV+6*
ZTPAR	QUEUE+12~, QUEUE+20!
ZTPRE	QUEUE+12~, QUEUE+20!
ZTPRI	QUEUE+12~, QUEUE+20!
ZTREQ	QUEUE+12~
ZTRTN	QUEUE+12~, QUEUE+17, REGDEV+5
ZTSAVE	QUEUE+12~, QUEUE+20!
ZTSAVE("ORBADUZ("	QUEUE+25*
ZTSAVE("ORBDFN"	QUEUE+23*
ZTSAVE("ORBDT"	REGDEV+6*
ZTSAVE("ORBPDATA"	QUEUE+27*
ZTSAVE("ORBPMSG"	QUEUE+26*
ZTSAVE("ORDGPMA"	QUEUE+28*
ZTSAVE("ORN"	QUEUE+22*
ZTSAVE("ORNUM"	QUEUE+24*
ZTSAVE("XQAMSG"	REGDEV+6*
ZTSK	QUEUE+12~, PRINTD+1
ZTUCI	QUEUE+12~, QUEUE+20!

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORB31

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: