KF9CC G F ;REGISTRATIE UITLEVERINGEN (INGANG) ;Go naar KF30CC [ 03/02/94  10:55 AM ]
 ;
F W @F11,@F1 S US="F",UKIL="" G 1
M W @F11,@F1 S US="M",UKIL="" G 1
N W @F11,@F1 S US="N",UKIL="" G 1
P W @F11,@F1 S US="P",UKIL="" G 1
T W @F11,@F1 S US="T",UKIL="" G 1
F1 W @F11,@F1 S US="F",UKIL=1 G 1
M1 W @F11,@F1 S US="M",UKIL=1 G 1
N1 W @F11,@F1 S US="N",UKIL=1 G 1
P1 W @F11,@F1 S US="P",UKIL=1 G 1
T1 W @F11,@F1 S US="T",UKIL=1 G 1
F2 W @F11,@F1 S US="F",UKIL="" G 3
M2 W @F11,@F1 S US="M",UKIL="" G 3
N2 W @F11,@F1 S US="N",UKIL="" G 3
P2 W @F11,@F1 S US="P",UKIL="" G 3
T2 W @F11,@F1 S US="T",UKIL="" G 3
F3 W @F11,@F1 S US="F",UKIL=1 G 3
M3 W @F11,@F1 S US="M",UKIL=1 G 3
N3 W @F11,@F1 S US="N",UKIL=1 G 3
P3 W @F11,@F1 S US="P",UKIL=1 G 3
T3 W @F11,@F1 S US="T",UKIL=1 G 3
 ;
1 S UGL="UL",UG1="U1",UG2="U2",UG3="U3",UGB="UB" G 5
3 S UGL="OD",UG1="O1",UG2="O2",UGB="OB" G 5
 ;
5 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1) S:$D(^(X+20)) PEGA(X)=$P(^(X+20),D,1)
7 S U=";",X=@("^"_Q_UGL_"(0,US,1)"),USM=^("USMCC"),USC=^("USCCC") F I="UD","UT","UTL","UV","UUM","UOU" S @I=^(I)
9 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",BLA="                                                            ",PNT="........................................"
11 S UVV=$P($P(UV," ",2),"=",2),Q1="^"_Q_UGL_"(0,US,""UR"")" X X,UT K X,UT
 ;
YZ G ^KF30CC
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31