Routine: ORCMENU

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

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

Package

Total

Caller Graph

Order Entry Results Reporting

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

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

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!

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCMENU

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: