ER clr_flg ( ID flgid, FLGPTN clrptn );
ER iclr_flg ( ID flgid, FLGPTN clrptn );
ID flgid;
FLGPTN clrptn;