source: FOIAVistA/trunk/r/NATIONAL_LABORATORY_TEST-NLT/NLTNTEG.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1NLTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 06, 1995@10:04:37
2 ;;5.254;NATIONAL LABORATORY TESTS;;SEP 21, 1995
3 ;;7.1;SEP 21, 1995@20:43:41
4 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
5CONT 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")
6 ;
7 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
8ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
9 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
10 W ! G CONT
11ROU ;;
12NLTIN001 ;;7199567
13NLTIN002 ;;6802735
14NLTIN003 ;;6950315
15NLTIN004 ;;6327361
16NLTIN005 ;;7930344
17NLTIN006 ;;2727958
18NLTIN007 ;;5295184
19NLTIN008 ;;5395137
20NLTIN009 ;;5700942
21NLTIN00A ;;4880479
22NLTIN00B ;;5130498
23NLTIN00C ;;4802826
24NLTIN00D ;;4732279
25NLTIN00E ;;4636288
26NLTIN00F ;;4666860
27NLTIN00G ;;4795753
28NLTIN00H ;;5089813
29NLTIN00I ;;5298959
30NLTIN00J ;;2442058
31NLTIN00K ;;7250934
32NLTIN00L ;;6595364
33NLTIN00M ;;5070112
34NLTIN00N ;;5016758
35NLTIN00O ;;5140468
36NLTIN00P ;;4865357
37NLTIN00Q ;;5060353
38NLTIN00R ;;5419480
39NLTIN00S ;;5086217
40NLTIN00T ;;5484253
41NLTIN00U ;;4597266
42NLTIN00V ;;4995572
43NLTIN00W ;;5252609
44NLTIN00X ;;5077820
45NLTIN00Y ;;5425288
46NLTIN00Z ;;5418057
47NLTIN010 ;;5645811
48NLTIN011 ;;5624653
49NLTIN012 ;;5038323
50NLTIN013 ;;4110639
51NLTIN014 ;;4581948
52NLTIN015 ;;5085797
53NLTIN016 ;;4795464
54NLTIN017 ;;5724636
55NLTIN018 ;;5604990
56NLTIN019 ;;5328600
57NLTIN01A ;;5189908
58NLTIN01B ;;4836654
59NLTIN01C ;;4808386
60NLTIN01D ;;5135851
61NLTIN01E ;;5088295
62NLTIN01F ;;5556649
63NLTIN01G ;;5321983
64NLTIN01H ;;4712751
65NLTIN01I ;;4355981
66NLTIN01J ;;4204086
67NLTIN01K ;;4203827
68NLTIN01L ;;4372039
69NLTIN01M ;;5054404
70NLTIN01N ;;4912417
71NLTIN01O ;;5378899
72NLTIN01P ;;5118668
73NLTIN01Q ;;4833166
74NLTIN01R ;;4490087
75NLTIN01S ;;4252231
76NLTIN01T ;;4388264
77NLTIN01U ;;4205403
78NLTIN01V ;;2882309
79NLTIN01W ;;5213695
80NLTIN01X ;;1564470
81NLTIN01Y ;;3787496
82NLTIN01Z ;;2729984
83NLTIN020 ;;2980010
84NLTIN021 ;;3391421
85NLTIN022 ;;3437419
86NLTIN023 ;;3468910
87NLTIN024 ;;1431872
88NLTIN025 ;;5761009
89NLTIN026 ;;1752486
90NLTINIS ;;2173278
91NLTINIT ;;10615768
92NLTINIT1 ;;4888898
93NLTINIT2 ;;5232677
94NLTINIT3 ;;16808288
95NLTINIT4 ;;3357849
96NLTINIT5 ;;1083023
97NLTIPCK ;;2620689
98NLTIPOST ;;2219364
99NLTIPRE ;;1588563
Note: See TracBrowser for help on using the repository browser.