cI240	;NIEUWSTE R0-ROUTINE ;%I240 ; [ 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"",P'=""%AN100"" ZL @P I $L($T(R0Z)) X X(2) ZS @P"
25	S X(2)="ZI N(1):R0Z ZR R0:R0Z W $C(33)"
27	W !! S P="" X "ZL %AN100 S N(1)=$T(R0)",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