166 lines
3.6 KiB
Mathematica
166 lines
3.6 KiB
Mathematica
VAQNTEG ;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")
|
|
G CONT^VAQNTEG0
|
|
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 ;;
|
|
VAQADM2 ;;2534049
|
|
VAQADM21 ;;7566837
|
|
VAQADM22 ;;4062600
|
|
VAQADM23 ;;1720751
|
|
VAQADM5 ;;991826
|
|
VAQADM50 ;;4266988
|
|
VAQADM51 ;;2675417
|
|
VAQADS01 ;;3223516
|
|
VAQAUT ;;57128
|
|
VAQBUL ;;1410805
|
|
VAQBUL01 ;;6191768
|
|
VAQBUL02 ;;4173593
|
|
VAQBUL03 ;;4328969
|
|
VAQBUL04 ;;4109872
|
|
VAQBUL05 ;;2779034
|
|
VAQBUL06 ;;4045789
|
|
VAQBUL07 ;;2114615
|
|
VAQCON ;;1897603
|
|
VAQCON0 ;;4178078
|
|
VAQCON1 ;;3710285
|
|
VAQCON2 ;;3901976
|
|
VAQCON3 ;;2418997
|
|
VAQCON4 ;;5919951
|
|
VAQCON5 ;;2014239
|
|
VAQCON6 ;;4158972
|
|
VAQCON7 ;;3413184
|
|
VAQCON8 ;;3133423
|
|
VAQCON93 ;;3200661
|
|
VAQCON94 ;;4187477
|
|
VAQCON95 ;;4706111
|
|
VAQCON96 ;;3725887
|
|
VAQCON97 ;;2136266
|
|
VAQCON98 ;;3539410
|
|
VAQCON99 ;;7142752
|
|
VAQDBI ;;4230776
|
|
VAQDBIH1 ;;1189457
|
|
VAQDBIH2 ;;201661
|
|
VAQDBIH3 ;;1069293
|
|
VAQDBII1 ;;2814535
|
|
VAQDBIM ;;4078867
|
|
VAQDBIM0 ;;3374789
|
|
VAQDBIM1 ;;6825977
|
|
VAQDBIM2 ;;3183687
|
|
VAQDBIM3 ;;4667668
|
|
VAQDBIM4 ;;3774719
|
|
VAQDBIP ;;2495177
|
|
VAQDBIP1 ;;4400113
|
|
VAQDBIP2 ;;3062191
|
|
VAQDBIP3 ;;2952159
|
|
VAQDBIP4 ;;3364106
|
|
VAQDBIP5 ;;3822343
|
|
VAQDBIP6 ;;3718206
|
|
VAQDBIP7 ;;1790976
|
|
VAQDBIP8 ;;2295398
|
|
VAQDIS01 ;;1896058
|
|
VAQDIS10 ;;1624428
|
|
VAQDIS11 ;;4203630
|
|
VAQDIS12 ;;3706146
|
|
VAQDIS15 ;;4593059
|
|
VAQDIS16 ;;683699
|
|
VAQDIS17 ;;2004342
|
|
VAQDIS20 ;;1296885
|
|
VAQDIS21 ;;6090509
|
|
VAQDIS22 ;;1303042
|
|
VAQDIS23 ;;6243334
|
|
VAQDIS24 ;;1874893
|
|
VAQDIS25 ;;3511138
|
|
VAQDIS26 ;;5333730
|
|
VAQDIS27 ;;3568967
|
|
VAQDIS28 ;;2475175
|
|
VAQDIS29 ;;2673654
|
|
VAQDIS30 ;;5919796
|
|
VAQDIS31 ;;5487602
|
|
VAQDIS32 ;;2412502
|
|
VAQDIS33 ;;2388125
|
|
VAQDIS40 ;;1008917
|
|
VAQDIS41 ;;1753300
|
|
VAQDIS42 ;;4972452
|
|
VAQDIS43 ;;5326399
|
|
VAQEXT01 ;;5600484
|
|
VAQEXT02 ;;2704473
|
|
VAQEXT03 ;;3158917
|
|
VAQEXT04 ;;1885174
|
|
VAQEXT05 ;;758435
|
|
VAQEXT06 ;;2134337
|
|
VAQFIL10 ;;5988372
|
|
VAQFIL11 ;;6300784
|
|
VAQFIL12 ;;2569328
|
|
VAQFIL13 ;;4237289
|
|
VAQFIL14 ;;3197988
|
|
VAQFIL15 ;;4998877
|
|
VAQFIL16 ;;4406732
|
|
VAQFIL17 ;;4128016
|
|
VAQFIL18 ;;5999161
|
|
VAQFILE ;;3150174
|
|
VAQFILE1 ;;4122421
|
|
VAQHSH ;;3465882
|
|
VAQHSH1 ;;177225
|
|
VAQIN001 ;;3353811
|
|
VAQIN002 ;;5958081
|
|
VAQIN003 ;;6764102
|
|
VAQIN004 ;;1660214
|
|
VAQIN005 ;;4535842
|
|
VAQIN006 ;;7231176
|
|
VAQIN007 ;;6153912
|
|
VAQIN008 ;;3096824
|
|
VAQIN009 ;;908995
|
|
VAQIN010 ;;8045910
|
|
VAQIN011 ;;2849277
|
|
VAQIN012 ;;6314695
|
|
VAQIN013 ;;10958673
|
|
VAQIN014 ;;6952614
|
|
VAQIN015 ;;5500825
|
|
VAQIN016 ;;6172399
|
|
VAQIN017 ;;5813919
|
|
VAQIN018 ;;1306083
|
|
VAQIN019 ;;6893354
|
|
VAQIN020 ;;6173758
|
|
VAQIN021 ;;6106598
|
|
VAQIN022 ;;864757
|
|
VAQIN023 ;;7176590
|
|
VAQIN024 ;;6431188
|
|
VAQIN025 ;;3876927
|
|
VAQIN026 ;;6146380
|
|
VAQIN027 ;;6184362
|
|
VAQIN028 ;;3967254
|
|
VAQIN029 ;;5013810
|
|
VAQIN030 ;;1166077
|
|
VAQIN031 ;;7296448
|
|
VAQIN032 ;;3255539
|
|
VAQIN033 ;;1108766
|
|
VAQIN034 ;;5546534
|
|
VAQIN035 ;;9435555
|
|
VAQIN036 ;;4135861
|
|
VAQIN037 ;;6690535
|
|
VAQIN038 ;;8416327
|
|
VAQIN039 ;;9640544
|
|
VAQIN040 ;;2256364
|
|
VAQIN041 ;;7952553
|
|
VAQIN042 ;;5330688
|
|
VAQIN043 ;;7965778
|
|
VAQIN044 ;;1127143
|
|
VAQIN045 ;;3810401
|
|
VAQIN046 ;;3993963
|
|
VAQIN047 ;;3511679
|
|
VAQIN048 ;;8342667
|
|
VAQIN049 ;;7202720
|
|
VAQIN050 ;;1138839
|
|
VAQIN051 ;;2482435
|
|
VAQIN052 ;;8388145
|
|
VAQIN053 ;;2300108
|
|
VAQIN054 ;;2439428
|
|
VAQIN055 ;;7197745
|
|
VAQIN056 ;;8933707
|