VistA-IHS-VA_UTILITIES-XB/XBUPCASE.m

10 lines
161 B
Mathematica
Raw Normal View History

XBUPCASE ; IHS/ADC/GTH - UPCASE VALUE IN X ; [ 02/07/97 3:02 PM ]
;;4.0;XB;;Jul 20, 2009;Build 2
;
; Upcase value in X
;
START ;
S X=$$UP^XLFSTR(X)
Q
;