KPRT G 1 ;MODULE PRINTER ;KPRT; [ 12/22/2003  4:35 PM ]
 ;
S0 ; Subroutine Wijzigen Printer-parameters
S0A S S2=S1
S0B S S1=$N(^(S1)) G S0Z:$E(S1,1,2)'=S2 S @$E(S1,3,99)=^(S1) G S0B
S0Z K S1,S2 Q
 ;
1 I '$D(@("^"_Q_"PROG(PROG)")) S S1=$P(^cLOG(boot,"DEV",$$IO^cQ5),D,2) D S0 G 13
11 S S1=$P(@("^"_Q_"DEV($I)"),D,2) D S0
13 S X=$P(^cLOG(boot,"DEV",$$IO^cQ5),D,1) X @("^("""_X_"F70"")")
 ;
YZ K PROG Q
 ;
 Q
Z X ^cZ Q
ZZ ; 14.03.87 -  3 u 42