source: WorldVistAEHR/trunk/r/CLINICAL_CASE_REGISTRIES-ROR/RORNTEG.m@ 846

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1RORNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ; 10/20/06 4:10pm
2 ;;0.0;;**1**;;Build 24
3 ;;7.3;3060622.15354
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^RORNTEG0
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 ;;
12ROR ;;2717781
13ROR01 ;;1117
14ROR02 ;;1122
15ROR10 ;;7730208
16ROR11 ;;8580380
17RORAPI01 ;;1957725
18RORBIN ;;2967124
19RORDD ;;4656034
20RORDD01 ;;3739193
21RORERR ;;4405971
22RORERR20 ;;14492523
23ROREVT01 ;;2008294
24ROREXPR ;;5694255
25ROREXT ;;3147105
26ROREXT01 ;;8425154
27ROREXT02 ;;5834876
28ROREXT03 ;;4554817
29ROREXTUT ;;5555893
30RORHDT ;;3387490
31RORHDT01 ;;1390687
32RORHDT02 ;;2997526
33RORHDT03 ;;4297815
34RORHDT04 ;;9379124
35RORHDT05 ;;2711736
36RORHDT06 ;;3568354
37RORHDTAC ;;2854289
38RORHDTUT ;;5831331
39RORHIV03 ;;4806950
40RORHIVUT ;;357536
41RORHL01 ;;1491461
42RORHL02 ;;5546944
43RORHL03 ;;5627421
44RORHL031 ;;6064797
45RORHL04 ;;5297245
46RORHL05 ;;4084796
47RORHL06 ;;4217993
48RORHL07 ;;2524507
49RORHL071 ;;2486458
50RORHL08 ;;5887870
51RORHL081 ;;7585616
52RORHL09 ;;6026195
53RORHL10 ;;5509115
54RORHL11 ;;4565613
55RORHL12 ;;2399116
56RORHL121 ;;9878360
57RORHL13 ;;3466976
58RORHL14 ;;5357488
59RORHL15 ;;3649245
60RORHL16 ;;3252430
61RORHL17 ;;4936158
62RORHL7 ;;4806448
63RORHL7A ;;4554021
64RORHLUT1 ;;1806943
65RORKIDS ;;6182684
66RORLOCK ;;4943216
67RORLOG ;;6030893
68RORLOG01 ;;3716383
69RORPUT01 ;;4800327
70RORPUT02 ;;5936706
71RORREP01 ;;9158405
72RORREP02 ;;10911089
73RORRP007 ;;4442755
74RORRP010 ;;1881192
75RORRP011 ;;2555508
76RORRP012 ;;1144389
77RORRP013 ;;4665100
78RORRP014 ;;2785597
79RORRP015 ;;3365112
80RORRP016 ;;6117318
81RORRP017 ;;1924388
82RORRP018 ;;1666201
83RORRP019 ;;6121598
84RORRP020 ;;4475572
85RORRP021 ;;3721454
86RORRP022 ;;1262090
87RORRP023 ;;2273081
88RORRP024 ;;3821351
89RORRP025 ;;4917408
90RORRP026 ;;10244091
91RORRP027 ;;6675003
92RORRP029 ;;1527601
93RORRP030 ;;1101835
94RORRP031 ;;4897990
95RORRP032 ;;5035421
96RORRP033 ;;2395118
97RORRP034 ;;3041648
98RORRP035 ;;1597804
99RORRP036 ;;1773818
100RORRP037 ;;2638742
101RORRP038 ;;4339809
102RORRP040 ;;4049054
103RORRP041 ;;2687037
104RORRP042 ;;2333070
105RORSET01 ;;4563146
106RORSETU1 ;;2833894
107RORSETU2 ;;2447593
108RORTMP ;;679112
109RORTSK ;;3964693
110RORTSK01 ;;7070947
111RORTSK02 ;;4523778
112RORTSK03 ;;2058050
113RORTSK10 ;;5996899
114RORTSK11 ;;3147053
115RORTSK12 ;;2274583
116RORTSK13 ;;6727870
117RORTSK14 ;;2157270
118RORTXT ;;141117
119RORUPD ;;3118364
120RORUPD01 ;;7989261
121RORUPD04 ;;5421758
122RORUPD05 ;;7081275
123RORUPD06 ;;3084967
124RORUPD07 ;;2356625
125RORUPD08 ;;4579765
126RORUPD09 ;;2869944
127RORUPD50 ;;3764045
128RORUPD51 ;;8479975
129RORUPD52 ;;2557167
130RORUPD62 ;;1941130
131RORUPDUT ;;7113425
132RORUPEX ;;3382608
133RORUPP01 ;;3620688
134RORUPP02 ;;3149282
135RORUPR ;;5364149
136RORUPR1 ;;10955587
137RORUTL01 ;;4692322
138RORUTL02 ;;5296575
139RORUTL03 ;;8066801
140RORUTL04 ;;2076790
141RORUTL05 ;;7047621
142RORUTL06 ;;10075666
143RORUTL07 ;;2099977
144RORUTL08 ;;3164502
145RORUTL09 ;;1836557
146RORUTL10 ;;5740794
147RORUTL11 ;;942933
148RORUTL14 ;;1375993
149RORUTL15 ;;6511088
150RORUTL16 ;;2364514
151RORUTL17 ;;6994520
152RORUTL18 ;;3250231
153RORUTL19 ;;1203624
154RORVM001 ;;609363
155RORX000 ;;2233772
156RORX001 ;;5778832
157RORX002 ;;3845106
158RORX003 ;;5545892
159RORX003A ;;7545014
160RORX004 ;;3369267
161RORX005 ;;1558283
162RORX005A ;;5728919
163RORX005B ;;2068516
Note: See TracBrowser for help on using the repository browser.