Routine: ORCMEDIT

Information

ORCMEDIT ;SLC/MKB-Menu Editor ;4/19/01 11:27

Source Information

Source file <ORCMEDIT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ENALL^DIK ^DIR
Registration	3	(CHGCAP,EN)^VALM ($$SETSTR,FULL)^VALM1 CLEAN^VALM10
Kernel	1	($$REPEAT,$$UP)^XLFSTR
Order Entry Results Reporting	1	$$NAME^ORCMEDT4

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORCM MENU ORCMEDT0 ORCMEDT2 ORQQVI1

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	; -- start here
COPY(TYPE)	; -- Returns 1 or 0, if new item is to be a copy
HDR	; -- header code
STRIP(X)	; -- Strip leading spaces from text X
EDIT	; -- Edit menu fields
MN1
COLUMN(NUM,WIDTH)	; -- Returns position for column NUM per WIDTH
MSG()	; -- Msg bar
SETVIDEO(ROW,COL,WIDTH,ON,OFF)	; -- Set video attributes
IN1
KILL(DA)	; -- Cleanup compiled menu from editor
INQ
INIT	; -- init variables and list array
MENU(OROLD)	; -- Select/edit [new] menu
EXIT	; -- exit code
UP(X)	; -- Convert X to uppercase
NEW	; -- Change menu
VIEW	; -- Toggle display between Name and Display Text

External References

Name	Field # of Occurrence
^DIC	MN1+2, MN1+7
^DIE	MN1+13, EDIT+6
ENALL^DIK	MN1+12
^DIR	COPY+4
$$NAME^ORCMEDT4	EDIT+2
CHGCAP^VALM	INQ+3
EN^VALM	EN+1
$$SETSTR^VALM1	IN1+8
FULL^VALM1	NEW+1, EDIT+1, HELP+1
CLEAN^VALM10	INIT+3
$$REPEAT^XLFSTR	INIT+8, HDR+3
$$UP^XLFSTR	MN1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Another user is currently editing this menu!",! Line Location: MN1+3
Function Call: WRITE	Prompt: !!,"Cannot access menu at this time - try again later.",! Line Location: MN1+4
Function Call: WRITE	Prompt: !,"Copying menu items ..." Line Location: MN1+7
Function Call: WRITE	Prompt: !!,"Rebuilding menu display ..." Line Location: EDIT+8
Function Call: WRITE	Prompt: !!,"Rebuilding menu display ..." Line Location: VIEW+4
Function Call: WRITE	Prompt: !," This is how this menu will appear to the user in the Add New Orders" Line Location: HELP+2
Function Call: WRITE	Prompt: !," option. Select ADD, REMOVE, or EDIT to make changes to this menu, or" Line Location: HELP+3
Function Call: WRITE	Prompt: !," ASSIGN to set it as the default for users. Use the ORDER DIALOGS option" Line Location: HELP+4
Function Call: WRITE	Prompt: !," to change or create quick orders for this menu." Line Location: HELP+5
Function Call: WRITE	Prompt: !,"Press <return> to continue ..." Line Location: HELP+6
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: MN1+13 EDIT+6
Routine Call	VALM Line Location: INQ+3
Routine Call	DIC Line Location: MN1+2 MN1+7
Routine Call	DIR Line Location: COPY+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101.41 - [#101.41]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.41 - [#101.41]	MN1+3, MN1+8, MN1+9, MN1+10, MN1+11, MN1+14, EDIT+4, EDIT+7, INIT+4, INIT+9 , INIT+11, IN1, IN1+2, IN1+3, INQ+3, EXIT+1
^TMP("ORMENU"	VIEW+1, VIEW+3, INIT+2, INIT+8, IN1+8, IN1+9, INQ, INQ+1, SETVIDEO+1, SETVIDEO+2* , HDR+2, EXIT+2!
^TMP("VALM VIDEO"	INQ+1*
^XUTL("XQORM"	MN1+4, MN1+14, IN1+10, IN1+11, INQ+4, EXIT+1, KILL+1!

Label References

Name	Line Occurrences
$$COLUMN	IN1+1
$$COPY	MN1+5
$$MENU	EN+1, NEW+2
$$STRIP	IN1+8
$$UP	IN1+9, IN1+10, IN1+11
HDR	NEW+3, EDIT+8
INIT	NEW+3, EDIT+8, VIEW+4
INQ	INIT+11
KILL	INIT+3, EXIT+2
MN1	MN1+3, MN1+4
SETVIDEO	IN1+6, IN1+7

Naked Globals

Name	Field # of Occurrence
^(	IN1+9, INQ+4
^(0	INQ+4*
^(5	EDIT+4, EDIT+7, INIT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	INIT+1~, INIT+11, IN1+8, INQ
COL	INIT+1~, IN1+1, IN1+6, IN1+7, IN1+8, INQ+2, SETVIDEO~, SETVIDEO+1, SETVIDEO+2
CW	INIT+1~, INIT+9, INIT+10, IN1+1, IN1+6, IN1+7, IN1+8, INQ, INQ+2
DA	MENU+1~, MN1+13, EDIT+1~, EDIT+6, INIT+1~, IN1*, IN1+2, IN1+9, IN1+10, KILL~ , KILL+1
DA(1	MN1+12*
DIC	MENU+1~, MN1*
DIC("A"	MN1+1, MN1+6
DIC("B"	MN1+2*, MN1+6!
DIC("DR"	MN1*
DIC("S"	MN1+1*
DIC(0	MN1, MN1+6
DIE	MN1+13, EDIT+1~, EDIT+6
DIK	MENU+1~, MN1+12*
DIK(1	MN1+12*
DIR	COPY+1~
DIR("?"	COPY+3*
DIR("A"	COPY+2*
DIR("B"	COPY+3*
DIR(0	COPY+2*
DLAYGO	MENU+1~, MN1*, MN1+6!
DR	MN1+13, EDIT+1~, EDIT+5
DTIME	HELP+6
DUZ(0	MN1+13, EDIT+5
FLAG	INIT+1~, IN1+3*, IN1+6, IN1+7
I	INIT+1~, INQ+2, STRIP+1~, STRIP+2
IFN	INIT+1~, IN1+2*, IN1+3, IN1+4, IN1+5, IN1+10, IN1+11
INT	INIT+1~, INIT+2*, IN1+4, IN1+5, IN1+11, INQ
>> IOINHI	IN1+7
>> IOINORM	IN1+7
>> IOUOFF	IN1+6
>> IOUON	IN1+6
ITEM	COPY+1~, COPY+2, COPY+3, INIT+1~, IN1+2, IN1+3, IN1+5
>> ITM	IN1+3*, IN1+4, IN1+5, IN1+11
LINE	INIT+1~, IN1+8*
MNEM	INIT+1~, IN1+3*, IN1+7, IN1+9, IN1+10
MW	INIT+1~, INIT+9, INIT+10, IN1+7, INQ
NAME	INIT+1~, IN1+11*
NUM	COLUMN~, COLUMN+1*, COLUMN+2
OFF	SETVIDEO~, SETVIDEO+2
ON	SETVIDEO~, SETVIDEO+1
OR0	EDIT+1~, EDIT+4, EDIT+7, VIEW+1~, VIEW+2*, VIEW+3
OR5	EDIT+1~, EDIT+4*, EDIT+7
ORCOL	INQ+2*, INQ+4, EXIT+2!
ORMENU	EN+1, NEW+2, NEW+3, EDIT+2, EDIT+4, EDIT+6, EDIT+7, INIT+3, INIT+4, INIT+9 , INIT+10, INIT+11, IN1, IN1+2, INQ+3, HDR+1, EXIT+1, EXIT+2!
ORNAME	EDIT+1~, EDIT+2*, EDIT+3
ORNEW	MENU+1~, MN1+5*, MN1+8, MN1+9, MN1+10, MN1+11, MN1+12, MN1+13, MN1+15
OROLD	MENU~, MN1+2, MN1+14
POS	INIT+1~, IN1*, IN1+1, IN1+10, IN1+11
ROW	INIT+1~, INIT+6, INIT+7, INIT+8, IN1+1, IN1+6, IN1+7, IN1+8, SETVIDEO~, SETVIDEO+1 , SETVIDEO+2
ROWS	INIT+1~, INIT+4*, INIT+5, INQ
TEXT	INIT+1~, IN1+4, IN1+5, IN1+6, IN1+7, IN1+8, IN1+9, IN1+10
TS	INIT+1~, INQ+3*, INQ+4
TYPE	COPY~, COPY+1
U	MN1+2, MN1+5, MN1+11, MN1+13, VIEW+2, INIT+2, INIT+9, IN1+2, IN1+3, IN1+4 , IN1+5, IN1+10, IN1+11, INQ, HDR+1, HDR+2
>> VALMBCK	NEW+1, EDIT+1, EDIT+3, VIEW+3, HELP+1*
VALMBG	NEW+1*, EXIT+2!
VALMCNT	INIT+5*, INIT+6, EXIT+2!
>> VALMEVL	INQ+1
VALMHDR	EXIT+2!
VALMHDR(1	HDR+3*
WIDTH	SETVIDEO~, SETVIDEO+1, SETVIDEO+2, COLUMN~, COLUMN+1*, COLUMN+2
X	NEW+2~, NEW+3, MENU+1~, MN1+11, COPY+1~, INIT+1~, INIT+7, INIT+8, IN1+6, IN1+7* , IN1+8, INQ+2, INQ+3, UP~, UP+1, STRIP~, STRIP+2, HDR+1~, HDR+3, HELP+1~ , HELP+6*
XQORM	INIT+1~, INIT+10*, IN1+10, IN1+11, INQ+4
Y	MENU+1~, MN1+2, MN1+3, MN1+4, MN1+5, MN1+7, MN1+8, MN1+9, MN1+10, COPY+1~ , COPY+5, STRIP+1~, STRIP+2, STRIP+3, COLUMN+1~, COLUMN+2, COLUMN+3, HDR+1~, HDR+2, HDR+3
Y(0	MN1+11

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCMEDIT

Call Graph Total: 9

Caller Graph Total: 4