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 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  
Registration 3 EN^VALM  ($$SETSTR,FULL)^VALM1  CNTRL^VALM10  
Kernel 2 $$UP^XLFSTR  EN^XQORM  
Toolkit 1 $$GET^XPAR  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Order Entry Results Reporting 14 OR ADD MENU CLINICIAN  OR ADD MENU NURSE  OR ADD MENU WARD CLERK  OR ADD ORDERS  ORCACT  ORCACT1  ORCACT2  ORCB  
ORCHART  ORCMED  ORCONSLT  ORCSIGN  OREVNT  OREVNT1  

Entry Points

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

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

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