ACRFM11.m

ACRFM11 ;IHS/OIRM/DSD/THL,AEF - MODULUS 11; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;ROUTINE USED FOR MODULUS 11 CHECK

 S X=$E("000000",1,6-$L(X))_X

 S ACRY=""

 F ACRI=1:1:6 S ACRY=ACRY+($E(X,ACRI)*(7-ACRI))

 K:ACRY#11'=0 X

 K ACRI

 Q

ACRFM11   ;IHS/OIRM/DSD/THL,AEF - MODULUS 11; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;ROUTINE USED FOR MODULUS 11 CHECK

 +3        SET X=$EXTRACT("000000",1,6-$LENGTH(X))_X

 +4        SET ACRY=""

 +5        FOR ACRI=1:1:6

               SET ACRY=ACRY+($EXTRACT(X,ACRI)*(7-ACRI))

 +6        IF ACRY#11'=0

               KILL X

 +7        KILL ACRI

 +8        QUIT