cI24	;NIEUWE R0-ROUTINE ;%I24 [ 02/07/02  10:10 AM ]
	;
1	W !!,$P($T(+1),";",2),!
11	S UCI2=$ZU($ZV'["MSM"*5),UCI="MGR" D INT^cQMSMSW:$ZV["MSM",^cA338
	;
2	D ^cQMSMSW,^cRSEL I '$L($O(^UTILITY($J))) G Y
21	S X="F  S P=$O(^UTILITY($J,P)) Q:'$L(P)  W:$X $C(32) W:$X>70 ! W P X X(1)"
23	S X(1)="I P'=""%A100"",P'=""%A119"" ZL @P I $L($T(R0Z)) X X(2) ZS @P"
25	S X(2)="ZI N(1):R0Z ZR R0:R0Z ZI N(2):R0 ZI N(3):R0A W $C(33)"
27	W !! S P="" X "ZL %A119 S N(1)=$T(R0),N(2)=$T(R0A),N(3)=$T(R0Z)",X W !
	;
Y	S UCI="MGR" D INT^cQMSMSW:$ZV["MSM",^cA339 S UCI=UCI2 D INT^cQMSMSW:$ZV["MSM"
YZ	Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91