EWPRCLN ; ;[ 12/11/98  4:00 PM ]
 S PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set FysSt=$P($G(^["VTW,PVX"]KPR(PRNr,0)),D,14)
 .Set $P(^KPR(PRNr,0),D,14)=FysSt
 .Set $P(^KPR(PRNr,0),D,9)=""
 Quit