| 1 | PSGWNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;DEC 29, 1993@14:32:42
|
|---|
| 2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
|---|
| 3 | ;;7.1;DEC 29, 1993@14:32:42
|
|---|
| 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 | PSGWADE ;;5846325
|
|---|
| 13 | PSGWADE1 ;;14948420
|
|---|
| 14 | PSGWADP ;;10440536
|
|---|
| 15 | PSGWADP1 ;;7139779
|
|---|
| 16 | PSGWAIO ;;10895622
|
|---|
| 17 | PSGWAOU ;;7642629
|
|---|
| 18 | PSGWAOUI ;;8589667
|
|---|
| 19 | PSGWAP ;;5873548
|
|---|
| 20 | PSGWAR ;;13010701
|
|---|
| 21 | PSGWAR1 ;;5874442
|
|---|
| 22 | PSGWARP ;;7999478
|
|---|
| 23 | PSGWATR ;;9067134
|
|---|
| 24 | PSGWATR1 ;;8722201
|
|---|
| 25 | PSGWBGIN ;;15240669
|
|---|
| 26 | PSGWBO ;;13307403
|
|---|
| 27 | PSGWBO1 ;;4182102
|
|---|
| 28 | PSGWBOA ;;14982807
|
|---|
| 29 | PSGWBOE ;;7211426
|
|---|
| 30 | PSGWBOI ;;8488836
|
|---|
| 31 | PSGWBOIP ;;5337394
|
|---|
| 32 | PSGWBOS ;;14262354
|
|---|
| 33 | PSGWCAD ;;13822666
|
|---|
| 34 | PSGWCAD1 ;;10592470
|
|---|
| 35 | PSGWCAD2 ;;10973869
|
|---|
| 36 | PSGWCAD3 ;;10927751
|
|---|
| 37 | PSGWCCE ;;851128
|
|---|
| 38 | PSGWCCP ;;6746655
|
|---|
| 39 | PSGWCHG ;;17641519
|
|---|
| 40 | PSGWCL ;;8811361
|
|---|
| 41 | PSGWCLP ;;9392322
|
|---|
| 42 | PSGWCPA ;;11713939
|
|---|
| 43 | PSGWCPA1 ;;14134524
|
|---|
| 44 | PSGWDEL ;;8358632
|
|---|
| 45 | PSGWDR ;;11959846
|
|---|
| 46 | PSGWDUP ;;9744636
|
|---|
| 47 | PSGWDUP1 ;;12298655
|
|---|
| 48 | PSGWEDI ;;13589597
|
|---|
| 49 | PSGWEDI1 ;;2529136
|
|---|
| 50 | PSGWEDIS ;;4420181
|
|---|
| 51 | PSGWEE ;;895250
|
|---|
| 52 | PSGWEXP ;;1618724
|
|---|
| 53 | PSGWEXR ;;12646958
|
|---|
| 54 | PSGWEXR1 ;;4384605
|
|---|
| 55 | PSGWEXR2 ;;7099192
|
|---|
| 56 | PSGWFIL ;;641249
|
|---|
| 57 | PSGWFLBO ;;2970440
|
|---|
| 58 | PSGWHC ;;12430303
|
|---|
| 59 | PSGWHC0 ;;6955744
|
|---|
| 60 | PSGWHC1 ;;5916074
|
|---|
| 61 | PSGWHV ;;8690535
|
|---|
| 62 | PSGWHV0 ;;6712805
|
|---|
| 63 | PSGWHV1 ;;5588983
|
|---|
| 64 | PSGWKINV ;;286315
|
|---|
| 65 | PSGWL ;;13973426
|
|---|
| 66 | PSGWLSI ;;6513133
|
|---|
| 67 | PSGWLSI1 ;;11512487
|
|---|
| 68 | PSGWLSI2 ;;7691709
|
|---|
| 69 | PSGWNU ;;9603147
|
|---|
| 70 | PSGWNU1 ;;6882055
|
|---|
| 71 | PSGWOD2 ;;2664332
|
|---|
| 72 | PSGWODP ;;9462668
|
|---|
| 73 | PSGWODPR ;;7461754
|
|---|
| 74 | PSGWODRN ;;17619352
|
|---|
| 75 | PSGWOLD ;;12732432
|
|---|
| 76 | PSGWOLD1 ;;2110087
|
|---|
| 77 | PSGWOND ;;11310229
|
|---|
| 78 | PSGWONDM ;;19072476
|
|---|
| 79 | PSGWPAW ;;6593463
|
|---|
| 80 | PSGWPAW1 ;;15460526
|
|---|
| 81 | PSGWPERC ;;1919931
|
|---|
| 82 | PSGWPERE ;;1523274
|
|---|
| 83 | PSGWPI ;;6679648
|
|---|
| 84 | PSGWPI1 ;;13320049
|
|---|
| 85 | PSGWPI2 ;;9680378
|
|---|
| 86 | PSGWPIG ;;10827983
|
|---|
| 87 | PSGWPIS ;;12279683
|
|---|
| 88 | PSGWPL ;;13836679
|
|---|
| 89 | PSGWPL0 ;;14308325
|
|---|
| 90 | PSGWPL1 ;;5068891
|
|---|
| 91 | PSGWPOST ;;19592480
|
|---|
| 92 | PSGWPRE1 ;;6549690
|
|---|
| 93 | PSGWPSI ;;7769362
|
|---|
| 94 | PSGWPSI1 ;;6999982
|
|---|
| 95 | PSGWPST1 ;;2283832
|
|---|
| 96 | PSGWRA ;;16600066
|
|---|
| 97 | PSGWRAC ;;11116098
|
|---|
| 98 | PSGWRI ;;3716796
|
|---|
| 99 | PSGWSC ;;9216557
|
|---|
| 100 | PSGWSC1 ;;6105570
|
|---|
| 101 | PSGWSET ;;5617928
|
|---|
| 102 | PSGWSIG ;;7288214
|
|---|
| 103 | PSGWSTD ;;5434665
|
|---|
| 104 | PSGWSTKI ;;6517961
|
|---|
| 105 | PSGWTOT ;;8644984
|
|---|
| 106 | PSGWTOT1 ;;11144490
|
|---|
| 107 | PSGWTOT2 ;;13583982
|
|---|
| 108 | PSGWTR ;;15688724
|
|---|
| 109 | PSGWTR1 ;;7061927
|
|---|
| 110 | PSGWUAS ;;10975746
|
|---|
| 111 | PSGWUTL ;;14759833
|
|---|
| 112 | PSGWUTL1 ;;7498103
|
|---|
| 113 | PSGWVW ;;11025406
|
|---|
| 114 | PSGWWRD ;;17109762
|
|---|
| 115 | PSGWXREF ;;10462873
|
|---|
