V6FIA ;Conversie boekingsreeksen ;V6FIA ;[ 12/18/98  3:16 PM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
11 d QQM^cQ6
13 w !,$zu(0)," : ",$p($t(+1),U,2)
 ;
2 w !!,"Dit programma converteert de boekingsreeksen van V5 naar V6"
23 w !,"voor alle Q-waardes.",!
27 w !!,"Start <N>" r k s k=$tr(k,"JjYy1","11110") i k'=1 g YZ
29 w !!,$p($t(+1),U,2),!
 ;
 ; aflopen ^DMS
3 S I1=0
31 S I1=$O(^DMS(I1)) I I1="" G YZ
33 I $D(^DMS(I1,"FIA",0)),'$P(^(0),D,30) D S1(I1)
35 G 31
 ;
YZ W !!,"Einde",!,*7 Q
 ;
S1(Q) W " ^",Q,"FIA"
S1A S I=$G(^DMS(Q,"FIA")),UQC=$P(I,D),USC=$P(I,D,2),I=0 K @("^"_Q_"FIA(0)"),@("^"_Q_"FI1")
S1B S I=$O(@("^"_Q_"FIA(I)")) I I="" G S1Y
S1C I I[" " S J=$P(I," ",2) I J M @("^"_Q_"FIA(J)")=@("^"_Q_"FIA(I)") K @("^"_Q_"FIA(I)")
S1D G S1B
S1Y I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0) K ^DMC(UQC,USC,"DATA","OUD")
S1Z Q
 ;
ZZ ; 29.12.98 - 15 u 07 * V7.12