| [613] | 1 | FBNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JAN 30, 1995@14:25:08
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;;7.2;JAN 30, 1995@14:25:08
|
|---|
| 5 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 6 | 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")
|
|---|
| 7 | ;
|
|---|
| 8 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 9 | 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),!
|
|---|
| 10 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 11 | W ! G CONT
|
|---|
| 12 | ROU ;;
|
|---|
| 13 | FBCHRR ;;7282468
|
|---|
| 14 | FBCHSCB ;;6573176
|
|---|
| 15 | FBCHSL1 ;;8984574
|
|---|
| 16 | FBCHSLP ;;8509290
|
|---|
| 17 | FBCHSTA ;;3828644
|
|---|
| 18 | FBCHSTAT ;;5062352
|
|---|
| 19 | FBCHVH ;;10895543
|
|---|
| 20 | FBCHVP ;;14312605
|
|---|
| 21 | FBCKDIS ;;17064040
|
|---|
| 22 | FBCKDIS1 ;;4825715
|
|---|
| 23 | FBCNHCEN ;;12089173
|
|---|
| 24 | FBDOC ;;208431
|
|---|
| 25 | FBMRASV1 ;;11363374
|
|---|
| 26 | FBMRASV2 ;;12114185
|
|---|
| 27 | FBMRASVR ;;15871936
|
|---|
| 28 | FBNHACT ;;7377096
|
|---|
| 29 | FBNHAMI1 ;;10257785
|
|---|
| 30 | FBNHAMI2 ;;6743548
|
|---|
| 31 | FBNHAMIE ;;8906087
|
|---|
| 32 | FBNHAMIS ;;18698941
|
|---|
| 33 | FBNHDEC ;;3000257
|
|---|
| 34 | FBNHDIEP ;;1822085
|
|---|
| 35 | FBNHDLAD ;;5489319
|
|---|
| 36 | FBNHDLDI ;;7535255
|
|---|
| 37 | FBNHDLTR ;;3056815
|
|---|
| 38 | FBNHEA ;;9042749
|
|---|
| 39 | FBNHEAU1 ;;4563644
|
|---|
| 40 | FBNHEAU2 ;;8102988
|
|---|
| 41 | FBNHEAUT ;;17899847
|
|---|
| 42 | FBNHED ;;8997353
|
|---|
| 43 | FBNHEDA1 ;;3108080
|
|---|
| 44 | FBNHEDAD ;;1690767
|
|---|
| 45 | FBNHEDAT ;;10167462
|
|---|
| 46 | FBNHEDDI ;;4313528
|
|---|
| 47 | FBNHEDPA ;;6175427
|
|---|
| 48 | FBNHEDTR ;;5402733
|
|---|
| 49 | FBNHEP ;;20057397
|
|---|
| 50 | FBNHEP1 ;;6219597
|
|---|
| 51 | FBNHEP2 ;;14099420
|
|---|
| 52 | FBNHET ;;6903761
|
|---|
| 53 | FBNHEXP ;;5281991
|
|---|
| 54 | FBNHPAMS ;;14276588
|
|---|
| 55 | FBNHPC ;;9944869
|
|---|
| 56 | FBNHPC1 ;;8251325
|
|---|
| 57 | FBNHPLT ;;7785082
|
|---|
| 58 | FBNHRAT ;;8512413
|
|---|
| 59 | FBNHRAT1 ;;4767279
|
|---|
| 60 | FBNHRC ;;11532054
|
|---|
| 61 | FBNHRCS ;;4973071
|
|---|
| 62 | FBNHRCS1 ;;6111456
|
|---|
| 63 | FBNHRCS2 ;;4585977
|
|---|
| 64 | FBNHRCS3 ;;2192097
|
|---|
| 65 | FBNHRCS4 ;;1521491
|
|---|
| 66 | FBNHRDEL ;;2136211
|
|---|
| 67 | FBNHROS ;;6787692
|
|---|
| 68 | FBP35D ;;2550500
|
|---|
| 69 | FBPAID ;;7993157
|
|---|
| 70 | FBPAID1 ;;2937603
|
|---|
| 71 | FBPAID2 ;;11705622
|
|---|
| 72 | FBPAY ;;12670963
|
|---|
| 73 | FBPAY2 ;;10449356
|
|---|
| 74 | FBPAY21 ;;6882423
|
|---|
| 75 | FBPAY3 ;;14897836
|
|---|
| 76 | FBPAY67 ;;17774089
|
|---|
| 77 | FBPAY671 ;;13723194
|
|---|
| 78 | FBPCR ;;12194673
|
|---|
| 79 | FBPCR2 ;;12312031
|
|---|
| 80 | FBPCR3 ;;10581098
|
|---|
| 81 | FBPCR67 ;;9893934
|
|---|
| 82 | FBPCR671 ;;8261947
|
|---|
| 83 | FBPHON ;;14011993
|
|---|
| 84 | FBPHON1 ;;10086411
|
|---|
| 85 | FBPHON2 ;;9327779
|
|---|
| 86 | FBPRE35 ;;5136542
|
|---|
| 87 | FBPRICE ;;13736306
|
|---|
| 88 | FBPRICE1 ;;4733284
|
|---|
| 89 | FBPST35 ;;8167497
|
|---|
| 90 | FBPST35A ;;16775666
|
|---|
| 91 | FBPST35B ;;7164566
|
|---|
| 92 | FBPST35C ;;9143037
|
|---|
| 93 | FBUCDD ;;3821845
|
|---|
| 94 | FBUCDD1 ;;7275596
|
|---|
| 95 | FBUCDIS ;;10618926
|
|---|
| 96 | FBUCDUP ;;3798696
|
|---|
| 97 | FBUCED ;;10874060
|
|---|
| 98 | FBUCED0 ;;18866078
|
|---|
| 99 | FBUCED1 ;;4332811
|
|---|
| 100 | FBUCEN ;;14613914
|
|---|
| 101 | FBUCEN1 ;;6621239
|
|---|
| 102 | FBUCEVT ;;439790
|
|---|
| 103 | FBUCEX ;;12923887
|
|---|
| 104 | FBUCLET ;;14516629
|
|---|
| 105 | FBUCLET0 ;;9111656
|
|---|
| 106 | FBUCLET1 ;;11867847
|
|---|
| 107 | FBUCLINK ;;11678403
|
|---|
| 108 | FBUCLNK1 ;;9379737
|
|---|
| 109 | FBUCOUT ;;2256740
|
|---|
| 110 | FBUCOUT1 ;;8762575
|
|---|
| 111 | FBUCPAY ;;15066764
|
|---|
| 112 | FBUCPEND ;;7313035
|
|---|
| 113 | FBUCSTAT ;;10504241
|
|---|
| 114 | FBUCUPD ;;9689085
|
|---|
| 115 | FBUCUPD1 ;;6807028
|
|---|
| 116 | FBUCUTL ;;3957346
|
|---|
| 117 | FBUCUTL1 ;;9828164
|
|---|
| 118 | FBUCUTL2 ;;10327684
|
|---|
| 119 | FBUCUTL3 ;;9669404
|
|---|
| 120 | FBUCUTL4 ;;3662827
|
|---|
| 121 | FBUCUTL5 ;;11780524
|
|---|
| 122 | FBUCUTL6 ;;7064155
|
|---|
| 123 | FBUCUTL7 ;;9716645
|
|---|
| 124 | FBUCUTL8 ;;3419884
|
|---|
| 125 | FBUINS ;;4813918
|
|---|
| 126 | FBVDISP ;;1398023
|
|---|
