cI34	;NIEUWE R9-ROUTINE ;%I34 ; [ 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:$ZV["MSM",^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'=""%A109"" ZL @P I $L($T(R9Z)) X X(2) ZS @P"
25	S X(2)="ZI N(1):R9Z ZR R9:R9Z ZI N(2):R9 ZI N(3):R9A ZI N(4):R9B W $C(33)"
27	W !! S P="" X "ZL %A109 S N(1)=$T(R9),N(2)=$T(R9A),N(3)=$T(R9B),N(4)=$T(R9Z)",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