Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls