source: WorldVistAEHR/trunk/r/PAID-PRS/PRSNTEG0.m@ 1093

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

initial load of WorldVistAEHR

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