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

Package: Order Entry Results Reporting

Routine: ORCACT4


Information

ORCACT4 ;SLC/MKB-Act on orders cont ; 08 May 2002 2:12 PM

Source Information

Source file <ORCACT4.m>

Entry Points

Name Comments DBIA/ICR reference
XX ; -- Edit/Change order ORIFN
XX1
XXQ
CHANGED() ; -- Returns 1 or 0, if order was actually changed
CHK
RN ; -- Renew order ORIFN
RN1
RNQ
DOSES(IFN) ; -- Return #doses in order IFN
OKALL() ; -- OK to renew all child orders of complex?
RW ; -- Rewrite order ORIFN
RW1
RWQ
HD ; -- Hold order ORIFN
RL ; -- Release hold on order ORIFN
OK(ACT) ; -- Ready to save?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing changed!"
  • Line Location: XX1+1
Function Call: WRITE
  • Prompt: !?10,"... changes cancelled.",!
  • Line Location: XX1+4
Function Call: WRITE
  • Prompt: !?10,$S(ORIFN:"... changes placed.",1:"ERROR"),!
  • Line Location: XX1+5
Function Call: WRITE
  • Prompt: !,$C(7),"This is part of a complex order, which must be renewed in its entirety:"
  • Line Location: RN+7
Function Call: WRITE
  • Prompt: !?10,"... renewal cancelled.",!
  • Line Location: RN1+3
Function Call: WRITE
  • Prompt: !?10,$S(ORIFN:"... order renewed.",1:"ERROR"),!
  • Line Location: RN1+4
Function Call: WRITE
  • Prompt: !!,"This release event has occurred since you started copying delayed orders."
  • Line Location: RW1+3
Function Call: WRITE
  • Prompt: !,"The orders that were signed have now been released; this and any other"
  • Line Location: RW1+4
Function Call: WRITE
  • Prompt: !,"unsigned orders will be released immediately upon signature."
  • Line Location: RW1+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RW1+6
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: RW1+6
Function Call: WRITE
  • Prompt: !?10,"... order cancelled.",!
  • Line Location: RW1+9
Function Call: WRITE
  • Prompt: !?10,$S($G(ORIFN):"... order rewritten.",1:"ERROR"),!
  • Line Location: RW1+12
Function Call: WRITE
  • Prompt: !?10,"... hold order placed."
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?10,"... release hold order placed."
  • Line Location: RL+3
Info |  Source |  Entry Points |  Interaction Calls