Adaptar o sci_xmloutput.xis para usar um índice alternativo a IV=<v880>=<v706>

[robertatakenaka]

Descrição da tarefa

Adaptar o sci_xmloutput.xis para usar um índice alternativo a IV=<v880>=<v706> para que seja removida a sua indexação e seja possível reduzir o tempo de processamento.

A chave IV=<v880>=<v706> foi encontrada em:

que usa os registros o, h e c:

proc_xml_agris.pft:if (v706='c' and v701='1') then
proc_xml_agris.pft:		if (v706='c') then
proc_xml_agris.pft:		,if ref(mfn+1,v706)<>'c' then
proc_xml_pmc.pft:if (v706='o') then
proc_xml_pmc.pft:if (v706='h') then
proc_xml_pmc.pft:		if (v706='c' and v701='1') then
proc_xml_pmc.pft:		if (v706='c') then
proc_xml_pmc.pft:		,if ref(mfn+1,v706)<>'c' then

Artigo.fst

1 0 mpl,'TP=',v706/
2 0 mpl,'IV=',v880,'=',v706/
3 0 mpl,if v706='h' and a(v222) then 'SM=',v880*1.17,'-',v880*18/, fi,
4 0 mpl,'PII=',v880,'=',v700/
5 0 mpl,if v706='o' then 'OU=',v880 fi,
6 0 mpl,if v706='f' then 'SF=',v880/, fi,
6 0 mpl,if v706='h' then 'HR=',v880/,|HR=|v881/,|HR=|v891/, fi,
6 0 mpl,if v706='h' and v35='0102-7638' then replace(s('HR=',v880),'0102-7638','1678-9741')/, fi, 
6 0 mpl,if v706='h' and v35='1807-0302' then replace(s('HR=',v880),'1807-0302','0101-8205')/, fi, 
6 0 mpl,if v706='h' and v35='1806-1117' then replace(s('HR=',v880),'1806-1117','0102-4744')/, fi, 
6 0 mpl,if v706='h' and v35='1678-4510' then replace(s('HR=',v880),'1678-4510','0100-879X')/, fi, 
6 0 mpl,if v706='h' and p(v41) then 'PR_HR=',v880/ fi, /* indice do registro h pr */
6 0 mpl,if v706='h' and v241^t='pr' then 'PR_LK='v241^i/ fi, /* indice de artigo que tem pr e indice indica o id do pr */
7 0 mpl,if v706='p' then 'ART=',v880 fi,
8 0 mpl,if v706='h' then 'TT=',v35/ fi,
10 0 mpl,if v706='h' and v10>'' then ('AU=',v10^s|, |,v10^n/) fi,
11 0 mpl,if v706='c' then 'MDL=',v880,'=',v701/, fi,
12 0 mpl,if v706='h' and v11>'' then ('AU=',v11^*|, |,v11^d/) fi,
13 0 mpl,if v706='i' then if p(v41) then 'P' else 'Y' fi,if ref(mfn+1,v880)<>'' then ref(mfn+1,v880*1.17) else v35,v65*0.4,s(f(val(v36*4.3)+10000,2,0))*1.4 fi/,if v32='ahead' or v32='review' then v32*0.1,v35,v65*0.4,s(f(val(v36*4.3)+10000,2,0))*1.4/, fi, fi
14 0 mpl,if v706='h' then 'TLN=',v880,v40/,if p(v601) then ('TLN=',v880[1],v601/) fi fi,
15 0 mpl,if v706='h' then 'DTH=',v65*0.4, if v65*4.2 = '00' then, '01', else v65*4.2, fi, '01=',v880*1.9,v880*14 fi,
16 0 mpl,if v706='c' then 'R=',v880/, fi,
20 0 mpl,if v706='p' and p(v888) then 'RP=',v880 fi,
50 0 mpl,if v706='i' and (v32='ahead' or v32='review') and a(v41) then v32,'=',v35 fi
60 0 mpl,if v706='i' then 'IDT',v91/, fi /* webservices - new_issues - SciELO.org */
90 0 mpl,if v706='h' then 'OAITS=',ref(mfn-1,if p(v93) then if val(v93*0.8) > val(v91) then v93*0.8 else v91 fi else v91 fi),'=',v880*1 fi
241 0 mpl,if v706='h' then (v241^t,v241^i/) fi
770 0 mpl,if v706='h' and v770>'' then ('EC_',v770^*,v770^a/) fi

Sendo assim poderemos usar no lugar de IV=<v880>=<v706>, as chaves criadas pelas linhas:

5 0 mpl,if v706='o' then 'OU=',v880 fi,
6 0 mpl,if v706='h' then 'HR=',v880/,|HR=|v881/,|HR=|v891/, fi,
16 0 mpl,if v706='c' then 'R=',v880/, fi,

Então o valor da expressão de buscar é:
HR=<v880> or R=<v880>$ or or OU=<v880>

O sci_xmloutput.xis e o sci_xmloutput_agris.xis, no trecho abaixo, recebe a expressão de busca no campo v2005, que é igua a IV=S2179-975X2020000100801$.

<field action="cgi" tag="2005">search</field>
<call name="error"><pft>"missing parameter: expression"n2005</pft></call>
<parm name="expression"><pft>v2005</pft></parm>

Para ajustar:

<field action="cgi" tag="2005">search</field>
<call name="error"><pft>"missing parameter: expression"n2005</pft></call>
<!-- <parm name="expression"><pft>v2005</pft></parm> -->
<field action="replace" tag="2880"><pft>if v2005*0.3='IV=' then v2005*3.26 fi</pft></field>
<parm name="expression"><pft>|HR=|v2880,| or R=|v2880|$|,| or OU=|v2880</pft></parm>
<!-- <parm name="expression">HR=S0104-11692005000300006 or R=S0104-11692005000300006$ or OU=S0104-11692005000300006</parm> -->