| [613] | 1 | VAQNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | ;;7.1;NOV 16, 1993@16:51:52
|
|---|
| 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 | VAQIN057 ;;8670003
|
|---|
| 13 | VAQIN058 ;;12087698
|
|---|
| 14 | VAQIN059 ;;12286037
|
|---|
| 15 | VAQIN060 ;;6852836
|
|---|
| 16 | VAQIN061 ;;5297635
|
|---|
| 17 | VAQIN062 ;;4779642
|
|---|
| 18 | VAQIN063 ;;6226761
|
|---|
| 19 | VAQIN064 ;;6365462
|
|---|
| 20 | VAQIN065 ;;5964235
|
|---|
| 21 | VAQIN066 ;;5634536
|
|---|
| 22 | VAQIN067 ;;6484532
|
|---|
| 23 | VAQIN068 ;;6022388
|
|---|
| 24 | VAQIN069 ;;3994473
|
|---|
| 25 | VAQIN070 ;;2626845
|
|---|
| 26 | VAQINIT ;;10527661
|
|---|
| 27 | VAQINIT1 ;;5724227
|
|---|
| 28 | VAQINIT2 ;;5232654
|
|---|
| 29 | VAQINIT3 ;;16094381
|
|---|
| 30 | VAQINIT4 ;;3357826
|
|---|
| 31 | VAQINIT5 ;;2381973
|
|---|
| 32 | VAQINITY ;;15302173
|
|---|
| 33 | VAQLED01 ;;5227014
|
|---|
| 34 | VAQLED02 ;;3706614
|
|---|
| 35 | VAQLED03 ;;2552336
|
|---|
| 36 | VAQLED04 ;;1371437
|
|---|
| 37 | VAQLED05 ;;5243841
|
|---|
| 38 | VAQLED07 ;;5461822
|
|---|
| 39 | VAQLED09 ;;2819147
|
|---|
| 40 | VAQLED10 ;;2269021
|
|---|
| 41 | VAQON001 ;;5039803
|
|---|
| 42 | VAQON002 ;;5429303
|
|---|
| 43 | VAQON003 ;;5050536
|
|---|
| 44 | VAQON004 ;;5410521
|
|---|
| 45 | VAQON005 ;;2067030
|
|---|
| 46 | VAQONIT ;;985790
|
|---|
| 47 | VAQONIT1 ;;1702666
|
|---|
| 48 | VAQONIT2 ;;82874
|
|---|
| 49 | VAQONIT3 ;;10576636
|
|---|
| 50 | VAQPAR1 ;;4057523
|
|---|
| 51 | VAQPAR10 ;;2132222
|
|---|
| 52 | VAQPAR11 ;;6358641
|
|---|
| 53 | VAQPAR6 ;;1190252
|
|---|
| 54 | VAQPAR60 ;;2321560
|
|---|
| 55 | VAQPAR61 ;;1663308
|
|---|
| 56 | VAQPSE01 ;;6697231
|
|---|
| 57 | VAQPSE02 ;;5744737
|
|---|
| 58 | VAQPSE03 ;;3755878
|
|---|
| 59 | VAQPSE04 ;;10337589
|
|---|
| 60 | VAQPSL ;;6880843
|
|---|
| 61 | VAQPSL1 ;;6668278
|
|---|
| 62 | VAQPSL2 ;;7070001
|
|---|
| 63 | VAQPSL3 ;;5092352
|
|---|
| 64 | VAQPST01 ;;4846072
|
|---|
| 65 | VAQPST02 ;;3653169
|
|---|
| 66 | VAQPST03 ;;5893015
|
|---|
| 67 | VAQPST04 ;;2363361
|
|---|
| 68 | VAQPST05 ;;1783930
|
|---|
| 69 | VAQPST10 ;;4238957
|
|---|
| 70 | VAQPST20 ;;9859635
|
|---|
| 71 | VAQPST21 ;;3695767
|
|---|
| 72 | VAQPST22 ;;3677988
|
|---|
| 73 | VAQPST23 ;;7275908
|
|---|
| 74 | VAQPST24 ;;2831063
|
|---|
| 75 | VAQPST25 ;;1644171
|
|---|
| 76 | VAQPST30 ;;3803265
|
|---|
| 77 | VAQPST31 ;;665330
|
|---|
| 78 | VAQPST40 ;;2063031
|
|---|
| 79 | VAQPUR ;;2604304
|
|---|
| 80 | VAQPUR10 ;;4828736
|
|---|
| 81 | VAQPUR11 ;;1795000
|
|---|
| 82 | VAQREQ01 ;;5103405
|
|---|
| 83 | VAQREQ02 ;;4279045
|
|---|
| 84 | VAQREQ03 ;;3699641
|
|---|
| 85 | VAQREQ04 ;;4933003
|
|---|
| 86 | VAQREQ05 ;;4065406
|
|---|
| 87 | VAQREQ06 ;;4957964
|
|---|
| 88 | VAQREQ07 ;;4654674
|
|---|
| 89 | VAQREQ08 ;;196494
|
|---|
| 90 | VAQREQ09 ;;6206842
|
|---|
| 91 | VAQREQ10 ;;6036863
|
|---|
| 92 | VAQREQ11 ;;1458438
|
|---|
| 93 | VAQUIN01 ;;5272447
|
|---|
| 94 | VAQUPD1 ;;3950454
|
|---|
| 95 | VAQUPD2 ;;5217698
|
|---|
| 96 | VAQUPD25 ;;2213566
|
|---|
| 97 | VAQUTL1 ;;2067120
|
|---|
| 98 | VAQUTL2 ;;587104
|
|---|
| 99 | VAQUTL3 ;;985218
|
|---|
| 100 | VAQUTL4 ;;2714753
|
|---|
| 101 | VAQUTL92 ;;1371964
|
|---|
| 102 | VAQUTL93 ;;783669
|
|---|
| 103 | VAQUTL94 ;;1525592
|
|---|
| 104 | VAQUTL95 ;;1148867
|
|---|
| 105 | VAQUTL96 ;;370770
|
|---|
| 106 | VAQUTL97 ;;1449446
|
|---|
| 107 | VAQUTL98 ;;723049
|
|---|
| 108 | VAQUTL99 ;;2220245
|
|---|
| 109 | VAQXRF1 ;;855609
|
|---|
| 110 | VAQXRF2 ;;2617277
|
|---|
| 111 | VAQXRF3 ;;861029
|
|---|
