Changeset 26939 in main
- Timestamp:
- 03/07/23 13:48:45 (4 weeks ago)
- Location:
- adopters/nj/trunk/src/main/ibisq/qModules3/mort
- Files:
-
- 2 added
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
adopters/nj/trunk/src/main/ibisq/qModules3/mort/AgeRate.def
r26754 r26939 1 #### NO LONGER USING! PRODUCES CONFIDENCE LIMITS FOR CRUDE RATES, NOT A-A RATES! ### 1 2 #can use ajrate2 standard func file 10/19/05 2 3 f label Age&Adjusted&Rate … … 4 5 #f data_where %cross1% %cross2%^=99 5 6 # pop_where %cross2%=1&and&15<=age<=44 6 f data_where resid=17 f small_num 208 f small_pop 207 #f data_where resid=1 8 #f small_num 20 9 #f small_pop 20 9 10 10 11 ######################################### … … 107 108 r2=put((rate+stdev)*100000, 8.2); 108 109 rate=rate*100000; 109 r1=compress(r1);110 r2=compress(r2);111 ci= r1 || ' - ' || r2;110 LL=compress(r1); 111 UL=compress(r2); 112 ci=LL || ' - ' || UL; 112 113 n=number; 113 114 if %cross1%=-1 then %cross1%=.; 114 115 ?cross2? if %cross2%=-1 then %cross2%=.; 115 *keep %cross1% %cross2% rate number popnum ci r1 r2;116 *keep %cross1% %cross2% rate number popnum ci LL UL; 116 117 run; 117 118 … … 120 121 title 'before final change'; 121 122 run; 123 124 data tmp; 125 set tmp; 126 if popnum ne . and 0<n<20 then do; 127 rate = .A; 128 *n = .A; 129 *popnum = .A; 130 *LL = .A; 131 *UL = .A; 132 LL = put('**', 8.0); 133 UL = put('**', 8.0); 134 135 *Only one value attribute is allowed - so if suppressed, overwrite unstable; 136 *This also puts ** in record code column for suppressed rows, and adds footnote; 137 redflag = put('Suppressed', $12.); 138 end; 139 *if pop=. then redflag=put('', $12.); *no value attribute for missing crossby values; 140 141 if popnum eq . and n eq 0 then delete; *deletes zero rows with no corresponding pop estimate, e.g. Sex unknown; 142 143 if popnum eq . and n ne 0 then do; *no matching denominator value, e.g., Other Race; 144 rate = put('.', 8.0); 145 LL = put('.', 8.0); 146 UL = put('.', 8.0); 147 redflag= put('NoPop', $12.); 148 end; 149 150 proc print data=tmp noobs; title2 '6. TMP - final dataset to pass to IBIS View app'; 151 run; 122 152 123 153 --------BoNdArY-------- … … 129 159 f out_detail lbl_not_used__see_xml_out_map_file 130 160 rate 15.2 131 r1 15. 132 r2 15. 133 n 15.0 134 popnum 15.0 161 LL 15.3 162 UL 15.3 163 n 15.0 164 popnum 15.0 165 redflag 12.0 135 166 --------BoNdArY-------- 167 --------BoNdArY-------- 168 1 suppressed_variables 5 169 rate 170 LL 171 UL 172 n 173 popnum 174 --------BoNdArY-------- 175 -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/AgeRateCo.def
r26754 r26939 1 #### NO LONGER USING! PRODUCES CONFIDENCE LIMITS FOR CRUDE RATES, NOT A-A RATES! ### 1 2 #can use ajrate2 standard func file 10/19/05 2 3 f label Age&Adjusted&Rate … … 4 5 #f data_where %cross1% %cross2%^=99 5 6 # pop_where %cross2%=1&and&15<=age<=44 6 f data_where resid=17 f small_num 208 f small_pop 207 #f data_where resid=1 8 #f small_num 20 9 #f small_pop 20 9 10 10 11 ######################################### … … 107 108 r2=put((rate+stdev)*100000, 8.2); 108 109 rate=rate*100000; 109 r1=compress(r1);110 r2=compress(r2);111 ci= r1 || ' - ' || r2;110 LL=compress(r1); 111 UL=compress(r2); 112 ci=LL || ' - ' || UL; 112 113 n=number; 113 114 if %cross1%=-1 then %cross1%=.; 114 115 ?cross2? if %cross2%=-1 then %cross2%=.; 115 *keep %cross1% %cross2% rate number popnum ci r1 r2;116 *keep %cross1% %cross2% rate number popnum ci LL UL; 116 117 run; 117 118 … … 121 122 run; 122 123 124 data tmp; 125 set tmp; 126 if popnum ne . and 0<n<20 then do; 127 rateper = .A; 128 *n = .A; 129 *popnum = .A; 130 *LL = .A; 131 *UL = .A; 132 LL = put('**', 8.0); 133 UL = put('**', 8.0); 134 135 *Only one value attribute is allowed - so if suppressed, overwrite unstable; 136 *This also puts ** in record code column for suppressed rows, and adds footnote; 137 redflag = put('Suppressed', $12.); 138 end; 139 *if pop=. then redflag=put('', $12.); *no value attribute for missing crossby values; 140 proc print data=tmp noobs; title2 '6. TMP - final dataset to pass to IBIS View app'; 141 run; 123 142 --------BoNdArY-------- 124 143 f out_variable … … 129 148 f out_detail lbl_not_used__see_xml_out_map_file 130 149 rate 15.2 131 r1 15. 132 r2 15. 133 n 15.0 134 popnum 15.0 150 LL 15.3 151 UL 15.3 152 n 15.0 153 popnum 15.0 154 redflag 12.0 135 155 --------BoNdArY-------- 156 --------BoNdArY-------- 157 1 suppressed_variables 5 158 rate 159 LL 160 UL 161 n 162 popnum 163 --------BoNdArY-------- -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/AgeRateMuni.def
r26754 r26939 1 #### NO LONGER USING! PRODUCES CONFIDENCE LIMITS FOR CRUDE RATES, NOT A-A RATES! ### 1 2 #can use ajrate2 standard func file 10/19/05 2 3 f label Age&Adjusted&Rate 3 4 f type special 5 #f data_where %cross1% %cross2%^=99 6 # pop_where %cross2%=1&and&15<=age<=44 4 7 f data_where resid=1 5 8 f small_num 20 … … 118 121 title 'before final change'; 119 122 run; 120 123 124 data tmp; 125 set tmp; 126 if (0<n<10) then do; 127 rate = .A; 128 r1 = put('**', 8.0); 129 r2 = put('**', 8.0); 130 end; 131 run; 132 121 133 --------BoNdArY-------- 122 134 f out_variable … … 126 138 --------BoNdArY-------- 127 139 f out_detail lbl_not_used__see_xml_out_map_file 128 rate 15.2 140 rate 15.2 141 n 15.0 142 popnum 15.0 129 143 r1 15. 130 144 r2 15. 131 n 15.0132 popnum 15.0133 145 --------BoNdArY-------- 146 ***************** 12. suppressed_variables *****************************************; 147 * ZW's CGI program must be told how many variables it will need to suppress and ; 148 * which ones they are. NOTE: If the SAS code for cell suppression is commented-out, ; 149 * these lines can be left in the .def file without causing any problems. They will ; 150 * only be used if the SAS code above is active, OR if the small_num and small_pop ; 151 parameters are active, and with non-zero values, in the .CFG file. ; 152 ************************************************************************************; 153 --------BoNdArY-------- 154 1 suppressed_variables 1 155 rate 156 --------BoNdArY-------- -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/CrudeRate.def
r26754 r26939 1 #### NO LONGER USING! USE RateCrude100K.DEF INSTEAD ### 1 2 #f label Crude&Rate 2 3 f type special -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/Mort.cfg
r26754 r26939 32 32 r sas 0 33 33 r test 0 34 r small_num 035 r small_pop 2034 #r small_num 0 35 #r small_pop 20 36 36 ############################################################# 37 37 # for type1=num -- SAS data type is numeric -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/MortCo.cfg
r26754 r26939 34 34 r test 0 35 35 r resid 1 36 r small_num 2037 r small_pop 2036 #r small_num 20 37 #r small_pop 20 38 38 ############################################################# 39 39 # for type1=num -- SAS data type is numeric -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/MortMuni.cfg
r26754 r26939 35 35 r test 0 36 36 r resid 1 37 r small_num 2038 r small_pop 2037 #r small_num 20 38 #r small_pop 20 39 39 ############################################################# for type1=num -- SAS data type is numeric 40 40 # char -- SAS data type is Alphabetic -
adopters/nj/trunk/src/main/ibisq/qModules3/mort/MortMuni65K.cfg
r26754 r26939 33 33 r test 0 34 34 r resid 1 35 r small_num 2036 r small_pop 2035 #r small_num 20 36 #r small_pop 20 37 37 ############################################################# 38 38 # for type1=num -- SAS data type is numeric
Note: See TracChangeset
for help on using the changeset viewer.