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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORCACT1

Package: Order Entry Results Reporting

Routine: ORCACT1


Information

ORCACT1 ;SLC/MKB,ASMR/BL-Act on orders cont ; 10/16/15 1:36pm

Source Information

Source file <ORCACT1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Order Entry Results Reporting 13 $$XQAKILL^ORB3F1  ($$ORDITEM,SUBHDR)^ORCACT  $$VALID^ORCACT0  $$NMSP^ORCD  (EN,UN)^ORCFLAG  $$ORDERS^ORCHART  FREEZE^ORCMENU  COMP^ORCSAVE2  
EN^ORCSEND  ($$ESIG,EN)^ORCSIGN  COMP^ORMBLDOR  (EN,GRP)^ORQ1  ($$LOCK1,UNLK1)^ORX2  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  DELETEA^XQALERT  
Registration 1 INP^VADPT  
VA FileMan 1 EN^DIWE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Order Entry Results Reporting 10 ORC ALERT RESULTS  ORC COMPLETE ORDERS  ORC FLAG ORDERS  ORC UNFLAG ORDERS  ORC VERIFY CHART REVIEW  ORC VERIFY ORDERS  ORC WARD COMMENTS  ORCSAVE2  
ORMPS  ORWDXA  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
FLAG ; -- flag orders
UNFLAG ; -- unflag orders
COMMENT ; -- add ward comments to orders
ALERT ; -- alert provider when results available
UNHOLD ; -- release hold on orders - no longer in use
EN(ORACT) ; -- Actions that don't create orders
; ORNMBR = #,#,...,# of selected orders
; ORACT = action to be taken
ENQ
FL ; -- Flag order ORIFN
UF ; -- Unflag order ORIFN
CM ; -- Ward Comments on order ORIFN
AL ; -- Alert when results are available for order ORIFN
RL ; -- Release hold on order ORIFN [No longer used]
VERIFY(ORVER) ; -- Verify orders
VR1
VRQ
STS(X) ; -- Return name of status X
REPLCD ; -- Ck for unverified replaced orders for ORIFN, add to ORES(order#)
; [Expects ORVER; also called from VERIFY^ORWDXA,VERIFY^ORRCOR]
COMPLX ; -- Ck for other child orders to be verified at same time
CKALERT ; -- Ck if Unverified Orders alerts can be deleted
DELALRT(X) ; -- delete alert X
UNLOCK ; -- Unlock orders in ORES(ORIFN) [from VR1]
SIGNREQD(IFN) ; -- Returns 2, 1, or 0, if order/actions need ES
SIGN ; -- Sign orders [no longer used]
COMPLETE ; -- complete orders
CP1
CPQ

External References

Name Field # of Occurrence
EN^DIWE CM+4
$$XQAKILL^ORB3F1 DELALRT+3
$$ORDITEM^ORCACT EN+13, VERIFY+8, VERIFY+9, VR1+7, VR1+9, COMPLX+13, COMPLETE+7, COMPLETE+8
SUBHDR^ORCACT EN+13, COMPLX+13
$$VALID^ORCACT0 EN+14, VERIFY+8, COMPLETE+7
$$NMSP^ORCD COMPLX+4
EN^ORCFLAG FL+1
UN^ORCFLAG UF+1
$$ORDERS^ORCHART EN+7, VERIFY+3, COMPLETE+2
FREEZE^ORCMENU EN+8, VERIFY+4, COMPLETE+3
COMP^ORCSAVE2 CP1+4
EN^ORCSEND RL+1, VR1+5
$$ESIG^ORCSIGN VR1, CP1
EN^ORCSIGN SIGN+1
COMP^ORMBLDOR CP1+5
EN^ORQ1 CKALERT+5
GRP^ORQ1 CKALERT+8
$$LOCK1^ORX2 EN+15, VERIFY+9, REPLCD+8, REPLCD+13, COMPLETE+8
UNLK1^ORX2 EN+16, VR1+5, UNLOCK+1, CP1+4
INP^VADPT CKALERT+3
$$FMADD^XLFDT CKALERT+2, CKALERT+4
$$NOW^XLFDT CKALERT+1, CP1+2
DELETEA^XQALERT DELALRT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This order has been deleted!"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,ORERR
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,$P(ORLK,U,2)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !?10,"... done."
  • Line Location: AL+2
Function Call: WRITE
  • Prompt: !,"... order "_$S($G(ORERR):"not ",1:"")_"released from hold."
  • Line Location: RL+2
Function Call: WRITE
  • Prompt: $C(7),!!,"You must be a nurse or clerk to verify these orders!"
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_ORERR
  • Line Location: VERIFY+8
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_$P(ORLK,U,2)
  • Line Location: VERIFY+9
Function Call: WRITE
  • Prompt: !,"Nothing verified!"
  • Line Location: VR1+1
Function Call: WRITE
  • Prompt: !!,"Verifying orders ..."
  • Line Location: VR1+2
Function Call: WRITE
  • Prompt: !,$$ORDITEM^ORCACT(ORIFN)_" not verified."
  • Line Location: VR1+7
Function Call: WRITE
  • Prompt: !,$$ORDITEM^ORCACT(ORIFN)_" is now "_$$STS(ORNEW)_"."
  • Line Location: VR1+9
Function Call: WRITE
  • Prompt: !,"All doses of this complex order must be verified together;"
  • Line Location: COMPLX+14
Function Call: WRITE
  • Prompt: !,"adding remaining doses to signature list..."
  • Line Location: COMPLX+15
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_ORERR
  • Line Location: COMPLETE+7
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_$P(ORLK,U,2)
  • Line Location: COMPLETE+8
Function Call: WRITE
  • Prompt: !,"Nothing completed!"
  • Line Location: CP1+1
Function Call: WRITE
  • Prompt: !!,"Completing orders ..."
  • Line Location: CP1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] EN+12, AL+1*, VR1+4, VR1+9, REPLCD+6, REPLCD+7, REPLCD+10, REPLCD+11, REPLCD+12, COMPLX+4
, COMPLX+5, COMPLX+6, COMPLX+9, COMPLX+10, COMPLX+11, CKALERT+9, SIGNREQD+1
^ORD(100.01 - [#100.01] STS+1
^ORD(100.9 - [#100.9] DELALRT+2, DELALRT+4
^ORD(100.98 - [#100.98] CKALERT+8
^TMP("OR" EN+10, VERIFY+6, COMPLETE+5
^TMP("ORR" CKALERT+6, CKALERT+9

Label References

Name Line Occurrences
$$STS VR1+9
@( EN+16
CKALERT VR1+10
COMPLX VR1
DELALRT CKALERT+10, CKALERT+11
EN FLAG+1, UNFLAG+1, COMMENT+1, ALERT+1
REPLCD VERIFY+10
UNLOCK VR1+1, CP1+1

Naked Globals

Name Field # of Occurrence
^( REPLCD+12, CKALERT+9
^(3 COMPLX+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALL COMPLX+1~, COMPLX+8*, COMPLX+12*, COMPLX+13
CHLD COMPLX+1~, COMPLX+8*, COMPLX+9*, COMPLX+10, COMPLX+11, COMPLX+12
DAD COMPLX+1~
DAD( COMPLX+6*, COMPLX+7
DAD(0 COMPLX+7
DDWRW CM+1~, CM+3*
DFN CKALERT+3~*
DG CKALERT+7~, CKALERT+9*
DIC CM+1~, CM+2*
DIWEPSE CM+1~, CM+2*
DIWESUB CM+1~, CM+3*
DUZ CP1+4
DWPK CM+1~, CM+2*
I COMPLX+1~, COMPLX+10*, COMPLX+11, COMPLX+12, CKALERT+7~, CKALERT+9*
IDX EN+6~, EN+10*, VERIFY+1~, VERIFY+6*, COMPLETE+1~, COMPLETE+5*
IFN COMPLX+1~, COMPLX+3*, COMPLX+4, COMPLX+5, COMPLX+6, COMPLX+7*, COMPLX+9, COMPLX+13, CKALERT+7~, CKALERT+9*
, SIGNREQD~, SIGNREQD+1
NMBR EN+6~, EN+9*, EN+10, VERIFY+1~, VERIFY+5*, VERIFY+6, COMPLETE+1~, COMPLETE+4*, COMPLETE+5
OR3 REPLCD+2~, REPLCD+10*, REPLCD+11
ORACT EN~, EN+14, EN+16, RL+1
ORALL CKALERT+1~, CKALERT+7*, CKALERT+10
ORBEG CKALERT+1~, CKALERT+2*, CKALERT+4*, CKALERT+5
ORDA REPLCD+2~, REPLCD+3*, REPLCD+4, REPLCD+6, REPLCD+12*, REPLCD+14
ORDITM EN+6~, EN+13*, CM+3, VERIFY+1~, COMPLETE+1~
OREBUILD EN+8!, RL+4*, VERIFY+4!, VR1+10*, COMPLETE+3!, CP1+6*
ORERR EN+6~, EN+14, RL+1, RL+2, RL+3, VERIFY+1~, VERIFY+8, VR1+5, VR1+6, VR1+8
, COMPLETE+1~, COMPLETE+7
ORES VERIFY+1~, COMPLETE+1~
ORES( VERIFY+7, VERIFY+10*, VR1+3, REPLCD+9*, REPLCD+14*, COMPLX+3, COMPLX+11, COMPLX+12*, UNLOCK+1, COMPLETE+9*
, CP1+3
ORES(0 VR1, CP1
ORFLD REPLCD+2~, REPLCD+3*, REPLCD+7, REPLCD+12
ORGRP CKALERT+7~
ORGRP( CKALERT+9
ORI EN+6~, EN+9*, VERIFY+1~, VERIFY+5*, REPLCD+2~, REPLCD+6*, REPLCD+7, REPLCD+9, COMPLETE+1~, COMPLETE+4*
ORIFN EN+6~, EN+10*, EN+11*, EN+12, EN+13, EN+14, EN+15, EN+16, CM+2, AL+1
, RL+1, VERIFY+1~, VERIFY+6*, VERIFY+7*, VERIFY+8, VERIFY+9, VERIFY+10, VR1+3*, VR1+4, VR1+5
, VR1+7, VR1+9, REPLCD+3, REPLCD+6, REPLCD+7, REPLCD+8, REPLCD+9, REPLCD+10, UNLOCK+1*, COMPLETE+1~
, COMPLETE+5*, COMPLETE+6*, COMPLETE+7, COMPLETE+8, COMPLETE+9, CP1+2*, CP1+3*, CP1+4, CP1+5
ORIG REPLCD+2~, REPLCD+11*, REPLCD+12, REPLCD+13, REPLCD+14
ORLIST CKALERT+1~, CKALERT+6, CKALERT+9
ORLK EN+6~, EN+15*, VERIFY+1~, VERIFY+9*, REPLCD+2~, REPLCD+8*, REPLCD+13*, COMPLETE+1~, COMPLETE+8*
ORMEDS CKALERT+1~, CKALERT+9*, CKALERT+11
ORNEW VERIFY+1~, VR1+9*
ORNIFN DELALRT+1~, DELALRT+2*, DELALRT+3, DELALRT+4
>> ORNMBR EN+7*, EN+9, VERIFY+3*, VERIFY+5, COMPLETE+2*, COMPLETE+4
ORNOW CKALERT+1~*, CKALERT+2, CKALERT+4, CKALERT+5
OROLDSTS VERIFY+1~, VR1+4*, VR1+9
ORQUIT EN+6~, EN+9, VERIFY+5, COMPLETE+4
ORRX CKALERT+7~, CKALERT+8*
ORSIG VERIFY+1~, VR1*, VR1+1, COMPLETE+1~, CP1*, CP1+1
ORSTOP COMPLETE+1~, CP1+2*, CP1+4
>> ORTAB EN+10, VERIFY+6, COMPLETE+5
ORVER VERIFY~, VERIFY+2, REPLCD+3, COMPLX+2
>> ORVP CKALERT+3, CKALERT+5, DELALRT+4
ORWAIT VERIFY+1~, VR1+9*, VR1+10
>> ORWARD CKALERT+2
P COMPLX+1~, COMPLX+2*, COMPLX+11
U EN+10, EN+15, AL+1, RL+3, VERIFY+6, VERIFY+9, VR1+4, VR1+8, VR1+9, STS+1
, REPLCD+7, REPLCD+10, REPLCD+11, REPLCD+12, COMPLX+4, COMPLX+5, COMPLX+6, COMPLX+11, CKALERT+4, CKALERT+9
, DELALRT+4, SIGNREQD+1, COMPLETE+5, COMPLETE+8
VAERR CKALERT+3~
VAIN CKALERT+3~
VAIN(7 CKALERT+4
>> VALMBCK EN+8*, VERIFY+2*, VERIFY+4*, COMPLETE+3*
X STS~, STS+1, COMPLX+1~, COMPLX+4*, COMPLX+5*, COMPLX+9*, COMPLX+10, COMPLX+13*, DELALRT~, DELALRT+2
XQAID VR1+10, DELALRT+1~, DELALRT+4*
XQAKILL DELALRT+1~, DELALRT+3*
Y STS+1~*, STS+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All