| 1 | PRXGNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960212.162124
|
|---|
| 2 | ;;5.0;IFCAP;**41**;4/21/95
|
|---|
| 3 | ;;7.3;2960212.162124
|
|---|
| 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 | PRC0F ;;1247664
|
|---|
| 13 | PRCFARR ;;11626100
|
|---|
| 14 | PRCHDAM1 ;;6408863
|
|---|
| 15 | PRCHDAM3 ;;8068677
|
|---|
| 16 | PRCHDP1 ;;14237702
|
|---|
| 17 | PRCHDP5 ;;6253199
|
|---|
| 18 | PRCHDP7 ;;8216762
|
|---|
| 19 | PRCHDSP ;;8856429
|
|---|
| 20 | PRCHDSP2 ;;8941110
|
|---|
| 21 | PRCHDSP4 ;;6574502
|
|---|
| 22 | PRCHDSP6 ;;7919614
|
|---|
| 23 | PRCHFPNT ;;7114681
|
|---|
| 24 | PRCHP18 ;;12388574
|
|---|
| 25 | PRCHPAM ;;17483245
|
|---|
| 26 | PRCHPAM2 ;;6728575
|
|---|
| 27 | PRCHPAM4 ;;8070892
|
|---|
| 28 | PRCHPAM8 ;;18184792
|
|---|
| 29 | PRCHRPT7 ;;6634242
|
|---|
| 30 | PRCOE1 ;;11646112
|
|---|
| 31 | PRCOEC1 ;;20277043
|
|---|
| 32 | PRCOEDC ;;1966903
|
|---|
| 33 | PRCOEDI ;;3791471
|
|---|
| 34 | PRCOPHA1 ;;2965485
|
|---|
| 35 | PRXGI001 ;;10161764
|
|---|
| 36 | PRXGI002 ;;9624616
|
|---|
| 37 | PRXGI003 ;;4361531
|
|---|
| 38 | PRXGINI1 ;;4855580
|
|---|
| 39 | PRXGINI2 ;;5232623
|
|---|
| 40 | PRXGINI3 ;;16808126
|
|---|
| 41 | PRXGINI4 ;;3357795
|
|---|
| 42 | PRXGINI5 ;;556150
|
|---|
| 43 | PRXGINIS ;;2216347
|
|---|
| 44 | PRXGINIT ;;10222160
|
|---|
