Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  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 |  All
Print Page as PDF
Routine: ORB31

Package: Order Entry Results Reporting

Routine: ORB31


Information

ORB31 ; slc/CLA - Routine to support OE/RR 3 notifications ;6/28/00 12:00 [ 04/02/97 11:12 AM ]

Source Information

Source file <ORB31.m>

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  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Order Entry Results Reporting 13 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

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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

Naked Globals

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!
Info |  Source |  Call Graph |  Caller Graph |  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 |  All