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: OREVNT1

Package: Order Entry Results Reporting

Routine: OREVNT1


Information

OREVNT1 ;SLC/MKB - Release delayed orders ;3/31/04 09:08

Source Information

Source file <OREVNT1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- start here
EN1
EN2
EN3
ENQ0
ENQ
SETPRINT(NATR) ; -- Set print arrays
WORK(NATR) ; -- Returns 1 or 0, to print work copies for NATR
NEEDSIG()
VALID ; -- validate ORDER for signature/release
EMPTY ; -- check if no more orders for events in OREVT()
UNLOCK ; -- Unlock orders in ORES(ORDER)
READ ; -- Press return to continue
DONE() ; -- OREVENT done?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Insufficient privilege!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Nothing signed or released!"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"Processing orders ..."
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORDER)_" "_$$STATUS^ORCSIGN(ORDER)
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,$$ORDITEM^ORCACT(ORIFN)_" (LB #"_+^OR(100,ORIFN,4)_")"
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !!,"Cannot release "_$$ORDITEM^ORCACT(ORDER),!," >> "_ORERR
  • Line Location: VALID+1
Function Call: WRITE
  • Prompt: !!,"Cannot sign "_$$ORDITEM^ORCACT(ORDER),!," >> "_ORERR
  • Line Location: VALID+2
Function Call: WRITE
  • Prompt: !!,"Cannot release "_$$ORDITEM^ORCACT(ORDER),!," >> "_$P(ORLK,U,2)
  • Line Location: VALID+4
Function Call: WRITE
  • Prompt: !," ... "_X_" event completed."
  • Line Location: EMPTY+10
Function Call: WRITE
  • Prompt: !!,"The event "_$$NAME^OREVNTX(OREVENT)_" has occurred since"
  • Line Location: DONE+3
Function Call: WRITE
  • Prompt: !,"you started writing delayed orders. The orders that were signed have now been"
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: !,"released; any unsigned orders will be released immediately upon signature."
  • Line Location: DONE+5
Function Call: WRITE
  • Prompt: !!,"To write new delayed orders for this event you must select the Delayed Orders"
  • Line Location: DONE+6
Function Call: WRITE
  • Prompt: !,"action and this release event again. Orders delayed to this same event will"
  • Line Location: DONE+7
Function Call: WRITE
  • Prompt: !,"remain delayed until the event occurs again."
  • Line Location: DONE+8
Function Call: WRITE
  • Prompt: !!,"The Orders tab will now be refreshed in the Active Orders view; you may then"
  • Line Location: DONE+9
Function Call: WRITE
  • Prompt: !,"write active orders for this patient as usual."
  • Line Location: DONE+10
Info |  Source |  Entry Points |  Interaction Calls