Return to %DB.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%DB.m, revision 1.1.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: