Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
2.4 KB
|
Rev | Line | |
---|
[628] | 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.