| 1 | PRPFNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;4/25/97 8:47 PM
|
|---|
| 2 | V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
|
|---|
| 3 | ;;7.3;APRIL 25, 1997
|
|---|
| 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 | PRPFARC ;;8679859
|
|---|
| 13 | PRPFBAL ;;11314957
|
|---|
| 14 | PRPFBUL ;;2455908
|
|---|
| 15 | PRPFCD ;;12389424
|
|---|
| 16 | PRPFCD1 ;;8145014
|
|---|
| 17 | PRPFCVT ;;17611489
|
|---|
| 18 | PRPFCVT0 ;;2290669
|
|---|
| 19 | PRPFCVT1 ;;10462878
|
|---|
| 20 | PRPFDAY ;;4251879
|
|---|
| 21 | PRPFDEF ;;1977626
|
|---|
| 22 | PRPFDMT ;;9732150
|
|---|
| 23 | PRPFDSI ;;12867316
|
|---|
| 24 | PRPFDSI1 ;;6540639
|
|---|
| 25 | PRPFDST ;;6584567
|
|---|
| 26 | PRPFED ;;12821437
|
|---|
| 27 | PRPFED1 ;;6320822
|
|---|
| 28 | PRPFED2 ;;3874911
|
|---|
| 29 | PRPFIENV ;;9390156
|
|---|
| 30 | PRPFIPRE ;;3331323
|
|---|
| 31 | PRPFIPST ;;1886457
|
|---|
| 32 | PRPFMIN ;;4311978
|
|---|
| 33 | PRPFMUL ;;12303559
|
|---|
| 34 | PRPFNQ ;;12273575
|
|---|
| 35 | PRPFOBR ;;10991613
|
|---|
| 36 | PRPFPNT ;;3531592
|
|---|
| 37 | PRPFPOST ;;13060982
|
|---|
| 38 | PRPFPUR1 ;;8495575
|
|---|
| 39 | PRPFPURG ;;7410896
|
|---|
| 40 | PRPFQ ;;9199717
|
|---|
| 41 | PRPFRES ;;9522935
|
|---|
| 42 | PRPFRPT ;;5087530
|
|---|
| 43 | PRPFS ;;6926789
|
|---|
| 44 | PRPFSCV ;;1433523
|
|---|
| 45 | PRPFSCV1 ;;1624392
|
|---|
| 46 | PRPFSCV2 ;;4727885
|
|---|
| 47 | PRPFSCV3 ;;2585917
|
|---|
| 48 | PRPFSIG ;;2317686
|
|---|
| 49 | PRPFSIG1 ;;2784076
|
|---|
| 50 | PRPFSIG2 ;;3975813
|
|---|
| 51 | PRPFSITE ;;2137552
|
|---|
| 52 | PRPFSUM ;;248107
|
|---|
| 53 | PRPFTAT ;;7070713
|
|---|
| 54 | PRPFTRCK ;;9320919
|
|---|
| 55 | PRPFU ;;4540248
|
|---|
| 56 | PRPFU1 ;;2521830
|
|---|
| 57 | PRPFU2 ;;5136900
|
|---|
| 58 | PRPFYN ;;1420418
|
|---|
