cI65 ;UITKUISEN UGL IVM BIB ;I65; [ 03/10/93  11:45 AM ]
 G 1
 ;
T1 ;STARTEN PROGRAMMA\".[] = opstarten programma   -[] = einde";
 ;
S1 S US=""
S1A S US=$O(@("^"_Q_UGL_"(0,US)")) G S1Z:US=""
 I UGL="UL","\N\R\W\"[(D_US_D) G S1A
 I UGL="OD","\D\"[(D_US_D) G S1A
 I UGL="RF","\N\R\W\"[(D_US_D) G S1A
S1B W !,UGL,"-",US D S2,S3 G S1A
S1Z Q
 ;
 ; commentaren
S2 S R=$D(@("^"_Q_UGL_"(0,US,0)"))
S2A F R=1:1:999 K ^("UCS"_R)
S2B F R=1:1:999 K ^("UMC"_R)
S2C F R=1:1:999 K ^("UMK"_R)
S2D F R=1:1:999 K ^("USM"_R)
S2E F R=1:1:999 K ^("USC"_R)
S2Z Q
 ;
 ; details
S3 S R=$D(@("^"_Q_UGL_"(0,US,0)"))
S3A F R="",1:1:99 K ^("UT"_R)
S3B F R="",1:1:99 K ^("UV"_R)
S3C F R="",1:1:99 K ^("UUM"_R)
S3D K ^("UTA"),^("UTB")
S3E I UGL="UL"!(UGL="OD")!(UGL="RF") S $P(^("UDET"),D,4)="1;2;3;4;5;6;7;8"
S3F I UGL="TO"!(UGL="TOL") S R="51;52;53;54;55;56;57;58;59;60" S:UGL="TO"&(US="M") R=R_";61;62;63;64" S $P(^("UDET"),D,4)=R
S3Z Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\""-.,""[K&$L(K)" D R0 G YZ:K'="."
 ;
2 F UGL="OD","UL","TO","TOL","RF" D S1
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ
ZZ ; 10.03.93 - 15 u 39 * V5.4.01