Routine: OCXOED15

Information

OCXOED15 ;SLC/RJS,CLA - Rule Editor (Expert System Editor Display) ;6/20/01 10:52

Package	Total	Call Graph
Order Entry Results Reporting	3	($$VERSION,VERSION)^OCXOCMP $$EN^OCXOED16 $$OPT^OCXOEDT
VA Fileman	1	^DIC

Package	Total	Caller Graph
Order Entry Results Reporting	1	OCXOEDT

Name	Comments	DBIA/ICR reference
DIC(OCXDIC,OCXDIC0,OCXDICA,OCXX,OCXDICS,OCXDR)	;
EN	;
SEP(OCXHDR)	;
DISP(OCXACT)	;
CENTER(X,M)	;
FIELD(OCXHDR)	;
S	;
DATA(OCXVAL,OCXLEN)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,OCXTNLN Line Location: DISP+5
Function Call: WRITE	Prompt: !,$$CENTER($$FIELD("Expert System Editor Main Screen"),80),! Line Location: DISP+6
Function Call: WRITE	Prompt: !,$$CENTER($$FIELD($$VERSION^OCXOCMP),80),! Line Location: DISP+7
Function Call: WRITE	Prompt: ! Line Location: DISP+8
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("Rule","EDRULE","16",.OCXACT)," ",$$FIELD("Edit a Rule") Line Location: DISP+9
Function Call: WRITE	Prompt: ! Line Location: DISP+10
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("Element","EDELEM","16",.OCXACT)," ",$$FIELD("Edit an Element") Line Location: DISP+11
Function Call: WRITE	Prompt: ! Line Location: DISP+12
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("Field","EDDF","16",.OCXACT)," ",$$FIELD("Edit a Data Field") Line Location: DISP+13
Function Call: WRITE	Prompt: ! Line Location: DISP+14
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("Comp","COMP","16",.OCXACT)," ",$$FIELD("Run the Compiler") Line Location: DISP+15
Function Call: WRITE	Prompt: ! Line Location: DISP+16
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("ScanDF","SCANDF","16",.OCXACT)," ",$$FIELD("Scan for Data Fields") Line Location: DISP+17
Function Call: WRITE	Prompt: ! Line Location: DISP+18
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("ScanEL","SCANEL","16",.OCXACT)," ",$$FIELD("Scan for Elements") Line Location: DISP+19
Function Call: WRITE	Prompt: !! Line Location: DISP+20
Routine Call	DIC Line Location: DIC+8

Name	Line Occurrences
$$CENTER	DISP+6, DISP+7
$$FIELD	DISP+6, DISP+7, DISP+9, DISP+11, DISP+13, DISP+15, DISP+17, DISP+19
DISP	EN+2

Name	Field # of Occurrence
DIC	DIC+2~, DIC+3*
DIC("A"	DIC+6*
DIC("DR"	DIC+7*
DIC("S"	DIC+5*
DIC(0	DIC+4*
IOF	DISP+5
M	CENTER~, CENTER+1
OCXACT	EN+2~!*, DISP~, DISP+9, DISP+11, DISP+13, DISP+15, DISP+17, DISP+19
OCXDIC	DIC~, DIC+3
OCXDIC0	DIC~, DIC+4
OCXDICA	DIC~, DIC+6
OCXDICS	DIC~, DIC+5
OCXDR	DIC~, DIC+7
OCXHDR	SEP~, SEP+2, FIELD~, FIELD+2
OCXLEN	DATA~, DATA+2, DATA+3, DATA+4
OCXTHLN	DISP+2~, DISP+3*, SEP+2, FIELD+2
OCXTNLN	DISP+2~, DISP+3*, DISP+5, SEP+2, FIELD+2
OCXTRLN	DISP+2~, DISP+3*
OCXTULN	DISP+2~, DISP+3*, SEP+2
OCXVAL	DATA~, DATA+2*, DATA+3, DATA+4
OCXX	DIC~, DIC+4
SP	CENTER+1~*
SPACES	SEP+2~, DATA+2~, DATA+4
X	CENTER~, CENTER+1, DIC+2~, DIC+4*
Y	DIC+2~, DIC+8

Name	Field # of Occurrence
$T(VERSION^OCXOCMP	DISP+7