cAN324(QU) ;Beheer persoonlijke codes ;%AN324 ; [ 01/04/01  2:22 PM ]
 ;
T0 ; Beheer persoonlijke codes ;
T1 ;Keuze;
T2 ;[] = centrale printers   1[] = lokale printers;2[] = bestandslocaties;
 ;
T0F ; Gestion codes personnels ;
T1F ;Choix;
T2F ;[] = imprim. centrales   1[] = imprim. locales;2[] = location fichiers;
 ;
T0E ; Personal codes ;
T1E ;Choice;
T2E ;[] = central printers   1[] = local printers;2[] = file locations;
 ;
1 N BEGIN,EINDE,UI1USR,UI1,UQC,USC,SWEIGC
 D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
 S SWEIGC=1
 S UI1=$$UR^cAFA1("USR",101,QU) I 'UI1 Q
 S UI1USR=UI1,(LOC,PRINT)=0
 I $P($G(^cLOG(boot,"DAM",3)),D) S LOC=1
 I $P($G(^cLOG(boot,"DAM",2)),D) S PRINT=1
 ;
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$S(PRINT:$P($T(@("T2"_QT)),U,2)_"  ",1:"")_$S(LOC:$P($T(@("T2"_QT)),U,3),1:"")_"""\1\\""12-""[K" D R0 G YZ:K="-"
 I K<2 G 2:'PRINT
 I K=1 G 4
 I K=2 G 2:'LOC G 5
 ;
3 D DMS^cAN000("UQC","USC","USR_SYS.CP") I '$L(UQC)!'$L(USC) G YZ
 S BEGIN=UI1USR_" ",EINDE=UI1USR_" ~"
 D BS^cAN210("USR_SYS.CP",0,0,0,1)
 D ^cAN325(QU,1)
 G 2
 ;
4 S UI1O=$G(io,$$IO^cQ5),BEGIN=UI1O_" ",EINDE=UI1O_" ~"
 D BS^cAN210("USR_SYS.LP",0,0,0,1)
 D ^cAN325(QU,2)
 G 2
 ;
5 S BEGIN=UI1USR_" ",EINDE=UI1USR_" ~"
 D BS^cAN210("USR_SYS.CL",0,0,0,1)
 D ^cAN3250(QU)
 G 2
 ;
YZ D C^cA612 Q
 ;
S1 ; beheer persoonlijke code per locale printer
 S R="S UI1="""_UI1USR_" "_UI1_""" I '$D(@UREF) D S2^cAN324"
 N UI1
 D W^cAN200("USR_SYS.LP",0,0,0,R)
S1Z Q
 ;
S2 ; indien nog geen persoonlijke code ingevuld is, open de combinatie
 N A,B,SW3,UFU,UQC,USC
 D DMS^cAN000("UQC","USC","USR_SYS.LP")
 S SW3=1,UFU="O"
 S B(1)=$P(UI1," ")_D_$P(UI1," ",2)_D_$$SIG^cAFA1("SYS.LP",$P(UI1," ",2),111)
 D U^cAN000
 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84