/*******************************************************************************
Project: Manitoba RHA Indicators Atlas 2024

File: S:\rha2024\prog\hprior\maternal\rgindex.sas

Programmer: Heather Prior

First Created: August 1, 2024

Revisions: none

Description: The program groups mothers into one of 6 categories 
of the R-GINDEX to classifies prenatal care received.

Key Variables:
GEST = Gestational Age (18-45 weeks based on LMP)
PCV = Number of Prenatal Care Visits (0 = None)
TPCB = Trimester Prenatal Care Began (0 = None, 1-3 trimesters)
GINDEX = Graduated Prenatal Care Utilization Index
 
NOTE:  Trimester 1 = (0-13 weeks or 1-91 days)
       Trimester 2 = (14-27 weeks or 92-189 days)
       Trimester 3 = (28+ weeks or 190+ days)

usage: %include 'S:\rha2024\prog\hprior\maternal\rgindex.sas';

SAS code from Concept Dictionary.
R-GINDEX proposed by Alexander and Kotelchuck 1996
*******************************************************************************/

***** CODING ALGORITHMS FOR REVISED GINDEX;

length gindex $28;

**** INTENSIVE PRENATAL CARE UTILIZATION;
IF (TPCB=1) & 
        (((18<=GEST<=21) & (11=<PCV))         |    ((22<=GEST<=25) & (13=<PCV))
        |  ((26<=GEST<=29) & (14=<PCV))       |    ((30<=GEST<=31) & (15=<PCV))
        |  ((32<=GEST<=36) & (16=<PCV))       |    ((37<=GEST<=40) & (17<=PCV))
        |  ((41<=GEST<=42) & (18=<PCV))       |    ((43<=GEST<=45) & (19<=PCV))) THEN GINDEX = 'INTENSIVE (1st Trimester)';
IF (TPCB=2) & 
        (((18<=GEST<=21) & (10=<PCV))         |    ((22<=GEST<=25) & (11=<PCV))
        |  ((26<=GEST<=31) & (12=<PCV))       |    ((32<=GEST<=35) & (13=<PCV))
        |  ((36<=GEST<=37) & (14=<PCV))       |    ((38<=GEST<=40) & (15=<PCV))
        |  ((41<=GEST<=42) & (16=<PCV))       |    ((43<=GEST<=45) & (17<=PCV))) THEN GINDEX = 'INTENSIVE (2nd Trimester)';
IF (TPCB=3) & 
        (((GEST=25) & (9=<PCV))               |     ((26<=GEST<=31) & (10=<PCV))
        |  ((32<=GEST<=35) & (11=<PCV))       |     ((36<=GEST<=37) & (12=<PCV))
        |  ((38<=GEST<=40) & (13=<PCV))       |     ((41<=GEST<=42) & (14=<PCV))
        |  ((43<=GEST<=45) & (15=<PCV)))                                   THEN GINDEX = 'INTENSIVE (3rd Trimester)';

**** ADEQUATE PRENATAL CARE UTILIZATION CRITERIA;
IF (TPCB=1) & 
        (((18<=GEST<=21) & (3=<PCV<=10))      |       ((22<=GEST<=25) & (4=<PCV<=12))
        | ((26<=GEST <=29) & (5=<PCV<= 13))   |        ((30<=GEST<=31) & (6=<PCV<= 14))
        | ((32<=GEST<=33)  & (7=<PCV<=15))    |        ((34<=GEST<=35) & (8=<PCV<=15))
        | ((GEST=36)       & (9=<PCV<=15))    |        ((GEST =37) & (10<=PCV<=16))
        | ((GEST=38)       & (11=<PCV<=16))   |        ((GEST =39) & (12<=PCV<=16))
        | ((GEST=40) & (13=<PCV<=16))         |        ((GEST =41) & (14<=PCV<=17))
        | ((GEST=42) & (15=<PCV<=17))         |        ((43<=GEST<=45) & (16<=PCV<=18))) THEN GINDEX = 'ADEQUATE (1st Trimester)';

**** INTERMEDIATE PRENATAL CARE UTILIZATION CRITERIA;
IF (TPCB=1) & 
        (((18<=GEST<=21) & (1<=PCV<=2))       |     ((22<=GEST<=25) & (2=<PCV<=3))
        | ((26<=GEST<=29) & (2=<PCV<=4))      |      ((30<=GEST<=31) & (3=<PCV<=5))
        | ((32<=GEST<=33) & (4=<PCV<=6))      |      ((34<=GEST<=35) & (5=<PCV<=7))
        | ((GEST=36) & (5=<PCV<=8))           |      ((GEST=37) & (6=<PCV<=9))
        | ((GEST=38) & (7=<PCV<=10))          |       ((GEST=39) & (7=<PCV<=11))
        | ((GEST=40) & (8=<PCV<=12))          |       ((GEST=41) & (8=<PCV<=13))
        | ((GEST=42) & (9=<PCV<=14))          |       ((43<=GEST<=45) & (9=<PCV<=15)))    THEN GINDEX = 'INTERMEDIATE (1st Trimester)';

IF (TPCB=2) & 
        (((18<=GEST<=21) & (1=<PCV<=9))       |  ((22<=GEST<=25) & (2=<PCV<=10))
        | ((26<=GEST<=29) & (2=<PCV<=11))     |  ((30<=GEST<=31) & (3=<PCV<=11))
        | ((32<=GEST<=33) & (4=<PCV<=12))     |  ((34<=GEST<=35) & (5=<PCV<=12))
        | ((36<=GEST<=37) & (6=<PCV<=13))     |  ((38<=GEST<=39) & (7=<PCV<=14))
        | ((GEST=40) & (8=<PCV<=14))          |  ((GEST =41)     & (8=<PCV<=15))
        | ((GEST=42) & (9=<PCV<=15))          |  ((43<=GEST<=45) & (9=<PCV<=16)))     THEN GINDEX = 'INTERMEDIATE (2nd Trimester)';

**** INADEQUATE PRENATAL CARE UTILIZATION CRITERIA;
IF (TPCB=1) & 
        (((22<=GEST<=29) & (PCV=1))           |    ((30<=GEST<=31) & (1<=PCV<=2))
        | ((32<=GEST<=33) & (1<=PCV<=3))      |    ((34<=GEST<=36) & (1<=PCV<=4))
        | ((GEST=37) & (1<=PCV<=5))           |    ((38<=GEST<=39) & (1<=PCV<=6))
        | ((40<=GEST<=41) & (1<=PCV<=7))      |    ((42<=GEST<=45) & (1<=PCV<=8)))   THEN GINDEX = 'INADEQUATE (1st Trimester)';
IF (TPCB=2) & 
        (((22<=GEST<=29) & (PCV=1))           |      ((30<=GEST<=31) & (1<=PCV<=2))
        | ((32<=GEST<=33) & (1<=PCV<=3))      |      ((34<=GEST<=35) & (1<=PCV<=4))
        | ((36<=GEST<=37) & (1<=PCV<=5))      |      ((38<=GEST<=39) & (1<=PCV<=6))
        | ((40<=GEST<=41) & (1<=PCV<=7))      |      ((42<=GEST<=45) & (1<=PCV<=8)))  THEN GINDEX = 'INADEQUATE (2nd Trimester)';
IF (TPCB=3) & 
        (((GEST =25) & (1<=PCV<=8))           |    ((26<=GEST<=31) & (1<=PCV<=9))
        | ((32<=GEST<=35) & (1<=PCV<=10))     |    ((36<=GEST<=37) & (1<=PCV<=11))
        | ((38<=GEST<=40) & (1<=PCV<=12))     |    ((41<=GEST<=42) & (1<=PCV<=13))
        | ((43<=GEST<=45) & (1<=PCV<=14)))                                            THEN GINDEX = 'INADEQUATE (3rd Trimester)';

**** MISSING PRENATAL CARE CRlTERIA;
IF (((PCV=.) & (TPCB^=0))                     |  ((TPCB=3) & (1<=GEST<=24))
|  ((TPCB=2) & (1<=GEST<=11))                 |  ((GEST=.) & (PCV^=0))
|  ((TPCB=.) & (PCV^=0))                      |  (TPCB=0 & (PCV>0))) THEN GINDEX = 'MISSING';

**** NO PRENATAL CARE UTILIZATION;
IF (PCV=0)                                    |      (TPCB=0 & PCV=.) THEN GINDEX = 'NOCARE';