Return to %N.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%N.m, revision 1.1

1.1     ! snw         1: %N     ; A.Trocha ; choose Namespace [1999/02/01-22:11:25]
        !             2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%N.m,v $
        !             3:        ; $Revision: 1.2 $ $Date: 2000/02/18 15:13:41 $
        !             4:        N idx,cnt,tab,dflt
        !             5:        ;
        !             6:        D ^%SYSDEV
        !             7:        W @%CLR
        !             8:        ;
        !             9:        D ^%MESS(1,"Choose a namespace to work with:")
        !            10:        ;
        !            11:        ;--- load namespaces into ^%UTILITY global
        !            12:        K ^%UTILITY
        !            13:        S idx="",cnt=0
        !            14:        S dflt=$G(^%SYS("NSPACE"))
        !            15:        F   S idx=$O(^%SYS("NSPACE",idx)) Q:idx=""  D
        !            16:        . S ^%UTILITY($J,cnt)=^%SYS("NSPACE",idx)
        !            17:        . s tab(cnt)=idx
        !            18:        . I idx=dflt S $P(^%UTILITY($J),"'")=cnt
        !            19:        . S cnt=cnt+1
        !            20:        S $P(^%UTILITY($J),"'",2)="Namespaces"
        !            21:        ;
        !            22:        ;--- invoke Menu
        !            23:        S erg=$$^%MEN(8)
        !            24:        W !!
        !            25:        I erg=-1 W !,"Canceled.",! Q
        !            26:        ;
        !            27:        ;--- switch UCI's
        !            28:        S erg=tab(erg)
        !            29:        S erg=$$switch^%SYSNSP(erg)
        !            30:        I erg W !,"Done.",! D prompt^%SYS
        !            31:        E  W !,"Failed.",!
        !            32:        Q