cI59(Q,UPRDMS,BG) ;Conversie historieken naar nieuwe vorm ;%I59 [ 03/24/99  5:29 PM ]
 ; BG = 1 in BG
 ; DAT = datum dd.mm.jj voor in "H"_JJJJMMDD_vnr
 ;
1 i $G(BG) D
 . N UPRDMS,BG
 . D ^cA604
 S UPRDMS=$G(UPRDMS,"PR") I '$D(UPRREF) S UPRREF=$$REF^cANP000(UPRDMS)
 I '$D(@("^"_Q_UPRDMS_"(0,19)")) G YZ
 I $P(@("^"_Q_UPRDMS_"(0,19)"),D,50) G YZ  ; reeds in nieuwe vorm
 S PR=0
 F  S PR=$O(@UPRREF@(PR)) Q:PR=""  D
 . S H="H"
 . F I=1:1 S H=$O(@UPRREF@(PR,H)) Q:$E(H)'="H"  I H'?1"H"12.N D
 .. s A=^(H) K ^(H)
 .. F J=1:1:$L(A,D) S K=$P(A,D,J) I $L(K) D
 ... S DAT=$E(K,1,6),DAT=$$DCO^cAFA1(DAT),K=K_D
 ... S I2=$$H^cANP002(UPRREF,PR,K,DAT)
 ... S ^(I2)=$G(@UPRREF@(PR,I2))_K
 .. I I=1,'$G(BG) W !,PR
 . K ^("H")
 ;
2 S $P(@("^"_Q_UPRDMS_"(0,19)"),D,50)=1
 ;
YZ Q
 ;
ZZ ; 25.03.99 -  8 u 25 * V7.2