KPET3 G 1 ;PRODUKTETIKETTEN ;(VOLGENS KLASSIFIKATIE);KPET1;Go van KPET1 [ 11/29/2003 1:16 PM ] ; T1 ;SELEKTIE : T2 ;SELEKTIE OP VOLGENDE VELDEN : ; 1 W !?2,$P($T(T1),U,2),X1,!?2,X2,!!!!!!! S I=100 G 19:$N(B(I))=-1 W !?2,$P($T(T2),U,2),! 2 S X="",Y=2,SWX=1 F I=1:1:SW3 S B(I)="" 3 S I=$N(@("^"_Q_"PR(0,I)")) G 16:I=-1!(I'?.N) S U2=^(I) 5 I $N(^(I))\100'=(I\100) G 7:$N(^(I))-I<100&(X=""),9:$D(B(X_$P(U2,U,16))) S X=$S(X="":"I",1:"J") G 3 7 G 3:'$D(B(X_$P(U2,U,16))) 9 S (K,U3)=$P(B(X_$P(U2,U,16)),D,1) I $P(B(X_$P(U2,U,16)),D,2)<7,$L($P(U2,U,8)) X "S U3="_$P(U2,U,8) 11 I $P(B(X_$P(U2,U,16)),D,2)=7 S U3=$E(PNT,1,$P($P(B(X_$P(U2,U,16)),D,3),",",1)-1)_K_$E(PNT,1,$P(U2,U,9)-$P($P(B(X_$P(U2,U,16)),D,3),",",2)) 13 W !?2,$P(U2,U,1),?20,$P("> \>=\= \< \<=\<>\x=",D,$P(B(X_$P(U2,U,16)),D,2))," ",U3 S Y=Y+1 15 G 3:$N(^(I))\100=(I\100),3:$N(^(I))-I<100&(X="") S X=$S(X="":"I",1:"J") G 3 16 F I=1:1:9-Y#9 W ! 18 K SWX F I=1:1:SW3 K B(I) 19 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PH(HG)",Q2="^"_Q_"PH(HG,GRS)",Q3="^"_Q_"PH(HG,GRS,SGS)",Q4="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)" I $P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,2)'="BO" W *27,"[@",*4,*0,*0,*0,*18,*2,*27,":" 23 I HG'=0 S X=$D(@Q1) G 27:X 25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 160 27 S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X 29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 25 31 S SGS=SG I SG'=0 S X=$D(@Q3) G 35:X 33 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 29 35 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 100:X 37 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 33 100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK 112 S PC=$P(A(0),D,1),PID=$P(A(2),D,25),ETA=0 114 I $P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,2)="BO" D .F I=1:1:1 W $C(13),*27,"w",*27,":",*27,"x",*1,*27,"E"," ","IDENTNUMMER : ",PID .W !!! F I=1:1:1 W $C(13),*27,"w",*27,":",*27,"x",*1,*27,"E"," ",PC I $P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,2)'="BO" D .W !," ","IDENTNUMMER : ",PID .W !!!! W " ",PC 116 W !!!! S ETA=ETA+1 G 114:ETA