V7ALL1 ;Updates 7.4 tem 7.xx ; V7ALL1 [ 02/05/01  4:18 PM ]
 ;
T1 ;Update op de basis?\"[] = neen   1[] = ja";
 ;
YZ Q
 ;
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
V ; Xececutes voor
 G V7400
 ;
V7400 I $G(hvv)'<7400 G V7410
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . f j=600,1100 s k=j f  s k=$o(@("^"_q_"TB(0,""F"",k)")) q:k>(j+99)!'$L(k)  s r=$na(@("^"_q_"TB(0,""F"",k)"),3) d S1
 . s r=$na(@("^"_q_"BA(""MENU"",15,29)"),3) d S1
 . s r=$na(@("^"_q_"BA(""MENU"",59,32)"),3) d S1
 I $ZV["MSM" D ^cQSW
 f r="^cABIECGT","^cABIECGU","^cA3226" d
 . s pr=$e(r,2,99)
 . x "zr  zs @pr"
 . w !,pr," ... verwijderd"
 I $ZV["MSM" D ^cQSW
 ;
V7410 I $G(hvv)'<7410 G V7800
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . F j=400:1:499 s r=$na(@("^"_q_"OD(0,""N"",j)"),3) d S1
 . s r=$na(@("^"_q_"AFS(0,1.1)"),2) d S1
 s r=$na(^DAMBA("MENU",1003,21),3) d S1
 s r=$na(^DMC(0,"PAR.LOGIN.USR","DIN"),3) d S1
 ;
V7800 I $G(hvv)'<7800 G V7810
 ;
V7810 I $G(hvv)'<7810 G V7820
 S R="BAS\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""1""[K" D R0
 I BAS=1 D
 . F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 .. S r=$na(@("^"_q_"UL(0,""M"")"),2) d S1
 . I $ZV["MSM" D
 .. w !!,"Kies nu het bestand: ",@F92,"7810TST3.GLO",@F93,!
 .. D ^cGR
 .. w !!,"Kies nu het bestand: ",@F92,"7810TST6.GLO",@F93,!
 .. D ^cGR
 . I $ZV'["MSM" D
 .. w !!,"Kies nu het bestand: ",@F92,"7810TST3.gsa",@F93,!
 .. D ^cGI
 .. w !!,"Kies nu het bestand: ",@F92,"7810TST6.gsa",@F93,!
 .. D ^cGI
 . F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 .. S r=$na(@("^"_q_"BA(""MENU"",20,5)"),3) d S1
 S r=$na(^DMC(0,"DEV.PRT","INDEX",2),4) d S1
 S r=$na(^DMC(0,"DEV.PRT","SYN",3),4) d S1
 I $ZV["MSM" D ^cQSW
 S r=$na(^DMC(0,"DEV.PRT","INDEX",2),4) d S1
 S r=$na(^DMC(0,"DEV.PRT","SYN",3),4) d S1
 S r=$na(^cINDEX(0,"DEV.PRT"),2) d S1
 I $ZV["MSM" D ^cQSW
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . S r=$na(@("^"_q_"BA(""MENU"",58,22)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",64,22)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",66,22)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",85,22)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",16,21)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",16,23)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",16,24)"),3) d S1
 . S r=$na(@("^"_q_"BA(""MENU"",16,29)"),3) d S1
 F i="M","M.PAR" S r=$na(^DMA("NS",i),2) d S1
 F i="M_HISD","M_HISB","M_KOS" S r=$na(^DMH("NS",i),2) d S1
 F i="HULP","M.PAR","M_HISD","M_HISB","M" S r=$na(^DMC("NS",i),2) d S1
 S r=$na(^DMA("DAM","DMS"),2) d S1
 S r=$na(^DMM("NS","M"),2) d S1
 S r=$na(^DMA(0,"PAR.KL"),2) d S1
 S r=$na(^DMA(0,"PR.STAPER"),2) d S1
 S r=$na(^DMA(0,"AFS.CAT",1,5),4) d S1
 S r=$na(^DMA(0,"USR",1,17),4) d S1
 S r=$na(^DMA(0,"USR",1,18),4) d S1
 S r=$na(^DMA(0,"TO.M"),2) d S1
 S r=$na(^DMA(0,"TO.M.KL",84),3) d S1
 F i="FA.F","FA.FT","OD.F","OD.FT","OD.T","OD.TT","TO.F","TO.FT","TOL.F","TOL.FT","TOL.P","TOL.PT","TO.T","TO.TT","UL.F","UL.FT" S r=$na(^DMA(0,i),2) d S1
 S r=$na(^BIB("UGL",1700,1,"1706.1"),4) d S1
 S r=$na(^BIB("UGL",1700,1,"1707.1"),4) d S1
 I $ZV["MSM" D
 . D ^cQSW
 . F r="%FN9680","%FN9682","%FN9683","%FN9684","%FN9685","%FN9686","%FN9687","%FN9688","%FN9689","%FN9690","%FN9691","%FN9692","%FN9693","%FN9694","%FN9695","%FN9696","%FN9697" D
 .. x "zr  zs @r"
 .. w !,r," ... verwijderd"
 . D ^cQSW
 I $ZV'["MSM" D
 . F r="cFN9680","cFN9682","cFN9683","cFN9684","cFN9685","cFN9686","cFN9687","cFN9688","cFN9689","cFN9690","cFN9691","cFN9692","cFN9693","cFN9694","cFN9695","cFN9696","cFN9697" D
 .. x "zr  zs @r"
 .. w !,r," ... verwijderd"
 D V^cAN220("PN",0,422)
 ;
V7820 I $G(hvv)'<7820 G V7830
 S r=$na(^DMA(0,"UL.US.KL"),2) d S1
 ;
V7830 I $G(hvv)'<7830 G V7840
 I $ZV'["MSM" D
 . w !!,"Kies nu het bestand: ",@F92,"journal321.ro",@F93,!
 . D ^cRI
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . F J="TO.F","TOL.F","TOL.P","TO.T","TO.M","OD.F","OD.T","UL.F" S r=$na(^DMS(q,J),2) d S1
 S r=$na(^DMA(0,"TO.M"),2) d S1
 S r=$na(^DMA(0,"TO.M.KL"),2) d S1
 F J="TO.F","TOL.F","TOL.P","TO.T","TO.M","OD.F","OD.T","UL.F" S r=$na(^DMA(0,J),2) d S1 S r=$na(^DMC(0,J),2) d S1
 ;
V7840 I $G(hvv)'<7840 G V7850
 S R="BAS\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""1""[K" D R0
 I BAS=1 D
 . I $ZV["MSM" D
 .. w !!,"Kies nu het bestand: ",@F92,"7840TST3.GLO",@F93,!
 .. D ^cGR
 . I $ZV'["MSM" D
 .. w !!,"Kies nu het bestand: ",@F92,"7840TST3.gsa",@F93,!
 .. D ^%GI
 I $ZV'["MSM" D
 . w !!,"Kies nu het bestand: ",@F92,"cq202.rsa",@F93,!
 . D ^%RI
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . s j=1100
 . F  S j=$O(@("^"_q_"TB(0,""F"",j)")) Q:j'?4N.1".".2N!(j>1199)  S r=$na(@("^"_q_"TB(0,""F"",j)"),3) d S1
 s r=$na(^BIB("UGL",900,5,909),4) d S1
 s r=$na(^DMA("DAM","DMC.SYN"),2) d S1
 s r=$na(^DMA("DAM","MENU.DET"),2) d S1
 s r=$na(^DMH("DAM","MENU"),2) d S1
 s r=$na(^DMH("DAM","MENU.DET"),2) d S1
 s r=$na(^DMA(0,"KL",2,27),4) d S1
 s r=$na(^DMA(1,"KL",2,27),4) d S1
 s r=$na(^DMA(0,"UL.US"),2) d S1
 s r=$na(^DMA(0,"TO.US"),2) d S1
 s r=$na(^DMA(0,"PAR.KL",1,1),4) d S1
 F j=36:1:37 s r=$na(^DMA(0,"KL",2,j),4) d S1
 F j=36:1:37 s r=$na(^DMA(1,"KL",2,j),4) d S1
 F j=35:1:37 s r=$na(^DMA(0,"LE",2,j),4) d S1
 F j=35:1:37 s r=$na(^DMA(1,"LE",2,j),4) d S1
 ;
V7850 ; I $G(hvv)'<7850 G V7860
 ;
 G YZ
 ;
A ; Xecutes After
 G N7400
 ;
N7400 I $G(hvv)'<7400 G N7410
 I BAS=1 D
 . F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 .. S $P(^DMS(q,"LA"),D,30)=1
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . i $d(@("^"_q_"TB(0,""F"",""ULNT"")")) s $P(^("ULNT"),D,81)=1
 I $ZV'["MSM" d ^cQUP102,CACHE^MENU
 I $ZV["MSM" D
 . D ^cQSW
 . W !!,"%I28 voor %FA*, %HH*, %HP*, %MPE*, %MW*, %PN*"
 . D ^cA338
 . D ^cI28
 . D ^cA339
 D S1^cAN002(0,"DEV.PRT","","")
 I $ZV["MSM" D ^cQSW
 s usc="" f  s usc=$o(^DMC(usc)) q:usc=""  i usc'="NS" S uqc="" f  s uqc=$o(^DMC(usc,uqc)) q:uqc=""  d                                   
 . s a=$g(^(uqc,"DATA","REF"))                
 . i a'["^DATA(0"&(a'["^DPAR(0,""PAR""") q
 . s a="^|$G(cs(1),$ZU(5))|"_$P(a,"^",2,99)
 . W !,usc,$C(9),uqc,$c(9),a
 . s ^("REF")=a
 . s a=$g(^DMC(usc,uqc,"DIN"))           
 . i a["|" q
 . s a="^|$G(cs(1),$ZU(5))|"_$P(a,"^",2,99)
 . w !,$c(9),$C(9),a
 . s ^("DIN")=a
 ;
N7410 I $G(hvv)'<7410 G N7800
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . ; i $d(@("^"_q_"OD(0,""F"",""ULNT"")")) s $P(^("ULNT"),D,102)=0
 . ; i $d(@("^"_q_"TO(0,""F"",""ULNT"")")) s $P(^("ULNT"),D,102)=0
 . s r=$na(@("^"_q_"BA(""MENU"",104,3)"),3) d S1
 . N Q S Q=q D ^FBAFS
 I $ZV'["MSM" D ^cQUP110
 ;
N7800 I $G(hvv)'<7800 G N7810
 N Q S Q="DAM"
 D S1^cAN002(0,"DEV.PRT")
 D S1^cAN002(0,"DEV.VID")
 ;
N7810 I $G(hvv)'<7810 G N7820
 N Q S Q="DAM"
 D S1^cAN002(Q,"DMS")
 D S1^cAN002(0,"DEV.PRT")
 F i="1105.01","1106","1106.01"  S r=$na(^BIB("UGL",1100,4,i),4) d S1
 F i="1905.01","1906","1906.01"  S r=$na(^BIB("UGL",1900,4,i),4) d S1
 S r=$na(^BIB("UGL",1700,1,"1706.1"),4) d S1
 S r=$na(^BIB("UGL",1700,1,"1707.1"),4) d S1
 S r=$na(^MUNT,0) d S1
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . s $P(@("^"_q_"BA(""%T"",2)"),D,14)="D ^cFNSYN"
 . s $P(@("^"_q_"BA(""%T"",2)"),D,15)="D B^cFNSYN(UGL,KC,US,UR,R)"
 . s r=$na(@("^"_q_"UL(0,""RH"")"),2) d S1
 . F j="HULP","HULP1","FORM","FORM1","UI","UI1","UI2"  D
 .. s r=$na(@("^"_q_j),0) d S1
 . F j="OD","TO","TOL","UL"  D
 ..  S k="" F  S k=$O(@("^"_q_j_"(0,k)")) Q:k=""  D
 ... F l="ULNT","LNT"  I $D(@("^"_q_j_"(0,k,l)")) D
 .... S m=$P(@("^"_q_j_"(0,k,l)"),D,99)
 .... I m="" S $P(^(l),D,99)=1,$P(^(l),D,103)="" q
 .... I m=1 S $P(^(l),D,99)="",$P(^(l),D,103)="" q
 .... I m=2 S $P(^(l),D,99)=1,$P(^(l),D,103)=1
 . I '$D(^DPAR(q,"PWT","ULNT")) S ^DPAR(q,"PWT","ULNT")=""
 . I '$D(^DPAR(q,"PAR","KL",1)) S ^DPAR(q,"PAR","KL",1)=""
 . F J="OD","UL","TO","TOL" D
 .. S I1="" F  S I1=$O(@("^"_q_J_"(0,I1)")) Q:I1=""  I $D(^(I1,1000)) S ^(1000)=""
 . S J="UL",I1="" F  S I1=$O(@("^"_q_J_"(0,I1)")) Q:I1=""  I $D(^(I1,1500)) S ^(1500)=""
 I $ZV'["MSM" D ^cQUP110
 D X^cAN220("ISO.MUNT",0,1069) I K'="" W !,"ISO-muntcode kon niet worden verwijderd"
 D S1^cAN002(0,"HOSTS",0)
 D S1^cAN002(0,"MAIL.ADDR",0)
 D S1^cAN002(0,"ALERT.GRP",0)
 D S1^cAN002(0,"ALERT",0)
 D S1^cAN002(0,"ALERT_USR",0)
 D S1^cAN002(0,"ALERT",0)
 D S1^cAN002(0,"ALERT_USR",0)
 ;
N7820 I $G(hvv)'<7820 G N7830
 I $ZV'["MSM" D ^cQUP110
 I $ZV["MSM" D ^cQSW
 S r=$na(^DMC(0,"DEV.PRT","INDEX",2),4) d S1
 S r=$na(^DMC(0,"DEV.PRT","SYN",3),4) d S1
 I $ZV["MSM" D ^cQSW
 ;
N7830 I $G(hvv)'<7830 G N7840
 S R="K?.N.1"".""1.2N"
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . F UGL="UL","OD" S US="" F  S US=$O(@("^"_q_UGL_"(0,US)")) Q:US=""  F J=200,400 S I=J F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>(J+99)!'$L(I)  I $P(^(I),U,16)=106,$P(^(I),U,11)[R S $P(^(I),U,11)=$P($P(^(I),U,11),R)_"$$IN^cAFE5(K,""V"",$G(UPRDMS,""PR""))"_$P($P(^(I),U,11),R,2,99)
 D S1^cAN002(0,"ALERT",0,0)
 D S1^cAN002(0,"ALERT_USR",0,0)
 ;
N7840 I $G(hvv)'<7840 G N7850
 I $ZV'["MSM" D
 . D ^cQUP202
 . S ^DAMBA("MENU",0,90)="Stoppen admininstratie\18\43\MENU^cQMSMSSD\D\MENU^cQMSMSSD\\\\\Shutdown"
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . I $D(@("^"_q_"TB(0,""F"",""ULNT"")")) S $P(@("^"_q_"TB(0,""F"",""ULNT"")"),D,99)=1,$P(@("^"_q_"TB(0,""F"",""ULNT"")"),D,103)=1  
 . I '$L($G(@("^"_q_"BA(20,""KV"")"))) S @("^"_q_"BA(20,""KV"")")=$P(@("^"_q_"BA(10,0)"),D)_"\Koersverschillen\\Differance de change"
 . N Q S Q=q D N^U7840
 D ^CORALERT
 I $D(^TKFAXQ("DIR")) D
 . F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 .. F j="TO","OD" D
 ... S us=""
 ... F  S us=$O(@("^"_q_j_"(0,us)")) Q:us=""  D
 .... I $D(@("^"_q_j_"(0,us,""ULNT"")")) S $P(@("^"_q_j_"(0,us,""ULNT"")"),D,105)=1
 D S1^cAN002(0,"ALERT",0)
 D S1^cAN002(0,"ALERT_USR",0)
 D S1^cAN002(0,"MAIL.ADDR",0)
 I $ZV["MSM" D ^cQSW
 D
 . N (aa)
 . D ^cI72
 I $ZV["MSM" D ^cQSW
 D ^cI720("E")
 ;
N7850 ; I $G(hvv)'<7850 G N7860
 ;
 G YZ
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 10 u 15 * V7.84