\* ------------------------------------------------------------------
\* STN Express Script
\* Name:  pharmpat-test.sc
\* Function: Extensive pharma patent search (Test with Learning Files)
\* Author:  Andreas Litscher, InfoLit Infobroker GmbH, CH-Bern
\* Date:  19.12.2007
\* ------------------------------------------------------------------

=> file stnguide
=> set notice display 5000
=> set notice search 5000
=> set high on
=> set exp renum
=> set det on
=> set abbr off
=> set duporder file
=> set auhelp off

=> del his y;del exp y

_v1 = "bi"
_v2 = "cns"
_v3 = "cn"

echo ""
echo "DATA ENTRY: Type in the compound name"
echo "e.g. clenbuterol?"
echo "For more than one compound use brackets"
echo "e.g. (diazepam or nordazepam)"
echo ""
echo "**** USE DIAZEPAM FOR THE TEST IN THE LEARNING FILES ****"
echo ""
get _name

echo ""
echo "DATA ENTRY: Type in the search field (bi or cns or cn)."
echo "(bi = Basic Index Smallest segments)"
echo "(cns = Chemical Name Segment Natural segments)"
echo "(cn = Chemical Name Complete name)"
echo ""
echo "**** USE CN FOR THE TEST IN THE LEARNING FILES ****"
echo ""
get _feld

if _feld = _v1 GOTO @REG
if _feld = _v2 GOTO @REG
if _feld = _v3 GOTO @REG
ELSE GOTO @FFIELD

@reg
=> file lregistry
=> s _name/_feld \> _reg
IF (#_reg < 1) GOTO @ABORT
IF (#_reg > 100) GOTO @TOOMANY

=> file lca
=> s _reg \> _careg
=> tra _reg name \> _ca1
=> s _name \> _ca2
=> s _careg or _ca1 or _ca2 \> _res1
=> s _res1 and p/dt \> _capat
IF (#_capat < 1) GOTO @ABORT

=> fil lwpi
=> tra _capat pn,apps \> _traca
=> s _name/cns \> _dcr
=> s _dcr/dcr \> _wpi1
=> s _name \> _wpi2
=> s _traca or _wpi1 or _wpi2 \> _wpipat
IF (#_wpipat < 1) GOTO @ABORT

=> file lca
=> tra _wpipat pn,apps \> _res2
=> s _capat not _res2 \> _res

=> fil stnguide
=> d his ful
=> d his

echo ""
echo "Please use now the DISPLAY COMMAND"
echo "_wpipat contains documents from LWPI"
echo "(Command: d _wpipat AAA BBB y)."
echo "_res contains documents from LCA"
echo " (Command: d _res AAA BBB y)."
echo "AAA = Field or fields or display formats"
echo "BBB = Answer number(s)"
echo ""
GOTO @END

@ABORT
=> file stnguide
=> display history brief 1
echo ""
echo "NO DOCUMENT OR WRONG ENTRY -> ABORT"
GOTO @END

@FFIELD
echo ""
echo "Wrong field entry: There’s no field like _feld -> ABORT"
GOTO @END

@TOOMANY
=> file stnguide
=> display history brief 1
echo ""
echo "Too many documents -> ABORT"

@END
=>
EXIT

\* -----------------------------------------------------