source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSNTEG.m@ 949

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

initial load of WorldVistAEHR
File size: 3.5 KB
Line 
1YSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;DEC 30, 1994@12:03:30
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;7.2;DEC 30, 1994@12:03:30
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^YSNTEG0
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 ;;
12YIHIST ;;8468576
13YIHISTF ;;10343510
14YIPHYD ;;1697035
15YIPROB ;;989921
16YSCEN ;;11849413
17YSCEN1 ;;14970019
18YSCEN10 ;;2390898
19YSCEN13 ;;13268299
20YSCEN14 ;;2346188
21YSCEN2 ;;13761114
22YSCEN21 ;;6020265
23YSCEN22 ;;13237577
24YSCEN23 ;;11948061
25YSCEN24 ;;12082473
26YSCEN26 ;;8427191
27YSCEN3 ;;12845232
28YSCEN31 ;;10049085
29YSCEN32 ;;2155714
30YSCEN33 ;;7271744
31YSCEN34 ;;5581679
32YSCEN35 ;;13027120
33YSCEN36 ;;17823868
34YSCEN37 ;;3059517
35YSCEN39 ;;13327223
36YSCEN4 ;;12774233
37YSCEN41 ;;6964492
38YSCEN5 ;;9627694
39YSCEN51 ;;4346864
40YSCEN52 ;;15145443
41YSCEN53 ;;10842821
42YSCEN54 ;;12159579
43YSCEN55 ;;6342431
44YSCEN56 ;;2471190
45YSCEN6 ;;11341807
46YSCEN61 ;;16033384
47YSCEN7 ;;9750082
48YSCEN8 ;;10628312
49YSCEN81 ;;10985668
50YSCUP ;;1616148
51YSCUP000 ;;5127901
52YSCUP001 ;;6125631
53YSCUP002 ;;3084310
54YSCUP003 ;;4607921
55YSCUP004 ;;5583202
56YSD40030 ;;1902341
57YSD40031 ;;5268804
58YSD40032 ;;4632327
59YSD40040 ;;1863992
60YSD40041 ;;2726900
61YSD40042 ;;4949698
62YSD40050 ;;2021889
63YSD40051 ;;651871
64YSD40052 ;;4811159
65YSD40060 ;;3990618
66YSD40061 ;;2056583
67YSD40062 ;;3077320
68YSD4C000 ;;979086
69YSD4C001 ;;3067937
70YSD4C010 ;;87136
71YSD4CK00 ;;7454000
72YSD4DSM ;;1449955
73YSD4E010 ;;6819775
74YSD4E020 ;;6408869
75YSD4POS0 ;;5888378
76YSD4POST ;;5298608
77YSD4PRE ;;7203733
78YSD4PRE0 ;;5308674
79YSD4UT01 ;;5519880
80YSDGDEM ;;4462466
81YSDGDEM0 ;;7377650
82YSDIZ ;;4426660
83YSDX0001 ;;2783224
84YSDX0002 ;;887578
85YSDX3 ;;9508069
86YSDX3A ;;5565376
87YSDX3B ;;11909349
88YSDX3R ;;5071768
89YSDX3R1 ;;4582798
90YSDX3RU ;;5619249
91YSDX3RUA ;;6237047
92YSDX3U ;;5641886
93YSDX3U00 ;;998386
94YSDX3UA ;;4182079
95YSDX3UA0 ;;1966163
96YSDX3UB ;;4854865
97YSDX3UC ;;2769931
98YSDXR ;;4182602
99YSDXR000 ;;1936257
100YSDXR1 ;;1330884
101YSDXUT01 ;;2212269
102YSEMSG ;;1268332
103YSESA ;;2310051
104YSESD ;;12832059
105YSESE ;;4434706
106YSESED ;;2255662
107YSESH ;;19033038
108YSESL ;;8723066
109YSESLOG ;;2703842
110YSESM ;;8348408
111YSESN ;;2640476
112YSESP ;;11844112
113YSESR ;;1237226
114YSESUT ;;3344231
115YSFORM ;;1608924
116YSHELP ;;931855
117YSHX1 ;;14442962
118YSHX1R ;;8170471
119YSJOB ;;891799
120YSJOBK ;;3148949
121YSLOCN ;;1357796
122YSLRP ;;6252182
123YSMHMENU ;;818334
124YSMV ;;12318062
125YSMV1 ;;8648321
126YSONI001 ;;1361747
127YSONIT ;;964656
128YSONIT1 ;;1687734
129YSONIT2 ;;82306
130YSONIT3 ;;10576067
131YSPDR1 ;;2855789
132YSPDXR ;;2676362
133YSPHY ;;12379349
134YSPHY1 ;;8832973
135YSPHYR ;;1879283
136YSPP ;;7833093
137YSPP1 ;;5015730
138YSPP1A ;;8197800
139YSPP2 ;;8374124
140YSPP3 ;;1773583
141YSPP4 ;;3020685
142YSPP5 ;;2340584
143YSPP6 ;;3525801
144YSPP7 ;;3775005
145YSPP8 ;;4493352
146YSPP9 ;;807945
147YSPPJ ;;10690917
148YSPRBR1 ;;9218441
149YSPRBR2 ;;8858392
150YSPROB ;;19611459
151YSPROB1 ;;18193714
152YSPROB2 ;;16590961
153YSPROB3 ;;9397274
154YSPROB4 ;;11648676
155YSPROB5 ;;3137695
156YSPROBR ;;15543154
157YSPROBR1 ;;4379868
158YSPROSE ;;7523711
159YSPTX ;;14047908
160YSPTX1 ;;8697278
161YSPTXR ;;10398725
162YSSITE ;;4639290
163YSSR ;;14139675
164YSSR1 ;;12275159
165YSSR2 ;;5408717
166YSSRU ;;12335670
167YSSRU1 ;;4164928
168YSUTL ;;8009381
169YSWX ;;11105411
170YSWX1 ;;3047774
171YSWZ ;;3321015
172YTACL ;;2786221
173YTAR ;;16956951
174YTAR1 ;;6398100
175YTAR2 ;;3526540
Note: See TracBrowser for help on using the repository browser.