PVMerge
	Set NameSpace="JRNL-ADMIN1"
 
PROD
	For GlobRef="KPSG","KPSG1","KPGR","KPGR1","KPHG","KPHG1","KLAS" Do Merge(GlobRef,NameSpace)		
	For GlobRef="KPL","KPH","KPR1","KPR2","KPR3" Do Merge(GlobRef,NameSpace)
	Do MergeKPR(NameSpace)		
KLANT
	For GlobRef="KKL","KK1","KLPUTZ" Do Merge(GlobRef,NameSpace)		
DIV	; Prijsvergelijk
	Do Merge("KPHPR",NameSpace)
	Quit	
 
Merge(GlobRef,NameSpace)
	Set T=$P($H,",",2)
	Write GlobRef  h 1
	Kill @("^"_GlobRef)
	Merge @("^"_GlobRef)=@("^|NameSpace|"_GlobRef)
	Write " : ",$P($H,",",2)-T,! 
	Quit
 
MergeKPR(NamesSpace)
 Set T=$P($H,",",2)
 Write "KPR" h 1
 ; Verwijder producten
 Set PRNr=1000
 For  Set PRNr=$O(^KPR(PRNr)) Quit:'PRNr  Kill ^KPR(PRNr)
 ; Copy product
 Set ^KPR(0,1)=^|NameSpace|KPR(0,1)
 Set PRNr=1000
 For  Set PRNr=$O(^|NameSpace|KPR(PRNr)) Quit:'PRNr  Do
 . For I="I","J" Set Key=$O(^|NameSpace|KPR(PRNr,I)) Do
 . . If $E(Key)=I Set Rec=^|NameSpace|KPR(PRNr,Key),^KPR(PRNr,Key)=Rec,^KPR(PRNr,I)=""
 . For I=0,1,2,3,4,5 Set ^KPR(PRNr,I)=^|NameSpace|KPR(PRNr,I)
 . For I="G" Merge:$D(^|NameSpace|KPR(PRNr,I)) ^KPR(PRNr,I)=^|NameSpace|KPR(PRNr,I)
 Write " : ",$P($H,",",2)-T,! 
 Quit
 
CTL 
 #Define DeJrnlNameSpace "JRNL-ADMIN1"
 
 set Dag= $O(^|$$$DeJrnlNameSpace|cLOG("ADMIN1","CTK0","AUTO",43,"CACHE01",""),-1)
 Set Tijd= $O(^|$$$DeJrnlNameSpace|cLOG("ADMIN1","CTK0","AUTO",43,"CACHE01",Dag,""),-1)
 
 Set Sec=Dag*3600+Tijd
 Set Nu=$P($H,",",1)*3600+$P($H,",",2)
 Write Sec," ", Nu
 If Sec<(Nu-300) Do
 . ;Email versturen