persistent DataM %Library.Persistent 1 ProductNr 1 SortNr en Code nnHHmmGGG %Library.String 0 SortNr en Code nnHH %Library.String 0 Prod.Klas.Klas 0 %Integer 0 %Library.String 0 SortNr en Code nnHHmmGGGqqSSSSSS %Library.String 0 %Library.CacheSQLStorage ^Prod.ProdKlasS data ^KPR {ProductNr} 0.1 s {1D1}=$O(^KPR({L1},"I")) {1D1} s {1D2}=^KPR({L1},{1D1}) {1D2} $O(^KPR({L1},"I"))="" '{L1} "\" {1D2} 2 "\" {1D2} 1 "\" {1D2} 4 "\" {1D2} 5 "\" {1D2} 3