cI25 ;PROGRAMMA'S AFDRUKKEN ;%I25 ; [ 08/17/00  9:30 AM ]
 ;
T1 ;;Pauze tussen 2 lijnen <0> ;Pauze tussen 2 routines <; second(en).;Alle routines zijn afgedrukt.;
 ;
1 W !!,$P($T(+1),";",2),! S Q=$G(Q) D ^cA604 S UCI2=$ZU($ZV'["MSM"*5),UCI="MGR" D INT^cQMSMSW:$ZV["MSM",^cA338,^cQMSMSW:$ZV["MSM",^cRSEL
10 I '$L($O(^UTILITY($J,""))) G YZ
11 W !!,$P($T(T1),";",3) R %R1 G YZ:%R1="-"!(%R1="^")
12 S:%R1="" %R1=0 S %R1=+%R1 W !,%R1,$P($T(T1),";",5),!
13 S %R3=$S(%R1:2,1:20) W !,$P($T(T1),";",4),%R3,"> " R %R2 G 11:%R2="-"!(%R2="^")
15 S:%R2="" %R2=%R3 S %R2=+%R2 W !,%R2,$P($T(T1),";",5),!!!!
17 X F70 W @F80 S %R3="",%R4=0,$ZT="ER^cI25"
19 S %R7="F %R5=1:1 S %R6=$T(+%R5) Q:'$L(%R6)  W !,$P(%R6,"" ""),$C(9),$P(%R6,"" "",2,999) H %R1"
 ;
2 S %R3=$O(^UTILITY($J,%R3)) I %R3="" X F71 W !!,$P($T(T1),U,6),$C(7),! G YZ
21 W !,$ZU($ZV'["MSM"*5)," : ",%R3,?100,DT,?120,TD S %R4=1 X "ZL @%R3 X %R7 ZL %I25" W # S %R4=0 H %R2 G 2
 ;
YZ K %R1,%R2,%R3,%R4,%R5,%R6,%R7 S UCI="MGR" D INT^cQMSMSW:$ZV["MSM",^cA339 S UCI=UCI2 D INT^cQMSMSW:$ZV["MSM" Q
 ;
ER S $ZT="" W:%R4 # X F71 W !!,"ERROR : ",$ZE,$C(7),! G YZ
 ;
ZZ ; 29.08.00 - 16 u 38 * V7.41