Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
2.4 KB
|
Line | |
---|
1 | PRSNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950922.134403
|
---|
2 | ;;4.0;PAID;;Sep 21, 1995
|
---|
3 | ;;7.3V5;2950922.134403
|
---|
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 | ;
|
---|
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 | PRSDPR04 ;;10376550
|
---|
13 | PRSDPR05 ;;9056249
|
---|
14 | PRSDPR06 ;;12243616
|
---|
15 | PRSDPR07 ;;10123623
|
---|
16 | PRSDPR08 ;;12984025
|
---|
17 | PRSDPRIN ;;5124408
|
---|
18 | PRSDPRNT ;;3192947
|
---|
19 | PRSDPROC ;;9127564
|
---|
20 | PRSDPTYP ;;1820900
|
---|
21 | PRSDRPT ;;9515151
|
---|
22 | PRSDSERV ;;12920197
|
---|
23 | PRSDSET ;;4557983
|
---|
24 | PRSDSRC ;;10180339
|
---|
25 | PRSDSRC1 ;;7237187
|
---|
26 | PRSDSRC2 ;;6729387
|
---|
27 | PRSDSRP ;;11564257
|
---|
28 | PRSDSRP1 ;;5752540
|
---|
29 | PRSDSRP2 ;;9688760
|
---|
30 | PRSDSRP3 ;;4184347
|
---|
31 | PRSDSRS ;;10057777
|
---|
32 | PRSDSTAT ;;12706108
|
---|
33 | PRSDUTIL ;;11600620
|
---|
34 | PRSDV450 ;;8169233
|
---|
35 | PRSDV459 ;;11968865
|
---|
36 | PRSDVTBL ;;17687548
|
---|
37 | PRSDW450 ;;5877732
|
---|
38 | PRSDXREF ;;837590
|
---|
39 | PRSDYTD ;;6067724
|
---|
40 | PRSE ;;658463
|
---|
41 | PRSECAL ;;10923874
|
---|
42 | PRSEDEL ;;5780899
|
---|
43 | PRSEDEL1 ;;14732844
|
---|
44 | PRSEDESC ;;629815
|
---|
45 | PRSEED0 ;;18936199
|
---|
46 | PRSEED1 ;;18722471
|
---|
47 | PRSEED10 ;;15411781
|
---|
48 | PRSEED12 ;;21326941
|
---|
49 | PRSEED13 ;;17905239
|
---|
50 | PRSEED14 ;;19074363
|
---|
51 | PRSEED2 ;;11035087
|
---|
52 | PRSEED3 ;;4235837
|
---|
53 | PRSEED4 ;;18201446
|
---|
54 | PRSEED5 ;;9006607
|
---|
55 | PRSEED6 ;;16737764
|
---|
56 | PRSEED7 ;;9090273
|
---|
57 | PRSEED8 ;;18155658
|
---|
58 | PRSEED9 ;;11534377
|
---|
59 | PRSEEMP ;;18475913
|
---|
60 | PRSEEMP1 ;;20736910
|
---|
61 | PRSEEMP2 ;;5816372
|
---|
62 | PRSEKILL ;;5155972
|
---|
63 | PRSEMSG ;;6298587
|
---|
64 | PRSEPMC ;;11359804
|
---|
65 | PRSEPMD1 ;;1112371
|
---|
66 | PRSEPMD4 ;;9243091
|
---|
67 | PRSEPMD5 ;;9340731
|
---|
68 | PRSEPMD6 ;;4595909
|
---|
69 | PRSEPOL0 ;;6594077
|
---|
70 | PRSEPOL1 ;;7099353
|
---|
71 | PRSEPRG0 ;;4422374
|
---|
72 | PRSERSTR ;;12499513
|
---|
73 | PRSEUTL ;;12877412
|
---|
74 | PRSEUTL1 ;;11112934
|
---|
75 | PRSEUTL2 ;;17179426
|
---|
76 | PRSEUTL3 ;;8905762
|
---|
77 | PRSEUTL4 ;;13139355
|
---|
78 | PRSEUTL5 ;;4591639
|
---|
79 | PRSEUTL6 ;;5396946
|
---|
80 | PRSIKIL ;;1770086
|
---|
81 | PRSIPRE ;;1216145
|
---|
82 | PRSIPST ;;7286608
|
---|
83 | PRSIPST1 ;;1162735
|
---|
84 | PRSIPST2 ;;6554352
|
---|
85 | PRSRASOR ;;4039296
|
---|
86 | PRSRAU1 ;;14502424
|
---|
87 | PRSRAU11 ;;8488427
|
---|
88 | PRSREX1 ;;7698322
|
---|
89 | PRSREX11 ;;11706748
|
---|
90 | PRSRL1 ;;15355425
|
---|
91 | PRSRL11 ;;7069885
|
---|
92 | PRSRL12 ;;7560663
|
---|
93 | PRSRL2 ;;11631557
|
---|
94 | PRSRL21 ;;14565134
|
---|
95 | PRSRL4 ;;17913492
|
---|
96 | PRSRL41 ;;8781797
|
---|
97 | PRSRLL ;;3492456
|
---|
98 | PRSRLSOR ;;8310218
|
---|
99 | PRSROSOR ;;7085759
|
---|
100 | PRSROT1 ;;12576227
|
---|
101 | PRSROT11 ;;11558630
|
---|
102 | PRSRPSOR ;;8085363
|
---|
103 | PRSRTLPR ;;8848863
|
---|
104 | PRSRUT0 ;;6657202
|
---|
105 | PRSRUTL ;;3691610
|
---|
Note:
See
TracBrowser
for help on using the repository browser.