Routine: OCXOED03

Information

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

Name	Comments	DBIA/ICR reference
S	;
EN(OCXR0,OCXR1)	;
DISP(OCXR0,OCXR1,OCXRD,OCXACT)	;
CENTER(X,M)	;
SEP(OCXHDR)	;
FIELD(OCXHDR)	;
DATA(OCXVAL,OCXLEN)	;
GETDATA(OCXD0,OCXD1,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("Rule Element Edit Screen"),80),!! Line Location: DISP+7
Function Call: WRITE	Prompt: " ",$$OPT^OCXOEDT("Edit","EDRELE","04",.OCXACT,"OCXR0,OCXR1") Line Location: DISP+8
Function Call: WRITE	Prompt: " ",$$FIELD("Label:")," ",$$DATA($G(OCXRD("ELE",OCXR1,.01,"E")),60) Line Location: DISP+9
Function Call: WRITE	Prompt: !," ",$$FIELD("Definition Type:")," ",$$DATA($G(OCXRD("ELE",OCXR1,.02,"E"),"Simple"),30) Line Location: DISP+10
Function Call: WRITE	Prompt: !!! Line Location: DISP+11
Function Call: WRITE	Prompt: " ",$$FIELD("Expression:")," ",$$DATA($G(OCXRD("ELE",OCXR1,2,"E")),60) Line Location: DISP+12