cwflowkp ; ;[ 01/19/99  4:20 PM ]
 ;
 Set Q="K"
 Do ^cA604
 Set %J=$$%J^vhRtn1(),PRNr=0
 Kill ^HULP(%J)
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set IDNr=$P(^KPR(PRNr,2),D,25)
 .Quit:$E(IDNr)'=6
 .Set ^HULP(%J,"KP",PRNr)=""
 Set LEVNr=0
 For  Set LEVNr=$O(^KTO(LEVNr)) Quit:'LEVNr  Do
 .Set TOENr=0
 .For  Set TOENr=$O(^KTO(LEVNr,TOENr)) Quit:'TOENr  Do
 ..Set TLNr=100,LCount=0
 ..For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:'TLNr  Do
 ...Set R=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(R,D,2)
 ...Quit:'PRNr  Quit:'$D(^HULP(%J,"KP",PRNr))
 ...Set LCount=LCount+1,^HULP(%J,"TO",TOENr,LCount)=PRNr
 Set KLNr=0
 For  Set KLNr=$O(^KOD(KLNr)) Quit:'KLNr  Do
 .Set ORDNr=0
 .For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:'ORDNr  Do
 ..Set OLNr=100,LCount=0
 ..For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do
 ...Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2)
 ...Quit:'PRNr  Quit:'$D(^HULP(%J,"KP",PRNr))
 ...Set LCount=LCount+1,^HULP(%J,"OD",ORDNr,LCount)=PRNr
 If $D(^HULP(%J,"TO"))!$D(^HULP(%J,"OD")) Open 187 Use 187
 If $D(^HULP(%J,"TO")) Do
 .Write !?5,"Toeleveringen"
 .Set (TOENr,LCount)=0
 .For  Set TOENr=$O(^HULP(%J,"TO",TOENr)) Quit:'TOENr  Do
 ..Set Line=0,LEVNr=$P(^KTO1(TOENr),D)
 ..Set LCount=LCount+$O(^HULP(%J,"TO",TOENr,""),-1)+2
 ..If LCount>50 Do
 ...Write #,!?5,"Toeleveringen (vervolg)"
 ...Set LCount=$O(^HULP(%J,"TO",TOENr,""),-1)+2
 ..Write !!?5,TOENr,"  -  ",$P(^KLE(^KL1(LEVNr),0),D,2)
 ..For  Set Line=$O(^HULP(%J,"TO",TOENr,Line)) Quit:'Line  Do
 ...Set PRNr=^HULP(%J,"TO",TOENr,Line)
 ...Write !?16,$P(^KPR(PRNr,0),D),?43,"-  ",$P(^KPR(PRNr,2),D,25)
 .Write #
 If $D(^HULP(%J,"OD")) Do
 .Write !?5,"Orders"
 .Set (ORDNr,LCount)=0
 .For  Set ORDNr=$O(^HULP(%J,"OD",ORDNr)) Quit:'ORDNr  Do
 ..Set Line=0,KLNr=$P(^KO1(ORDNr,"F"),D)
 ..Set LCount=LCount+$O(^HULP(%J,"OD",ORDNr,""),-1)+2
 ..If LCount>50 Do
 ...Write #,!?5,"Orders (vervolg)"
 ...Set LCount=$O(^HULP(%J,"OD",ORDNr,""),-1)+2
 ..Write !!?5,ORDNr,"  -  ",$P(^KKL(^KK1(KLNr),0),D,2)
 ..For  Set Line=$O(^HULP(%J,"OD",ORDNr,Line)) Quit:'Line  Do
 ...Set PRNr=^HULP(%J,"OD",ORDNr,Line)
 ...Write !?16,$P(^KPR(PRNr,0),D),?43,"-  ",$P(^KPR(PRNr,2),D,25)
 .Write #
 Close 187
 Quit
 ;