cE	;OPROEPEN FULL-SCREEN EDITOR ;%E ; [ 02/07/02  10:10 AM ]
	G 1
	;
1	I $ZV'["MSM" x ^%E G YZ
	S UCI2=$ZU(5),UCI="MGR" D UCI,^cA338,X^cA612 W /CUP(1,1),/ED
11	D ^cQMSMSW,^cRSEL K ^ZUT($I)
13	S P=$O(^UTILITY($J,"")) I $L(P) K ^(P) X:P?1PA.AN "ZL @P X ^cE" G 13
17	S UCI="MGR" D UCI,^cA339 S UCI=UCI2 D UCI
19	W /CUP(1,1),/ED D W^cA612
	;
YZ	B 1 Q
	;
UCI	D INT^cQMSMSW Q
	;
Z	X ^cZ Q
ZZ	; 07.02.02 - 11 u 22 * V7.91