; Routines speciaal Jurgen Van Driessche
 Quit
 ;
HetalAllNonAkt
 New R,LEVNr,LevRef,KortTxt,Go
 Write @F11,@F1
 Set LEVNr=6054,LevRef=""
 For  Set LevRef=$O(^KPL(LEVNr_" ","  ",LevRef)) Quit:LevRef=""  Do
 . Set KortTxt=""
 . For  Set KortTxt=$O(^KPL(LEVNr_" ","  ",LevRef,KortTxt)) Quit:KortTxt=""  Do
 . . Set PRNr=^KPL(LEVNr_" ","  ",LevRef,KortTxt)
 . . Do HetalOneNonAkt(PRNr)
 . . If $G(Go)'="Go" Set FP=2303 Write @F,@F1 Read "Go? ",Go
 Quit
 
HetalOneNonAkt(PRNr)
 New R,ES,EO,ET
 Set FP=1503
 Write @F,@F1,"Product :",$P(^KPR(PRNr,0),D)
 Set ES=$$CHECKDEL^PRODUKT2(PRNr,"S")
 Set EO=$$CHECKDEL^PRODUKT2(PRNr,"O")
 Set ET=$$CHECKDEL^PRODUKT2(PRNr,"T")
 If $L(ES)!$L(EO)!$L(ET)!$D(@("^"_Q_"PR(PRNr,""W"")")) Do  Quit
 . If $L(ES) Set FP=1803 Write @F,@F1,ES
 . If $L(EO) Set FP=1903 Write @F,@F1,EO
 . If $L(ET) Set FP=2003 Write @F,@F1,ET
 . If $D(@("^"_Q_"PR(PRNr,""W"")")) Set FP=2103 Write @F,@F1,"Er is nog geboekt op dit product"
 . Set FP=2303
 . Write @F
 . Read R
 Else  Do
 . Set FP=2303 Write @F,"Comm Non-akt "
 . Do MODFIELD^PRODUKT(PRNr,225,1)
 Quit