'Content-type: text/html; charset=iso-8859-1'/# phl84/001.fnc

now exp phl_acv ,'IDM='v10, ,'IDM='v10'Z', 10 1 Isis_Key Isis_Postings Isis_Posting , s2:=(v1*4), if val(v2)>0 then ,ref( ['phl_acv']val(v3^m), (, ,if s(mhu,v40.26,mpl):s2 then v40/ ,fi, ) ,) ,fi, , 1