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

Package: Order Entry Results Reporting

Routine: ORCDLG


Information

ORCDLG ;SLC/MKB-Order dialogs ; 08 May 2002 2:12 PM

Source Information

Source file <ORCDLG.m>

Entry Points

Name Comments DBIA/ICR reference
EN(ORDIALOG) ; -- process ORDIALOG
SET ; -- prompt for new order set
S1
S2
SQ
MENU ; -- prompt for menu
MNQ
ORDER(ORDIALOG) ; -- Execute ORDIALOG, return ORIFN or ^ if unsuccessful
ADD ; -- prompt for new order
; Requires: ORDIALOG = Order Dialog ifn
; ORNP = Ordering Provider (ifn in #200)
; ORVP = Patient (vptr to #2)
; Optional: ORL = Patient Location (vptr to #44)
; ORTS = Treating Specialty (ifn in #45.7)
; ORSET = Order Set (ifn in #101.41, from SET)
; $$ORDER enters at ADD0 to be able to return ORIFN
ADD0
ADD1
ADDQ
DIALOG ; -- loop through prompts in dialog
ANOTHER() ; -- Add another order?
CONT() ; -- continue w/set?
DISPLAY ; -- Display new order on screen
ITEM(P,I) ; -- Display each item in dialog
DATE(X) ; -- Returns resolved date
OK() ; -- Ready to save?
KVALUES ; -- kill ORDIALOG("ORDERABLE ITEM",#) value nodes
NOW() ; -- Returns current Date Ordered for new order
ACTIVE()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: $C(7),!!,MSG
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?10,"... orders cancelled.",!
  • Line Location: S2+3
Function Call: WRITE
  • Prompt: !!,$P(ORI,U,2)
  • Line Location: MENU+2
Function Call: WRITE
  • Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --"
  • Line Location: ORDER+4
Function Call: WRITE
  • Prompt: $C(7),!!,MSG
  • Line Location: ORDER+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Invalid order dialog!"
  • Line Location: ORDER+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Invalid dialog - cannot place order!"
  • Line Location: ADD0+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Inactive orderable item(s) - cannot place order!"
  • Line Location: ADD0+7
Function Call: WRITE
  • Prompt: !!,"This release event has occurred since you started writing delayed orders."
  • Line Location: ADD1+4
Function Call: WRITE
  • Prompt: !,"The orders that were signed have now been released; this and any other"
  • Line Location: ADD1+5
Function Call: WRITE
  • Prompt: !,"unsigned orders will be released immediately upon signature. The Orders"
  • Line Location: ADD1+6
Function Call: WRITE
  • Prompt: !,"tab will be refreshed in the Active Orders view when finished."
  • Line Location: ADD1+7
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: ADD1+9
Function Call: WRITE
  • Prompt: !?10,"... order cancelled.",!
  • Line Location: ADD1+12
Function Call: WRITE
  • Prompt: !?10,"... ERROR - unable to place order.",!
  • Line Location: ADD1+14
Function Call: WRITE
  • Prompt: !?10,"... order placed.",!
  • Line Location: ADD1+17
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",79)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,$J(TITLE,30)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: $E($G(^TMP("ORWORD",$J,PROMPT,I,1,0)),1,40)_$S($L($G(^(0)))>40:" ...",$O(^TMP("ORWORD",$J,PROMPT,I,1)):" ...",1:"")
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: $$ITEM(PROMPT,I)
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !?30,$$ITEM(PROMPT,I)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: "Order Checks:"
  • Line Location: DISPLAY+13

FileMan Files Accessed Via FileMan Db Call

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