Last change
on this file since 1076 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
3.5 KB
|
Line | |
---|
1 | PSJNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955
|
---|
2 | ;;0.0;
|
---|
3 | ;;7.3;2971216.152955
|
---|
4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
5 | CONT 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^PSJNTEG1
|
---|
7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
---|
8 | ONE 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
|
---|
11 | ROU ;;
|
---|
12 | PSGTCTD ;;6065289
|
---|
13 | PSGTCTD0 ;;8315839
|
---|
14 | PSGTI ;;6401473
|
---|
15 | PSGVBW ;;18130677
|
---|
16 | PSGVBW0 ;;15711004
|
---|
17 | PSGVBW1 ;;2577458
|
---|
18 | PSGVBWP ;;13781808
|
---|
19 | PSGVBWU ;;14654477
|
---|
20 | PSGVDS ;;7457905
|
---|
21 | PSGVW ;;13617950
|
---|
22 | PSGVW0 ;;4907591
|
---|
23 | PSGVWP ;;3618804
|
---|
24 | PSIV ;;9632222
|
---|
25 | PSIVACT ;;5206018
|
---|
26 | PSIVAL ;;7219660
|
---|
27 | PSIVALN ;;3733100
|
---|
28 | PSIVAMIS ;;13357019
|
---|
29 | PSIVAOR ;;15769366
|
---|
30 | PSIVAOR1 ;;4646774
|
---|
31 | PSIVCAL ;;13734655
|
---|
32 | PSIVCHK ;;11955268
|
---|
33 | PSIVCHK1 ;;10650255
|
---|
34 | PSIVCSED ;;4498107
|
---|
35 | PSIVDCR ;;15391673
|
---|
36 | PSIVDCR1 ;;15555679
|
---|
37 | PSIVDCR2 ;;10558819
|
---|
38 | PSIVDRG ;;8093131
|
---|
39 | PSIVEDRG ;;12165589
|
---|
40 | PSIVEDT ;;11834139
|
---|
41 | PSIVEDT1 ;;8513857
|
---|
42 | PSIVHIS ;;3341319
|
---|
43 | PSIVHLD ;;1849135
|
---|
44 | PSIVHLP ;;11111969
|
---|
45 | PSIVHLP1 ;;10706730
|
---|
46 | PSIVHLP2 ;;11000260
|
---|
47 | PSIVHLP3 ;;3588957
|
---|
48 | PSIVHYP ;;3653720
|
---|
49 | PSIVHYPL ;;15011059
|
---|
50 | PSIVLABL ;;12986653
|
---|
51 | PSIVLBDL ;;7062706
|
---|
52 | PSIVLBL1 ;;16294393
|
---|
53 | PSIVLTR ;;1848959
|
---|
54 | PSIVLTR1 ;;4469996
|
---|
55 | PSIVMAN ;;11277462
|
---|
56 | PSIVMAN1 ;;13852085
|
---|
57 | PSIVOE ;;4165977
|
---|
58 | PSIVOPT ;;10674345
|
---|
59 | PSIVOPT1 ;;10501516
|
---|
60 | PSIVOPT2 ;;12232659
|
---|
61 | PSIVORA ;;13128297
|
---|
62 | PSIVORA1 ;;11240725
|
---|
63 | PSIVORAL ;;9610524
|
---|
64 | PSIVORC ;;10141585
|
---|
65 | PSIVORC1 ;;14586162
|
---|
66 | PSIVORC2 ;;13696024
|
---|
67 | PSIVORE ;;14225817
|
---|
68 | PSIVORE1 ;;14892529
|
---|
69 | PSIVORE2 ;;7806596
|
---|
70 | PSIVOREN ;;11929114
|
---|
71 | PSIVORFA ;;11673391
|
---|
72 | PSIVORFB ;;11186136
|
---|
73 | PSIVORFE ;;7975789
|
---|
74 | PSIVORH ;;4076816
|
---|
75 | PSIVORLB ;;9232616
|
---|
76 | PSIVORV1 ;;11935581
|
---|
77 | PSIVORV2 ;;6852622
|
---|
78 | PSIVPAT ;;7058627
|
---|
79 | PSIVPCR ;;12828965
|
---|
80 | PSIVPCR1 ;;3217504
|
---|
81 | PSIVPGE ;;16101277
|
---|
82 | PSIVPR ;;11856703
|
---|
83 | PSIVPRO ;;10241971
|
---|
84 | PSIVQUI ;;7058626
|
---|
85 | PSIVRD ;;12883074
|
---|
86 | PSIVREC ;;4540790
|
---|
87 | PSIVRNL ;;17941560
|
---|
88 | PSIVRP ;;19368402
|
---|
89 | PSIVRP1 ;;9529006
|
---|
90 | PSIVRQ ;;11580483
|
---|
91 | PSIVRQ1 ;;14193047
|
---|
92 | PSIVSET ;;11971611
|
---|
93 | PSIVSP ;;11493491
|
---|
94 | PSIVSPDC ;;4523227
|
---|
95 | PSIVST2 ;;10812968
|
---|
96 | PSIVSTAT ;;11185386
|
---|
97 | PSIVSUS ;;20540089
|
---|
98 | PSIVSUS1 ;;9233493
|
---|
99 | PSIVUDL ;;12893010
|
---|
100 | PSIVUTL ;;7154813
|
---|
101 | PSIVUTL1 ;;7128902
|
---|
102 | PSIVUWL ;;9325172
|
---|
103 | PSIVVW1 ;;8162548
|
---|
104 | PSIVWCR ;;12737296
|
---|
105 | PSIVWCR1 ;;2836925
|
---|
106 | PSIVWL ;;15985042
|
---|
107 | PSIVWL1 ;;15920427
|
---|
108 | PSIVWRP ;;14216186
|
---|
109 | PSIVXREF ;;672248
|
---|
110 | PSIVXU ;;2636747
|
---|
111 | PSJ200 ;;11883362
|
---|
112 | PSJAC ;;8790985
|
---|
113 | PSJADT ;;14320096
|
---|
114 | PSJADT0 ;;17469396
|
---|
115 | PSJADT1 ;;3886524
|
---|
116 | PSJALG ;;4878413
|
---|
117 | PSJDCHK ;;11850014
|
---|
118 | PSJDDUT ;;16989030
|
---|
119 | PSJDDUT2 ;;12090780
|
---|
120 | PSJDDUT3 ;;4798877
|
---|
121 | PSJDEA ;;4418374
|
---|
122 | PSJDGAL ;;2657545
|
---|
123 | PSJEEU ;;5082000
|
---|
124 | PSJEEU0 ;;11810342
|
---|
125 | PSJEXP ;;22569862
|
---|
126 | PSJEXP0 ;;17975167
|
---|
127 | PSJFL ;;7929486
|
---|
128 | PSJFL1 ;;4540012
|
---|
129 | PSJH1 ;;9462313
|
---|
130 | PSJHEAD ;;15526491
|
---|
131 | PSJHIS ;;4373003
|
---|
132 | PSJHL2 ;;8978069
|
---|
133 | PSJHL3 ;;13294105
|
---|
134 | PSJHL4 ;;21181671
|
---|
135 | PSJHL5 ;;6805998
|
---|
136 | PSJHL6 ;;10385690
|
---|
137 | PSJHL7 ;;15568482
|
---|
138 | PSJHL9 ;;11661940
|
---|
139 | PSJHLERR ;;2035077
|
---|
140 | PSJHLU ;;4443407
|
---|
141 | PSJHVARS ;;7325044
|
---|
142 | PSJIENV ;;712925
|
---|
143 | PSJIPRE ;;4561152
|
---|
144 | PSJIPST ;;9594885
|
---|
145 | PSJIPST1 ;;14509257
|
---|
146 | PSJIPST2 ;;9596551
|
---|
147 | PSJIPST3 ;;17764021
|
---|
148 | PSJIPSTA ;;6270357
|
---|
149 | PSJLIACT ;;2257018
|
---|
150 | PSJLIFN ;;4534897
|
---|
151 | PSJLIFNI ;;1742255
|
---|
152 | PSJLIORD ;;999487
|
---|
153 | PSJLIPRF ;;653170
|
---|
154 | PSJLIUTL ;;6126958
|
---|
155 | PSJLIVFD ;;5508085
|
---|
156 | PSJLIVMD ;;5160354
|
---|
157 | PSJLMAL ;;98929
|
---|
158 | PSJLMDA ;;178896
|
---|
159 | PSJLMGUD ;;17316547
|
---|
160 | PSJLMHED ;;9814074
|
---|
161 | PSJLMPRI ;;6611303
|
---|
162 | PSJLMPRU ;;5945946
|
---|
163 | PSJLMUDE ;;19967093
|
---|
164 | PSJLMUT1 ;;17706585
|
---|
165 | PSJLMUTL ;;10117738
|
---|
166 | PSJLOI ;;863278
|
---|
167 | PSJMDIR ;;15822387
|
---|
Note:
See
TracBrowser
for help on using the repository browser.