172 lines
3.6 KiB
Mathematica
172 lines
3.6 KiB
Mathematica
FBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JAN 30, 1995@14:25:08
|
|
;;3.5;FEE BASIS;;JAN 30, 1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;;7.2;JAN 30, 1995@14:25:08
|
|
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^FBNTEG0
|
|
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 ;;
|
|
FBAA79 ;;15015750
|
|
FBAA79A ;;14173754
|
|
FBAAAUT ;;11121356
|
|
FBAAAV ;;8237458
|
|
FBAABDL ;;4402016
|
|
FBAABET ;;6666716
|
|
FBAABPG ;;11923505
|
|
FBAABS ;;1059560
|
|
FBAABT ;;10187515
|
|
FBAACCB ;;16700140
|
|
FBAACCB0 ;;6967207
|
|
FBAACCB1 ;;13238124
|
|
FBAACCB2 ;;3914458
|
|
FBAACH ;;3924398
|
|
FBAACIE ;;10479082
|
|
FBAACLU ;;2653488
|
|
FBAACO ;;17520189
|
|
FBAACO0 ;;8787859
|
|
FBAACO1 ;;16364206
|
|
FBAACO2 ;;9234183
|
|
FBAACO3 ;;11803257
|
|
FBAACO4 ;;3521393
|
|
FBAACO5 ;;2421930
|
|
FBAACP ;;11041469
|
|
FBAACP1 ;;5031333
|
|
FBAACR ;;13238141
|
|
FBAADCB ;;3135114
|
|
FBAADD ;;9907173
|
|
FBAADEM ;;3118155
|
|
FBAADEM1 ;;8836879
|
|
FBAADOB ;;2276602
|
|
FBAADV ;;3617394
|
|
FBAAEAR ;;387421
|
|
FBAAELT ;;836722
|
|
FBAAEPI ;;6142437
|
|
FBAAESP ;;852277
|
|
FBAAETA ;;1886573
|
|
FBAALB ;;3523804
|
|
FBAALPI ;;3193402
|
|
FBAALU ;;3101269
|
|
FBAAMP ;;13573955
|
|
FBAAMP1 ;;8078353
|
|
FBAAMPG1 ;;4422941
|
|
FBAAMPRG ;;5065789
|
|
FBAAOB ;;12117504
|
|
FBAAODP ;;5681209
|
|
FBAAODP0 ;;3892662
|
|
FBAAPAA ;;1034994
|
|
FBAAPAY ;;9796019
|
|
FBAAPCC ;;2074626
|
|
FBAAPDM ;;1139836
|
|
FBAAPET ;;11564008
|
|
FBAAPH ;;14983509
|
|
FBAAPHV ;;6264884
|
|
FBAAPI ;;1761458
|
|
FBAAPIE ;;14735959
|
|
FBAAPIE1 ;;11677635
|
|
FBAAPII ;;1042268
|
|
FBAAPIN ;;14186344
|
|
FBAAPIN1 ;;1319058
|
|
FBAAPIP ;;10037006
|
|
FBAAPIS ;;613307
|
|
FBAAPLU ;;12319806
|
|
FBAAPM ;;4904986
|
|
FBAAPOC ;;3681250
|
|
FBAAPP ;;17772954
|
|
FBAAPP0 ;;6578102
|
|
FBAAPPH ;;11848720
|
|
FBAAPRC ;;10396263
|
|
FBAAPRGS ;;856003
|
|
FBAAPV ;;3616039
|
|
FBAARB ;;3914625
|
|
FBAARD ;;16165776
|
|
FBAARD0 ;;6724396
|
|
FBAARD1 ;;10948778
|
|
FBAARD2 ;;12170226
|
|
FBAARD3 ;;2843765
|
|
FBAARJP ;;15794620
|
|
FBAARMRA ;;3799769
|
|
FBAAROC ;;2542001
|
|
FBAARP ;;246821
|
|
FBAARR ;;17198810
|
|
FBAARR0 ;;8315430
|
|
FBAARR1 ;;15532156
|
|
FBAARR2 ;;9461559
|
|
FBAARV ;;211649
|
|
FBAAS79 ;;1846133
|
|
FBAASAP ;;919209
|
|
FBAASCB ;;11510367
|
|
FBAASCB0 ;;10929598
|
|
FBAASL ;;8416600
|
|
FBAASL1 ;;8501613
|
|
FBAASL1B ;;7938938
|
|
FBAASLP ;;16458950
|
|
FBAASOUT ;;7190423
|
|
FBAASTA ;;3157123
|
|
FBAATIC ;;2171621
|
|
FBAAUTL ;;13857256
|
|
FBAAUTL1 ;;10946318
|
|
FBAAUTL2 ;;10972683
|
|
FBAAUTL3 ;;2438740
|
|
FBAAUTL4 ;;2899934
|
|
FBAAUTL5 ;;775264
|
|
FBAAV0 ;;18979183
|
|
FBAAV01 ;;6553775
|
|
FBAAV1 ;;21263609
|
|
FBAAV2 ;;9083463
|
|
FBAAV3 ;;2027833
|
|
FBAAV4 ;;7803193
|
|
FBAAV5 ;;13627044
|
|
FBAAV6 ;;13633513
|
|
FBAAVD ;;11915256
|
|
FBAAVD1 ;;4740010
|
|
FBAAVD2 ;;13913328
|
|
FBAAVLU ;;10935879
|
|
FBAAVP ;;16705504
|
|
FBAAVP0 ;;2865347
|
|
FBAAVR ;;14472538
|
|
FBAAVR0 ;;10933358
|
|
FBAAVR1 ;;14670872
|
|
FBAAVR2 ;;5937034
|
|
FBAAVS ;;8724685
|
|
FBAUTHP ;;2653322
|
|
FBCH78 ;;19677146
|
|
FBCH780 ;;3773342
|
|
FBCH78A ;;12095635
|
|
FBCHACT ;;9382205
|
|
FBCHACT0 ;;9411687
|
|
FBCHACT1 ;;2186657
|
|
FBCHC78 ;;11229364
|
|
FBCHCD ;;16889244
|
|
FBCHCO ;;712427
|
|
FBCHCR ;;17403059
|
|
FBCHCR1 ;;6788901
|
|
FBCHDEL ;;2002180
|
|
FBCHDI ;;6253097
|
|
FBCHDI2 ;;3467889
|
|
FBCHDIN ;;2953481
|
|
FBCHDUC ;;4597629
|
|
FBCHEAP ;;10591525
|
|
FBCHEP ;;18996060
|
|
FBCHEP1 ;;6891252
|
|
FBCHEUC ;;7559144
|
|
FBCHEUC1 ;;8332891
|
|
FBCHEUC2 ;;1905120
|
|
FBCHP78 ;;20934808
|
|
FBCHPET ;;9908667
|
|
FBCHPH ;;8218576
|
|
FBCHPH0 ;;5388144
|
|
FBCHPRC ;;6366752
|
|
FBCHPRC1 ;;8882654
|
|
FBCHPSA ;;15194005
|
|
FBCHPSA0 ;;11162264
|
|
FBCHPSA1 ;;6682209
|
|
FBCHREQ ;;15052672
|
|
FBCHREQ1 ;;9317783
|
|
FBCHREQ2 ;;5612542
|
|
FBCHRJP ;;7037853
|
|
FBCHROC ;;2943853
|