cAN3229 ;Conversie %DEV, %LOG naar nieuwe data-structuur ;%AN3229 [ 01/15/98  8:56 AM ]
 Q
 ;
 ;
DEV(dev) D DMS^cAN000("UQC","USC","DEV."_dev)
 S UFU="O",SW2=1,SW3=1
 S IREF=^DMC(UQC,USC,"DATA","INDEX"),UREF=^("REF")
 K @IREF,@($P(UREF,",UI1")_")")
 S pr=""
 f  s pr=$o(^cDEV(0,dev,pr)) q:pr=""  d
 . s a=^(pr)
 . w !,pr
 . s B(1)=a,$P(B(1),D,12)=$p(a,D,2)
 . S UI1=pr
 . D U^cAN000
 . s i=pr_" " f  s i=$o(^cDEV(i)) q:$e(i,1,2)'=pr  s @UREF@($e(i,3,99))=^(i)
 q
 ;
CP ; centrale printers
 N UI1
 D DMS^cAN000("UQC","USC","SYS.CP")
 S IREF=^DMC(UQC,USC,"DATA","INDEX"),UREF=^("REF")
 K @IREF,^DIN(Q,"SYS.CP")
 S UI1=999 F  S UI1=$O(@UREF) Q:UI1=""  K @UREF
 S UFU="O",SW2=1,SW3=1,UI1=1000
 s pr=0
 f  s pr=$o(^cLOG(boot,"CP",pr)) q:pr=""  D
 . s l=^(pr) i '$P(l,D,4) s $P(l,D,4)=1
 . s k=^cLOG(boot,"DEV",$p(l,D))
 . s B(1)=pr,$P(B(1),D,2)=$P(l,D,2),$P(B(1),D,12)=$P(l,D,2),$P(B(1),D,3)=$P(l,D),$P(B(1),D,4)=$P(k,D,$P(l,D,4)+1),$P(B(1),D,5)=$P(k,D,$p(l,D,4)+10)
 . S $p(B(1),D,6)=1
 . I $P(k,D)="AA" S $P(B(1),D,9)=2 ; fax
 . I $P($G(^SYS(0,"DDB",$p(l,D))),",")="LATP" S $P(B(1),D,6)=2
 . I '$D(^SYS(0,"DDB",$p(l,D))),$D(^QSYS(0,"DDB",$P(l,D))) S R=^($P(l,D)) I $P(R,",")="LPD" S $P(B(1),D,8)=$P($P(R,",",2),"^",2),$P(B(1),D,7)=$P($P(R,",",2),"^"),$P(B(1),D,6)=3
 . W !,B(1)
 . S UI1=1000+pr
 . D U^cAN000
 s ^DIN(0,"SYS.CP")=UI1
 D S1^cAN002(0,"SYS.CP")
 q
 ;
LOC ; conversie locale printers
 N UI1
 D DMS^cAN000("UQC","USC","SYS.LP")
 S IREF=^DMC(UQC,USC,"DATA","INDEX"),UREF=^("REF")
 K @IREF,@($P(UREF,",UI1")_")"),^DIN(Q,"SYS.LP")
 S UFU="O",SW2=1,SW3=1
 s pr=0
 f  s pr=$o(^cLOG(boot,"DEV",pr)) q:pr=""  D
 . s k=^(pr)
 . f i=1:1:$p(k,D,9) d
 .. s B(1)=$S(i>1:".",1:"")_(i-1),$P(B(1),D,2)=$P(k,D,i+4),$P(B(1),D,12)=$P(k,D,i+4),$P(B(1),D,3)=pr,$P(B(1),D,4)=$P(k,D,1+i),$P(B(1),D,5)=$P(k,D,i+10),$p(B(1),D,13)=$S($P(k,D,10)=1:1,1:i)
 .. W !,B(1)
 .. S UI1=$$NR^cAN000
 .. D U^cAN000
 q
 ;
CPUSR ; cp per user
 N UI1
 D DMS^cAN000("UQC","USC","USR_SYS.CP")
 S IREF=^DMC(UQC,USC,"DATA","INDEX"),UREF=^("REF")
 K @IREF,@($P(UREF,",UI1")_")")
 S UFU="O",SW2=1,SW3=1
 s pr=0
 f  s pr=$o(^DATA(0,"USR",pr)) q:pr=""  d
 . s ii=0
 . f   s ii=$o(^DATA(0,"SYS.CP",ii)) q:ii=""  d
 .. I $$SIG^cAFA1("SYS.CP",ii,130) Q
 .. I $L($$SIG^cAFA1("SYS.CP",ii,109)) Q
 .. s UI1=pr_" "_ii
 .. S B(1)=pr_D_ii_D_$P(^(0),D)
 .. D U^cAN000
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84