Name | Value |
---|---|
NAME | XTEST |
MUMPS CODE | S SUM=X,X1=D0 S:$D(^UTILITY($J,9999,X1))=0 ^UTILITY($J,9999,X1)=0 S ^UTILITY($J,9999,X1)=^UTILITY($J,9999,X1)+SUM S X=^UTILITY($J,9999,X1) |
EXPLANATION | CALCULATES SUM WHEN USED IN SORT FUNCTION; CUMULATIVE TOTAL IN PRINT ROUTINE |
DATE-VALUED | NO |