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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ORCACT2

Package: Order Entry Results Reporting

Routine: ORCACT2


Information

ORCACT2 ;SLC/MKB-DC orders ; 03/27/2007

Source Information

Source file <ORCACT2.m>

Entry Points

Name Comments DBIA/ICR reference
DC ; -- start here with:
; ORNMBR = #,#,...,# of selected orders
DC1
DC2
DC3
DCQ
UNLOCK ; -- Unlock orders in ORDC(ORI)=ORIFN
OK(NUM) ; -- Ok to DC delayed order(s) too?
NXT() ; -- Return next available subscript in ORDC()
PRINT(NATR) ; -- Ok to print order?
ORDITEM(ID) ; -- Returns order text
SUBHDR(X) ; -- Display subheader of order being acted on
COMPLX ; -- Ck for other child orders to be dc'd at same time
DCREASON() ; -- Returns Reason for DC
DCRQ
SET(ORDER,NATURE,REASON,TEXT,DCORIG) ; -- Set DC Reason into 6-node
RESUME(ORDER) ; -- Resume tray service when dc'ing tubefeeding ORDER?
UNREL ; -- Process unreleased/delayed order
CLRDLY(IFN) ; -- [old Clear delayed fields] Cancel delayed [event]order
EVENT ; -- Cancel event too?
DCD(IFN) ; -- order discontinued already?
DQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: DC+6
Function Call: WRITE
  • Prompt: !,"This order has been deleted!"
  • Line Location: DC1+3
Function Call: WRITE
  • Prompt: !,ORERR
  • Line Location: DC1+6
Function Call: WRITE
  • Prompt: !,$P(ORLK,U,2)
  • Line Location: DC1+7
Function Call: WRITE
  • Prompt: !,$C(7),"This is part of a complex order, which will be discontinued in its entirety:"
  • Line Location: DC2+3
Function Call: WRITE
  • Prompt: !,+ORY_" delayed order(s) for the same medication were found:"
  • Line Location: DC2+6
Function Call: WRITE
  • Prompt: !,$E(ORTX(1),1,75)_$S($L(ORTX(1))>75:"...",1:""),!," >> delayed until "_$P(ORV,U,2)
  • Line Location: DC2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DC2+8
Function Call: WRITE
  • Prompt: !,"Orders not signed or released to the service will be deleted.",!
  • Line Location: DC2+9
Function Call: WRITE
  • Prompt: !,$P(ORLKD,U,2)
  • Line Location: DC2+12
Function Call: WRITE
  • Prompt: $C(7),!,"You are not authorized to release med orders.",!
  • Line Location: DC3+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DC3+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: DC3+13
Function Call: WRITE
  • Prompt: !,$$ORDITEM(+ORIFN)_" not discontinued."
  • Line Location: DC3+14
Function Call: WRITE
  • Prompt: !," >> "_$P(ORERR,U,2)
  • Condition for execution: $L($P($G(ORERR),U,2))
  • Line Location: DC3+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DC3+15
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !!,?(36-($L(X)\2)),"-- "_X_" --",!
  • Line Location: SUBHDR+1
Function Call: WRITE
  • Prompt: !,"NOTE: NO current diet order exists for this patient!"
  • Line Location: RESUME+2
Function Call: WRITE
  • Prompt: !,"Note: Patient is on a WITHHOLD SERVICE order!"
  • Line Location: RESUME+3
Function Call: WRITE
  • Prompt: !,"This order will be deleted."
  • Line Location: UNREL+10
Function Call: WRITE
  • Prompt: !,"This order was not released and will be cancelled."
  • Line Location: UNREL+12
Function Call: WRITE
  • Prompt: !," ... "_X_" event cancelled."
  • Line Location: EVENT+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] Classic Fileman Calls
^ORD(100.03 - [#100.03] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call