source: FOIAVistA/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEONTEG.m@ 1595

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

initial load of FOIAVistA 6/30/08 version
File size: 2.9 KB
Line 
1EEONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 26, 1995@09:33:28
2 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
3 ;;7.2;APR 26, 1995@09:33:28
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 ;;
12EEO0210 ;;14059811
13EEO211 ;;9961734
14EEOEAHO1 ;;9202738
15EEOEAHO2 ;;7231931
16EEOEAHOC ;;13718465
17EEOEEDIE ;;8755140
18EEOEEXE ;;8539870
19EEOEEXMT ;;5351853
20EEOEFIN ;;18655248
21EEOEINP ;;3826665
22EEOEMAN ;;5755760
23EEOENF ;;5716172
24EEOEOE2 ;;7147038
25EEOEOI5 ;;5946587
26EEOEOI6 ;;4635217
27EEOEOP2 ;;3105960
28EEOEOSE ;;12545787
29EEOERCR ;;16248822
30EEOERCR1 ;;41140744
31EEOETICK ;;9984982
32EEOEXE1 ;;11146481
33EEOEXMT1 ;;6240330
34EEOEXMT2 ;;5635159
35EEOIN001 ;;10418583
36EEOIN002 ;;9641785
37EEOIN003 ;;12427901
38EEOIN004 ;;12689540
39EEOIN005 ;;10988726
40EEOIN006 ;;13982102
41EEOIN007 ;;11213705
42EEOIN008 ;;11149937
43EEOIN009 ;;7958865
44EEOIN00A ;;9108573
45EEOIN00B ;;2651326
46EEOIN00C ;;1574589
47EEOIN00D ;;3492330
48EEOIN00E ;;2338901
49EEOIN00F ;;10787283
50EEOIN00G ;;9168500
51EEOIN00H ;;11586588
52EEOIN00I ;;10700009
53EEOIN00J ;;3761154
54EEOIN00K ;;3860088
55EEOIN00L ;;1727319
56EEOIN00M ;;9339460
57EEOIN00N ;;3623950
58EEOIN00O ;;5086014
59EEOIN00P ;;5286817
60EEOIN00Q ;;5329896
61EEOIN00R ;;5603038
62EEOIN00S ;;5780436
63EEOIN00T ;;5556740
64EEOIN00U ;;5714014
65EEOIN00V ;;5637500
66EEOIN00W ;;5696561
67EEOIN00X ;;5835832
68EEOIN00Y ;;5708262
69EEOIN00Z ;;5604985
70EEOIN010 ;;5412853
71EEOIN011 ;;5813503
72EEOIN012 ;;5346462
73EEOIN013 ;;5709159
74EEOIN014 ;;5912095
75EEOIN015 ;;5519220
76EEOIN016 ;;5592750
77EEOIN017 ;;5622916
78EEOIN018 ;;5517428
79EEOIN019 ;;5491864
80EEOIN01A ;;6240729
81EEOIN01B ;;5723864
82EEOIN01C ;;4811844
83EEOIN01D ;;4478954
84EEOIN01E ;;4397929
85EEOIN01F ;;4309516
86EEOIN01G ;;4305036
87EEOIN01H ;;4415252
88EEOIN01I ;;4315694
89EEOIN01J ;;4351726
90EEOIN01K ;;4305902
91EEOIN01L ;;4312866
92EEOIN01M ;;4474900
93EEOIN01N ;;4309574
94EEOIN01O ;;4310448
95EEOIN01P ;;4396909
96EEOIN01Q ;;4294548
97EEOIN01R ;;4312086
98EEOIN01S ;;4311859
99EEOIN01T ;;4296643
100EEOIN01U ;;4318788
101EEOIN01V ;;4291564
102EEOIN01W ;;4298280
103EEOIN01X ;;4313018
104EEOIN01Y ;;4295409
105EEOIN01Z ;;4712186
106EEOIN020 ;;6438676
107EEOIN021 ;;6069173
108EEOIN022 ;;2305860
109EEOIN023 ;;4807486
110EEOIN024 ;;1412870
111EEOIN025 ;;6743330
112EEOIN026 ;;8771070
113EEOIN027 ;;8192208
114EEOIN028 ;;1965879
115EEOINIS ;;2168307
116EEOINIT ;;10829233
117EEOINIT1 ;;5700373
118EEOINIT2 ;;5232639
119EEOINIT3 ;;16093541
120EEOINIT4 ;;3357811
121EEOINIT5 ;;1217308
122EEOIPCON ;;10149140
123EEOIPOS2 ;;10406787
124EEOIPOST ;;8798681
125EEOIPRE ;;44559
126EEOUTIL ;;5522790
127EEOUTIL1 ;;6847267
Note: See TracBrowser for help on using the repository browser.