source: FOIAVistA/trunk/r/ENGINEERING-EN/ENXJNTE1.m@ 729

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

initial load of FOIAVistA 6/30/08 version
File size: 2.5 KB
Line 
1ENXJNTE1 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;FEB 26, 1996@14:03:14
2 ;;7.0;ENGINEERING;**30**;AUG 17, 1993
3 ;;7.2;FEB 26, 1996@14:03:14
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 ;;
12ENXJI08H ;;7927825
13ENXJI08I ;;7808269
14ENXJI08J ;;8143994
15ENXJI08K ;;8456727
16ENXJI08L ;;8286886
17ENXJI08M ;;8672171
18ENXJI08N ;;8588618
19ENXJI08O ;;8146992
20ENXJI08P ;;8287852
21ENXJI08Q ;;8576089
22ENXJI08R ;;8085921
23ENXJI08S ;;7762769
24ENXJI08T ;;7810068
25ENXJI08U ;;7829251
26ENXJI08V ;;8364309
27ENXJI08W ;;8278178
28ENXJI08X ;;7575724
29ENXJI08Y ;;8022682
30ENXJI08Z ;;8039831
31ENXJI090 ;;8066683
32ENXJI091 ;;8084874
33ENXJI092 ;;7798399
34ENXJI093 ;;7848813
35ENXJI094 ;;7535336
36ENXJI095 ;;8093660
37ENXJI096 ;;7885012
38ENXJI097 ;;7811180
39ENXJI098 ;;8146940
40ENXJI099 ;;7650286
41ENXJI09A ;;7947828
42ENXJI09B ;;7364596
43ENXJI09C ;;8294421
44ENXJI09D ;;8507585
45ENXJI09E ;;8166604
46ENXJI09F ;;7827176
47ENXJI09G ;;7753594
48ENXJI09H ;;7474515
49ENXJI09I ;;7739401
50ENXJI09J ;;7908222
51ENXJI09K ;;8114534
52ENXJI09L ;;8117661
53ENXJI09M ;;8149708
54ENXJI09N ;;7483379
55ENXJI09O ;;7784832
56ENXJI09P ;;7710177
57ENXJI09Q ;;7840164
58ENXJI09R ;;7704308
59ENXJI09S ;;8011880
60ENXJI09T ;;7771562
61ENXJI09U ;;7694141
62ENXJI09V ;;8119736
63ENXJI09W ;;7951875
64ENXJI09X ;;7633808
65ENXJI09Y ;;7368209
66ENXJI09Z ;;8033896
67ENXJI0A0 ;;8292377
68ENXJI0A1 ;;8103310
69ENXJI0A2 ;;8194825
70ENXJI0A3 ;;8155045
71ENXJI0A4 ;;8421130
72ENXJI0A5 ;;8529120
73ENXJI0A6 ;;8302221
74ENXJI0A7 ;;7891030
75ENXJI0A8 ;;8193676
76ENXJI0A9 ;;8190722
77ENXJI0AA ;;8064996
78ENXJI0AB ;;8152576
79ENXJI0AC ;;8228550
80ENXJI0AD ;;8462392
81ENXJI0AE ;;8513547
82ENXJI0AF ;;8197303
83ENXJI0AG ;;8314183
84ENXJI0AH ;;8221350
85ENXJI0AI ;;8454943
86ENXJI0AJ ;;7969663
87ENXJI0AK ;;8571856
88ENXJI0AL ;;8168697
89ENXJI0AM ;;7881636
90ENXJI0AN ;;2872208
91ENXJI0AO ;;2412902
92ENXJIEN ;;1666996
93ENXJINI1 ;;4911521
94ENXJINI2 ;;5232616
95ENXJINI3 ;;16807464
96ENXJINI4 ;;3357788
97ENXJINI5 ;;493182
98ENXJINIT ;;10491430
99ENXJIPR ;;2866513
100ENXJIPR1 ;;8203579
101ENXJIPR2 ;;8172226
102ENXJIPR3 ;;8249441
103ENXJIPR4 ;;8198488
104ENXJIPR5 ;;8187647
105ENXJIPR6 ;;8211398
106ENXJIPR7 ;;7136897
107ENXJIPS ;;5487287
108ENXJIPS1 ;;8189316
109ENXJIPS2 ;;7302530
Note: See TracBrowser for help on using the repository browser.