V7ALL ;Updates 7.10 tem 7.3 ; V7ALL [ 09/12/2000  3:02 PM ]
 ;
YZ Q
 ;
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
V ; Xececutes voor
 G V7100
 ;
V7100 I $G(hvv)'<7100 G V7110
 s r=$na(^DMA(0,"UI"),2) d S1
 s r=$na(^DMC(0,"UI"),2) d S1
 s r=$na(^DMM(0,"UI"),2) d S1
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . s r=$na(^DMS(q,"UI"),2) d S1
 . s r=$na(@("^"_q_"BA(""MENU"",22,33)"),3) d S1
 ;
V7110 I $G(hvv)'<7110 G V7120
 ;
V7120 I $G(hvv)'<7120 G V7130
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) s r=$na(^DHIS(q,"PR"),2) d S1
 ;
V7130 I $G(hvv)'<7130 G V7140
 ;
V7140 I $G(hvv)'<7140 G V7200
 s r=$na(^DMA(0,"AR.MOD.O"),2) d S1
 ; 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"",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
 ;
V7200 I $G(hvv)'<7200 G V7210
 s r=$na(^DMA(0,"PAR.BH",2,7),4) d S1
 ;
V7210 I $G(hvv)'<7210 G V7220
 ;
V7220 I $G(hvv)'<7220 G V7230
 s r=$na(^DMH(0,"OD.F.O"),2) d S1
 s r=$na(^DMH(0,"UL.F.O"),2) d S1
 s r=$na(^DMC(0,"PR","DATA",0),4) d S1
 s r=$na(^DMC(0,"PR.STAPER.R","DATA",0),4) d S1
 f i="OD.T","OD.F","UL.F","FA.F","TO.T","TO.M","TO.F","TOL.F","TOL.P" s r=$na(^DMA(0,i),2) D S1
 ;
V7230 I $G(hvv)'<7230 G V7240
 s r=$na(^DMC(0,"CODE.STCOR","SYN"),3) d S1
 k ^oUR
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . f ugl="PV","TO","TOL","OD" s us="" f  s us=$o(@("^"_q_ugl_"(0,us)")) q:us=""  i $d(^(us,"UR")) s ^oUR(q,ugl,us)=^("UR")
 ;
V7240 I $G(hvv)'<7240 G V7250
 k ^oUR
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . f ugl="OD" s us="" f  s us=$o(@("^"_q_ugl_"(0,us)")) q:us=""  i $d(^(us,"UR")) s ^oUR(q,ugl,us)=^("UR")
 ;
V7250 I $G(hvv)'<7250 G V7260
 S r=$na(^DMM(0,"DLOG"),2) D S1
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) f j=1400:1:1499 k @("^"_q_"PV(0,0,i)")
 ;
V7260 I $G(hvv)'<7260 G V7300
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) S r=$na(@("^"_q_"INTR(""%F"",5)"),2) D S1
 ;
V7300 I $G(hvv)'<7300 G YZ
 S r=$na(^BIB("INTR",1000,0,111),4) D S1
 S r=$na(^FBIB("INTR",1000,0,111),4) D S1
 S r=$na(^DMA(0,"PR.STCOR"),2) D S1
 G YZ
 ;
A ; Xecutes After
 G N7100
 ;
N7100 I $G(hvv)'<7100 G N7110
 ;
N7110 I $G(hvv)'<7110 G N7120
 ;
N7120 I $G(hvv)'<7120 G N7130
 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=""  S I=100 F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>199!'$L(I)  I $P(^(I),U,16)=118 S $P(^(I),U,12)=1,$P(^(I),U,15)="$O(@(""^""_Q_UGL_""(KC,US,UR,100)""))" Q
 D
 . N (QU)
 . D ^V6FIA
 ;
N7130 I $G(hvv)'<7130 G N7140
 s r=$na(^BIB("%T","11.P4.1"),2) d S1
 s r=$na(^FBIB("%T","11.P4.1"),2) d S1
 ;
N7140 I $G(hvv)'<7140 G N7200
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) D OPK^cANP0001(q,"PR")
 ;
N7200 I $G(hvv)'<7200 G N7210
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . F UGL="UL","OD","RF","TO","TOL" S US="" F  S US=$O(@("^"_q_UGL_"(0,US)")) Q:US=""  S I=100 F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>199!'$L(I)  I $P(^(I),U,16)=118 S $P(^(I),U,8)="K I $L(K),$D(@(""^""_Q_""BA(11,K)"")) S UQD=+$P(^(K),D,7)" Q
 . D ^cI59(q,"PR")
 ;
N7210 I $G(hvv)'<7210 G N7220
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . F UGL="UL","OD","RF","TO","TOL" S US="" F  S US=$O(@("^"_q_UGL_"(0,US)")) Q:US=""  S I=100 F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>199!'$L(I)  I $P(^(I),U,16)=118 S $P(^(I),U,8)="K I $L(K),$D(@(""^""_Q_""BA(11,K)"")) S UQD=+$P(^(K),D,7)" Q
 . I $D(@("^"_q_"BA(""MENU"",22,32)")),^(32)["^cFN1;D" S $P(^(32),D,4,6)="78\M\78"
 . ; D HIST^V7210(q,"PR")
 ;
N7220 I $G(hvv)'<7220 G N7230
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . N Q s Q=q
 . D S2^cAN002("0","KL",10,105)
 ;
N7230 I $G(hvv)'<7230 G N7240
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . N Q s Q=q
 . D S2^cAN002("0","KL",10,105)
 . f ugl="PV","TO","TOL","OD" s us="" f  s us=$o(@("^"_q_ugl_"(0,us)")) q:us=""  i $d(^(us,"UR")),$D(^oUR(q,ugl,us)) S $P(@("^"_q_ugl_"(0,us,""UR"")"),D)=$p(^(us),D)
 ;
N7240 I $G(hvv)'<7240 G N7250
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . f ugl="OD" s us="" f  s us=$o(@("^"_q_ugl_"(0,us)")) q:us=""  i $d(^(us,"UR")),$D(^oUR(q,ugl,us)) S $P(@("^"_q_ugl_"(0,us,""UR"")"),D)=$p(^(us),D)
 . f j=13,14 i $d(@("^"_q_"BA(""MENU"",28,j)")) d
 .. i j=13,$p(^(j),D,4)["A213" S $p(^(j),D)="Inlezen nieuwe adressen",$p(^(j),D,11)="Importation d'adresses"
 .. i j=14,$p(^(j),D,4)["A307" S $p(^(j),D)="Etiketten",$p(^(j),D,11)="Etiquettes"
 ;
N7250 I $G(hvv)'<7250 G N7260
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . N Q S Q=q
 . I $D(@("^"_q_"PV(0,0,""UDFA"")")) S $P(^("UDFA"),D)="^cFW6124"
 . i $D(@("^"_q_"BA(33)")) S $P(^(33),D,18)=1  ; KBP 
 . i $$BF^cAFA1="BEF",$D(@("^"_q_"PR(0,19)")) f j=56,57 i '$l($p(^(19),D,j)) S $p(^(19),D,j)=2
 ;
N7260 I $G(hvv)'<7260 G N7300
 I $ZU(5)'["MGR" D ^cQSW
 D S1^cAN002(0,"DEV.PRT")
 D ^cQSW
 ;
N7300 I $G(hvv)'<7300 G YZ
 I $ZU(5)'["MGR" D ^cQSW
 D S1^cAN002(0,"DEV.VID")
 I $ZV["MSM" D
 . N (QU)
 . ; D ^cI282
 D ^cQSW   ; terug naar TST
 D S1^cAN002("0","PN","")
 F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
 . F ugl="OD","UL" s us=""  f  s us=$o(@("^"_q_ugl_"(0,us)")) q:us=""  D
 .. I $D(^(us,"UCO")),^("UCO")'["KL\K1" Q
 .. s j=100 f  s j=$o(@("^"_q_ugl_"(0,us,j)")) q:j>199!'$l(j)  i $p(^(j),U,16)=106,$p(^(j),U,19)["D ^cFN16" D
 ... W !,ugl," ",us," ",j," ",^(j)
 ... S $p(^(j),U,19)="S K=$$^cFN160(KC,$S($D(UWH):$P(B(1),D,6),1:$$SG^cAFA1(""KL"",KC,220)))"
 ... s $p(^(j),U,12)="",$p(^(j),U,15)=""
 I $ZV["MSM" D
 . N (QU)
 . D ^cI282
 G YZ
 ;
ZZ ; 17.04.00 - KU