source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMISF.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1PXRMISF ; SLC/PKR - Index size estimating scale factor routines. ;01/12/2005
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;===============================================================
5ERRORMSG(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 ;===============================================================
17LSF(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 ;
Note: See TracBrowser for help on using the repository browser.