INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y(0)=Y S Y=$S(Y=1:"Can't Compute",+Y=0:"Not Computed",1:Y)
LAST EDITED: OCT 31, 1990
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: This is the check sum provided by the ^%ZOSF("RSUM") node and the CHECKSUM value shown on the FORUM patch module. This is a True check sum value. It does not include the second line of the routine in the calculation,
therefore it does not ensure that the patch number has been placed in that line. ie **45**. This line is checked however by the $L and the $A nodes.
NOTES: TRIGGERED by the Routine field of the Routine sub-field of the LR ROUTINE INTEGRITY CHECKER File