5000,5003,5021,5050,7001,6212 if v6212 : 'save' then 'Now' fi if a(v5021) then '^1parameter missing^2language^3Inform the parameter lang in the call to iAH' fi cat(v5000^p,v5003^*,'.def') ,( if v1 : 'FILE ' then '^n'v1*5/ fi ), '(v7998^n/)' ,if p(v5050) then v5050 else 'main' fi, ,(replace(v7998,'%path_database%',v5000^b[1]) /), ,(replace(v7998,'%path_cgi-bin%',v5000^c[1]) /), ,(replace(v7998,'%lang%',v5021[1])/), ,(replace(v7998,'%pathLibrary%',v5050[1])/), ,(replace(v7998,'#',v5003^d[1]) /), (if v1 : 'INCLUDE CIPAR=' then mid(v1,instr(v1,'=')+1,size(v1)) fi/ ) if p(v7999) then (cat(getenv('PATH_TRANSLATED'),v7999)) fi /* gizmo */ ,"CI_TEMPDIR="v5000^t,/ ,'ASC2ANS.*=',v5000^b,'gizmo/g850ans.*',/ ,'MINUSC.*=',v5000^b,'gizmo/minusc.*',/ /* xml support */ ,'GIZMO_XML.*=',v5000^b,'gizmo/gXML.*',/ ,'PROLOG.I2X=',v5000^c,'prolog.i2x'/ /* database def files */ ,(v7998/), /* include def files */ ,(v7999/), /* iah format */ ,'AHFORM.HTM=',v5000^c,v5021,'/ahform.htm'/ ,'AHCONF.HTM=',v5000^c,v5021,'/ahconf.htm'/ ,'AHHEAD.PFT=',v5000^c,v5021,'/ahhead.pft'/ ,'AHFOOT.PFT=',v5000^c,v5021,'/ahfoot.pft'/ ,'AHHIDD.PFT=',v5000^c,v5021,'/ahhidd.pft'/ ,'AHMANU.PFT=',v5000^c,'pfts/ahmanu.pft'/ ,'AHBBOT.HTM=',v5000^c,v5021,'/ahbbot.htm'/ ,'AHINDX.HTM=',v5000^c,v5021,'/ahindx.htm'/ ,'AHSEND.HTM=',v5000^c,v5021,'/ahsend.htm'/ ,'AHLIST.PFT=',v5000^c,v5021,'/ahlist.pft'/ ,'NAVPAGE.PFT=',v5000^c,v5021,'/navpage.pft',/ ,'AHEMAIL.PFT=',v5000^c,v5021,'/ahemail.pft',/ ,'LIST6003.PFT=',v5000^c,v5021,'/list6003.pft'/ ,'AHSCAD.HTM=',v5000^c,v5021,'/ahscad.htm'/ ,'CDSCAD.HTM=',v5000^c,v5021,'/cdscad.htm'/ ,'SCAD.PRC=',v5000^c,'scad.prc'/ ,'AHRTOP.HTM=',v5000^c,v5021,'/ahrtop.htm'/ ,'AHRBOT.HTM=',v5000^c,v5021,'/ahrbot.htm'/ ,'AHRNAV.HTM=',v5000^c,v5021,'/ahrnav.htm'/ ,'AHBTOP.HTM=',v5000^c,v5021,'/ahbtop.htm'/ ,'SHORTCUT.IAH=',v5000^c,v5021,'/dumy.pft',/ ,'QUERY.IAH=',v5000^c,v5021,'/query.pft',/ ,'HEADER.IAH=',v5000^c,v5021,'/header.pft',/ ,'AHBNAV.HTM=',v5000^c,v5021,'/ahbnav.htm'/ 5001 v5001,'^s'v1 5001 getenv('PATH_TRANSLATED') if v1 : 'list' then left(v1,instr(v1,'list')-1) fi if right(replace(v1,'\','/'),1) <> '/' then s(v1,'/') fi replace(v1,'index.htm','') putenv('PATH_TRANSLATED='v1) 5000,5006,5003,5021 cat(v5000^p,v5003^*,'.def') (if v1.6 = 'INDEX ' then '^n',replace(v1*6,'=','')/ fi), ( if a(v2^x) then if p(v2^s) then replace(v2,'^s','^x/') else v2,'^xALL ' fi, fi, ,if a(v2^y) then '^yDATABASE' fi, /) replace(replace(v5006^a[1],' ',''),',',s(#)) (if v9021 = v5021[1] then f(iocc,1,0) fi) `(replace(v2,'^`,v9022,`','^L')/)` '[2:',v3,']' 5000,5001,5015 ^n^v (if v2100 : '.x^' then mid(v2100,1,instr(v2100,'.')-1),break fi) if a(v2200) then v5001 fi if v2200^n*0.4 = 'Page' then '^nGO PAGE^p'v2200^n*4 fi if v2200^n.9 = 'photocopy' then '^n'v2200^n,"^m"v2200^m,"^i"v2200^i,'^h'v2200^h,'^p'v2200^p fi if a(v2200) and p(v5015) then 'getindex' fi 2200 6003 '^l',v1,(if iocc = val(v1[1]) then v6003,break fi) 6100 5000,5003,5004,5009,5013,5021,6000 cat(v5000^b,'par/'v5003^*,'.def') if a(v5003) then '^1parameter missing^2database^3Inform the parameter base in the call to iAH' fi if a(v1) then '^1database definition file^2unable to open ',v5000^b,'par/',v5003^*'.def^3Check the instalation process and the call to iAH' fi ,(, if v1 : 'GIZMO=' then '^g',mid(v1,instr(v1,'=')+1,size(v1))/ fi if v1 : 'DECOD=' then '^d',mid(v1,instr(v1,'=')+1,size(v1))/ fi ,), ,( if v1 : 'FORMAT ' then '^n',if v1 : 'DEFAULT' then 'DEFAULT^f' else replace(v1^**7,'=',''),fi, mid(v1,instr(v1,'=')+1,size(v1))/ fi ), if v3 : '^nDEFAULT' then else '^nDEFAULT^f'v3^n[1] fi ,( if v1 : 'HELP ' or v1 : 'NOTE ' then '^n',replace(v1^*,'=','^v') fi/ ), ,(if v1 : 'RESUBMIT=' then replace(mid(v1,instr(v1,'=')+1,size(v1)),',',s(#))/,break, fi ), if p(v5003^n) then left(v5003,instr(v5003,'^n')-1) fi if p(v5) then (v5/) fi (v3/) (v2/) (v4/) if a(v5013) then 'GUEST' fi ,( if v1 : 'AVAILABLE FORMS=' then mid(v1,instr(v1,'=')+1,size(v1)) fi ), if a(v5014) then 'F,B,A' fi (if left(v1,instr(v1,'=')-1) : 'NAVIGATION BAR' then mid(v1,instr(v1,'=')+1,size(v1)),break, fi) if a(v5007) then 'ON' fi (if left(v1,instr(v1,'=')-1) : 'DOCUMENTS PER PAGE' then mid(v1,instr(v1,'=')+1,size(v1)),break, fi) if a(v5008) then '10' fi if a(v5009) then (if v5005^n = 'DEFAULT' then v5005^f fi) fi ( if left(v1,instr(v1,'=')-1) : 'FEATURES' then '^f',mid(v1,instr(v1,'=')+1,size(v1)) fi, if left(v1,instr(v1,'=')-1) : 'SEND RESULT BY EMAIL' then '^e',mid(v1,instr(v1,'=')+1,size(v1)) fi, if left(v1,instr(v1,'=')-1) : 'KEYRANGE SUFFIX' then '^k',mid(v1,instr(v1,'=')+1,size(v1)) fi, if left(v1,instr(v1,'=')-1) : 'SEARCH ACTAB' then '^a',mid(v1,instr(v1,'=')+1,size(v1)) fi, if left(v1,instr(v1,'=')-1) : 'SEARCH UCTAB' then '^u',mid(v1,instr(v1,'=')+1,size(v1)) fi, ) if a(v6000) then v5014.1 fi 5003/5005,5007/5010,5012/5014,5018,6000 5000,5021 IsisScript cat(getenv('PATH_TRANSLATED'),'iah.def.php') if a(v7999) then '^1aplication definition file^2unable to open ',getenv('PATH_TRANSLATED'),'iah.def^3Check the instalation process and the call to iAH.' fi ,(, ,if v7999 : 'PATH_DATABASE=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_CGI-BIN=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_DATA=' then '^d',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_DEF=' then '^p',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'MAINTENANCE=' then '^m',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'TEMPDIR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,), ,'^s',v9990, ,if p(v9991) then '^p'v9991 fi, ,if p(v9992) then '^f'v9992 fi, ,'^v3.1.1', replace(v5000,'\','/') if a(v5000^p) then v5000,'^p',v5000^b,'par/' fi ,(, ,if v7999 : 'BODY BACKGROUND IMAGE=' then '^i',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BODY BACKGROUND COLOR=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BODY LINK COLOR=' then '^l',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BODY TEXT COLOR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BAR BACKGROUND COLOR=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'MANAGER E-MAIL=' then '^e',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'MULTI-LANGUAGE=' then '^m',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'REVERSE MODE=' then '^r',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'AVAILABLE LANGUAGES=' then '^a',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,), ( if v7999 : 'LOG DATABASE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'LOGO IMAGE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'LOGO URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'HEADER IMAGE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'HEADER URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'BVSLOG URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) 5000,5006,5020/5041,5220,8002 5000,5002 cat(s(getenv('PATH_TRANSLATED')'iah.def')) ,(, ,if v7999 : 'PATH_DATABASE=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_CGI-BIN=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_DATA=' then '^d',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'TEMPDIR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,), '^s'v5000^s, if getenv('SERVER_NAME') <> 'localhost' then '^l'v5000^l fi 1 5000 gizmoDecod DATABASE v800^m 1 if v800^i = '1' then (v5012^g/) fi if v800^i = '1' then v5012^d fi 1000,1001,6212 s cat('PROC.PFT'),',' ALL v9999 1002,1031,5001,5008 mpu,v5001^*,mpl 1 f(val(v1031)+val(v5008),1,0) f((val(v1002)-1)/val(v5008),1,2) f((val(left(v1,size(v1)-3)) * val(v5008))+1,1,0) f((val(v1031)-val(v5008))-1,1,0) if val(v1) > 0 then f(val(v1)+1,1,0) else '1' fi if v5001^p = '1' then '1' else f(((val(v5001^p)*val(v5008))+1)-val(v5008),1,0) fi 1002,1031,5008 f(val(v1002)/val(v5008),1,5) left(f(val(v1031)/val(v5008),1,5),instr(f(val(v1031)/val(v5008),1,5),'.')-1) f(val(v1)+1,1,0) left(v99,instr(v99,'.')-1) if val(right(v99,size(v99)-instr(v99,'.'))) > 0 then f(val(v2)+1,1,0) fi if val(v2) = 0 then '1' fi left(f((val(v1)-1)/10,1,5),instr(f((val(v1)-1)/10,1,5),'.')-1) f((10*val(v3))+1,1,0) v3 if val(v2) < (val(v3)+9) then v2 else f(val(v3)+9,1,0) fi Isis_Current 1/2,6205 '^c'v1'^l'v2'^i',v1001,if v1 = v1001 then '^hred' fi 6205 6205 5000/5003,5006,5021,5030/5041,6213,6214 v1^* 6214 v6214 v6214 v6214 replace(v6213,'@bireme.br','@brm.bireme.br') cat(getenv('PATH_TRANSLATED'),'sendmail.conf') (if left(v9,instr(v9,'=')-1) : 'EXECUTE' then mid(v9,instr(v9,'=')+1,size(v9)) fi/) replace(replace(v9,'',v6213),'',v6214) system(v9) v6214 @AHEMAIL.PFT 5000,5021,5010 replace(getenv('PATH_TRANSLATED'),'\','/') replace(v9002,'/iah/scripts/','/iah/') '^h',v5000^d,v5021,'/help/','^n',v9002,v5021'/help/' ( if v5010^n = s('HELP ',v1^1[1],' ',v1^2[1]) then '^h'v2^h[1],v5010^v, break fi) if a(v5011) then ( if v5010^n = s('HELP ',v1^1[1]) then '^h'v2^h[1],v5010^v, break fi) fi ( if v5010^n = s('NOTE ',v1^1[1],' ',v1^2[1]) then v5011[1],'^n'v2^n[1],v5010^v, break fi) if a(v5011^n) then ( if v5010^n = s('NOTE ',v1^1[1]) then v5011[1],'^n'v2^n[1],v5010^v, break fi) fi 5011 1,6100 REF([v6100^g]1,(v1/)) REF([v6100^g]1,(v2/)) if nocc(v6111) > 1 then 'APLY' fi v6100^g 2 1 2 v1[1] if s(v6100^x.2) = 'MH' then (if right(v1^v[1],(size(v1^v[1])-instr(v1^v[1],'/')+1)) = v6111 then '^n'replace(v1^v[1],v6111,v6112),break fi) else (if v1^v[1] = v6111 then '^n'replace(v1^v[1],v6111,v6112),break fi) fi 1 if p(v1) then 'APLY' fi (v10/) 1 1002,1031,1032,5000/7000 v5020 if v1^s : 'm' then 'APPEND' fi v5020 v5020 New Isis_Status date getenv('REMOTE_ADDR') getenv('HTTP_USER_AGENT') 1031,1032,1002,5001,5003,5007,5008,5009,5013,5021,5050,6000,6001,6002,6003,6100,6102,6211,6213 'd6001d6002d6003'(if p(v6002) then 'a6001~'v6001'~a6002~'v6002'~',|a6003~|v6003|~| fi/) Unlock 1002,1031,1032,5000/9000 if p(v6002) then @QUERY.IAH else if p(v6100) then s(mpu,v6100^n,mpl) fi,fi '' 'Content-type: text/html'/# 'iAH error | ',v1^1,' | 'v1^2,'

',v1^3,'' 0 6002 replace(v6002,' ',s(#)) (v6002 +| |) 6002 'Content-type: text/xml'/# if v1 <> 'omit-xml-declaration' then ''/ fi

'1002 isisTotal'/ '1031 isisFrom'/ '5000 environment'/ '5001 nextAction'/ '5002 pathImages'/ '5003 base'/ '5004 baseResubmit'/ '5005 avaibleFormats'/ '5006 apperance'/ '5007 navBar'/ '5008 hits'/ '5009 format'/ '5010 helpInfo'/ '5012 gizmoDecod'/ '5013 user'/ '5113 userPassword'/ '5114 photocopy'/ '5014 avaibleForms'/ '5015 index'/ '5018 baseFeatures'/ '5020 logDatabase'/ '5021 lang'/ '5030 logoImage'/ '5031 logoURL'/ '5040 headerImage'/ '5041 headerURL'/ '5050 pathLibrary'/ '6000 form'/ '6001 conectSearch'/ '6002 exprSearch'/ '6003 indexSearch'/ '6100 selectedIndex'/ '6102 termsFromIndex'/ '6121 kwicMode'/ '6122 indexRoot'/ '6205 resultPages'/ '6209 listOption'/ '6210 listChecked'/ '6211 listHit'/ '6212 sendOption'/ '6213 sendToEmail'/ '6400 related'/ '7000 limit'/ '7001 restriction1'/ '7002 restriction2'/ '7003 restriction3'/ '7004 restriction4'/ '7005 restriction5'/ '8000 label'/ '8001 showheader'/ '8002 bvslog'/ v5999 tag if v5013^* = 'DEBUG' then 'Content-type: text/html'/# fi if v5013^* = 'DEBUG' then 'On' fi 200000 now if right(replace(getenv('PATH_TRANSLATED'),'\','/'),1) <> '/' then 'Now' fi if a(v5000) then 'Now' fi if p(v5000^l) then 'Now' fi if a(v5005) or p(v5003^n) then 'Now' fi now if a(v5002) then v5000^d,v5021,'/image/', fi mpu,v5001^*,mpl v5000^c,v5021,'/ahform.htm' if a(v1^s) then '^1application files^2unable to open application files in: ',v5000^c,'^3Check the [PATH] section in system definition file iah.def' fi 6001,6002,6003,6102,6210 v6102^* + | or | FORM '^1FORM^2'v6000 6099 cat('AHFORM.HTM') DONE 6003 (if s(mpu,v6003^n,mpl) = s(mpu,v5015[1],mpl) then v6003,break fi) A if nocc(v6003) > 1 then '^1index^2unable to show index ',v5015,'^3Please verify if the index is avaible' fi 1 if v6100^t = 'short' then 'SHOW INDEX' else 'INDEX FORM' fi 2 if v6100^t = 'short' then 'SHOW INDEX' else 'INDEX FORM' fi 3 if v6100^t = 'short' then 'SHOW INDEX' else 'INDEX FORM' fi INDEX '^1INDEX^2'v6100^x.2 cat('AHINDX.HTM') DONE v6122[3] '^1INDEX^2'v6100^x.2 v6100^l if v6121 = 'On' then 'SHOW INDEX KWIC' fi INDEX_ALPHA if v6122[1]*0.1 = ' ' then v6122[1]*1.1 else v6122[1] fi if v6122 = '012...' then '0' fi if p(v6100^y) then v6100^y else 'DATABASE' fi,v5018^k ,if p(v6100^u) then v6100^u fi, ,if v6100^t <> 'short' then v6122 fi, if p(v6100^u) then v6100^u fi, ,'ZZZZZZZZZZZZZZZZZZZZZ', if v6100^t <> 'short' then '100' fi if v6100^x.1 = '/' then replace(v6100^x*1,',',s(#)) fi (v1099/) 1 Isis_Key if p(v6100^g) then 'Now' fi 1,2,6100,6111,6112 if p(v6100^u) then v11*3 else v11 fi '^v',v11 if p(v12) then v12 fi 1,2 if p(v6100^g) and p(v1) then 'Now' fi cat('AHINDX.HTM') DONE INDEX_KWIC if v6122[1]*0.1 = ' ' then v6122[1]*1.1 else v6122[1] fi if v6122 = '012...' then '0' fi 'KWIC'v6100^y s(mpu,v6122^*,mpl) s(mpu,v6122^*'ZZZZZZZZZZZZZZZZZ',mpl) 1 1 Isis_Key Isis_Posting if p(v6122^m) then '^m'v6122^m fi 'KWIC'v6100^y v13^m 100 (v5012^g/),'MINUSC'/ 10,6122,6100 if s(mpu,v1^l,mpl) : s(mpu,v6122^*,mpl) then else 'Quit' fi '^n',v1^f,replace(v1^l,v6122^*,s(mpu,v6122^*,mpl)), '^v',if p(v2) then v2 else v1^f,replace(v1^l,v6122^*,s(mpu,v6122^*,mpl)) fi, '^m',mfn 10 (v10/) cat('AHINDX.HTM') DONE INDEX_ASPECTS/FASCICLES '^1ASPECTS/FASCICLES^2'v6100^x.2 (replace(v6102,'"','')/) Isis_Item 1,2,6100,6111,6112 if p(v6100^y) then v6100^y else 'DATABASE' fi if p(v6100^u) then v6100^u fi,s(mpu,v100,mpl)'/' if p(v6100^u) then v6100^u fi,s(mpu,v100,mpl)'/ZZZZZZZZZZZ', if v6100^x.1 = '/' then replace(v6100^x*1,',',s(#)) fi (v1099/) 1 Isis_Key '^v',s(mpu,v100,mpl) 1,2,6100,6111,6112 if p(v6100^u) then v11*3 else v11 fi '^v',v11 if p(v12) then v12 fi 1,2 1,2 if p(v6100^g) and p(v1) then 'Now' fi ALL cat('AHINDX.HTM') DONE CONFIG cat('AHCONF.HTM') DONE header start count page fmt if a(v11) then 'ON' else s(mpu,v11,mpl) fi if val(v12) < 1 then '1' fi if a(v13) then v5008 fi "^h"v11,"^c"v13,"^f"v15, if p(v6300^f) then v6300^f,'.xml' fi v6300^c if p(v6300^p) then f(((val(v6300^p)*val(v5008))+1)-val(v5008),1,0) else v6300^s fi 1 form if s(mpu,v6300^h,mpl) = 'OFF' then 'omit-xml-declaration' else '*' fi if v6000 = 'F' then 'SEARCH' fi 6099 (if s(mpu,v6003[1],mpl) = s(mpu,v6099^n,mpl) then v6099,break fi) 1 if p(v6003) then 'INDEX TRANSLATE' fi A 'init'/(v6001/) if a(v1) then (if p(v6099^d) then v6099,break fi) else (v1/) fi SEARCH '^l1',v6100*3 v6102^* + | OR | ALL v6100*3 SEARCH ALL ALL SEARCH now SEARCH 6099 if v6000 = 'F' and v6002 : ' ' then 'now' fi DATABASE if s(mpu,v5006^r,mpl) = 'ON' then 'On' fi (if p(v6099^d) and p(v6099^y) then, '^p*^y',v6099^y,|^u|v6099^u,|^m|v6099^m,/ fi), (if p(v6099^x) and p(v6099^y) then, '^p',v6099^x,'^y',v6099^y,|^u|v6099^u,|^m|v6099^m,/ fi), @QUERY.IAH v6010 v1031 1 if p(v5018^a) then cat(v5018^a) fi if p(v5018^u) then cat(v5018^u) fi Isis_Current Isis_Total Isis_From Isis_Status Isis_ErrorInfo v5008 (v5012^g/) v5012^d now f(val(v1031)+val(v5008)-1,1,0) if val(v1002) < val(v1032) then v1002 else v1032 fi if v5001^* = 'xml' then else cat('AHBTOP.HTM') fi if v5001^* = 'xml' then else 'SKIP_PROLOG' fi 2 cat('PROLOG.I2X') ''/ * if val(v5008) = 0 then 'SKIP_OUTPUT_XML' else 'OUTPUT XML' fi v5012^d (v5012^g/) 1032,5000/5009,5013,5018,5021,5050,6000,6001,6002,6003,6102,6205,6210,7001,7002,7003,7004,7005,8000,8001,8002 cat('PROC.PFT'),',' cat('AHBNAV.HTM') if s(mpu,v5009,mpl) : '.PFT' then '@',v5009 fi if s(mpu,v5009,mpl) : '.HTM' then cat(v5009) fi '' cat('AHBBOT.HTM'),cat('AHFORM.HTM') Next (v5012^g/),'GIZMO_XML'/ if p(v6301) then '2' else '0' fi if p(v6301) then '1001 current-hit'/'1002 total-hits'/(v6301/) fi 1031,6300,6301,6302,5003,5018 cat('PROC.PFT'),',' if a(v6302) then '*' fi if a(v6302) then 'Next' fi '' '@',v6302 '' ''/ DONE @AHHEAD.PFT @AHMANU.PFT DONE s(mpu,v6209,mpl) LIST cat('AHSEND.HTM') DONE '^m'v5001^m print LIST_ONE print LIST_YOUR_SELECTION if a(v5001^s) then 'LIST_SELECTED' fi if v6212 = 'e-mail' then 'OPEN' fi if v6212 = 'save-xml' then '*' fi (if val(v6210^m) > 0 then f(val(v6210^m),10,0) fi/) if v6212.6 = 'export' then 'EXPORT_MFN' fi Isis_Item Isis_Current Isis_Itens 5003,5006,5009,5012,5021,5050,6000/6003,6210,6212,7001/7005,8000,8001,8002 if v6212 <> 'save-xml' then @AHLIST.PFT fi DATABASE if val(v1001) = 1 then (v5012^g/),if v6212 = 'save-xml' then 'GIZMO_XML'/ fi, fi, if val(v1001) = 1 then v5012^d fi v2001 1 1001,1002,5000/5009,5021,6212 cat('PROC.PFT'),',' if v6212 = 'save-xml' then 'DISPLAY_XML' fi if s(mpu,v5009,mpl) : '.PFT' then '@',v5009 fi if s(mpu,v5009,mpl) : '.HTM' then cat(v5009) fi Next @DATABASE.XML if v6212 <> 'save-xml' then @AHFOOT.PFT fi if v6212='e-mail' then 'SEND' fi DONE ALL if a(v5001^s) then 'LIST_ALL' fi if a(v5001^s) then 'LIST_HITS' fi if v6212='e-mail' then 'OPEN' fi if v6212 = 'save-xml' then '*' fi 6099 if v6212.6 = 'export' then 'EXPORT_HIT' fi DATABASE if s(mpu,v5006^r,mpl) = 'ON' then 'On' fi (if p(v6099^d) and p(v6099^y) then, '^p*^y',v6099^y,|^u|v6099^u,|^m|v6099^m,/ fi), (if p(v6099^x) and p(v6099^y) then, '^p',v6099^x,'^y',v6099^y,|^u|v6099^u,|^m|v6099^m,/ fi), @QUERY.IAH v6211[1] v6211[2] (v5012^g/),if v6212 = 'save-xml' then 'GIZMO_XML'/ fi, v5012^d if p(v5018^a) then cat(v5018^a) fi if p(v5018^u) then cat(v5018^u) fi 0 Isis_Total 1001,5003,5006,5009,5012,5021,5050,6000,6001,6002,6003,6210,6211,6212,7001/7005,8000,8001,8002 cat('PROC.PFT'),',' f(val(v1001)+1,1,0) if p(v6211) then f(val(v6211[2])-val(v6211[1])+1,1,0) fi if v6212 = 'save-xml' then 'DISPLAY_XML' fi @AHLIST.PFT if s(mpu,v5009,mpl) : '.PFT' then '@',v5009 fi if s(mpu,v5009,mpl) : '.HTM' then cat(v5009) fi '' 1001 Next @DATABASE.XML 1001 if v6212 <> 'save-xml' then @AHFOOT.PFT fi if v6212='e-mail' then 'SEND' fi DONE list EXPORT search v6211[1] v6211[2] @QUERY.IAH 'Content-type: bireme/application'/ 'Content-Disposition: inline; filename="resultado.',v6212*7,'"'/# v9000 DATABASE v9001 v9002 v9003 if s(mpu,v5006^r,mpl) = 'ON' and v9000 <> 'list' then 'On' fi (if p(v6099^d) then '^p*^y'v6099^y,|^u|v6099^u,|^m|v6099^m/ fi,'^p'v6099^x'^y'v6099^y,|^u|v6099^u,|^m|v6099^m/) (v5012^g/) v5012^d STDOUT if v6212 = 'export-iso' then 'ISO2709_CRLF' fi Isis_Current Isis_Item 6212 if val(v1001) > 0 then 'PASS_PROC' fi s cat('PROC.PFT'),',' if val(v1001) > 0 then '^m'v1001,'^i'v1000 fi if v6212 <> 'export-iso' then 'EXPORT_USERFORMAT' fi 1000,1001,6212 Now Next mid(v6212,instr(v6212,'-')+1,size(v6212)) '@',v9999 DONE SCAD 9010 v9010 (v5999/) (if v9001 : 'nextAction' then else v9001/, fi) 'IsisScript=',v5000^s,/ 'nextAction=ACCESS SCAD'/ "photocopy=^m"v5001^m,"^h"v5001^h,"^p"v5001^p/ (`(|`v9001*5`=|v`v9001.4`/),`) v9010 ,if size(getenv('PATH_WXIS')) > 0 then getenv('PATH_WXIS') else left(v5000^c,instr(v5000^c,'/iah')) fi, ,'wxis.exe', system(putenv('REQUEST_METHOD=POST'),putenv('CONTENT_LENGTH=0'),v9005,' in='v9010,) v9010 DONE SCAD if p(v5013^m) then 'MOUNT REQUEST' fi if a(v5013) or a(v5113) or s(v5013) = 'GUEST' then 'LOGIN SCAD' fi if p(v5113) and ref(['USER']l(['USER']'CODE='v5013),s(mpu,v697,mpl)) <> s(mpu,v5113,mpl) then 'LOGIN SCAD' fi v5013,ref(['USER']l(['USER']s('CODE=',v5013)),'^m',mfn(1),"^b"v90) if p(v5013^b) then 'LOGIN SCAD' fi (v5999/) (`(|`v5703*5`=|v`v5703.4`/),`/) (if right(v5703,1) <> '=' then v5703 fi/) DATABASE (v5012^g/) v5012^d v5114^m 1 5000/5021,5050,5114,5703 cat('PROC.PFT'),',' if v5003^*.7 <> 'MEDLINE' and s(v5.1) <> 'S' then 'CONTINUE' fi FA if v5003^*.7 <> 'MEDLINE' and s(v5.1) = 'S' then '"'v30'"',| AND |v65*0.4,| AND |v31,| AND |v32 else v999^4,|@|v999^q*0.4,|@|v999^w,|@|v999^t fi 1 Isis_Total Isis_Current (v800^a/) 9000 @SCAD.PRC 'Content-type:text/html',/#, ,@USER.PFT,@REQFORM.PFT,@BOTTOM.PFT, DONE cat('AHSCAD.HTM') DONE if a(v5001^s) then 'LIST_RELATED' fi RELATED v6400 1 (if val(v1^*) > 0 then v1 fi/) Isis_Item Isis_Current Isis_Itens DATABASE v6400 1 (v5012^g/) v5012^d 1001,1002,1032,5000/8000 cat('PROC.PFT'),',' cat('AHRTOP.HTM') Isis_Item Isis_Current Isis_Itens 1032,5000/5009,5012,5013,5018,5021,5050,6000/6003,6102,6205,6210,6400,7001/7005,8000 DATABASE v2001^* 1 1001,1002,1032,2001,5000/5009,5013,5018,5021,5050,6000,6001,6002,6003,6102,6205,6210,6400,7001/7005,8000 cat('PROC.PFT'),',' cat('AHRNAV.HTM') if s(mpu,v5009,mpl) : '.PFT' then '@',v5009 fi if s(mpu,v5009,mpl) : '.HTM' then cat(v5009) fi '' cat('AHRBOT.HTM') DONE 'Content-type: text/html'/# ' ',v5003,'

',v5003,'

' redirect page if p(v9000) then 'http://',v9000,'/?base='v5003'&lang='v5021 else 'http://',getenv('HTTP_HOST'),getenv('SCRIPT_NAME'),v5000^d,'?IsisScript='v5000^s'&base='v5003'&lang='v5021'&pathLibrary='v5050 fi 600 f(val(v5008)*10,1,0) DATABASE 1 1 Isis_Current Isis_Total if (val(v1002)/val(v9003)) < val(v9008) then v9008 else f(val(v1002)/val(v9003),1,0) fi f(val(v1002)/val(v9008),1,5) if p(v9001) then 'ROBOTS.PAGE' fi left(v9009,instr(v9009,'.')-1) if val(right(v9009,size(v9009)-instr(v9009,'.'))) > 0 then f(val(v9010)+1,1,0) fi if val(v9010) = 0 then '1' fi 1 v9010 Isis_Current ''/ DONE f(((val(v9001)*val(v9008))+1)-val(v9008),1,0) DATABASE v1031 v9008 Isis_Current Isis_Total '
    '/ 1031,1032,5003,5009,5018,9002 cat('PROC.PFT'),',' if p(v999^3) then v999^3 fi, /* MEDLINE */ if p(v2) then v2 else mfn(0) fi, /* LILACS */ '
  1. ' 'document id:',v9090,'' '
    2. '/
DONE if p(v5020) then 'Now' fi if p(v8002) and v5001^* <> 'xml' then 'Now' fi