<?xml version="1.0"?><program><procedure pos="15:1"><name text="Exch2353_SetPurposeGrantToADD_KLASS_RCP" pos="15:50"/><parameters pos="15:50"><varparams pos="15:52"/><var pos="15:56"><ident text="aTo" pos="15:59"/><type text="Variant" pos="15:68"/></var><varparams pos="16:52"/><var pos="16:56"><ident text="aFrom" pos="16:61"/><type text="Variant" pos="16:70"/></var></parameters><compoundstmt pos="17:1"><trystmt pos="18:3"><ifstmt pos="35:9"><expr pos="35:12" pos1="35:85"><op text="not" pos="35:15"/><dsgn pos="35:16"><node text="VarIsNull" pos="35:25"/><expr pos="35:27" pos1="35:84"><dsgn pos="35:27"><node text="aFrom" pos="35:32"/><node text="parentNode" pos="35:43"/><node text="GetAttribute" pos="35:56"/><expr pos="35:58" pos1="35:83"><string text="'PURPOSEFULGRANT_HEAD_ID'" pos="35:83"/></expr></dsgn></expr></dsgn></expr><thenstmt pos="36:16"><compoundstmt pos="36:16"><callstmt pos="37:13"><dsgn pos="37:13"><node text="aTo" pos="37:16"/><node text="setAttribute" pos="37:29"/><expr pos="37:31" pos1="37:46"><string text="'ADD_KLASS_RCP'" pos="37:46"/></expr><expr pos="38:31" pos1="41:40"><dsgn pos="38:31"><node text="GetPurposeFulgrantCodeOld" pos="38:56"/><expr pos="39:35" pos1="40:79"><dsgn pos="39:35"><node text="aFrom" pos="39:40"/><node text="parentNode" pos="39:51"/><node text="getAttribute" pos="39:64"/><expr pos="40:53" pos1="40:78"><string text="'PURPOSEFULGRANT_HEAD_ID'" pos="40:78"/></expr></dsgn></expr><expr pos="41:35" pos1="41:39"><dsgn pos="41:35"><node text="TRUE" pos="41:39"/></dsgn></expr></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt><exceptstmt pos="47:7"><callstmt pos="47:7"><dsgn pos="47:7"><node text="ExceptionLog" pos="47:19"/><expr pos="47:21" pos1="47:80"><string text="'Ραξι: Un_Exch2353.Exch2353_SetPurposeGrantToADD_KLASS_RCP'" pos="47:80"/></expr></dsgn></callstmt></exceptstmt></trystmt></compoundstmt></procedure><procedure pos="64:1"><name text="Exch2353_SetGrantInvestmentToADD_KLASS_RCP" pos="64:53"/><parameters pos="64:53"><varparams pos="64:55"/><var pos="64:59"><ident text="aTo" pos="64:62"/><type text="Variant" pos="64:71"/></var><varparams pos="65:55"/><var pos="65:59"><ident text="aFrom" pos="65:64"/><type text="Variant" pos="65:73"/></var></parameters><var pos="67:3"><ident text="xCode" pos="67:8"/><type text="String" pos="67:16"/></var><compoundstmt pos="68:1"><trystmt pos="69:3"><ifstmt pos="84:9"><expr pos="84:12" pos1="84:85"><op text="not" pos="84:15"/><dsgn pos="84:16"><node text="VarIsNull" pos="84:25"/><expr pos="84:27" pos1="84:84"><dsgn pos="84:27"><node text="aFrom" pos="84:32"/><node text="parentNode" pos="84:43"/><node text="GetAttribute" pos="84:56"/><expr pos="84:58" pos1="84:83"><string text="'GRANTINVESTMENT_HEAD_ID'" pos="84:83"/></expr></dsgn></expr></dsgn></expr><thenstmt pos="85:16"><compoundstmt pos="85:16"><assignstmt pos="86:13"><dsgn pos="86:13"><node text="xCode" pos="86:18"/></dsgn><expr pos="86:22" pos1="88:82"><dsgn pos="86:22"><node text="GetGrantInvestmentCodeByID" pos="86:48"/><expr pos="87:35" pos1="88:75"><dsgn pos="87:35"><node text="aFrom" pos="87:40"/><node text="parentNode" pos="87:51"/><node text="getAttribute" pos="87:64"/><expr pos="88:49" pos1="88:74"><string text="'GRANTINVESTMENT_HEAD_ID'" pos="88:74"/></expr></dsgn></expr><expr pos="88:77" pos1="88:81"><dsgn pos="88:77"><node text="TRUE" pos="88:81"/></dsgn></expr></dsgn></expr></assignstmt><ifstmt pos="89:13"><expr pos="89:15" pos1="89:51"><op text="(" pos="89:16"/><expr pos="89:16" pos1="89:50"><dsgn pos="89:16"><node text="StringReplace" pos="89:29"/><expr pos="89:30" pos1="89:35"><dsgn pos="89:30"><node text="xCode" pos="89:35"/></dsgn></expr><expr pos="89:37" pos1="89:40"><string text="'0'" pos="89:40"/></expr><expr pos="89:42" pos1="89:44"><string text="''" pos="89:44"/></expr></dsgn><op text="=" pos="89:47"/><string text="''" pos="89:50"/></expr><op text=")" pos="89:51"/></expr><thenstmt pos="90:15"><assignstmt pos="90:15"><dsgn pos="90:15"><node text="xCode" pos="90:20"/></dsgn><expr pos="90:24" pos1="90:26"><string text="''" pos="90:26"/></expr></assignstmt></thenstmt></ifstmt><callstmt pos="91:13"><dsgn pos="91:13"><node text="aTo" pos="91:16"/><node text="setAttribute" pos="91:29"/><expr pos="91:31" pos1="91:46"><string text="'ADD_KLASS_RCP'" pos="91:46"/></expr><expr pos="92:31" pos1="92:36"><dsgn pos="92:31"><node text="xCode" pos="92:36"/></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt><exceptstmt pos="98:7"><callstmt pos="98:7"><dsgn pos="98:7"><node text="ExceptionLog" pos="98:19"/><expr pos="98:21" pos1="98:83"><string text="'Ραξι: Un_Exch2353.Exch2353_SetGrantInvestmentToADD_KLASS_RCP'" pos="98:83"/></expr></dsgn></callstmt></exceptstmt></trystmt></compoundstmt></procedure><compoundstmt pos="102:1"/><types/></program>