| 1 | QAMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 13, 1993@10:24:02
|
|---|
| 2 | ;;1.0;Clinical Monitoring System;;09/13/1993
|
|---|
| 3 | ;;7.0;SEP 13, 1993@10:24:02
|
|---|
| 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 | QAMAHO1 ;;13519726
|
|---|
| 13 | QAMAHO2 ;;10344951
|
|---|
| 14 | QAMAHO3 ;;6035849
|
|---|
| 15 | QAMAHO3A ;;11476228
|
|---|
| 16 | QAMAHO4 ;;7656720
|
|---|
| 17 | QAMAHO5 ;;5688190
|
|---|
| 18 | QAMAHOC ;;6915667
|
|---|
| 19 | QAMAPGRP ;;867681
|
|---|
| 20 | QAMARCH0 ;;7523632
|
|---|
| 21 | QAMARCH1 ;;6562099
|
|---|
| 22 | QAMAUTO0 ;;9756005
|
|---|
| 23 | QAMAUTO1 ;;10013460
|
|---|
| 24 | QAMAUTO2 ;;6370885
|
|---|
| 25 | QAMAUTO3 ;;7561731
|
|---|
| 26 | QAMAUTO4 ;;16251365
|
|---|
| 27 | QAMAUTO5 ;;5096785
|
|---|
| 28 | QAMAUTO6 ;;1733251
|
|---|
| 29 | QAMAUTO7 ;;6409975
|
|---|
| 30 | QAMAUTO8 ;;6266089
|
|---|
| 31 | QAMC0 ;;1697
|
|---|
| 32 | QAMC1 ;;3503224
|
|---|
| 33 | QAMC10 ;;9917495
|
|---|
| 34 | QAMC11 ;;10610333
|
|---|
| 35 | QAMC12 ;;10546368
|
|---|
| 36 | QAMC13 ;;4323573
|
|---|
| 37 | QAMC14 ;;3900265
|
|---|
| 38 | QAMC15 ;;3615839
|
|---|
| 39 | QAMC16 ;;12936687
|
|---|
| 40 | QAMC17 ;;15971002
|
|---|
| 41 | QAMC18 ;;12045749
|
|---|
| 42 | QAMC19 ;;9416245
|
|---|
| 43 | QAMC2 ;;6414343
|
|---|
| 44 | QAMC20 ;;9682209
|
|---|
| 45 | QAMC21 ;;11414085
|
|---|
| 46 | QAMC22 ;;8020479
|
|---|
| 47 | QAMC23 ;;13333075
|
|---|
| 48 | QAMC24 ;;3465336
|
|---|
| 49 | QAMC25 ;;1899426
|
|---|
| 50 | QAMC3 ;;6624119
|
|---|
| 51 | QAMC4 ;;1198638
|
|---|
| 52 | QAMC5 ;;6803011
|
|---|
| 53 | QAMC6 ;;3255007
|
|---|
| 54 | QAMC7 ;;8674914
|
|---|
| 55 | QAMC8 ;;9947471
|
|---|
| 56 | QAMC9 ;;8396448
|
|---|
| 57 | QAMDUP0 ;;5634386
|
|---|
| 58 | QAMEDT0 ;;14457590
|
|---|
| 59 | QAMEDT1 ;;1683863
|
|---|
| 60 | QAMEDT2 ;;14249388
|
|---|
| 61 | QAMEDT3 ;;2250000
|
|---|
| 62 | QAMEDT4 ;;9700021
|
|---|
| 63 | QAMEDT5 ;;18080508
|
|---|
| 64 | QAMEDT5A ;;9809256
|
|---|
| 65 | QAMEDT6 ;;13540381
|
|---|
| 66 | QAMEDT7 ;;14609780
|
|---|
| 67 | QAMGPOP0 ;;4938857
|
|---|
| 68 | QAMGRP1 ;;3953916
|
|---|
| 69 | QAMGRP2 ;;4144531
|
|---|
| 70 | QAMPBMW0 ;;3766912
|
|---|
| 71 | QAMPBMW1 ;;8481112
|
|---|
| 72 | QAMPFAL0 ;;9791557
|
|---|
| 73 | QAMPFAL1 ;;4613077
|
|---|
| 74 | QAMPHIS1 ;;7823461
|
|---|
| 75 | QAMPINQ1 ;;9132290
|
|---|
| 76 | QAMPINQ2 ;;6209223
|
|---|
| 77 | QAMPINQ3 ;;6483708
|
|---|
| 78 | QAMPINQ4 ;;8566250
|
|---|
| 79 | QAMPINQ5 ;;1834055
|
|---|
| 80 | QAMPMON0 ;;8857969
|
|---|
| 81 | QAMPMON1 ;;10931686
|
|---|
| 82 | QAMPRUN0 ;;8091519
|
|---|
| 83 | QAMSANE ;;6322601
|
|---|
| 84 | QAMTIME0 ;;3671119
|
|---|
| 85 | QAMUTL0 ;;7958787
|
|---|
| 86 | QAMUTL1 ;;11876082
|
|---|
| 87 | QAMUTL2 ;;2157829
|
|---|
