A.Vše se odehraje v adresáři prg/xsez.

B.Zvolíme vhodné a dozajista ještě nepoužité jméno fiktivní proměnné - AlreadyIs - s významem "kde pacient už je zařazen".

C.Upravíme soubor hp-tbc.wiz tak aby začínal sekvencí:

AlreadyIs
    Caption = Monitor
    Color = !Cyan
    Comment = Tato položka ukazuje seznam monitorovaných markerů, kde všude již pacient je.
    DblClick = nodblclick.prg
Bydliste
    MaxSize = 64
    Caption = Adresa
    Comment = Adresa pacienta, vyplňuje se ručně.
    Color = Green
    DblClick = nodblclick.prg

C.Upravíme skript hp-tbc.prg přidáním volání podprogramu xsez/alreadyis.prg takto:

  ...
  _set !WizCaption=Zařazení vzorku $(Labno) pacienta $(Prijmeni) $(Jmeno) $(RC) do seznamu HP-TBC
  set seznam,hp-tbc,Color,Red,X,-,SezId,0,Datum,$(Today)
  call xsez/alreadyis.prg
  load.sql !select * from xsez where labno='$(labno)' and seznam='hp-tbc'
  ...
  return


D.Napíšeme jednoduchý skript alreadyis.prg, kterým se seznam načte:

  set AlreadyIs,,
  startsql !select distinct seznam from xsezview where rc='$(rc)' order by 1
    repeat
      ?getsql break
      if !@AlreadyIs = void then setv AlreadyIs,Seznam else _set AlreadyIs=$(AlreadyIs);$(Seznam)
    until false
  stopsql
  default AlreadyIs,Pacient zatím není monitorován
  return