\* -----------------------------------------------------------
\* STN Express Script
\* Name:  pharmpat-choice.sc
\* Function: Extensive pharma patent search with
\* choice normal/learning files
\* Author:  Andreas Litscher, InfoLit Infobroker GmbH, CH-Bern
\* Date:  20.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 "STN FILE NAME ENTRY: Type in the Version of REGISTRY FILE"
echo "e.g. REGISTRY or LREGISTRY (Learning file)"
get _filereg

echo ""
echo "STN FILE NAME ENTRY: Type in the Version of CAPLUS FILE"
echo "e.g. HCAPLUS or LCA (Learning file)"
get _fileca

echo ""
echo "STN FILE NAME ENTRY: Type in the Version of WPI FILE"
echo "e.g. WPINDEX or LWPI (Learning file)"
get _filewpi

\* Chance to stop the Script:
echo ""
echo "Confirmation of your entry: _filereg _fileca _filewpi"
echo "Please wait about 20 seconds ....."
echo "In case of misstyping click on >Cancel Script< ....."
echo ""
pause 20

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 ""
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 ""
get _feld

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

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

=> file _fileca
=> 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 _filewpi
=> 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 hcaplus
=> 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 WPINDEX"
echo "(Command: d _wpipat AAA BBB y)."
echo "_res contains documents from HCAPLUS"
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

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