dd: DailyDemandStart Eventsh: SingleProductShop[sh = dd.shop]-----------------------------------------sh.stockQuantity := max( 0, newSQ);if (newSQ < 0) sh.lostSales += |newSQ|Data ObjectDeliveryStart Eventvar sQ := sh.stockQuantityvar newSQ := sQ − dd.quantityvar rp := sh.reorderPointText Annotationquantity := sh.targetInventory − max( 0, newSQ);receiver := sh;Text Annotation+Delivery.leadTime()[sQ > rP & newSQ <= rP]