Routine: OCXOED09

Information

OCXOED09 ;SLC/RJS,CLA - Rule Editor (Element Expression Display) ;10/29/98 12:37

Name	Comments	DBIA/ICR reference
S	;
EN(OCXD0,OCXD1,OCXR1)	;
DISP(OCXD0,OCXD1,OCXRD,OCXACT)	;
CENTER(X,M)	;
SEP(OCXHDR)	;
FIELD(OCXHDR)	;
DATA(OCXVAL,OCXLEN)	;
GETDATA(OCXD0,OCXD1,OCXD)	;
PARNUM(OCXOPER)	;
DIC(OCXDIC,OCXDIC0,OCXDICA,OCXX,OCXDICS,OCXDR)	;
DIQ(DIC,DA,OCXDIQ0,OCXARY)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,OCXTNLN Line Location: DISP+8
Function Call: WRITE	Prompt: !,$$CENTER($$FIELD("Element Expression Edit Screen"),80),!! Line Location: DISP+9
Function Call: WRITE	Prompt: " ",$$FIELD("Data Field:")," ",$$DATA($G(OCXRD("ELE",OCXD0,"C",OCXD1,1,"E")),60) Line Location: DISP+12
Function Call: WRITE	Prompt: ! Line Location: DISP+13
Function Call: WRITE	Prompt: " ",$$FIELD(" Operator:")," ",$$DATA(OCXOPER,30) Line Location: DISP+14
Function Call: WRITE	Prompt: " ",$$FIELD(" Operator:")," ",$$DATA($G(OCXRD("ELE",OCXD0,"C",OCXD1,2,"E")),30) Line Location: DISP+15
Function Call: WRITE	Prompt: !!," ",$$OPT^OCXOEDT("Edit","EDEXP","10",.OCXACT,OCXD0_","_OCXD1) Line Location: DISP+30