|
Last change
on this file since 1644 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
