Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Order Entry Results Reporting 8 (ADD,EN,SET)^ORCDLG  TAB^ORCHART  ($$LOCATION,$$PROVIDER)^ORCMENU1  (EN,INIT,NOTIF)^ORCMENU2  ($$LOCK,UNLOCK)^ORDD41  $$NAME^OREVNTX  ($$LOCK,UNLOCK)^ORX2  $$MSG^ORXD  
List Manager 3 EN^VALM  ($$SETSTR,FULL)^VALM1  CNTRL^VALM10  
Kernel 2 $$UP^XLFSTR  EN^XQORM  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 24

Package Total Caller Graph
Order Entry Results Reporting 20 OR ADD MENU CLINICIAN  OR ADD MENU NURSE  OR ADD MENU WARD CLERK  OR ADD ORDERS  OR ADD ORDERS MENU  ORC ADD ALL ITEMS  ORC ADD ITEM  ORC ADD ORDERS  
ORC ADD ORDERS MENU  ORC EVENT MENU  ORCACT  ORCACT1  ORCACT2  ORCB  ORCHART  ORCMED  
ORCONSLT  ORCSIGN  OREVNT  OREVNT1  
Consult Request Tracking 2 GMRCACT ADD NEW ORDERS  GMRCACT ADD PHARMACY CONSULT REQUEST  
Kernel 2 ^DIC(19  ^ORD(101  

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

External References

Name Field # of Occurrence
^DIC SEARCH+4
ADD^ORCDLG ORDER+4, SEARCH+6
EN^ORCDLG ITM+6
SET^ORCDLG ORDER+4
TAB^ORCHART REBLD+1
$$LOCATION^ORCMENU1 EN+12
$$PROVIDER^ORCMENU1 EN+13
EN^ORCMENU2 KILL+1
INIT^ORCMENU2 REBLD+3
NOTIF^ORCMENU2 KILL+1
$$LOCK^ORDD41 INIT+6
UNLOCK^ORDD41 EXIT+2
$$NAME^OREVNTX EN+4, EN+8
$$LOCK^ORX2 EN+2
UNLOCK^ORX2 ENQ+1
$$MSG^ORXD INIT+5
EN^VALM EN+16, MENU+2
$$SETSTR^VALM1 IN1+5
FULL^VALM1 EN+5, HELP+1, ALT+2, SEARCH+4
CNTRL^VALM10 ITM+4
$$UP^XLFSTR INQ+2
$$GET^XPAR EN+15
EN^XQORM ALT+4

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
Routine Call
  • DIC
  • Line Location:
    • SEARCH+4
Routine Call
  • VALM
  • Line Location:
    • EN+16
    • MENU+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" FREEZE+1
^DPT - [#2] EN+6
^ORD(101 - [#101] INIT+12, IN1+7, IN1+8, IN1+9
^ORD(101.41 - [#101.41] INIT+7, INIT+10, ROWS+2, EXIT+1, ALT+5, ITM+5, ITM+8, ORDER+2, SEARCH+2
^ORE(100.2 - [#100.2] EN+4
^TMP("OR" REBLD+2
^TMP("ORECALL" ENQ!, INIT+8!, INIT+9!
^TMP("ORMENU" ENQ!, INQ+1*, EXIT+2!, ALL+2, ITEM+2, ITM+3
^TMP("ORNEW" ENQ+1, KILL+1, KILL+2!
^TMP("ORWORD" ORDER+5!
^TMP("VALM VIDEO" INQ+1*
^VA(200 - [#200] EN+14
^XUTL("XQORM" IN1

Label References

Name Line Occurrences
$$COLUMN IN1+1
$$ROWS INIT+11
ENQ EN+12, EN+13
FREEZE ITM+6, ORDER+1
ITM ALT+5, ALL+2
MENU ITM+6
REBLD EN+16
SETVIDEO IN1+3, IN1+6

Naked Globals

Name Field # of Occurrence
^( IN1, ALL+2
^(0 REBLD+2*, INIT+10, ITM+3
^(3 INIT+7
^(4 EXIT+1
^(5 EN+14, INIT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT INIT+4~, INIT+13*, IN1+5*, INQ
COL INIT+4~, IN1+1*, IN1+3, IN1+5, IN1+6, SETVIDEO~, SETVIDEO+1, ITM+1~, ITM+2*, ITM+3*
, ITM+4
CW INIT+4~, INIT+10*, INIT+11*, IN1+1, IN1+3, IN1+4, IN1+5, INQ, ITM+1~, ITM+3*
, ITM+4
DIC SEARCH+1~, SEARCH+3*
DIC("A" SEARCH+3*
DIC(0 SEARCH+3*
>> DIROUT ITM+7
DTIME EN+11, HELP+4
DUZ EN+14
FLAG INIT+4~, IN1+2*, IN1+3, IN1+4, IN1+6
I ROWS+1~, ROWS+2*
IFN INIT+4~, IN1+2*, IN1+6, ALT+1~, ALT+5*, ALL+1~, ALL+2*, ITEM+1~, ITEM+3*, ITM+5
, ITM+6, MENU+1, ORDER+2
>> IOBM FREEZE+2*
>> IOINHI IN1+6
>> IOINORM IN1+6
IOM FREEZE+1
>> IORC FREEZE+2
>> IORVOFF ITM+4
>> IORVON ITM+4
>> IOSC FREEZE+2
IOSL FREEZE+2
>> IOSTBM FREEZE+2
>> IOTM FREEZE+2*
>> IOUOFF IN1+3
>> IOUON IN1+3
ITEM INIT+4~, IN1*, IN1+2, ALT+1~, ALT+5*, ALL+1~, ALL+2*, ITEM+1~, ITEM+2*, ITEM+3
LINE SETVIDEO~, SETVIDEO+1
MAX ROWS+1~*, ROWS+2*, ROWS+3
MENU ROWS~, ROWS+2
MNEM INIT+4~, IN1+2*, IN1+4, IN1+6
MW INIT+4~, INIT+10*, INIT+11*, IN1+4, IN1+6, INQ, ITM+1~, ITM+3*, ITM+4
NUM COLUMN~, COLUMN+1*, COLUMN+2
OFF SETVIDEO~, SETVIDEO+1
OI SEARCH+1~, SEARCH+2*, SEARCH+5
ON SETVIDEO~, SETVIDEO+1
>> ORACTION EN+5*
ORAGE KILL+2!
ORATTEND KILL+2!
ORDIALOG ORDER+1~, ORDER+2*, SEARCH+1~
ORDIALOG( SEARCH+5*
ORDOB KILL+2!
OREBUILD ENQ!, KILL+2!
ORENT EN+14*, EN+15, ENQ!
>> OREVENT EN+4, EN+6, EN+7, EN+8, EN+12, INQ, INQ+3
ORFORGET INIT+7!, INIT+8
ORI ALT+1~, ALT+4*, ALT+5*, ALL+1~*, ALL+2*
ORIT ITM+1~, ITM+6*, ORDER+1~, ORDER+2*
ORL EN+12*, EN+14, KILL+2!
ORMENU EN+15*, ENQ!, INIT+5, INIT+6, INIT+7, INIT+10, INIT+11, INIT+13, INQ+1, EXIT+1
, EXIT+2, ALT+3, ALT+5, ALL+2, ITEM+2, ITM+3, ITM+8, MENU+1~*
ORNP EN+13*, KILL+2!
ORPD KILL+2!
ORPNM KILL+2!
ORPTLK EN+2*, EN+3, ENQ!
ORSC KILL+2!
ORSEX KILL+2!
ORSSN KILL+2!
>> ORTAB EN+16, REBLD+1, REBLD+3
ORTS KILL+2!
ORVP EN+1, EN+2, EN+6, ENQ+1, KILL+2!
ORWARD KILL+2!
ORX ALT+1~, ALT+2*
ORY ALT+1~, ALT+4*
ORY( ALT+5
POS INIT+4~, INIT+13*, IN1*, IN1+1, IN1+6, ALT+1~, ALT+5*, ALL+1~, ALL+2*, ITEM+1~
, ITEM+3*, ITM+2
PROTOCL INIT+4~, INIT+12*, IN1+6
PS ITM+1~, ITM+8*
R ROWS+1~, ROWS+2*
ROW INIT+4~, IN1+1*, IN1+3, IN1+5, IN1+6, ITM+1~, ITM+2*, ITM+4
ROWS INIT+4~, INIT+11*, INQ
TEXT INIT+4~, IN1+2*, IN1+3, IN1+4
TITLE INIT+4~, INIT+10*, INQ+2*, INQ+3, ORDER+1~, ORDER+2*, ORDER+3
TYPE ITM+1~, ITM+5*, ITM+6, ORDER+4
U EN+3, EN+6, REBLD+2, INIT+5, INIT+6, INIT+10, IN1+2, IN1+6, INQ, ALT+5
, ALL+2, ITEM+2, ITEM+3, ITM+3, ITM+5, ITM+8, ORDER+2
>> VALM("TITLE" INQ+3*
>> VALM("TM" FREEZE+2
>> VALMBCK EN+3*, EN+4*, EN+5*, HELP+1*, ALT+2*, ITEM+1*, ITM+1*, ITM+8*, SEARCH+2*, SEARCH+7*
>> VALMCC FREEZE+1
>> VALMCNT INQ*
>> VALMEVL INQ+1
>> VALMQUIT INIT+5*, INIT+6*, INIT+11*
WIDTH COLUMN~, COLUMN+1*, COLUMN+2, SETVIDEO~, SETVIDEO+1
X EN+11~*, INIT+4~, INQ+1, HELP+1~, HELP+4*, ALT+2*, ALT+5*, ALL+1~, ALL+2*, ITEM+1~
, ITEM+2*, FREEZE+1~*
X( IN1+5*
X("IDX" IN1+6*
X("KEY" IN1+6*, IN1+7*, IN1+8*, IN1+9*
X("VIDEO" INQ+1, SETVIDEO+1*
X(0 INQ*
XQORM INIT+4~, INIT+13*, IN1, ALT+1~, ALT+3*
XQORM(0 ALT+3*
>> XQORNOD(0 ITEM+2
>> XQORPOP ALT+5, ALL+2, ITM+7*
Y COLUMN+1~, COLUMN+2*, COLUMN+3, ALT+1~, ALT+4, SEARCH+4, SEARCH+5
Z INIT+4~, INIT+5*, INIT+6*, IN1+3*, IN1+4*, IN1+5
ZTSAVE ENQ!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All