170 lines
3.5 KiB
Mathematica
170 lines
3.5 KiB
Mathematica
PSDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
|
|
;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
|
;;7.3;2970224.092204
|
|
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^PSDNTEG0
|
|
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 ;;
|
|
PSDACT ;;9975594
|
|
PSDACT1 ;;11604254
|
|
PSDACT2 ;;6805666
|
|
PSDADJ ;;13992080
|
|
PSDADJB ;;3411172
|
|
PSDADJC ;;12709010
|
|
PSDADJD ;;13684417
|
|
PSDADJI ;;9664608
|
|
PSDADJIN ;;10882845
|
|
PSDADJN ;;12308094
|
|
PSDADJN1 ;;9209503
|
|
PSDADJR ;;9137032
|
|
PSDADJW ;;3140510
|
|
PSDADT ;;1852503
|
|
PSDADT1 ;;2880338
|
|
PSDAMIS ;;12951751
|
|
PSDAMIS0 ;;12093150
|
|
PSDAMIS1 ;;10954000
|
|
PSDAMIS2 ;;8653026
|
|
PSDAMIS3 ;;11517002
|
|
PSDAMIS4 ;;6905875
|
|
PSDAPU ;;453681
|
|
PSDBAL ;;11324223
|
|
PSDBALI ;;13145477
|
|
PSDBALI1 ;;4034805
|
|
PSDBAN ;;11322182
|
|
PSDBAN1 ;;6447121
|
|
PSDCODE ;;1276619
|
|
PSDCOR ;;12698386
|
|
PSDCOR1 ;;13395954
|
|
PSDCOR2 ;;13487461
|
|
PSDCOR3 ;;1989323
|
|
PSDCORP ;;10704766
|
|
PSDCORP1 ;;8074809
|
|
PSDCORP2 ;;8214810
|
|
PSDCORP3 ;;9384457
|
|
PSDCOSD ;;11666341
|
|
PSDCOSH ;;8058420
|
|
PSDCOSM ;;1588896
|
|
PSDCOSN ;;11610030
|
|
PSDCOST ;;17808268
|
|
PSDCOSV ;;8309730
|
|
PSDCPO ;;15492261
|
|
PSDCRP ;;15861595
|
|
PSDCSI ;;8739313
|
|
PSDCSL ;;9907995
|
|
PSDDFP ;;13632184
|
|
PSDDFP1 ;;4717046
|
|
PSDDWK ;;14582819
|
|
PSDDWK1 ;;8730816
|
|
PSDDWK2 ;;7776016
|
|
PSDDWK3 ;;7689842
|
|
PSDDWK4 ;;5365045
|
|
PSDDWKE ;;10267106
|
|
PSDEA ;;7236323
|
|
PSDEA41 ;;13153026
|
|
PSDEM ;;11848547
|
|
PSDEM1 ;;12993745
|
|
PSDEM2 ;;11157976
|
|
PSDEM3 ;;2984202
|
|
PSDEM4 ;;7256790
|
|
PSDEN ;;9553918
|
|
PSDERCP ;;15389660
|
|
PSDERD ;;7069296
|
|
PSDERP ;;15124151
|
|
PSDEST ;;14170737
|
|
PSDESTF ;;11545390
|
|
PSDESTO ;;12940785
|
|
PSDESTP ;;24798965
|
|
PSDEVO ;;13442414
|
|
PSDEVO1 ;;11404589
|
|
PSDEVOR ;;15314902
|
|
PSDEXGS ;;12646994
|
|
PSDEXGS1 ;;6305959
|
|
PSDEXP ;;15048479
|
|
PSDEXP1 ;;5042879
|
|
PSDFIL2 ;;14725710
|
|
PSDFIL3 ;;14685555
|
|
PSDFILM ;;2926376
|
|
PSDFND ;;16502908
|
|
PSDFND1 ;;2124618
|
|
PSDFT ;;14866922
|
|
PSDFT1 ;;15918295
|
|
PSDGEN ;;1437730
|
|
PSDGPR ;;11702075
|
|
PSDGSH ;;3741711
|
|
PSDGSH1 ;;5746281
|
|
PSDGSH11 ;;6013794
|
|
PSDGSH2 ;;13901298
|
|
PSDGSK ;;7890554
|
|
PSDGSL ;;8633650
|
|
PSDGSL1 ;;8018119
|
|
PSDGSPU ;;8969282
|
|
PSDGSRV ;;13538823
|
|
PSDGSRV1 ;;16149091
|
|
PSDGSRV2 ;;14427491
|
|
PSDHELP ;;167485
|
|
PSDHL7 ;;6316421
|
|
PSDHLK ;;1069196
|
|
PSDHLP ;;1933023
|
|
PSDHLX ;;1153846
|
|
PSDHLY ;;924987
|
|
PSDHRPT ;;14954948
|
|
PSDINPRE ;;3161234
|
|
PSDIPOS1 ;;4077569
|
|
PSDIPOST ;;6876049
|
|
PSDLBL ;;14060349
|
|
PSDLBL0 ;;8605513
|
|
PSDLBL1 ;;13258327
|
|
PSDLBL2 ;;10638900
|
|
PSDLBL3 ;;10994226
|
|
PSDLBL4 ;;4065314
|
|
PSDLBL5 ;;7201861
|
|
PSDLBLB ;;7160018
|
|
PSDLBLI ;;9423541
|
|
PSDLBLP ;;12044908
|
|
PSDLBLR ;;9703853
|
|
PSDLBLR0 ;;6059606
|
|
PSDLBLR1 ;;2638419
|
|
PSDLBLR2 ;;4532916
|
|
PSDLSTK ;;8066682
|
|
PSDLSTK1 ;;9733870
|
|
PSDLSTK2 ;;8185271
|
|
PSDMAPU ;;7479575
|
|
PSDMFG ;;3721775
|
|
PSDNACT ;;6740699
|
|
PSDNARC ;;3678699
|
|
PSDNBT ;;11058243
|
|
PSDNCGS ;;10321965
|
|
PSDNDES ;;13786726
|
|
PSDNRGO ;;12162069
|
|
PSDNRGS ;;15623486
|
|
PSDNSCG ;;10659453
|
|
PSDNSCL ;;9525064
|
|
PSDNSTK ;;16898603
|
|
PSDNTF ;;19598600
|
|
PSDNTR ;;14807386
|
|
PSDNTT ;;10244486
|
|
PSDNTT1 ;;8835538
|
|
PSDNU ;;13021502
|
|
PSDNU1 ;;14738135
|
|
PSDNU2 ;;12732100
|
|
PSDNU3 ;;2907042
|
|
PSDNVT ;;1478644
|
|
PSDOPT ;;12920789
|
|
PSDOPT0 ;;9875269
|
|
PSDOPT1 ;;7115187
|
|
PSDOPT2 ;;2480174
|
|
PSDOPTI ;;16473032
|
|
PSDOPTN ;;10853518
|
|
PSDOPTR ;;2226366
|
|
PSDOPTS ;;15071130
|
|
PSDOPTX ;;10178752
|
|
PSDOPTY ;;5930170
|
|
PSDOPTZ ;;7145611
|
|
PSDOR2 ;;7280763
|
|
PSDOR21 ;;9843322
|
|
PSDORD ;;13245815
|