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

Package: Order Entry Results Reporting

Routine: ORCMENU


Information

ORCMENU ;SLC/MKB-Add Orders menus ; 08 May 2002 2:12 PM

Source Information

Source file <ORCMENU.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point
ENQ
REBLD ; -- Rebuild tab listings
INIT ; -- init variables and list array
; Requires ORMENU = IFN of menu in Order Dialog file #101.41
; Optional OREVENT = Event pointer
IN1
INQ
ROWS(MENU) ; -- Returns the number of rows in MENU
COLUMN(NUM,WIDTH) ; -- Returns position of column NUM per WIDTH
SETVIDEO(LINE,COL,WIDTH,ON,OFF) ; -- set video attributes
MSG() ; -- Message bar
HELP ; -- help code
KILL ; -- Cleanup after Add New Orders option
EXIT ; -- exit code
ALT ; -- XQORM("ALT") lookup
ALL ; -- process all menu items
ITEM ; -- process menu item
ITM ; -- may enter here with IFN=Dlg, POS=position
MENU ; -- display sub-menu
ORDER ; -- place order(s)
SEARCH ; -- free text search of Orderable Items file
FREEZE ; -- Freeze header, reset right margin

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$C(7),$$NAME^OREVNTX(OREVENT)_" has been terminated!"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"<"_$S($G(OREVENT):"Delayed ",1:"")_"Orders for "_$P($G(^DPT(+ORVP,0)),U)_">"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Now writing orders for "_$$NAME^OREVNTX(OREVENT)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"(To add orders for current release rather than delayed, quit the following"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"menu and return to viewing Active Orders via the Delayed Orders action.)"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,$P(Z,U,2)
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: !!,$P(Z,U,2)
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !!,"Enter the items you wish to order for this patient, as a list or range of",!,"numbers. When you are done placing orders, enter Q to return to the",!,"patient's chart."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"You may also enter PI to get additional patient information, or CWAD for",!,"access to this patient's crisis and warning notes."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --"
  • Line Location: ORDER+3
Function Call: WRITE
  • Prompt: IOSC,@IOSTBM,IORC
  • Line Location: FREEZE+2
Info |  Source |  Entry Points |  Interaction Calls