VistA-WorldVistAEHR/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQ.../XTNTEG.m

169 lines
3.5 KiB
Mathematica

XTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
;;7.3;TOOLKIT;;Apr 25, 1995
;;7.3;2950425.092013
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^XTNTEG0
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 ;;
XDRCNT ;;7651887
XDRDADD ;;8133407
XDRDADJ ;;4509269
XDRDCOMP ;;4431965
XDRDFPD ;;7816795
XDRDLIST ;;7786460
XDRDMAIN ;;5700890
XDRDOC ;;19083
XDRDOC1 ;;13351
XDRDOC2 ;;19767
XDRDPDTI ;;2075925
XDRDPRGE ;;3959904
XDRDQUE ;;9275556
XDRDSCOR ;;1855732
XDRDSTAT ;;2676366
XDRDUP ;;3547600
XDREMSG ;;4302480
XDRERR ;;127648
XDRHLP ;;2681700
XDRMADD ;;6382715
XDRMAIN ;;7563507
XDRMAINI ;;14611797
XDRMPACK ;;2927651
XDRMRG ;;14311248
XDRMRG1 ;;1874512
XDRMSG ;;1827956
XDRMVFY ;;1318075
XDRPREI ;;293004
XDRU1 ;;1782236
XINDEX ;;7227772
XINDX1 ;;6096231
XINDX10 ;;12585180
XINDX11 ;;7471101
XINDX2 ;;5054188
XINDX3 ;;3897455
XINDX4 ;;4711071
XINDX5 ;;6259999
XINDX51 ;;9529173
XINDX52 ;;2298647
XINDX53 ;;4122188
XINDX6 ;;10179476
XINDX7 ;;7575886
XINDX8 ;;6101428
XINDX9 ;;4045898
XTBASE ;;2331979
XTCMFILN ;;4125344
XTEDTVXD ;;1542362
XTFC0 ;;11055774
XTFC1 ;;14547133
XTFCE ;;5859522
XTFCE1 ;;6311273
XTFCR ;;5587602
XTFCR1 ;;3692308
XTINEND ;;5215462
XTINI001 ;;5950864
XTINI002 ;;4393549
XTINI003 ;;6019987
XTINI004 ;;4028880
XTINI005 ;;3990558
XTINI006 ;;9416677
XTINI007 ;;9086371
XTINI008 ;;8419298
XTINI009 ;;8019911
XTINI00A ;;9113926
XTINI00B ;;11110278
XTINI00C ;;11151493
XTINI00D ;;9306443
XTINI00E ;;8494510
XTINI00F ;;8489467
XTINI00G ;;7747693
XTINI00H ;;7094018
XTINI00I ;;7643278
XTINI00J ;;8405097
XTINI00K ;;7198108
XTINI00L ;;6651500
XTINI00M ;;8180768
XTINI00N ;;7132260
XTINI00O ;;2910462
XTINI00P ;;7694041
XTINI00Q ;;8160242
XTINI00R ;;9440499
XTINI00S ;;9016307
XTINI00T ;;9491800
XTINI00U ;;10283373
XTINI00V ;;8766708
XTINI00W ;;6509886
XTINI00X ;;8595714
XTINI00Y ;;7948819
XTINI00Z ;;1773424
XTINI010 ;;7071607
XTINI011 ;;5531060
XTINI012 ;;7968888
XTINI013 ;;11142565
XTINI014 ;;2687098
XTINI015 ;;8767076
XTINI016 ;;3859202
XTINI017 ;;7490625
XTINI018 ;;2613367
XTINI019 ;;4541347
XTINI01A ;;7350290
XTINI01B ;;3719011
XTINI01C ;;6289769
XTINI01D ;;1212716
XTINI01E ;;5998915
XTINI01F ;;5482770
XTINI01G ;;3469421
XTINI01H ;;1876516
XTINI01I ;;5948679
XTINI01J ;;5624949
XTINI01K ;;7118498
XTINI01L ;;5020375
XTINI01M ;;6515584
XTINI01N ;;7612374
XTINI01O ;;7804125
XTINI01P ;;7864176
XTINI01Q ;;7980433
XTINI01R ;;7872517
XTINI01S ;;7885668
XTINI01T ;;8156338
XTINI01U ;;5743708
XTINI01V ;;8379152
XTINI01W ;;7143097
XTINI01X ;;6494785
XTINI01Y ;;6468654
XTINI01Z ;;6344717
XTINI020 ;;6053332
XTINI021 ;;6154942
XTINI022 ;;6263758
XTINI023 ;;6988435
XTINI024 ;;7095170
XTINI025 ;;5225531
XTINI026 ;;6836611
XTINI027 ;;7165347
XTINI028 ;;7867999
XTINI029 ;;5902113
XTINI02A ;;7114778
XTINI02B ;;6562588
XTINI02C ;;5066519
XTINI02D ;;4746121
XTINI02E ;;3747162
XTINI02F ;;1763576
XTINIS ;;2134872
XTINIT ;;11072830
XTINIT1 ;;5762600
XTINIT2 ;;5232093
XTINIT3 ;;16090016
XTINIT4 ;;3357263
XTINIT5 ;;1525744
XTINITY ;;15382450
XTINOK ;;2394003
XTKERM1 ;;5596187
XTKERM2 ;;7359658
XTKERM3 ;;2782884
XTKERM4 ;;5378382
XTKERMIT ;;2016322
XTLATSET ;;6413686
XTLKDICL ;;2562328