Routine: OCXOED15

Information

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

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

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