Список заказанной литературы.
Читатель: ~ReadersDef(GetNameById,~GetParam($RdrId))   № ~GetParam($RdrId)

~ArrayFromString(a,~GetParam($Param)) ~Repeat(cnt,~ArrayCount(a), ~StrDiv(~ArrayGet(a,~GetParam(cnt)),DocID,IDP,-) ~LoadDocById(~GetParam(DocID)) ~SetParam(IDBS,~DocDef(OrderBook,~GetParam(IDP),~GetParam($RdrId),IDST)) ~IntIf(~GetParam(IDBS),<,0,~SetParam(ErrNum,~SubString(~GetParam(IDBS),1)) ~SetParam(Status,~CallScript(OrderErrMessage.scp))) ~IntIf(~GetParam(IDBS),>=,0, ~SetParam(Status,~BSDef(GetStateName,~GetParam(IDST)))) )
Книга ПК Статус
~AddParam(nn,1)~GetParam(nn) ~GetBiblio() ~BPDef(GetName,~GetParam(IDP)) ~GetParam(Status)
~CallScript(OrderTotal.html)