XBUPCASE.m

XBUPCASE ; IHS/ADC/GTH - UPCASE VALUE IN X ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 ; Upcase value in X

 ;

START ;

 S X=$$UP^XLFSTR(X)

 Q

 ;

XBUPCASE  ; IHS/ADC/GTH - UPCASE VALUE IN X ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3       ; Upcase value in X

 +4       ;

START     ;

 +1        SET X=$$UP^XLFSTR(X)

 +2        QUIT 

 +3       ;