| 1 | A1B2NTEG ;AISC/MJK ODS Integrity Routine ; JAN 13,1991
|
|---|
| 2 | ;;Version 1.55 (local for MAS v5 sites);;
|
|---|
| 3 | W !!,"Integrity Check Started at: " D NOW^%DTC S Y=% X ^DD("DD") W Y,!!,"Integrity Routine",!,"-----------------"
|
|---|
| 4 | D CC F I=1:1 S X=$T(ROU+I),T=$P(X," ",1),U=$P(X,";;",2) Q:X="" D TEST
|
|---|
| 5 | S U="^" W !!,"Integrity Check Finished at: " D NOW^%DTC S Y=% X ^DD("DD") W Y,! K %,%H,%I,X,Y
|
|---|
| 6 | Q
|
|---|
| 7 | TEST W !,T X "ZL @T F Y=1:1:99 S L=$T(+Y),LN=$L(L) X CC S:'LN Y=99" W:U-T *7," Routine is off by ",U-T," BIT",$E("S",U'?.P1"1") W:'(U-T) ?10,"...ok"
|
|---|
| 8 | Q
|
|---|
| 9 | CC S CC="F C=1:1:LN S T=$A(L,C)+T" Q
|
|---|
| 10 | EN R !,"Routine: ",R:DTIME Q:R'?1"A1B2".U.N.U I ($T(@R)']"") W !,"NO ROUTINE " Q
|
|---|
| 11 | S X=$T(@R),T=$P(X," ",1),U=$P(X,";;",2) D CC G TEST
|
|---|
| 12 | ROU ;;
|
|---|
| 13 | A1B2ADM ;;78130
|
|---|
| 14 | A1B2BGJ ;;138838
|
|---|
| 15 | A1B2MAIN ;;211790
|
|---|
| 16 | A1B2MSP ;;113014
|
|---|
| 17 | A1B2MUT ;;182043
|
|---|
| 18 | A1B2OLC ;;88060
|
|---|
| 19 | A1B2OSR ;;173825
|
|---|
| 20 | A1B2OSR1 ;;236003
|
|---|
| 21 | A1B2OSR2 ;;172943
|
|---|
| 22 | A1B2OSR3 ;;122069
|
|---|
| 23 | A1B2OSR4 ;;232135
|
|---|
| 24 | A1B2PRE ;;52999
|
|---|
| 25 | A1B2PST ;;205249
|
|---|
| 26 | A1B2Q ;;224007
|
|---|
| 27 | A1B2Q1 ;;76431
|
|---|
| 28 | A1B2STAT ;;109671
|
|---|
| 29 | A1B2SUP ;;165184
|
|---|
| 30 | A1B2T1 ;;216643
|
|---|
| 31 | A1B2T2 ;;210288
|
|---|
| 32 | A1B2T3 ;;149456
|
|---|
| 33 | A1B2UTL ;;96462
|
|---|
| 34 | A1B2XFR ;;93017
|
|---|
