Return to %DB.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%DB.m, revision 1.1

1.1     ! snw         1: %DB ; FREEM DBMS
        !             2:     Q
        !             3: G(S,I,F) Q $G(@S@(I,F),"")
        !             4: S(S,I,F,V) S @S@(I,F)=V Q
        !             5: D(S,I) K @S@(I) Q
        !             6: GA(S,I,F,E) Q $G(@S@(I,F,E),"")
        !             7: SA(S,I,F,E,V) S @S@(I,F,E)=V Q
        !             8: DA(S,I,F,E) K @S@(I,F,E) Q
        !             9: MA(S,I,F,C) N E,R S (E,R)="" F  S E=$O(@S@(I,F,E)) Q:E=""  S R="D "_C_"("_I_","_E_","_@S@(I,F,E)_")" X R
        !            10: 
        !            11: