PVORD ;Orders die niet zijn afgesloten met een S [ 09/13/2000  1:23 PM ]
 Write !,"NIET AFGESLOTEN ORDERS",!
 Set (KLNr,ORDNr)=0
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
 .For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
 ..Set Rec=^(ORDNr,1)
 ..Quit:$P(Rec,D,22)
 ..Write KLNr," ",$P(^KKL(^KK1(KLNr),0),D,2)," : ",ORDNr," ",$P(Rec,D,2),!
 Quit