cI66	;Opkuis database ;%I66 ; [ 11/10/00  10:56 AM ]
	G 1
	;
	; Vraagstelling
	; Input : tekst
	; Output: K=1 : ja
	;         K=0 : neen
S1(T)	
S1A	W !,T,?30,"<N>" R K I K="" S K="n" W K
	S K=$TR(K,"JjYyNn10","111100") I K'=0,K'=1 G S1A
S1Z	W $C(8),$$JN^cAFO1(K) Q
	;
	; Voortgang tonen
S2	S HH=$G(HH,$H) I HH'=$H W "." S HH=$H
S2Z	Q
	;
	; Initialisatie & vraagstelling : Q-waarde + bevestiging
1	S Q=$G(Q,"EA") D ^cA604
11	W !,$P($T(+1),U,2),!
13	W !,"Q-waarde <",Q,">" R K G YZ:K="-"!(K="^"),13:K'?1.3U&(Q="")
15	S:$L(K) Q=K I '$D(@("^"_Q_"BA(99,1)")) G 13
17	W !!,Q," : ",^(1) D ^cA604
19	W !!,"ok  <N>" R K S K=$TR(K,"JjYy1","11110") I 'K G 13
	;
	; === VERKOOP ===
2	D S1("Opkuis OD.T") I K D
	. S US="T"
	. S K=0 F  S K=$O(@("^"_Q_"OD")@(K)) Q:K=""  K ^(K,US) D S2 ; offertes
	. K @("^"_Q_"O1")@(US)
	. K @("^"_Q_"O2")@(US)
	. K @("^"_Q_"OB")@(US)
201	D S1("Opkuis OD.F & R-lijnen") I K D
	. S US="F"
	. S K=0 F  S K=$O(@("^"_Q_"OD")@(K)) Q:K=""  K ^(K,US) D S2 ; orders
	. K @("^"_Q_"O1")@(US)
	. K @("^"_Q_"O2")@(US)
	. K @("^"_Q_"OB")@(US)
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. S $P(^(K,2),D,9)=0 D S2
	.. F  S I=$O(^("R")) Q:$E(I)'="R"  K ^(I)
202	D S1("Opkuis UL.F & L-lijnen") I K D
	. S US="F"
	. S K=0 F  S K=$O(@("^"_Q_"UL")@(K)) Q:K=""  K ^(K,US) D S2 ; lev.bons
	. K @("^"_Q_"U1")@(US)
	. K @("^"_Q_"U2")@(US)
	. K @("^"_Q_"UB")@(US)
	. K @("^"_Q_"ULL")
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. S $P(^(K,0),D,14)=0 D S2
	.. S $P(^(0),D,12)="",$P(^(0),D,13)=""
	.. F  S I=$O(^("L")) Q:$E(I)'="L"  K ^(I)
203	D S1("Opkuis FA.F & factuurlijnen") I K D
	. S US="F"
	. K @("^"_Q_"FA")@(US)
	. K @("^"_Q_"FB")@(US)
	. S I=0 F  S I=$O(@("^"_Q_"FDPD")@(I)) Q:I=""  D
	.. S J=0 F  S J=$O(@("^"_Q_"FDPD")@(I,J)) Q:J=""  D
	... S K=^(J) D S2 I K=US K ^(J)
	. S I=0 F  S I=$O(^DATB(Q,"FA.H",I)) Q:I=""  D
	.. S K=$P(^(I,0),D,8) D S2 I K=US K ^DATB(Q,"FA.H",I)
	. D DMS^cAN000("UQC","USC","FA.H",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	. S I=0 F  S I=$O(^DATB(Q,"FA.D",I)) Q:I=""  D
	.. S K=$P(^(I,0),D,3) D S2 I K=US K ^DATB(Q,"FA.D",I)
	. D DMS^cAN000("UQC","USC","FA.D",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
204	W !,"Opkuis PHST (verkoop) ",?30 D
	. S US="F"
	. S I=0 F  S I=$O(@("^"_Q_"PHST")@(2,I)) Q:I=""  D
	.. S J=0 F  S J=$O(@("^"_Q_"PHST")@(2,I,J)) Q:J=""  D
	... S K=^(J) D S2
	... I $P(K,D,4) D  Q
	.... I '$D(@("^"_Q_"FA")@(US,$P(K,D,4))) K @("^"_Q_"PHST")@(2,I,J)
	... I $P(K,D,3) D  Q
	.... I '$D(@("^"_Q_"U1")@(US,$P(K,D,3))) K @("^"_Q_"PHST")@(2,I,J)
	... I $P(K,D,2) D  Q
	.... I '$D(@("^"_Q_"O1")@(US,$P(K,D,2))) K @("^"_Q_"PHST")@(2,I,J)
	.. I $O(@("^"_Q_"PHST")@(2,I,0))="" K @("^"_Q_"PHST")@(2,I)
211	D S1("Opkuis OD.P") I K D
	. S US="P"
	. S K=0 F  S K=$O(@("^"_Q_"OD")@(K)) Q:K=""  K ^(K,US) D S2 ; picking
	. K @("^"_Q_"O1")@(US)
	. K @("^"_Q_"O2")@(US)
	. K @("^"_Q_"OB")@(US)
212	D S1("Opkuis UL.M & L-lijnen") I K D
	. S US="M"
	. S K=0 F  S K=$O(@("^"_Q_"UL")@(K)) Q:K=""  K ^(K,US) D S2 ; lev.bons
	. K @("^"_Q_"U1")@(US)
	. K @("^"_Q_"U2")@(US)
	. K @("^"_Q_"UB")@(US)
	. K @("^"_Q_"ULL")
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. S $P(^(K,0),D,14)=0 D S2
	.. S $P(^(0),D,12)="",$P(^(0),D,13)=""
	.. F  S I=$O(^("L")) Q:$E(I)'="L"  K ^(I)
213	D S1("Opkuis FA.M & factuurlijnen") I K D
	. S US="M"
	. K @("^"_Q_"FA")@(US)
	. K @("^"_Q_"FB")@(US)
	. S I=0 F  S I=$O(@("^"_Q_"FDPD")@(I)) Q:I=""  D
	.. S J=0 F  S J=$O(@("^"_Q_"FDPD")@(I,J)) Q:J=""  D
	... S K=^(J) D S2 I K=US K ^(J)
	. S I=0 F  S I=$O(^DATB(Q,"FA.H",I)) Q:I=""  D
	.. S K=$P(^(I,0),D,8) D S2 I K=US K ^DATB(Q,"FA.H",I)
	. D DMS^cAN000("UQC","USC","FA.H",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	. S I=0 F  S I=$O(^DATB(Q,"FA.D",I)) Q:I=""  D
	.. S K=$P(^(I,0),D,3) D S2 I K=US K ^DATB(Q,"FA.D",I)
	. D DMS^cAN000("UQC","USC","FA.D",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	; KO - 22.08.02
214	; W !,"Opkuis PHST (verkoop) ",?30 D
	; . S US="M"
	; . S I=0 F  S I=$O(@("^"_Q_"PHST")@(2,I)) Q:I=""  D
	; .. S J=0 F  S J=$O(@("^"_Q_"PHST")@(2,I,J)) Q:J=""  D
	; ... S K=^(J) D S2
	; ... I $P(K,D,4) D  Q
	; .... I '$D(@("^"_Q_"FA")@(US,$P(K,D,4))) K @("^"_Q_"PHST")@(2,I,J)
	; ... I $P(K,D,3) D  Q
	; .... I '$D(@("^"_Q_"U1")@(US,$P(K,D,3))) K @("^"_Q_"PHST")@(2,I,J)
	; ... I $P(K,D,2) D  Q
	; .... I '$D(@("^"_Q_"O1")@(US,$P(K,D,2))) K @("^"_Q_"PHST")@(2,I,J)
	; .. I $O(@("^"_Q_"PHST")@(2,I,0))="" K @("^"_Q_"PHST")@(2,I)
291	D S1("Opkuis STKL") I K D
	. F  S K=$O(@("^"_Q_"STKL")@(0)) Q:K=""   K ^(K) D S2
	. F  S K=$O(^DATA(Q,"PR.STAKL",0)) Q:K=""  K ^(K) D S2
	. D DMS^cAN000("UQC","USC","PR.STAKL",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	. F  S K=$O(^DATA(Q,"PR.STAKL.TSS",0)) Q:K=""  K ^(K) D S2
	. D DMS^cAN000("UQC","USC","PR.STAKL.TSS",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
292	D S1("Opkuis INTR (verkoop)") I K D
	. S US="29"
	. S K=0 F  S K=$O(@("^"_Q_"INTR")@(K)) Q:K=""  K ^(K,US) D S2
	. K @("^"_Q_"INTR1")@(US)
	. K @("^"_Q_"INTR2")@(US)
	. K @("^"_Q_"INTRB")@(US)
293	D S1("Opkuis PV (voorschotten)") I K D
	. F  S K=$O(@("^"_Q_"PV")@(0)) Q:K=""  K ^(K) D S2
	. F  S K=$O(@("^"_Q_"PVFI")@(0)) Q:K=""  K ^(K) D S2
299	W !,"Opkuis RF (raadpl.fact.)",?30 D
	. F  S K=$O(@("^"_Q_"RF")@(0)) Q:K=""  K ^(K) D S2
	. F  S K=$O(@("^"_Q_"RF1")@(0)) Q:K=""  K ^(K) D S2
	. F  S K=$O(@("^"_Q_"RF2")@(0)) Q:K=""  K ^(K) D S2
	. F  S K=$O(@("^"_Q_"RFB")@(0)) Q:K=""  K ^(K) D S2
	;
	; === AANKOOP ===
3	D S1("Opkuis TO.T") I K D
	. S US="T"
	. S K=0 F  S K=$O(@("^"_Q_"TO")@(K)) Q:K=""  K ^(K,US) D S2 ; prijsaan.
	. K @("^"_Q_"TO1")@(US)
	. K @("^"_Q_"TO2")@(US)
	. K @("^"_Q_"TOB")@(US)
301	D S1("Opkuis TO.F & T-lijnen") I K D
	. S US="F"
	. S K=0 F  S K=$O(@("^"_Q_"TO")@(K)) Q:K=""  K ^(K,US) D S2 ; bestell.
	. K @("^"_Q_"TO1")@(US)
	. K @("^"_Q_"TO2")@(US)
	. K @("^"_Q_"TOB")@(US)
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. S $P(^(K,0),D,17)=0 D S2
	.. F  S I=$O(^("T")) Q:$E(I)'="T"  K ^(I)
302	D S1("Opkuis TOL.F & L-lijnen") I K D
	. S US="F"
	. S K=0 F  S K=$O(@("^"_Q_"TOL")@(K)) Q:K=""  K ^(K,US) D S2 ; lev.bons
	. K @("^"_Q_"TOL1")@(US)
	. K @("^"_Q_"TOL2")@(US)
	. K @("^"_Q_"TOLB")@(US)
	. K @("^"_Q_"TL")
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. S $P(^(K,0),D,14)=0 D S2
	.. F  S I=$O(^("L")) Q:$E(I)'="L"  K ^(I)
303	D S1("Opkuis TOL.P & TOA") I K D
	. S US="P"
	. S K=0 F  S K=$O(@("^"_Q_"TOL")@(K)) Q:K=""  K ^(K,US) D S2 ; gec.lev.
	. K @("^"_Q_"TOL1")@(US)
	. K @("^"_Q_"TOL2")@(US)
	. K @("^"_Q_"TOLB")@(US)
	. K @("^"_Q_"TOA")
304	W !,"Opkuis PHST (aankoop) ",?30 D
	. S US="F"
	. S I=0 F  S I=$O(@("^"_Q_"PHST")@(1,I)) Q:I=""  D
	.. S J=0 F  S J=$O(@("^"_Q_"PHST")@(1,I,J)) Q:J=""  D
	... S K=^(J) D S2
	... I $P(K,D,4) D  Q
	.... N US S US="P"
	.... I '$D(@("^"_Q_"TOL1")@(US,$P(K,D,4))) K @("^"_Q_"PHST")@(1,I,J)
	... I $P(K,D,3) D  Q
	.... I '$D(@("^"_Q_"TOL1")@(US,$P(K,D,3))) K @("^"_Q_"PHST")@(1,I,J)
	... I $P(K,D,2) D  Q
	.... I '$D(@("^"_Q_"TO1")@(US,$P(K,D,2))) K @("^"_Q_"PHST")@(1,I,J)
	.. I $O(@("^"_Q_"PHST")@(1,I,0))="" K @("^"_Q_"PHST")@(1,I)
391	D S1("Opkuis STLE") I K D
	. F  S K=$O(@("^"_Q_"STLE")@(0)) Q:K=""   K ^(K) D S2
	. F  S K=$O(^DATA(Q,"PR.STALE",0)) Q:K=""  K ^(K) D S2
	. D DMS^cAN000("UQC","USC","PR.STALE",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	. F  S K=$O(^DATA(Q,"PR.STALE.TSS",0)) Q:K=""  K ^(K) D S2
	. D DMS^cAN000("UQC","USC","PR.STALE.TSS",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
392	D S1("Opkuis INTR (aankoop)") I K D
	. S US="19"
	. S K=0 F  S K=$O(@("^"_Q_"INTR")@(K)) Q:K=""  K ^(K,US) D S2
	. K @("^"_Q_"INTR1")@(US)
	. K @("^"_Q_"INTR2")@(US)
	. K @("^"_Q_"INTRB")@(US)
	;
	; === PRODUCTEN ===
4	D S1("Opkuis OD.D & R-lijnen") I K D
	. S US="D"
	. S K=0 F  S K=$O(@("^"_Q_"OD")@(K)) Q:K=""  K ^(K,US) D S2 ; prod.nota
	. K @("^"_Q_"O1")@(US)
	. K @("^"_Q_"O2")@(US)
	. K @("^"_Q_"OB")@(US)
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. S $P(^(K,2),D,9)=0 D S2
	.. F  S I=$O(^("R")) Q:$E(I)'="R"  K ^(I)
41	D S1("Opkuis PR.STCOR") I K D
	. F  S K=$O(^DATA(Q,"PR.STCOR",0)) Q:K=""  K ^(K) D S2
	. D DMS^cAN000("UQC","USC","PR.STCOR",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
42	D S1("Opkuis H-lijnen (PR)") I K D
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. K ^(K,"H") D S2
	.. F  S I=$O(^("H")) Q:$E(I)'="H"  K ^(I)
43	D S1("Opkuis S-lijnen (PR)") I K D
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  D
	.. K ^(K,"S") D S2
	.. F  S I=$O(^("S")) Q:$E(I)'="S"  K ^(I)
441	D S1("Opkuis signaletiek (PR)") I K D
	. S K=0 F  S K=$O(@("^"_Q_"PR")@(K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR"),^DLOG(Q,"PR")
	. D DMS^cAN000("UQC","USC","PR",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
442	D S1("Opkuis aankoopgeg. (PR_LE)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR_LE",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR_LE"),^DLOG(Q,"PR_LE")
	. D DMS^cAN000("UQC","USC","PR_LE",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
443	D S1("Opkuis indexen (PR_LE.IND)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR_LE.IND",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR_LE.IND"),^DLOG(Q,"PR_LE.IND")
	. D DMS^cAN000("UQC","USC","PR_LE.IND",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
444	D S1("Opkuis deelproducten (PR_SP)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR_SP",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR_SP"),^DLOG(Q,"PR_SP")
	. D DMS^cAN000("UQC","USC","PR_SP",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
445	D S1("Opkuis etiketten (PR.ETI)") I K D
	. S K=0 F  S K=$O(^DATB(Q,"PR.ETI",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR.ETI"),^DLOG(Q,"PR.ETI")
	. D DMS^cAN000("UQC","USC","PR.ETI",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
451	D S1("Opkuis hoofdgroepen (PR.HG)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR.HG",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR.HG"),^DLOG(Q,"PR.HG")
	. D DMS^cAN000("UQC","USC","PR.HG",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
452	D S1("Opkuis prod.groepen (PR.GR)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR.GR",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR.GR"),^DLOG(Q,"PR.GR")
	. D DMS^cAN000("UQC","USC","PR.GR",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
453	D S1("Opkuis subgroepen (PR.SG)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR.SG",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR.SG"),^DLOG(Q,"PR.SG")
	. D DMS^cAN000("UQC","USC","PR.SG",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
454	D S1("Opkuis merken (PR.MK)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR.MK",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR.MK"),^DLOG(Q,"PR.MK")
	. D DMS^cAN000("UQC","USC","PR.MK",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
455	D S1("Opkuis seizoenscurves (PR.SK)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"PR.SK",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"PR.SK"),^DLOG(Q,"PR.SK")
	. D DMS^cAN000("UQC","USC","PR.SK",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	;
	; === KLANTEN ===
5	D S1("Opkuis klanten (KL & KL.A)") I K D
	. F  S K=$O(@("^"_Q_"KL(0)")) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"KL"),^DLOG(Q,"KL"),^DTXT(Q,"KL"),@("^"_Q_"K1")
	. D DMS^cAN000("UQC","USC","KL",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	. F  S K=$O(^DKL(Q,"KL.A",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"KL.A"),^DLOG(Q,"KL.A"),^DTXT(Q,"KL.A")
	. D DMS^cAN000("UQC","USC","KL.A",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
50	D S1("Opkuis contactpersonen (CP)") I K D
	. F  S K=$O(^DATA(Q,"CP",0)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"CP"),^DLOG(Q,"CP"),^DTXT(Q,"CP")
	. D DMS^cAN000("UQC","USC","CP",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
51	D S1("Opkuis klantenopvolging") I K D
	. F  S K=$O(@("^"_Q_"MEMO")@("KL\K1",0)) Q:K=""  K ^(K) D S2
	. K @("^"_Q_"MEMO0")@("KL\K1")
52	D S1("Opkuis memo-data") I K D
	. S K="" F  S K=$O(@("^"_Q_"MEMO")@(K)) Q:K=""  I K'[D K ^(K) D S2
	. K @("^"_Q_"MEMO1")
53	D S1("Opkuis vertegenwoordigers (VT)") I K D
	. F  S K=$O(@("^"_Q_"VT(0)")) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"VT"),^DLOG(Q,"VT"),^DTXT(Q,"VT"),@("^"_Q_"VT1")
	. D DMS^cAN000("UQC","USC","VT",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	;
	; === LEVERANCIERS ===
6	D S1("Opkuis leveranciers (LE & LE.A)") I K D
	. F  S K=$O(@("^"_Q_"LE(0)")) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"LE"),^DLOG(Q,"LE"),^DTXT(Q,"LE"),@("^"_Q_"L1")
	. D DMS^cAN000("UQC","USC","LE",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	. F  S K=$O(^DLE(Q,"LE.A",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"LE.A"),^DLOG(Q,"LE.A"),^DTXT(Q,"LE.A")
	. D DMS^cAN000("UQC","USC","LE.A",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
61	D S1("Opkuis leveranciersopvolging") I K D
	. F  S K=$O(@("^"_Q_"MEMO")@("LE\L1",0)) Q:K=""  K ^(K) D S2
	. K @("^"_Q_"MEMO0")@("LE\L1")
	;
	; === UTILI-DATA ===
7	D S1("Opkuis Selecties") I K D
	. S K=0 F  S K=$O(^DATA(Q,"SEL",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"SEL"),^DLOG(Q,"SEL"),^UTILI(Q,"SEL")
	. D DMS^cAN000("UQC","USC","SEL",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
71	D S1("Opkuis Listings") I K D
	. S K=0 F  S K=$O(^DATA(Q,"LIS",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"LIS"),^DLOG(Q,"LIS")
	. D DMS^cAN000("UQC","USC","LIS",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
72	D S1("Opkuis etiketten (Utili-data)") I K D
	. S K=0 F  S K=$O(^DATA(Q,"ETI",K)) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"ETI"),^DLOG(Q,"ETI")
	. D DMS^cAN000("UQC","USC","ETI",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	;
	; === LOGIN ===
73	D S1("Opkuis logging van de Log-in's") I K D
	. K ^LOGIN
	. S K="" F  S K=$O(^ILOGIN(K)) Q:K=""  I $D(^ILOGIN(K,"LOGIN")) K ^ILOGIN(K,"LOGIN") D S2
	. S K="" F  S K=$O(^DIN(K)) Q:K=""  I $D(^DIN(K,"LOGIN")) K ^DIN(K,"LOGIN") D S2
	; 
	; === MAIL ===
74	D S1("Opkuis mail") I K D
	. ; Mailberichten
	. K ^MAIL(0,"MAIL")
	. K ^IMAIL(0,"MAIL")
	. K ^DIN(0,"MAIL")
	. K ^DLOG(0,"MAIL")
	. ; Mail adressen 'aan'
	. K ^MAIL(0,"MAIL.AAN")
	. K ^IMAIL(0,"MAIL.AAN")
	. K ^DIN(0,"MAIL.AAN")
	. K ^DLOG(0,"MAIL.AAN")
	. ; Mail adressen 'CC'
	. K ^MAIL(0,"MAIL.CC")
	. K ^IMAIL(0,"MAIL.CC")
	. K ^DIN(0,"MAIL.CC")
	. K ^DLOG(0,"MAIL.CC")
	;
	; === FAX ===
75	D S1("Opkuis faxberichten") I K D
	. K ^TKFAXQ
	; === CODEBESTANDEN ===
	; Codebestanden worden niet opgekuist, er wordt enkel een melding gegeven of er nog codebestanden aanwezig zijn
76	S TYPE(1)=0,TYPE(2)=0,TYPE(9)=0
	S I1=""
	F  S I1=$O(^DKODE(0,"CODE.VV",I1)) Q:I1=""  S TYPE($E(I1))=TYPE($E(I1))+1
	W !,"Er zijn nog "_TYPE(1)_" codebestanden van type 1 aanwezig"
	W !,"Er zijn nog "_TYPE(2)_" codebestanden van type 2 aanwezig"
	W !,"Er zijn nog "_TYPE(9)_" codebestanden van type 9 aanwezig"
	;
	; === AUTOMATISCHE TEKSTEN ===
77	D S1("Opkuis automatische teksten") I K D
	. S K=0 F  S K=$O(@("^"_Q_"UT(K)")) Q:K=""  K ^(K) D S2
	. K ^DIN(Q,"UT"),^DLOG(Q,"UT")
	. D DMS^cAN000("UQC","USC","UT",1) I $L(UQC),$L(USC) D S1^cAN002(UQC,USC,0,0)
	;
YZ	Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02