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-Act on orders cont ;7/29/97 08:26

Source Information

Source file <ORCACT1.m>

Call Graph

Call Graph Total: 16

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Order Entry Results Reporting 3 ORCSAVE2  ORMPS  ORWDXA  
Care Management 1 ORRCOR  

Entry Points

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

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+3
EN^ORCSEND RL+1, VR1+5
$$ESIG^ORCSIGN VR1, CP1
EN^ORCSIGN SIGN+1
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+3
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+3
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+4*
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*
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+3
>> 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