cAN2242	;beheer K.O.S.-schermen;%AN224; [ 01/03/2002 - 17:21:21 - 58864,62481 ]
	;
T1	;Rubriek ;
T2	;Type rubriek\"[] = blanco   1[] = K.O.S.-code   2[] = berekening";
T3	;Prompt Nederlands;Prompt Frans;
T4	;Statistiek\"[] = opbrengsten   1[] = kosten";
T5	;Berekening\"vb xyy+xyy-xyy[] waarbij x = schermnummer en yy = rubrieknummer"
T6	; blanco ; K.O.S.-code ; berekening ;
	;
T1F	;Rubrique ;
T2F	;Type de rubrique\"[] = blanco   1[] = code-K.O.S.   2[] = calculation";
T3F	;Prompt Néerlandais;Prompt Français;
T4F	;Statistique\"[] = profits   1[] = coûts";
T5F	;Calculation\"ex xyy+xyy-xyy[] où x = numéro de l'écran et yy = numéro de rubrique"
T6F	; blanco ; code-K.O.S. ; calculation ;
	;
T1E	;Rubriek ;
T2E	;Type rubriek\"[] = blanco   1[] = K.O.S.-code   2[] = berekening";
T3E	;Prompt Nederlands;Prompt Frans;
T4E	;Statistiek\"[] = opbrengsten   1[] = kosten";
T5E	;Berekening\"vb xyy+xyy-xyy[] waarbij x = schermnummer en yy = rubrieknummer"
T6E	; blanco ; K.O.S.-code ; berekening ;
	;
	; Window & Titel
1	D P^cA612(17,1,5,80,1,1,0,0,$P($T(@("T1"_QT)),U,2)_U1,0,0,1,0,0)
	;
	; Gegevens per rubriek
2	W /CUP(1,1),/WCMD
21	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""12-""[K" D R0 I K="-"!(K=",") g YZ
23	W /CUP(1,55),/SGR(1),$P($T(@("T6"_QT)),U,K+2),/SGR(22)
25	K PROMPTN,PROMPTF,KB,KOS
27	G 4:K=2,3:K=1
28	S U2(1)=D K U2(17)
29	G YZ
	;
	; kos-gegeven
3	D ^cAN103("KOS",18,0,"KODE.KOS") G 2:K="-"
30	W /CUP(2,2),/SGR(7)," code KOS  ",/SGR(27)," : ",KOS_" "_$P(^(KOS),D,1),/WCML
	S (PROMPTN,PROMPTF)=$E($$SG^cAFA1("KODE.KOS",K,101),1,18)
31	S R="PROMPTN\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\18\\$L(K)" D R0 G 3:K="-",2:K=","
32	W /CUP(3,2),/SGR(7)," Prompt N. ",/SGR(27)," : ",PROMPTN,/WCML
33	S R="PROMPTF\22\3\"_$P($T(@("T3"_QT)),U,3)_"\\18\\$L(K)" D R0 G 31:K="-",2:K=","
34	W /CUP(3,40),/SGR(7)," Prompt F. ",/SGR(27)," : ",PROMPTF,/WCML
35	S R="SRT\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""1-""[K" D R0 G 33:K="-",2:K=","
36	S U2(1)=PROMPTN_D_PROMPTF
37	S U2(17)="S K=$P($G(^DKOS(Q,"""_UPW_""",UI1,"""_$P(KOS," ")_""")),D,"_(SRT+1)_")"
39	G YZ
	;
4	S R="PROMPTN\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\18\\$L(K)" D R0 G 2:K="-",2:K=","
40	W /CUP(2,2),/SGR(7)," Prompt N. ",/SGR(27)," : ",PROMPTN,/WCML
41	S R="PROMPTF\22\3\"_$P($T(@("T3"_QT)),U,3)_"\\18\\$L(K)" D R0 G 4:K="-",2:K=","
42	W /CUP(2,40),/SGR(7)," Prompt F. ",/SGR(27)," : ",PROMPTF,/WCML
43	S R="KB\22\3\"_$P($T(@("T5"_QT)),U,2)_"\65\\$L(K)" D R0 G 41:K="-",2:K=","
	s:"+-"'[$E(K) K="+"_K s KK=K
	s SW=0,KX=K f  s KY=$E(KX,1,4) q:KY=""  d  q:SW
	. s KX=$E(KX,5,$L(KX)),KT=$E(KY),K=$E(KY,2,4) q:'$L(K)
	. s:'(KY?1"+"3N!(KY?1"-"3N)) SW=1
	. i $d(UKOS(K\100)),$d(C(K#100)),K#100>1 q
	. s SW=1 q
	G 43:SW s KX=KK,KK=""
	; KO - 12.05.03
	; f  s KY=$E(KX,1,4) q:KY=""  s KX=$E(KX,5,$L(KX)),KK=KK_KY       ; $E(KY,1,2)_C(+$E(KY,3,4))
	f  s KY=$E(KX,1,4) q:KY=""  s KX=$E(KX,5,$L(KX)),KK=KK_$E(KY,1,2)_C(+$E(KY,3,4))
	s U2(1)=PROMPTN_D_PROMPTF
	s U2(17)="s K="""_KK_""" d BER^cAN2242("""_UPW_""")"
	G YZ
	;
YZ	D C^cA612 Q
	;
BER(UPW)	; berekening van kos-gegevens
	n KK,KY,KT,UQA,USA,UREF,TOT
	s KK=K,TOT=0,UQA=$P(^DMS(Q,UPW,0),D,3),USA=$P(^(0),D,4)
	f  s KY=$E(KK,1,4) q:KY=""  d
	. s KK=$E(KK,5,999)
	. s K=0,KT=$E(KY),UREF=$G(^DMA(UQA,USA,$E(KY,2),+$E(KY,3,4),17))
	. i $L(UREF) x UREF
	. x "s TOT="_TOT_KT_+K
	s K=TOT
	q
	;
R0	S $P(R,D,12)=$T(+0),$P(R,D,13)=1 D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 02.06.03 -  9 u 52 * V7.95