source: FOIAVistA/trunk/r/MEDICINE-MC/MCNTEG.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1MCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955
2 ;;2.3;Medicine;;09/13/1996
3 ;;7.3;2960909.113955
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 G CONT^MCNTEG0
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 ;;
12MCARAM ;;7513129
13MCARAM0 ;;8652928
14MCARAM0A ;;3324603
15MCARAM0B ;;1635444
16MCARAM0C ;;259164
17MCARAM0D ;;1414732
18MCARAM0E ;;2281887
19MCARAM0F ;;1175131
20MCARAM0G ;;965472
21MCARAM0H ;;1245689
22MCARAM1 ;;9634784
23MCARAM2 ;;5013333
24MCARAM3 ;;7540725
25MCARAM4 ;;5388145
26MCARAM5 ;;7414846
27MCARAM6 ;;4370819
28MCARAM7 ;;3389255
29MCARAML ;;884394
30MCARAMLA ;;1770487
31MCARAMLB ;;1030845
32MCARAMLC ;;2145896
33MCARAMLD ;;1213232
34MCARAMLE ;;985870
35MCARAMLF ;;1648647
36MCARAMLG ;;3429686
37MCARAMLH ;;4812240
38MCARAP ;;13128865
39MCARAP1 ;;8368139
40MCARAP2 ;;8581535
41MCARASE ;;1343241
42MCARATVE ;;4660706
43MCARBSA ;;1893009
44MCARD ;;7219348
45MCARD1 ;;9153309
46MCARDBL ;;2745397
47MCARDC ;;8324014
48MCARDC1 ;;10958868
49MCARDCM ;;8624300
50MCARDCM1 ;;9199269
51MCARDCM2 ;;16019523
52MCARDCM3 ;;4461677
53MCARDCN ;;8168560
54MCARDCN1 ;;11879348
55MCARDCQ ;;9767978
56MCARDCQ1 ;;14107855
57MCARDHLP ;;7413320
58MCARDML ;;7891874
59MCARDNJ ;;12950077
60MCARDNJ1 ;;11164953
61MCARDNJ2 ;;8566701
62MCARDNK ;;4192119
63MCARDNQ ;;9677299
64MCARDNQ2 ;;5603751
65MCARDPAR ;;1087615
66MCARDPL ;;6589975
67MCARDSE ;;4910080
68MCARDSS ;;2795427
69MCARE ;;10169181
70MCARE1 ;;587426
71MCARED ;;1346233
72MCAREH ;;2668985
73MCARENV ;;1706772
74MCARENV1 ;;5645418
75MCAREO ;;1226288
76MCARGD ;;10355791
77MCARGE ;;12626600
78MCARGEA ;;2183926
79MCARGEO ;;1273111
80MCARGES ;;8749771
81MCARGP ;;8855698
82MCARGPA ;;2450896
83MCARGS ;;15196656
84MCARHP ;;9526217
85MCARLV ;;1224221
86MCARP ;;12050941
87MCARP1 ;;6483686
88MCARPAC ;;4176211
89MCARPACE ;;7935031
90MCARPAL ;;8294365
91MCARPCE ;;6947531
92MCARPCS ;;2823538
93MCARPCS1 ;;8993163
94MCARPCS2 ;;6070211
95MCARPCS3 ;;10490801
96MCARPCS4 ;;6236777
97MCARPROC ;;2609457
98MCARPS ;;12724091
99MCARPS1 ;;4080525
100MCARSRE ;;2689053
101MCARSRP ;;4956056
102MCARSRR ;;7715339
103MCARSUP ;;5565217
104MCARVCHK ;;5828316
105MCBPFTP1 ;;13843469
106MCBPFTP2 ;;7860225
107MCBPFTP3 ;;7872831
108MCBPFTP4 ;;2488267
109MCBPFTP5 ;;4778343
110MCBPFTP6 ;;1682113
111MCBPFTP7 ;;3150765
112MCDBELM ;;8207435
113MCDBSAVE ;;4573907
114MCDIE001 ;;5582646
115MCDIE002 ;;5818428
116MCDIE003 ;;4575251
117MCDIEDIE ;;4025966
118MCDUP1 ;;10974055
119MCDUPE ;;28907
120MCDUPM ;;4383298
121MCDUPP ;;5884894
122MCDUPR ;;8492052
123MCEF ;;2902953
124MCENDIQ1 ;;198583
125MCENV00 ;;6610520
126MCENVCHK ;;160465
127MCEO ;;1629111
128MCEPROC ;;1763322
129MCESCON3 ;;626548
130MCESCONV ;;10707161
131MCESEDT ;;12796040
132MCESEDT2 ;;10366787
133MCESHLP ;;6844447
134MCESLIST ;;5146729
135MCESMFDV ;;2288072
136MCESPRT ;;6425050
137MCESSCR ;;5268874
138MCFIXOEP ;;740019
139MCGBL ;;5394986
140MCMAG ;;1044714
141MCMAGDSP ;;5147124
142MCMENUDE ;;5822044
143MCNMDUP ;;2619985
144MCNP2CHK ;;4467177
145MCNP2X ;;793498
146MCOR ;;14232069
147MCOR1 ;;5268190
148MCOREX ;;2660895
149MCORMN ;;4051049
150MCORMN0 ;;6741624
151MCORMN01 ;;1977484
152MCORMN1 ;;5869467
153MCORMN2 ;;6151277
154MCPARAM ;;504047
155MCPFTE ;;4844525
156MCPFTI ;;6287475
157MCPFTIC ;;5278858
158MCPFTP ;;1702907
159MCPFTP1 ;;12497840
160MCPFTP1A ;;1637882
161MCPFTP2 ;;11990988
162MCPFTP2A ;;12428437
163MCPFTP3 ;;5993259
164MCPFTP4 ;;6787432
165MCPFTP4A ;;1678587
166MCPFTP5 ;;13958685
167MCPFTR ;;1913488
168MCPFTSS ;;546237
169MCPMV ;;2778636
170MCPMVA ;;641401
Note: See TracBrowser for help on using the repository browser.