DispHisto(MPRNr)
	New BSNode,Selected
	Set BSNode=$S($G(NoSa)="S":"BSS",1:"BS")
	Set Titel=""
 	Do HistDatums(MPRNr,BSNode,.Y)
 	Set Selected=$$WILD^vhPOPUP("C;C","O2-","Historiek",.Y)
 	Quit:Selected=""
	If $G(sMod)
	{
		Set Input="-"
 		Do ASKSAVE^PRBS(.Input) ; past local Input aan
 		Do SAVE^PRBS(MPRNr,.DataNoSa):(Input="-")!(Input="SAVE")
		Set Input=""
		Set sMod=0
	}
 	Do KillCache
 	If Selected="H"
 	{
 		Do FetchHuidig(MPRNr,BSNode)
 		Set HistTitel="A:Huidig opgeslagen"
 	}
 	Else
 	{
	 	Do FetchHisto(MPRNr,BSNode,Selected)
 		Set HistTitel="A:"_$P($zdt($H,4),":",1,2)
 	}
 	Do SortEnCalc
	Set NoMod=1
	Do UPDATE^vhLIST(.List,1)
	Do DISPLAY^vhScherm("PRBSHFD",,,,"PPL;KOST;TIJD;TIJDOM;SCHAD;VERSIE",1)
	Quit
 
DispNormaal(MPRNr)
	New BSNode,Selected
	Set NoMod=0
	Do KillCache
	Do FETCH^PRBS(MPRNr,.DataNoSa)
	Kill HistTitel
	Do UPDATE^PRBS
	Quit
KillCache
	Kill ^HULP(%J,"C")	
	Kill ^HULP(%J,"V")	
	Kill ^HULP(%J,"S")
	Quit	
FetchHuidig(MPRNr,BSNode)
	Merge ^HULP(%J,"C")=^PRBS(BSNode,MPRNr)
	Quit
FetchHisto(MPRNr,BSNode,TijdStip)
	Merge ^HULP(%J,"C")=^PRBSH(BSNode,MPRNr,TijdStip)
	Quit
 
SortEnCalc
	Do SORT^PRBS
	Set PrijsTree=0
	Set BSKey=$O(^HULP(%J,"C",""))
	While BSKey'=""
	{
		Set BSRec=^HULP(%J,"C",BSKey)
		Set Kost=$P(BSRec,"\",25)
		Set PrijsTree=PrijsTree+Kost
		Set ^HULP(%J,"V",BSKey)=Kost
		; next
		Set BSKey=$O(^HULP(%J,"C",BSKey))
	}
 
 
HistDatums(MPRNr,BSNode,Y)
	; Y via .Local
	New Sort,TijdStip
 	Kill Y
 	Set Y=0
 	If $D(^PRBS(BSNode,MPRNr))
 	{ 
	 	Set Y($I(Y))="H`Huidig opgeslagen"
 	}
	Set TijdStip=$O(^PRBSH(BSNode,MPRNr,""))
	While TijdStip'=""
	{
		Set Sort($zdt(TijdStip,8))=TijdStip_"`"_"Archief "_$zdt(TijdStip,4)
		Set TijdStip=$O(^PRBSH(BSNode,MPRNr,TijdStip))
	}
	Set TijdStip=$O(Sort(""),-1)
	While TijdStip'=""
	{
		Set Y($I(Y))=Sort(TijdStip)
		Set TijdStip=$O(Sort(TijdStip),-1)
	}
	Quit