XTEST (127) FUNCTION (.5)
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