112 lines
2.5 KiB
Mathematica
112 lines
2.5 KiB
Mathematica
VAQNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
|
|
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|
;;7.1;NOV 16, 1993@16:51:52
|
|
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|
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")
|
|
;
|
|
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|
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),!
|
|
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|
W ! G CONT
|
|
ROU ;;
|
|
VAQIN057 ;;8670003
|
|
VAQIN058 ;;12087698
|
|
VAQIN059 ;;12286037
|
|
VAQIN060 ;;6852836
|
|
VAQIN061 ;;5297635
|
|
VAQIN062 ;;4779642
|
|
VAQIN063 ;;6226761
|
|
VAQIN064 ;;6365462
|
|
VAQIN065 ;;5964235
|
|
VAQIN066 ;;5634536
|
|
VAQIN067 ;;6484532
|
|
VAQIN068 ;;6022388
|
|
VAQIN069 ;;3994473
|
|
VAQIN070 ;;2626845
|
|
VAQINIT ;;10527661
|
|
VAQINIT1 ;;5724227
|
|
VAQINIT2 ;;5232654
|
|
VAQINIT3 ;;16094381
|
|
VAQINIT4 ;;3357826
|
|
VAQINIT5 ;;2381973
|
|
VAQINITY ;;15302173
|
|
VAQLED01 ;;5227014
|
|
VAQLED02 ;;3706614
|
|
VAQLED03 ;;2552336
|
|
VAQLED04 ;;1371437
|
|
VAQLED05 ;;5243841
|
|
VAQLED07 ;;5461822
|
|
VAQLED09 ;;2819147
|
|
VAQLED10 ;;2269021
|
|
VAQON001 ;;5039803
|
|
VAQON002 ;;5429303
|
|
VAQON003 ;;5050536
|
|
VAQON004 ;;5410521
|
|
VAQON005 ;;2067030
|
|
VAQONIT ;;985790
|
|
VAQONIT1 ;;1702666
|
|
VAQONIT2 ;;82874
|
|
VAQONIT3 ;;10576636
|
|
VAQPAR1 ;;4057523
|
|
VAQPAR10 ;;2132222
|
|
VAQPAR11 ;;6358641
|
|
VAQPAR6 ;;1190252
|
|
VAQPAR60 ;;2321560
|
|
VAQPAR61 ;;1663308
|
|
VAQPSE01 ;;6697231
|
|
VAQPSE02 ;;5744737
|
|
VAQPSE03 ;;3755878
|
|
VAQPSE04 ;;10337589
|
|
VAQPSL ;;6880843
|
|
VAQPSL1 ;;6668278
|
|
VAQPSL2 ;;7070001
|
|
VAQPSL3 ;;5092352
|
|
VAQPST01 ;;4846072
|
|
VAQPST02 ;;3653169
|
|
VAQPST03 ;;5893015
|
|
VAQPST04 ;;2363361
|
|
VAQPST05 ;;1783930
|
|
VAQPST10 ;;4238957
|
|
VAQPST20 ;;9859635
|
|
VAQPST21 ;;3695767
|
|
VAQPST22 ;;3677988
|
|
VAQPST23 ;;7275908
|
|
VAQPST24 ;;2831063
|
|
VAQPST25 ;;1644171
|
|
VAQPST30 ;;3803265
|
|
VAQPST31 ;;665330
|
|
VAQPST40 ;;2063031
|
|
VAQPUR ;;2604304
|
|
VAQPUR10 ;;4828736
|
|
VAQPUR11 ;;1795000
|
|
VAQREQ01 ;;5103405
|
|
VAQREQ02 ;;4279045
|
|
VAQREQ03 ;;3699641
|
|
VAQREQ04 ;;4933003
|
|
VAQREQ05 ;;4065406
|
|
VAQREQ06 ;;4957964
|
|
VAQREQ07 ;;4654674
|
|
VAQREQ08 ;;196494
|
|
VAQREQ09 ;;6206842
|
|
VAQREQ10 ;;6036863
|
|
VAQREQ11 ;;1458438
|
|
VAQUIN01 ;;5272447
|
|
VAQUPD1 ;;3950454
|
|
VAQUPD2 ;;5217698
|
|
VAQUPD25 ;;2213566
|
|
VAQUTL1 ;;2067120
|
|
VAQUTL2 ;;587104
|
|
VAQUTL3 ;;985218
|
|
VAQUTL4 ;;2714753
|
|
VAQUTL92 ;;1371964
|
|
VAQUTL93 ;;783669
|
|
VAQUTL94 ;;1525592
|
|
VAQUTL95 ;;1148867
|
|
VAQUTL96 ;;370770
|
|
VAQUTL97 ;;1449446
|
|
VAQUTL98 ;;723049
|
|
VAQUTL99 ;;2220245
|
|
VAQXRF1 ;;855609
|
|
VAQXRF2 ;;2617277
|
|
VAQXRF3 ;;861029
|