***********************************; 
 *** Begin Scoring Code for Neural; 
 ***********************************; 
 DROP _DM_BAD _EPS _NOCL_ _MAX_ _MAXP_ _SUM_ _NTRIALS; 
  _DM_BAD = 0; 
  _NOCL_ = .; 
  _MAX_ = .; 
  _MAXP_ = .; 
  _SUM_ = .; 
  _NTRIALS = .; 
  _EPS =                1E-10; 
 LENGTH _WARN_ $4 
 ; 
       label S_AGE = 'Standard: AGE' ; 
  
       label S_BMI = 'Standard: BMI' ; 
  
       label S_BP = 'Standard: BP' ; 
  
       label S_NPREG = 'Standard: NPREG' ; 
  
       label H11 = 'Hidden: H1=1' ; 
  
       label P_GLU = 'Predicted: GLU' ; 
  
       label  _WARN_ = "Warnings"; 
  
 *** *************************; 
 *** Checking missing input Interval 
 *** *************************; 
  
 IF NMISS( 
    AGE , 
    BMI , 
    BP , 
    NPREG   ) THEN DO; 
    SUBSTR(_WARN_, 1, 1) = 'M'; 
  
    _DM_BAD = 1; 
 END; 
 *** *************************; 
 *** Writing the Node interval ; 
 *** *************************; 
 IF _DM_BAD EQ 0 THEN DO; 
    S_AGE  =    -3.09480671785996 +     0.09484544032669 * AGE ; 
    S_BMI  =    -5.32959881569554 +     0.16043343816061 * BMI ; 
    S_BP  =    -6.23186009075952 +     0.08732987795346 * BP ; 
    S_NPREG  =    -1.10577327481295 +     0.31325021949375 * NPREG ; 
 END; 
 ELSE DO; 
    IF MISSING( AGE ) THEN S_AGE  = . ; 
    ELSE S_AGE  =    -3.09480671785996 +     0.09484544032669 * AGE ; 
    IF MISSING( BMI ) THEN S_BMI  = . ; 
    ELSE S_BMI  =    -5.32959881569554 +     0.16043343816061 * BMI ; 
    IF MISSING( BP ) THEN S_BP  = . ; 
    ELSE S_BP  =    -6.23186009075952 +     0.08732987795346 * BP ; 
    IF MISSING( NPREG ) THEN S_NPREG  = . ; 
    ELSE S_NPREG  =    -1.10577327481295 +     0.31325021949375 * NPREG ; 
 END; 
 *** *************************; 
 *** Writing the Node H1 ; 
 *** *************************; 
 IF _DM_BAD EQ 0 THEN DO; 
    H11  =    -0.91009647092622 * S_AGE  +    -0.41076471871919 * S_BMI 
           +     0.26317138409365 * S_BP  +    -1.00372961444388 * S_NPREG ; 
    H11  =    -0.17174374263479 + H11 ; 
    H11  = TANH(H11 ); 
 END; 
 ELSE DO; 
    H11  = .; 
 END; 
 *** *************************; 
 *** Writing the Node T_INTRVL ; 
 *** *************************; 
 IF _DM_BAD EQ 0 THEN DO; 
    P_GLU  =    -12.0780897121097 * H11 ; 
    P_GLU  =      123.63885178718 + P_GLU ; 
 END; 
 ELSE DO; 
    P_GLU  = .; 
 END; 
 IF _DM_BAD EQ 1 THEN DO; 
    P_GLU  =               123.03; 
 END; 
 ********************************; 
 *** End Scoring Code for Neural; 
 ********************************;