AUXUCI.m

AUXUCI ;TRANSFER TO "MGR" AND REMOVE THIS LINE [ 05/30/85  2:50 PM ]

%AUXUCI ;SWITCH UCI'S (X = DESIRED UCI) [ 04/26/85  9:48 AM ]

 ;IHS-OKLA CITY AREA OFFICE-LMD

 X ^%ZOSF("UCICHECK") G ERR:0[Y D SWAP^%ZUCI S $ZT="" K %ST Q

ERR W !,?9,""""_X_""" IS NOT A VALID UCI.",! Q

AUXUCI    ;TRANSFER TO "MGR" AND REMOVE THIS LINE [ 05/30/85  2:50 PM ]

%AUXUCI   ;SWITCH UCI'S (X = DESIRED UCI) [ 04/26/85  9:48 AM ]

 +1       ;IHS-OKLA CITY AREA OFFICE-LMD

 +2        XECUTE ^%ZOSF("UCICHECK")

           IF 0[Y

               GOTO ERR

           DO SWAP^%ZUCI

           SET $ZT=""

           KILL %ST

           QUIT 

ERR        WRITE !,?9,""""_X_""" IS NOT A VALID UCI.",!

           QUIT