source: FOIAVistA/tag/r/FEE_BASIS-FB/FBNTEG0.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

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