KOFINST G 1 ; MODULE INSTELLINGEN;KOFINST; [ 12/07/94  8:22 AM ]
 ;
 ;1 - Tekst voor selektie;2 - Piece;3 - Tekst voor display;4 - Harde auto selekteren;5 - Auto deselekteren;6 - Wijzigbare auto select;7 - voorwaarde niet wijzigbaar
T1 ;Toegankelijk voor Vhisie gebruikers;119;TOEGANG VHISIE;;;;'$$CheckModStatusToegangVHisie^FLOWOFF(UR,'$P(B(1),D,19))
T2 ;Bevestig order;110;BEVESTIG ORDER;"CAK"[Type;Type="P";Type="D"&(PROG="KF17");
T3 ;Afdruk in NLQ;111;NLQ;;;;
T4 ;Afdruk totalen;112;TOTALEN;;Type="P";1;$P(B(1),D,13)
T5 ;Totalen onderlijnd;113;ONDERLIJN TOT;;Type="P";;'$P(B(1),D,12)
T6 ;Schaduw prijzen;114;SCHADUW PRIJS;;Type'="D";;'$$NoSa(KC,UR)
T10 ;De schaduwuitzonderingen zijn niet aktief
 ;
1 
 N Type
 K Y S X=U,T=0,Type=$P(B(1),D,25)
 F I=1:1 S R=$T(@("T"_I)) Q:R=""  D
 .S K=$P(R,U,3)
 .I $L($P(R,U,5)),@$P(R,U,5) D  Q
 ..S $P(B(K\100),D,K#100)=1 I PROG="KF17" S B(K)=1
 .I $L($P(R,U,6)),@$P(R,U,6) D  Q
 ..S $P(B(K\100),D,K#100)="" I PROG="KF17" S B(K)=""
 .I $L($P(R,U,7)),@$P(R,U,7) S $P(B(K\100),D,K#100)=1 I PROG="KF17" S B(K)=1
 .S T=T+1,Y(T)=$P(R,U,2),K=$P(R,U,3),K=$P(B(K\100),D,K#100)
 .I K S X=X_T_U
 S X=$E(X,2,$L(X)-1),Y="21\M\INSTELLINGEN   - voor exit\CB^"_$ZN_"(X)",Y(0)=T
 D ^POP
 I $D(DL(1)),$D(@DL(1)) D WL^PROC
 S FP=$P(UD,D,2)+1*100+1 w @F,@F1
 S K=$P(U2,U,16),K=$P(B(K\100),D,K#100)
YZ Q
 ;
CB(X) 
 N K,R,T
 S R=Y(sLD(6))
 F I=1:1 S K=$T(@("T"_I)) I $P(R,D)=$P(K,U,2) Q
 I $L($P(K,U,8)),@$P(K,U,8) S $P(Y(sLD(6)),D,99)=$S($P(Y(sLD(6)),D,99)="":"*",1:"") D EL^PROC Q
 S X=U_X_U,T=0
 F I=1:1 S R=$T(@("T"_I)) Q:R=""  D
 .I $L($P(R,U,5)),@$P(R,U,5) Q
 .I $L($P(R,U,6)),@$P(R,U,6) Q
 .S T=T+1
 .S K=U_T_U,K=X[K I 'K S K=""
 .S R=$P(R,U,3)
 .I PROG="KF17" S B(R)=K
 .S $P(B(R\100),D,R#100)=K
 Q
 ;
DISPLAY 
 N T,K
 D CLEAR
 S T=0 I $D(BB(1)) N B S B(1)=BB(1)
 F I=1:1 S R=$P(U2,U,5)+1+T Q:R'<+UD  S R=$T(@("T"_I)) Q:R=""  D
 .S K=$P(R,U,3) I K S K=$P(B(K\100),D,K#100)
 .E  X "S K="_K
 .Q:'K
 .S T=T+1,FP=$P(U2,U,5)-1+T*100+$P(U2,U,6)
 .I $E($P(R,U,4))="""" X "S $P(R,U,4)="_$P(R,U,4)
 .I $E($P(R,U,4))="$" X "S $P(R,U,4)="_$P(R,U,4)
 .W @F,$P(R,U,4)
 I $P(B(1),D,14),'$$IsActief^KLPUTZ2("S",QU(1)) S K=$P($T(T10),U,2) X ^cTXT(0,"N",250) R K
 Q
 ;
CLEAR 
 F I=1:1 S R=$P(U2,U,5)+I Q:R'<+UD  S R=$T(@("T"_I)) Q:R=""  D
 .S FP=$P(U2,U,5)-1+I*100+$P(U2,U,6) W @F,@F2
 Q
 ;
NoSa(KLNr,OFFNr,B)
 New R,NoSa,ModNoSa
 Set ModNoSa=$O(^KOFKL(KC,US,UR,100))=""
 Do:'ModNoSa
 . Set NoSa=$P(^KOFKL(KLNr,"F",OFFNr,1),D,14)
 . Quit:'$$^vhTXTPOP("FLOWOFF","MODNOSA","",OFFNr,$P(^KKL(^KK1(KLNr),0),D,2),$S(NoSa:"schaduw",1:"huidige"),$S(NoSa:"huidige",1:"schaduw"))
 . Set $P(^KOFKL(KLNr,"F",OFFNr,1),D,14)=$S(NoSa:"",1:1)
 . Do RECALC^FLOWOFF(OFFNr)
 . Set ModNoSa=1
 Quit ModNoSa
 ;