AKMOSUCI.m

AKMOSUCI ; SWITCH UCIs FROM MENU [ 03/04/86  8:12 AM ]

 ;;2.0;IHS KERNEL UTILITIES;;JUN 28, 1993

 R !,"UCI: ",AUCINM

 Q:AUCINM=""

 I '$D(^DIC(3,DUZ,.2,"B",AUCINM)) W !,"Not allowed!" Q

 S AUCISEQ="",AUCISEQ=$O(^DIC(3,DUZ,.2,"B",AUCINM,AUCISEQ))

 Q:AUCISEQ=""

 S AUCIPGM=$P(^DIC(3,DUZ,.2,AUCISEQ,0),U,2)

 Q:AUCIPGM=""

 S X=AUCINM D ^AUXUCI

 G @(U_AUCIPGM)

 Q

AKMOSUCI  ; SWITCH UCIs FROM MENU [ 03/04/86  8:12 AM ]

 +1       ;;2.0;IHS KERNEL UTILITIES;;JUN 28, 1993

 +2        READ !,"UCI: ",AUCINM

 +3        IF AUCINM=""

               QUIT 

 +4        IF '$DATA(^DIC(3,DUZ,.2,"B",AUCINM))

               WRITE !,"Not allowed!"

               QUIT 

 +5        SET AUCISEQ=""

           SET AUCISEQ=$ORDER(^DIC(3,DUZ,.2,"B",AUCINM,AUCISEQ))

 +6        IF AUCISEQ=""

               QUIT 

 +7        SET AUCIPGM=$PIECE(^DIC(3,DUZ,.2,AUCISEQ,0),U,2)

 +8        IF AUCIPGM=""

               QUIT 

 +9        SET X=AUCINM

           DO ^AUXUCI

 +10       GOTO @(U_AUCIPGM)

 +11       QUIT