V6cprot ;Conversie beveiliging ;V6cprot ;[ 12/24/97  11:47 AM ]
 ;
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 verzet de beveiliging van utili-data van V 6.3"
21 w !,"vanuit ^UTILI(Q,""SEC"") naar ^DPAR(0,""PAR.DMS"") voor alle"
23 w !,"Q-waardes.",!
25 w !,"Ook de 'self-learning' wordt gekopieerd vanuit ^DMC naar ^DPAR"
27 w !!,"Start <N>" r k s k=$tr(k,"JjYy1","11110") i k'=1 g YZ
29 w !!,$p($t(+1),U,2),!
 ;
 ; opzetten noodzakelijke nodes in ^DPAR
3 K ^HULP(boot,$J)
30 S LOGTAB=$S($D(^LOGTAB):"^DPAR(0,""PAR.DMS"")",1:"")
31 S I="" F  S I=$O(^DMS(I)) Q:I=""  D
 . S J="" F  S J=$O(^DMS(I,J)) Q:J=""  D
 .. S N=^(J,0) I $P(N,D,30) Q
 .. I '$D(^HULP(boot,$J,J)) S ^(J)=I
33 S J="" F  S J=$O(^HULP(boot,$J,J)) Q:J=""  D
 . S I=^(J)
 . S N=^DMS(I,J,0) I $D(^DPAR(0,"PAR.DMS",J,0)) Q
 . S P=J F I=2:10:32 S $P(P,D,I)=$P(N,D,I-1)
 . S ^(0)=P I $L(LOGTAB) D LD^cAN000("S",$ZR,P),OPB^cANLOG(LOGTAB)
 . W J,?$X\10*10+10 I $X>69 W !
35 K ^HULP(boot,$J)
 ;
 ; overzetten beveiliging utili-data
4 S I="" F  S I=$O(^UTILI(I)) Q:I=""  D
 . S E=0
 . S J="" F  S J=$O(^UTILI(I,"SEC",J)) Q:J=""  D
 .. S P=^(J)
 .. I '$D(^DPAR(0,"PAR.DMS",J,0)) w !,"Fout : """,J,"""" S E=E+1 Q
 .. I $L($P(^(0),D,9)) Q
 .. S $P(^(0),D,9)=P I $L(LOGTAB) D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG(LOGTAB)
 . I 'E K ^UTILI(I,"SEC") W !,$ZR," verwijderd" I $L(LOGTAB) D LD^cAN000("K",$ZR),OPB^cANLOG(LOGTAB)
 ;
 ; overzetten 'self-learning'
5 W !,"Conversie 'self-learning'",!
51 S UQC="" F  S UQC=$O(^DMC(UQC)) Q:UQC=""  D
 . S USC="" F  S USC=$O(^DMC(UQC,USC)) Q:USC=""  D
 .. W "."
 .. F  S N=$O(^DMC(UQC,USC,"SYN",0,0)) Q:N=""  D
 ... S K=^(N) K ^(N) I N'?1.U Q
 ... I $D(^DPAR(0,"PAR.DMS",USC,N)) Q
 ... S ^(N)=K
 ;
 ; opkuis oude definitie
6 K ^DMH(0,"DMS.UTILI.SEC") W !,$ZR," verwijderd" I $L(LOGTAB) D LD^cAN000("K",$ZR),OPB^cANLOG(LOGTAB)
61 K ^DMC(0,"DMS.UTILI.SEC") W !,$ZR," verwijderd" I $L(LOGTAB) D LD^cAN000("K",$ZR),OPB^cANLOG(LOGTAB)
63 S I="" F  S I=$O(^DMS(I)) Q:I=""  D
 . I $D(^(I,"SEL"))!$D(^("LIS")) K @("^"_I_"BA")@("MENU",81,21) W !,$ZR," verwijderd" I $L(LOGTAB) D LD^cAN000("K",$ZR),OPB^cANLOG(LOGTAB)
 ;
YZ W !!,"Einde",!,*7 Q
 ;
ZZ ; 24.12.97 - 11 u 49 * V6.5