Routine: ORCMEDT5

Information

ORCMEDT5 ;SLC/MKB-Misc menu utilities ;03:29 PM 12 Feb 1999

Source Information

Source file <ORCMEDT5.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	6	^DIC ^DIE ^DIK EN1^DIP EN^DIQ ^DIR
Kernel	1	$$REPEAT^XLFSTR
Order Entry Results Reporting	1	($$EXT,$$NMSP)^ORCD
Registration	1	FULL^VALM1
Toolkit	1	EDITPAR^XPAREDIT

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORCM DISABLE ORCM LIST ORDER MENUS ORCM SEARCH/REPLACE ORCMEDT0 ORCMEDT4

Entry Points

Name	Comments	DBIA/ICR reference
AOPAR	; -- List of add order menus assigned to users
SEARCH	; -- Search/replace menu items
OK()	; -- Are you ready?
DQ
SR1(ORX)	; -- list parents, get replacement
TYPE(X)	; -- Returns name of dialog type
VQ
DIC()	; -- ^DIC on Order Dialog file
RECURSV(ITEM,MENU,MSG)	; -- Return 1 or 0, if recursive reference to ITEM
INQ	; -- Inquire to Order Dialog file
INUSE(MENU)	; -- Returns 1 or 0, if MENU is in use by parameter
REPLWITH(ORIT)	; -- Remove item, or select replacement
VALID(ITM,DAD,ERR)	; -- Ck if ITM may be placed on DAD
SELECT(ORY,MAX,Y)	; -- Select which Dlgs to replace items
DISABLE	; -- Disable order dialogs
CHKPAR(MENU)	; follow tree to check parents
OUTPUT(ORY)	; -- Output Xform for Value field of Response multiple
ASSIGN	; -- Assign menu to user(s)
R1

External References

Name	Field # of Occurrence
^DIC	DIC+4, R1+2, INQ+3, DISABLE+4
^DIE	SR1+19
^DIK	SR1+18
EN1^DIP	AOPAR+7
EN^DIQ	INQ+3
^DIR	SELECT+4, OK+3, R1, DISABLE+9
$$EXT^ORCD	OUTPUT+3
$$NMSP^ORCD	VALID+2
FULL^VALM1	ASSIGN+1
$$REPEAT^XLFSTR	SR1+3, SR1+8
EDITPAR^XPAREDIT	ASSIGN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SEARCH+2
Function Call: WRITE	Prompt: !,$P(ORX,U,2)_" has no menu items." Line Location: SR1+2
Function Call: WRITE	Prompt: @IOF,"Menu items of "_$P(ORX,U,2),!?4,"Name",?69,"Type",!,$$REPEAT^XLFSTR("-",79) Line Location: SR1+3
Function Call: WRITE	Prompt: !,ORDAD,?4,$P(^ORD(101.41,I,0),U),?69,$$TYPE($P(^(0),U,4)) Line Location: SR1+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: SR1+8
Function Call: WRITE	Prompt: !!,$S(ORY="@":"Removing",1:"Replacing "_$P(ORX,U,2)_" with "_$P(ORY,U,2))_" in:" Line Location: SR1+11
Function Call: WRITE	Prompt: !?3,ORNM_" ..." Line Location: SR1+14
Function Call: WRITE	Prompt: "not "_$S(ORY="@":"removed.",1:"changed."),!?3,">> "_$G(ORERR) Line Location: SR1+16
Function Call: WRITE	Prompt: !?25,"=>"_ORERR(I) Line Location: SR1+17
Function Call: WRITE	Prompt: "done." Line Location: SR1+18
Function Call: WRITE	Prompt: $S($P(^ORD(101.41,DA(1),10,DA,0),U,2)=+ORY:"done.",1:"error - not replaced.") Line Location: SR1+19
Function Call: WRITE	Prompt: ! Line Location: OK+3
Function Call: WRITE	Prompt: ! Line Location: INQ+3
Function Call: WRITE	Prompt: ! Line Location: INQ+3
Function Call: WRITE	Prompt: !!,"Enter a message to disable the dialog(s), or @ to enable again." Line Location: DISABLE+6
Function Call: WRITE	Prompt: !,"Nothing "_$S(ORDIS="@":"en",1:"dis")_"abled." Line Location: DISABLE+10
Function Call: WRITE	Prompt: "." Line Location: DISABLE+11
Function Call: WRITE	Prompt: !,"done." Line Location: DISABLE+12
Routine Call	DIE Line Location: SR1+19
Routine Call	DIC Line Location: DIC+4 R1+2 INQ+3 DISABLE+4
Routine Call	DIR Line Location: SELECT+4 OK+3 R1 DISABLE+9

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]	SR1+2, SR1+4, SR1+5, SR1+7, SR1+14, SR1+19, VALID+2, VALID+4, CHKPAR+3, CHKPAR+5 , CHKPAR+6, OUTPUT+2, OUTPUT+3, DISABLE+11*
^TMP("ORDISABLE"	DISABLE+1!, DISABLE+4*, DISABLE+5, DISABLE+11, DQ!
^XTV(8989.5 - [#8989.5]	INUSE+3
^XTV(8989.51 - [#8989.51]	INUSE+2

Label References

Name	Line Occurrences
$$DIC	SEARCH+2
$$OK	SR1+11, DISABLE+10
$$REPLWITH	SR1+9
$$TYPE	SR1+7, VALID+5, VALID+6, VALID+7
$$VALID	SR1+15
CHKPAR	RECURSV+2, CHKPAR+8
DQ	DISABLE+9, DISABLE+10
R1	R1+2
RECURSV	VALID+8
SELECT	SR1+10
SR1	SEARCH+2
VQ	VALID+2, VALID+3, VALID+5, VALID+6, VALID+7, VALID+8

Naked Globals

Name	Field # of Occurrence
^(	INUSE+3
^(0	SR1+7, VALID+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BY	AOPAR+1~, AOPAR+4*
CNT	RECURSV+1~, CHKPAR+6
>> D0	OUTPUT+2
>> D1	OUTPUT+2
DA	SR1+1~, SR1+13, SR1+19, INQ+1~, INQ+3
DA(1	SR1+13*, SR1+14, SR1+19
DAD	VALID~, VALID+2, VALID+8
DHD	AOPAR+1~, AOPAR+5*
DIC	DIC+1~, DIC+2, REPLWITH+1~, R1+2, INQ+1~, INQ+2, AOPAR+1~, AOPAR+2, DISABLE+1~, DISABLE+2*
DIC("?"	DIC+3, DISABLE+2
DIC("A"	DIC+2, DISABLE+2, DISABLE+4*
DIC("W"	DISABLE+3*
DIC(0	DIC+2, R1+2, INQ+2, DISABLE+2
DIE	SR1+1~, SR1+13*, SR1+18
DIK	SR1+1~, SR1+18*
DIQ	INQ+1~
DIR	SELECT+1~, OK+1~, REPLWITH+1~, DISABLE+1~
DIR("?"	REPLWITH+3, DISABLE+8
DIR("A"	SELECT+2, OK+2, REPLWITH+2, DISABLE+7
DIR("B"	SELECT+2, OK+2
DIR(0	SELECT+2, OK+2, REPLWITH+2, DISABLE+7
DR	SR1+1~, SR1+19*, INQ+1~
>> DTOUT	SELECT+4, R1+1, DISABLE+9
DTYPE	VALID+1~, VALID+2*, VALID+5, VALID+6, VALID+7
>> DUOUT	DISABLE+9
ENT	INUSE+1~, INUSE+3*
ERR	VALID~, VALID+2, VALID+5, VALID+6, VALID+7, VALID+8
FLDS	AOPAR+1~, AOPAR+6*
FR	AOPAR+1~, AOPAR+3*
I	SR1+1~, SR1+4, SR1+5, SR1+6, SR1+7, SR1+17, CHKPAR+1~, CHKPAR+6*
IOF	SR1+3
ITEM	RECURSV~, CHKPAR+4, CHKPAR+5
ITM	VALID~, VALID+3, VALID+4, VALID+8
ITYPE	VALID+1~, VALID+4*, VALID+5, VALID+6, VALID+7
J	SR1+1~, SR1+5*, SR1+6
MAX	SELECT~, SELECT+2
MENU	RECURSV~, RECURSV+2, CHKPAR~, CHKPAR+2, CHKPAR+3, CHKPAR+9, INUSE~, INUSE+3
MSG	RECURSV~, RECURSV+2!, CHKPAR+3, CHKPAR+5*
MSG(	CHKPAR+6*
NUM	SR1+1~, SR1+12*, SR1+13
ORDAD	SR1+1~, SR1+4, SR1+6, SR1+7, SR1+10, SR1+14*, SR1+15
ORDAD(	SR1+6*, SR1+13
ORDIALOG	OUTPUT+1~
ORDIALOG(	OUTPUT+3*
ORDIS	DISABLE+1~, DISABLE+9*, DISABLE+10, DISABLE+11
ORDLG	SEARCH+1~, SEARCH+2*
>> ORERR	SR1+15, SR1+16
>> ORERR(	SR1+17
ORI	SR1+1~, SR1+12, DISABLE+1~, DISABLE+11
ORIT	REPLWITH~, REPLWITH+2
ORNM	SR1+1~, SR1+14*
ORNMBR	SR1+1~, SR1+10, SR1+12
ORP	OUTPUT+1~, OUTPUT+2*, OUTPUT+3
ORX	SR1~, SR1+2, SR1+3, SR1+4, SR1+5, SR1+9, SR1+11
ORY	SR1+1~, SR1+9*, SR1+10, SR1+11, SR1+15, SR1+16, SR1+18, SR1+19, SELECT~, SELECT+2 , OUTPUT~, OUTPUT+1, OUTPUT+3
ORZ	OUTPUT+1~, OUTPUT+3, OUTPUT+4
PARAM	INUSE+1~, INUSE+2*, INUSE+3
PMENU	CHKPAR+1~, CHKPAR+2, CHKPAR+3, CHKPAR+4, CHKPAR+7, CHKPAR+8
STACK	RECURSV+1~, CHKPAR+2, CHKPAR+6, CHKPAR+9*
STACK(	CHKPAR+2*, CHKPAR+6, CHKPAR+9!
STACK("B"	CHKPAR+2*, CHKPAR+7, CHKPAR+9!
TO	AOPAR+1~, AOPAR+3*
U	SR1+2, SR1+3, SR1+6, SR1+7, SR1+11, SR1+13, SR1+14, SR1+19, REPLWITH+2, VALID+2 , VALID+4, CHKPAR+5, CHKPAR+6, OUTPUT+2, OUTPUT+3, DISABLE+11
>> VALMBCK	ASSIGN+3*
X	TYPE~, TYPE+1, DIC+1~, SELECT+1~, SELECT+4, OK+1~, REPLWITH+1~, R1, R1+1, INQ+1~ , DISABLE+1~, DISABLE+9
Y	TYPE+1~, TYPE+2, DIC+1~, DIC+5, SELECT~, SELECT+4, OK+1~, OK+4, REPLWITH+1~, R1+2 , R1+3, VALID+1~, VALID+3, VALID+8, VALID+9, VQ, INUSE+1~, INUSE+2, INUSE+3, INUSE+4 , INQ+1~, INQ+3, DISABLE+1~, DISABLE+4

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCMEDT5

Call Graph Total: 10

Caller Graph Total: 5