V65A ;Nieuwe bestandstructuur en printerkeuze ; V65A [ 11/27/97  9: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.5A",!
25 i vv'="V6.5" 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(^..) d S1
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"6500TS1.GLO",@F93,!
41 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,"6500MG1.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,"6500MG1.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X d ^cQSW   ; terug naar TST + controle indexen DMS
 ;conversie Q_FORM naar ^DATA(0 [ 11/26/97  9:50 AM ]
 ;
 D DMS^cAN000("UQC","USC","FORM")
 S SW3=1,SW2=1,UFU="O"
 S I1=0
 F  S I1=$O(@("^"_Q_"FORM(I1)")) Q:I1=""  D
 . S B(1)=^(I1,0)
 . M A=B
 . S UI1=$$NR^cAN000
 . D U^cAN000
 . S ^new(Q,$P(I1," ",2))=UI1
 ;
 S i1=""
 F  s i1=$o(^HULP("TR",i1)) q:i1=""  d
 . s i2=""
 . f  s i2=$o(^HULP("TR",i1,i2)) q:i2=""  d
 .. i '$d(^(i2,0)) q
 .. s form=$p(^(0),D,5) q:'form
 .. s nform=form i $d(^new(i1,form)) s nform=^(form)
 .. s $p(^HULP("TR",i1,i2,0),D,5)=nform
 ;
 S ^cLOG(boot,"DAM",3)="1\Nieuwe bestandslocaties"
 ;
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 19.06.97 - 11 u 00