Routine: OCXOED07

Information

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,OCXTNLN Line Location: DISP+6
Function Call: WRITE	Prompt: !,$$CENTER($$FIELD("Element Edit Screen"),80),!! Line Location: DISP+7
Function Call: WRITE	Prompt: " ",$$OPT^OCXOEDT("Edit","EDELE","08",.OCXACT,OCXD0) Line Location: DISP+8
Function Call: WRITE	Prompt: " ",$$FIELD("Element:")," ",$$DATA($G(OCXRD("ELE",OCXD0,.01,"E")),50) Line Location: DISP+9
Function Call: WRITE	Prompt: !!,?10,$$FIELD("Context:")," ",$$DATA($G(OCXRD("ELE",OCXD0,.02,"E")),50) Line Location: DISP+10
Function Call: WRITE	Prompt: !!,$$SEP("Element Expressions"),! Line Location: DISP+12
Function Call: WRITE	Prompt: ! Line Location: DISP+17
Function Call: WRITE	Prompt: !," ",$$OPT^OCXOEDT("Add Expression","EOPT","08",.OCXACT,"""ADD"","_OCXD0,"AE") Line Location: DISP+18
Function Call: WRITE	Prompt: " ",$$OPT^OCXOEDT("Delete Expression","EOPT","08",.OCXACT,"""DEL"","_OCXD0,"DE") Line Location: DISP+19
Function Call: WRITE	Prompt: "." Line Location: GETDATA+5