V65 ;Beveiliging ; V65 [ 03/15/01  2:41 PM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
13 w !,$zu(0)," : ",$p($t(+1),U,2)
 S Q="EA" D ^cA604,^cA105,^cA106 
 S QU="KU"
 ;
2 s vv=$p($g(^cLOG(0,"VERS","%A"),$g(^cLOG("VERS","%A"),"?")),D)
21 w !!,"Van : ",vv
23 w !,"Naar: V6.5",!
25 i vv'="V6.3.05" w !,"De vorige versie klopt niet!",! g YZ
27 w !!,"Start <N>" r k s k=$tr(k,"JjYy1","11110") i k'=1 g YZ
29 w !!,$p($t(+1),U,2),!
 ;
3 s r=$na(^DMA(0,"USR"),2) d S1
 s r=$na(^EABA("MENU",41),2) d S1
 s r=$na(^DMM(0,"USR",67),3) d S1
 s r=$na(^DMM(0,"USR",83),3) d S1
 F i="USR","USR.RKS","USR.RKS.DET","USR_PRI","USR_PRO","USR_SYS.QQM","PRI","PRO","PRO_PRI","SYS","SYS.QQM" D
39 . f j="DMA","DMM","DMC","DMH" s r=$na(@("^"_j_"(0,i)"),2) d S1
 ;
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"6500TST.GLO",@F93,!
41 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"6500TST.GL1",@F93,!
 d ^cGR
 ;
 ; routine ZREMOVE in TST
5 ; f r=... d
 ; . x "zr  zs @r"
 ; . w !,r," ... verwijderd"
 ;
 ; routine ZREMOVE in MGR
6 d ^cQSW
61 ; f r=... d
 ; . x "zr  zs @r"
 ; . w !,r," ... verwijderd"
 ;
 ; routine RESTORE in MGR
7 w !!,"Kies nu het bestand: ",@F92,"6500MGR.ROU",@F93,!
71 d ^cRR
 ;
 ; global KILL in MGR
8 ; s r=$na(,) d S1
 ;
 ; global RESTORE in MGR
9 w !!,"Kies nu het bestand: ",@F92,"6500MGR.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X d ^cQSW   ; terug naar TST + controle indexen DMS
NA S Q="EA" D ^cA604,^cA105,^cA106 D MASTER^cQ5 
 S QU="KU"
 D S1^cAN002("DAM","DMS")
 s UI1=0 k ^oldpw
 f  s UI1=$o(^DATA(0,"USR",UI1)) q:UI1=""  d
 . S $p(^(UI1,1),D,22,23)=D,$P(^(1),D,24)=DT
 . S PW=$p(^(0),D,17)
 . s ^oldpw(UI1)=PW
 . ;I $ZV["MSM" S K="" F  Q:'$L(PW)  s K=K_$C(+$REV($E(PW,$L(PW)-2,$L(PW)))),PW=$E(PW,1,$L(PW)-3)
 . I $ZV'["MSM" S K="" F  Q:'$L(PW)  s K=K_$C(+$$OMK($E(PW,$L(PW)-2,$L(PW)))),PW=$E(PW,1,$L(PW)-3)
 . S K=$$SCR^cA50011(K)
 . D W^cAN220("USR","0",UI1,117,K)
 ;
 S UI1=$$UR^cAFA1("USR",101,"SU")
 I UI1 S $P(^DATA(0,"USR",UI1,0),D,17)=$$SCR^cA50011("MF5761EP")
 ;
 S ^cLOG(boot,"DAM",1)="1\Nieuwe log-in procedure"
 S ^cLOG(boot,"DAM",0)="Parameters modules Data-M"
 ;
NAZ D S1^cAN002("DAM","DMS")
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ;  Omkeren van een string onder Caché
OMK(INP) N R,I
 S R=""
 F I=0:1:$L(INP) S R=R_$E(INP,$L(INP)-I)
OMKZ Q R
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 19.06.97 - 11 u 00