127 lines
2.8 KiB
Mathematica
127 lines
2.8 KiB
Mathematica
FBNTEG0 ;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")
|
|
;
|
|
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 ;;
|
|
FBCHRR ;;7282468
|
|
FBCHSCB ;;6573176
|
|
FBCHSL1 ;;8984574
|
|
FBCHSLP ;;8509290
|
|
FBCHSTA ;;3828644
|
|
FBCHSTAT ;;5062352
|
|
FBCHVH ;;10895543
|
|
FBCHVP ;;14312605
|
|
FBCKDIS ;;17064040
|
|
FBCKDIS1 ;;4825715
|
|
FBCNHCEN ;;12089173
|
|
FBDOC ;;208431
|
|
FBMRASV1 ;;11363374
|
|
FBMRASV2 ;;12114185
|
|
FBMRASVR ;;15871936
|
|
FBNHACT ;;7377096
|
|
FBNHAMI1 ;;10257785
|
|
FBNHAMI2 ;;6743548
|
|
FBNHAMIE ;;8906087
|
|
FBNHAMIS ;;18698941
|
|
FBNHDEC ;;3000257
|
|
FBNHDIEP ;;1822085
|
|
FBNHDLAD ;;5489319
|
|
FBNHDLDI ;;7535255
|
|
FBNHDLTR ;;3056815
|
|
FBNHEA ;;9042749
|
|
FBNHEAU1 ;;4563644
|
|
FBNHEAU2 ;;8102988
|
|
FBNHEAUT ;;17899847
|
|
FBNHED ;;8997353
|
|
FBNHEDA1 ;;3108080
|
|
FBNHEDAD ;;1690767
|
|
FBNHEDAT ;;10167462
|
|
FBNHEDDI ;;4313528
|
|
FBNHEDPA ;;6175427
|
|
FBNHEDTR ;;5402733
|
|
FBNHEP ;;20057397
|
|
FBNHEP1 ;;6219597
|
|
FBNHEP2 ;;14099420
|
|
FBNHET ;;6903761
|
|
FBNHEXP ;;5281991
|
|
FBNHPAMS ;;14276588
|
|
FBNHPC ;;9944869
|
|
FBNHPC1 ;;8251325
|
|
FBNHPLT ;;7785082
|
|
FBNHRAT ;;8512413
|
|
FBNHRAT1 ;;4767279
|
|
FBNHRC ;;11532054
|
|
FBNHRCS ;;4973071
|
|
FBNHRCS1 ;;6111456
|
|
FBNHRCS2 ;;4585977
|
|
FBNHRCS3 ;;2192097
|
|
FBNHRCS4 ;;1521491
|
|
FBNHRDEL ;;2136211
|
|
FBNHROS ;;6787692
|
|
FBP35D ;;2550500
|
|
FBPAID ;;7993157
|
|
FBPAID1 ;;2937603
|
|
FBPAID2 ;;11705622
|
|
FBPAY ;;12670963
|
|
FBPAY2 ;;10449356
|
|
FBPAY21 ;;6882423
|
|
FBPAY3 ;;14897836
|
|
FBPAY67 ;;17774089
|
|
FBPAY671 ;;13723194
|
|
FBPCR ;;12194673
|
|
FBPCR2 ;;12312031
|
|
FBPCR3 ;;10581098
|
|
FBPCR67 ;;9893934
|
|
FBPCR671 ;;8261947
|
|
FBPHON ;;14011993
|
|
FBPHON1 ;;10086411
|
|
FBPHON2 ;;9327779
|
|
FBPRE35 ;;5136542
|
|
FBPRICE ;;13736306
|
|
FBPRICE1 ;;4733284
|
|
FBPST35 ;;8167497
|
|
FBPST35A ;;16775666
|
|
FBPST35B ;;7164566
|
|
FBPST35C ;;9143037
|
|
FBUCDD ;;3821845
|
|
FBUCDD1 ;;7275596
|
|
FBUCDIS ;;10618926
|
|
FBUCDUP ;;3798696
|
|
FBUCED ;;10874060
|
|
FBUCED0 ;;18866078
|
|
FBUCED1 ;;4332811
|
|
FBUCEN ;;14613914
|
|
FBUCEN1 ;;6621239
|
|
FBUCEVT ;;439790
|
|
FBUCEX ;;12923887
|
|
FBUCLET ;;14516629
|
|
FBUCLET0 ;;9111656
|
|
FBUCLET1 ;;11867847
|
|
FBUCLINK ;;11678403
|
|
FBUCLNK1 ;;9379737
|
|
FBUCOUT ;;2256740
|
|
FBUCOUT1 ;;8762575
|
|
FBUCPAY ;;15066764
|
|
FBUCPEND ;;7313035
|
|
FBUCSTAT ;;10504241
|
|
FBUCUPD ;;9689085
|
|
FBUCUPD1 ;;6807028
|
|
FBUCUTL ;;3957346
|
|
FBUCUTL1 ;;9828164
|
|
FBUCUTL2 ;;10327684
|
|
FBUCUTL3 ;;9669404
|
|
FBUCUTL4 ;;3662827
|
|
FBUCUTL5 ;;11780524
|
|
FBUCUTL6 ;;7064155
|
|
FBUCUTL7 ;;9716645
|
|
FBUCUTL8 ;;3419884
|
|
FBUINS ;;4813918
|
|
FBVDISP ;;1398023
|