VistA-WorldVistAEHR/r/FEE_BASIS-FB/FBNTEG.m

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