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

Package: Order Entry Results Reporting

Routine: ORCMED


Information

ORCMED ;SLC/MKB - MEDICATION ACTIONS ;11/07/13 11:07

Source Information

Source file <ORCMED.m>

Entry Points

Name Comments DBIA/ICR reference
XFER ; -- transfer to in/outpt medsx
XF1
XF2
XFQ
IN ; -- Kill extra values, Reset ID's/DD from Inpt dialog
OUT ; -- Kill extra values, Reset ID's/DD from Outpt dialog
DOSES(TYPE)
CONT() ; -- Want to continue processing orders?
SHOWSIG ; -- Show old sig for transfer in ^TMP("ORSIG",$J)
PTR(NAME) ; -- Returns pointer to OR GTX NAME
REFILLS ; -- Request a refill for med orders
; ORNMBR = #,#,...,# of selected orders
RFQ
RETURN() ; -- press return to cont
ROUTING() ; -- Routing for refill
NW ; -- Order New Medication from Meds tab
; Requires ORDIALOG = name of pkg dialog
; OREVENT = event, if delaying orders
; OREVENT("TS") = treating spec, if admission or transfer
NWQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: XFER+3
Function Call: WRITE
  • Prompt: !!,$$CURRENT^OREVNT
  • Line Location: XFER+9
Function Call: WRITE
  • Prompt: !,ORERR
  • Line Location: XF1+5
Function Call: WRITE
  • Prompt: !?10,"... order cancelled.",!
  • Line Location: XF2+3
Function Call: WRITE
  • Prompt: !?10,$S(ORIFN:"... order placed.",1:"ERROR"),!
  • Line Location: XF2+5
Function Call: WRITE
  • Prompt: !,$S(I=1:"(Sig: ",1:" ")_ORTX(I)
  • Line Location: SHOWSIG+3
Function Call: WRITE
  • Prompt: ")"
  • Line Location: SHOWSIG+4
Function Call: WRITE
  • Prompt: !,"Invalid order number!"
  • Line Location: REFILLS+11
Function Call: WRITE
  • Prompt: !,ORERR
  • Line Location: REFILLS+13
Function Call: WRITE
  • Prompt: !,$P(ORLK,U,2)
  • Line Location: REFILLS+14
Function Call: WRITE
  • Prompt: !?10,"... refill requested.",$$RETURN
  • Line Location: REFILLS+16
Function Call: WRITE
  • Prompt: !,"Press <return> to continue ..."
  • Line Location: RETURN+1
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: NW+5
Info |  Source |  Entry Points |  Interaction Calls