| 1 | PXRMISF ; SLC/PKR - Index size estimating scale factor routines. ;01/12/2005
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ;===============================================================
|
|---|
| 5 | ERRORMSG(SF) ;Send an error message indicating the estimate could not
|
|---|
| 6 | ;be made.
|
|---|
| 7 | N VERSION,XMSUB
|
|---|
| 8 | S VERSION=$P(SF,U,2)
|
|---|
| 9 | S ^TMP("PXRMXMZ",$J,1,0)="Size Estimate for ^PXRMINDX cannot be made!"
|
|---|
| 10 | S ^TMP("PXRMXMZ",$J,2,0)=VERSION_" is an unknown system."
|
|---|
| 11 | S XMSUB="Size estimate for index global cannot be made"
|
|---|
| 12 | D SEND^PXRMMSG(XMSUB)
|
|---|
| 13 | S ZTREQ="@"
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | ;===============================================================
|
|---|
| 17 | LSF(SF) ;Load the blocks/index entry scale factors.
|
|---|
| 18 | N VERSION
|
|---|
| 19 | N SFC,SFD
|
|---|
| 20 | ;Cache scale factors
|
|---|
| 21 | S SFC(45)=0.034578654
|
|---|
| 22 | S SFC(52)=0.044820784
|
|---|
| 23 | S SFC(55)=0.047974217
|
|---|
| 24 | S SFC(63)=0.075656684
|
|---|
| 25 | S SFC(70)=0.053003195
|
|---|
| 26 | S SFC(100)=0.046423473
|
|---|
| 27 | S SFC(120.5)=0.01879364
|
|---|
| 28 | S SFC(601.2)=0.04392942
|
|---|
| 29 | S SFC(9000011)=0.023941427
|
|---|
| 30 | S SFC(9000010.07)=0.022569777
|
|---|
| 31 | S SFC(9000010.11)=0.023919113
|
|---|
| 32 | S SFC(9000010.12)=0.022938475
|
|---|
| 33 | S SFC(9000010.13)=0.02297879
|
|---|
| 34 | S SFC(9000010.16)=0.023290489
|
|---|
| 35 | S SFC(9000010.18)=0.022636608
|
|---|
| 36 | S SFC(9000010.23)=0.024028924
|
|---|
| 37 | ;DSM scale factors
|
|---|
| 38 | S SFD(45)=0.099921811
|
|---|
| 39 | S SFD(52)=0.138842661
|
|---|
| 40 | S SFD(55)=0.138609592
|
|---|
| 41 | S SFD(63)=0.163250688
|
|---|
| 42 | S SFD(70)=0.136531655
|
|---|
| 43 | S SFD(100)=0.136755671
|
|---|
| 44 | S SFD(120.5)=0.063012241
|
|---|
| 45 | S SFD(601.2)=0.111356128
|
|---|
| 46 | S SFD(9000011)=0.07777772
|
|---|
| 47 | S SFD(9000010.07)=0.022441328
|
|---|
| 48 | S SFD(9000010.11)=0.077488311
|
|---|
| 49 | S SFD(9000010.12)=0.069942116
|
|---|
| 50 | S SFD(9000010.13)=0.079978059
|
|---|
| 51 | S SFD(9000010.16)=0.080224754
|
|---|
| 52 | S SFD(9000010.18)=0.07300721
|
|---|
| 53 | S SFD(9000010.23)=0.082573858
|
|---|
| 54 | S VERSION=$$VERSION^%ZOSV(1)
|
|---|
| 55 | S VERSION=$$UP^XLFSTR(VERSION)
|
|---|
| 56 | I VERSION["CACHE" M SF=SFC S VERSION="",SF=1
|
|---|
| 57 | I VERSION["DSM" M SF=SFD S VERSION="",SF=1
|
|---|
| 58 | I VERSION'="" D
|
|---|
| 59 | . W !,VERSION," is an unknown system cannot make size estimate!"
|
|---|
| 60 | . S SF=-1_U_VERSION
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
