PVHADC ;NEW PROGRAM [ 04/05/2002  2:06 PM ]
 ; Conversie van de oude status naar nieuwe
 Kill ^HADPR("F")
 Set (Batch,VolgNr)=""
 For  Set Batch=$O(^HADPR("O",Batch)) Quit:Batch=""  Do
 .For  Set VolgNr=$O(^HADPR("O",Batch,VolgNr)) Quit:VolgNr=""  Do
 ..Set FabKey=$$FABKEYB^HADOPV(^HADPR("O",Batch,VolgNr))
 ..Set PRNr=$P(^HADPR("O",Batch,VolgNr),D,3)
 ..Set Rec=$G(^HADPR("P",PRNr,"P"))
 ..If $L(Rec) Do
 ...Set $P(Rec,D,3)=PRNr
 ...Set ^HADPR("F",FabKey)=Rec
 ..Set Node="" 
 ..For  Set Node=$O(^HADPR("P",PRNr,"P",Node)) Quit:Node=""  Do
 ...Set Rec=^(Node)
 ...Set ^HADPR("F",FabKey,Node)=Rec
 ..;Kill ^HADPR("P",PRNr,"P")
 Q