| [613] | 1 | YSANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960327.160557
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
|
|---|
| 3 | ;;7.3;2960327.160557
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
|---|
| 6 | ;
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | YSAIN001 ;;12392288
|
|---|
| 13 | YSAIN002 ;;14260937
|
|---|
| 14 | YSAIN003 ;;12099349
|
|---|
| 15 | YSAIN004 ;;5693713
|
|---|
| 16 | YSAIN005 ;;15213753
|
|---|
| 17 | YSAIN006 ;;11533080
|
|---|
| 18 | YSAIN007 ;;11086575
|
|---|
| 19 | YSAIN008 ;;11436904
|
|---|
| 20 | YSAIN009 ;;11139394
|
|---|
| 21 | YSAIN00A ;;11413289
|
|---|
| 22 | YSAIN00B ;;11508841
|
|---|
| 23 | YSAIN00C ;;8770232
|
|---|
| 24 | YSAIN00D ;;14476671
|
|---|
| 25 | YSAIN00E ;;12671694
|
|---|
| 26 | YSAIN00F ;;10580238
|
|---|
| 27 | YSAIN00G ;;11072833
|
|---|
| 28 | YSAIN00H ;;10705014
|
|---|
| 29 | YSAIN00I ;;10630624
|
|---|
| 30 | YSAIN00J ;;10777411
|
|---|
| 31 | YSAIN00K ;;10392550
|
|---|
| 32 | YSAIN00L ;;10473563
|
|---|
| 33 | YSAIN00M ;;10217942
|
|---|
| 34 | YSAIN00N ;;8893872
|
|---|
| 35 | YSAIN00O ;;10074802
|
|---|
| 36 | YSAIN00P ;;9534185
|
|---|
| 37 | YSAIN00Q ;;8973922
|
|---|
| 38 | YSAIN00R ;;8353380
|
|---|
| 39 | YSAIN00S ;;9082557
|
|---|
| 40 | YSAIN00T ;;8740197
|
|---|
| 41 | YSAIN00U ;;9639516
|
|---|
| 42 | YSAIN00V ;;9588218
|
|---|
| 43 | YSAIN00W ;;9698603
|
|---|
| 44 | YSAIN00X ;;10357762
|
|---|
| 45 | YSAIN00Y ;;11894669
|
|---|
| 46 | YSAIN00Z ;;14926969
|
|---|
| 47 | YSAIN010 ;;13195215
|
|---|
| 48 | YSAIN011 ;;11330034
|
|---|
| 49 | YSAIN012 ;;9441202
|
|---|
| 50 | YSAIN013 ;;7462694
|
|---|
| 51 | YSAIN014 ;;2525664
|
|---|
| 52 | YSAIN015 ;;8361839
|
|---|
| 53 | YSAIN016 ;;2133710
|
|---|
| 54 | YSAINIS ;;2172679
|
|---|
| 55 | YSAINIT ;;10263704
|
|---|
| 56 | YSAINIT1 ;;4837746
|
|---|
| 57 | YSAINIT2 ;;5232645
|
|---|
| 58 | YSAINIT3 ;;16808170
|
|---|
| 59 | YSAINIT4 ;;3357817
|
|---|
| 60 | YSAINIT5 ;;560828
|
|---|
| 61 | YSAPOST ;;1560168
|
|---|
| 62 | YTCLERK1 ;;6001127
|
|---|
| 63 | YTMCMI2 ;;5830325
|
|---|
| 64 | YTMMPI2B ;;14737364
|
|---|
| 65 | YTMMPI2D ;;5928810
|
|---|
| 66 | YTNEOPI ;;7973707
|
|---|
| 67 | YTNEOPI1 ;;11956684
|
|---|
| 68 | YTNEOPI2 ;;9028720
|
|---|
| 69 | YTPAI ;;7779058
|
|---|
| 70 | YTPAI1 ;;7571845
|
|---|
| 71 | YTSCL9R ;;7339003
|
|---|
| 72 | YTSCL9R1 ;;6147436
|
|---|
| 73 | YTSF36 ;;5370215
|
|---|
