Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BUDHRP7I

BUDHRP7I.m

Go to the documentation of this file. 
  1. BUDHRP7I ;IHS/CMI/LAB - UDS REPORT T7;
  1.  ;;13.0;IHS/RPMS UNIFORM DATA SYSTEM;;OCT 12, 2018;Build 90
  1.  ;
  1.  ;
  1. S(V) ;
  1.  S BUDDECNT=BUDDECNT+1
  1.  S ^TMP($J,"BUDDEL",BUDDECNT)=$G(V)
  1.  Q
  1.  ;----------
  1. PAUSE ;
  1.  K DIR S DIR(0)="E",DIR("A")="PRESS ENTER" KILL DA D ^DIR KILL DIR
  1.  Q
  1. GENI ;EP - general introductions
  1.  W !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
  1.  W !,"patient population.  It is recommended that you run these reports at night and"
  1.  W !,"print to an electronic file, not directly to a printer.",!
  1.  K DIR S DIR(0)="E",DIR("A")="Press Enter to Continue" D ^DIR K DIR
  1.  W !!,"This Patient List option documents the individual patients and visits"
  1.  W !,"that are counted and summarized on each Table report (main menu"
  1.  W !,"option REP).  The summary Table report is included at the beginning of each"
  1.  W !,"List report."
  1.  W !,"UDS searches your database to find all visits and related patients"
  1.  W !,"during the time period selected. Based on the UDS definition, to be counted"
  1.  W !,"as a patient, the patient must have had at least one visit meeting the "
  1.  W !,"following criteria:"
  1.  W !?4,"- must be to a location specified in your visit location setup"
  1.  W !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  1.  W !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  1.  W !?6,"or In-Hospital (I) visit"
  1.  W !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  1.  W !?4,"- must have a primary provider and a coded purpose of visit"
  1.  W !?4,"- the patient must NOT have a gender of 'Unknown'"
  1.  W !
  1.  Q
  1.  ;
  1. CTR(X,Y) ;EP - Center X in a field Y wide.
  1.  Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
  1.  ;----------
  1. USR() ;EP - Return name of current user from ^VA(200.
  1.  Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
  1.  ;----------
  1. LOC() ;EP - Return location name from file 4 based on DUZ(2).
  1.  Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
  1.  ;----------
  1. PRGH ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2018",80)
  1.  W !!,"Pregnant Patients w/HIV (Table 7, Section A)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of patients that had pregnancy-related visits"
  1.  W !,"during the past 20 months, with at least one pregnancy-related visit"
  1.  W !,"during the report period, and who have been diagnosed with HIV."
  1.  W !
  1.  Q
  1. PRGHL ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D PRGHH Q:BUDQUIT
  1.  I '$D(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH")) S X="No patients to report." W:BUDROT="P" !!,X D:BUDROT="D" S(),S(X) Q
  1.  D PRGHL1
  1.  I BUDROT="P",$Y>(IOSL-3) D PRGHH G:BUDQUIT PRGHLX
  1.  S X="TOTAL HIV POSITIVE PREGNANT PATIENTS: "_BUDTOT
  1.  I BUDROT="P" W !,X,!
  1.  I BUDROT="D" D S(),S(X)
  1. PRGHLX ;
  1.  Q
  1. PRGHL1 ;
  1.  I BUDROT="P",$Y>(IOSL-7) D PRGHH Q:BUDQUIT
  1.  S BUDTOT=0
  1.  S BUDA=0 F  S BUDA=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH",BUDA)) Q:BUDA'=+BUDA!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH",BUDA,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCCOM="" F  S BUDCCOM=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH",BUDA,BUDNAME,BUDCCOM)) Q:BUDCCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH",BUDA,BUDNAME,BUDCCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I BUDROT="P",$Y>(IOSL-3) D PRGHH Q:BUDQUIT
  1.  ....S BUDX=^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH",BUDA,BUDNAME,BUDCCOM,DFN)
  1.  ....I BUDROT="P" W !,$E($P(^DPT(DFN,0),U,1),1,23),?25,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCCOM,1,12),?54,BUDA,?59,$P(BUDX,"@",2),!
  1.  ....S BUDTOT=BUDTOT+1
  1.  ....S BUDALL=^XTMP("BUDHRP7",BUDJ,BUDH,"PRGH",BUDA,BUDNAME,BUDCCOM,DFN)
  1.  ....S BUDPPV=$P(BUDALL,"#",1)
  1.  ....S BUDHIV=$P(BUDALL,"#",2)
  1.  ....S BUDHIV=$P(BUDHIV,"@",1)
  1.  ....S BUDPV="" I BUDROT="D" S BUDPV=$E($P(^DPT(DFN,0),U,1),1,30)_U_$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2))_U_$E(BUDCCOM,1,12)_U_BUDA_U_$P(BUDX,"@",2)
  1.  ....F BUDX=1:1 S BUDV=$P(BUDPPV,U,BUDX) Q:BUDV=""!(BUDQUIT)  D
  1.  .....I BUDROT="P",$Y>(IOSL-3) D PRGHH Q:BUDQUIT
  1.  .....I BUDROT="P",$E(BUDV)="P" W ?5,BUDV,! Q
  1.  .....I BUDROT="D" S BUDPV=BUDPV_U_BUDV D S(BUDPV) Q
  1.  .....S V=$P(BUDV,"|"),C=$P(BUDV,"|",2)
  1.  .....I BUDROT="P" W ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  1.  .....I BUDROT="D" S X=BUDPV_U_$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),"."))_U_C_U_$$PRIMPROV^APCLV(V,"D")_U_$P(^AUPNVSIT(V,0),U,7)_U_$$CLINIC^APCLV(V,"C")_U_$$VAL^XBDIQ1(9000010,V,.06) D S(X)
  1.  ....F BUDX=1:1 S BUDV=$P(BUDHIV,U,BUDX) Q:BUDV=""!(BUDQUIT)  D
  1.  .....I BUDROT="P",$Y>(IOSL-3) D PRGHH Q:BUDQUIT
  1.  .....I BUDROT="P",$E(BUDV)="P" W ?5,BUDV,! Q
  1.  .....I BUDROT="D" S BUDPV=BUDPV_U_BUDV D S(BUDPV) Q
  1.  .....S V=$P(BUDV,"|"),C=$P(BUDV,"|",2)
  1.  .....I BUDROT="P" W ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  1.  .....I BUDROT="D" S X=BUDPV_U_$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),"."))_U_C_U_$$PRIMPROV^APCLV(V,"D")_U_$P(^AUPNVSIT(V,0),U,7)_U_$$CLINIC^APCLV(V,"C")_U_$$VAL^XBDIQ1(9000010,V,.06) D S(X)
  1.  Q
  1. PRGHHD ;
  1.  D S(),S(),S()
  1.  D S("***** SENSITIVE INFORMATION *****")
  1.  D S($P(^VA(200,DUZ,0),U,2)_"    "_$$FMTE^XLFDT(DT))
  1.  D S("***  RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_"  ***")
  1.  D S("Patient List for Table 7,  HIV Positive Pregnant Women")
  1.  D S($P(^DIC(4,BUDSITE,0),U))
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) D S(X)
  1.  S X="Population:  "_$S($G(BUDBEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDBEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDBEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") D S(X)
  1.  D S()
  1.  D S("List of all pregnant patients with HIV, with most recent pregnancy")
  1.  D S("related visits during the past 20 months.")
  1.  D S("Age on the patient list is calculated as of June 30.")
  1.  D S()
  1.  D S("PATIENT NAME^HRN^COMMUNITY^AGE^CD & Date Last HIV DX^VISIT DATE^DX OR SVC CD^PROV TYPE^SVC CAT^CLINIC^LOCATION")
  1.  Q
  1. PRGHH ;
  1.  I BUDROT="D" D PRGHHD Q
  1.  G:'BUDGPG PRGHH1
  1.  K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BUDQUIT=1 Q
  1. PRGHH1 ;
  1.  W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
  1.  W !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  1.  W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,!
  1.  W !,$$CTR("***  RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_"  ***",80)
  1.  W !,$$CTR("Patient List for Table 7, HIV Positive Pregnant Women",80),!
  1.  W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
  1.  W $TR($J("",80)," ","-")
  1.  I BUDP=0 D
  1.  .W !,"List of all pregnant patients with HIV, with most recent pregnancy"
  1.  .W !,"related visits during the past 20 months."
  1.  .W !,"Age on the patient list is calculated as of June 30."
  1.  .W !
  1.  W !,"PATIENT NAME",?25,"HRN",?41,"COMMUNITY",?53,"AGE",?59,"CD & Date Last HIV DX"
  1.  W !?5,"VISIT DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;
  1. PRGR ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2018",80)
  1.  W !!,"All Pregnant Patients by Race and Hispanic or Latino Identity",!,"(Table 7, Section A)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list by race and Hispanic or Latino Identity"
  1.  W !,"of patients that had pregnancy-related visits during the past 20 months,"
  1.  W !,"with at least one pregnancy related visit during the report period."
  1.  W !
  1.  Q
  1. PRGRL ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D PRGRH Q:BUDQUIT
  1.  I '$D(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR")) S X="No patients to report." W:BUDROT="P" !!,X D:BUDROT="D" S(),S(X) Q
  1.  D PRGRL1
  1.  I BUDROT="P",$Y>(IOSL-3) D PRGRH G:BUDQUIT PRGRLX
  1.  S X="TOTAL PREGNANT PATIENTS BY HISPANIC OR LATINO IDENTITY AND RACE: "_BUDTOT
  1.  I BUDROT="P" W !,X,!
  1.  I BUDROT="D" D S(),S(X)
  1. PRGRLX ;
  1.  Q
  1. RACE(R) ;EP
  1.  I R="UNREP/REF" Q "Unreported/Refused to Report"
  1.  I R="ASIAN" Q "Asian"
  1.  I R="NATIVE HAWAIIAN" Q "Native Hawaiian"
  1.  I R="OTH PAC ISLANDER" Q "Other Pacific Islander"
  1.  I R="BLACK" Q "Black/African American"
  1.  I R="AI/AN" Q "American Indian/Alaska Native"
  1.  I R="WHITE" Q "White"
  1.  I R="HISPANIC,WHITE" Q "White"
  1.  I R="HISPANIC,BLACK" Q "Black/African American"
  1.  I R="MORE THAN ONE RACE" Q "More than One Race"
  1.  Q ""
  1.  ;
  1. PRGRL1 ;
  1.  I BUDROT="P",$Y>(IOSL-7) D PRGRH Q:BUDQUIT
  1.  S BUDTOT=0
  1.  S BUDRACE="" F  S BUDRACE=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE)) Q:BUDRACE=""!(BUDQUIT)  D
  1.  .S BUDHTH="" F  S BUDHTH=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE,BUDHTH)) Q:BUDHTH=""!(BUDQUIT)  D PRGRL2
  1.  Q
  1. PRGRL2 ;
  1.  S BUDSTOT=0
  1.  S BUDRACEL=$$RACEL(BUDRACE,BUDHTH)
  1.  I BUDROT="P" W !,BUDRACEL
  1.  I BUDROT="D" D S(BUDRACEL)
  1.  S BUDCCOM="" F  S BUDCCOM=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE,BUDHTH,BUDCCOM)) Q:BUDCCOM=""!(BUDQUIT)  D
  1.  .S BUDA="" F  S BUDA=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE,BUDHTH,BUDCCOM,BUDA)) Q:BUDA=""!(BUDQUIT)  D
  1.  ..S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE,BUDHTH,BUDCCOM,BUDA,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE,BUDHTH,BUDCCOM,BUDA,BUDNAME,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I BUDROT="P",$Y>(IOSL-3) D PRGRH Q:BUDQUIT  W !,BUDRACEL,!
  1.  ....I BUDROT="P" W !?2,$E($P(^DPT(DFN,0),U,1),1,20),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCCOM,1,10),?47,BUDA,!  ;
  1.  ....I BUDROT="D" S BUDPV="",BUDPV=$E($P(^DPT(DFN,0),U,1),1,30)_U_$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2))_U_$E(BUDCCOM,1,12)_U_BUDA
  1.  ....S BUDTOT=BUDTOT+1,BUDSTOT=BUDSTOT+1
  1.  ....S BUDRACV=$$RACE^BUDHRPTC(DFN)
  1.  ....I BUDROT="P" W ?2,$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3),")"  ;,?60,$E($P($$RACE^BUDHRPTC(DFN),U,3)_"-"_$P($$RACE^BUDHRPTC(DFN),U,4),1,19)
  1.  ....I BUDROT="D" S BUDPV=BUDPV_U_$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3)_")"
  1.  ....S BUDHISV=$$HISP^BUDHRPTC(DFN)
  1.  ....I BUDROT="P" W ?24,$P(BUDHISV,U,3)," (",$P(BUDHISV,U,2),")",!
  1.  ....I BUDROT="D" S BUDPV=BUDPV_U_$P(BUDHISV,U,3)_" ("_$P(BUDHISV,U,2)_")"
  1.  ....S BUDALL=^XTMP("BUDHRP7",BUDJ,BUDH,"PRGR",BUDRACE,BUDHTH,BUDCCOM,BUDA,BUDNAME,DFN)
  1.  ....S BUDPPV=$P(BUDALL,"#",1)
  1.  ....F BUDX=1:1 S BUDV=$P(BUDPPV,U,BUDX) Q:BUDV=""!(BUDQUIT)  D
  1.  .....I BUDROT="P",$Y>(IOSL-3) D PRGRH Q:BUDQUIT  W !,BUDRACEL,!
  1.  .....I BUDROT="P" I $E(BUDV)="P" W ?5,BUDV,! Q
  1.  .....I BUDROT="D" I $E(BUDV)="P" S X=BUDPV_U_BUDV D S(X) Q
  1.  .....S V=$P(BUDV,"|"),C=$P(BUDV,"|",2)
  1.  .....I BUDROT="P" W ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  1.  .....I BUDROT="D" S X=BUDPV_U_$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),"."))_U_C_U_$$PRIMPROV^APCLV(V,"D")_U_$P(^AUPNVSIT(V,0),U,7)_U_$$CLINIC^APCLV(V,"C")_U_$$VAL^XBDIQ1(9000010,V,.06) D S(X)
  1.  I BUDROT="P",$Y>(IOSL-4) D PRGRH Q:BUDQUIT  W !,BUDRACEL,!
  1.  S X="Sub-Total "_BUDRACEL_":  "_BUDSTOT
  1.  I BUDROT="P" W !,X,!
  1.  I BUDROT="D" D S(X),S()
  1.  Q
  1. PRGRH ;
  1.  I BUDROT="D" D PRGRHD Q
  1.  G:'BUDGPG PRGRH1
  1.  K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BUDQUIT=1 Q
  1. PRGRH1 ;
  1.  W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
  1.  W !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  1.  W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,!
  1.  W !,$$CTR("***  RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_"  ***",80)
  1.  W !,$$CTR("Patient List for Table 7, Section A",80),!,$$CTR("All Pregnant Patients by Race and Hispanic or Latino Identity",80),!
  1.  W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
  1.  W $TR($J("",80)," ","-")
  1.  I BUDP=0 D
  1.  .W !,"List of all pregnant patients by race and Hispanic or Latino Identity,"
  1.  .W !,"with most recent pregnancy related visits during the past 20 months."
  1.  .W !,"Age on the patient list is calculated as of June 30."
  1.  .W !,"* E - denotes the value was obtained from the Ethnicity field."
  1.  .W !,"  R - denotes the value was obtained from the Race field"
  1.  .W !,"  C - denotes the value was obtained from the Classification/Beneficiary field"
  1.  .W !
  1.  W !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"AGE"
  1.  W !?2,"RACE*",?24,"HISPANIC OR LATINO IDENTITY*"
  1.  W !?5,"VISIT DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1. PRGRHD ;
  1.  D S(),S(),S()
  1.  D S("***** SENSITIVE INFORMATION *****")
  1.  D S($P(^VA(200,DUZ,0),U,2)_"    "_$$FMTE^XLFDT(DT))
  1.  D S("***  RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_"  ***")
  1.  D S("Patient List for Table 7, Section A, All Pregnant Patients by Race and Hispanic or Latino Identity")
  1.  D S($P(^DIC(4,BUDSITE,0),U))
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) D S(X)
  1.  S X="Population:  "_$S($G(BUDBEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDBEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDBEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") D S(X)
  1.  D S()
  1.  D S("List of all pregnant patients by race and Hispanic or Latino Identity,")
  1.  D S("with most recent pregnancy related visits during the past 20 months.")
  1.  D S("Age on the patient list is calculated as of June 30.")
  1.  D S("* E - denotes the value was obtained from the Ethnicity field.")
  1.  D S("  R - denotes the value was obtained from the Race field")
  1.  D S("  C - denotes the value was obtained from the Classification/Beneficiary field")
  1.  D S()
  1.  D S("PATIENT NAME^HRN^COMMUNITY^AGE^RACE*^HISPANIC OR LATINO IDENTITY^VISIT DATE^DX OR SVC CD^PROV TYPE^SVC CAT^CLINIC^LOCATION")
  1.  Q
  1. RACEL(R,E) ;EP
  1.  I R=1,E=1 Q "Asian, Hispanic"
  1.  I R=1,E=2 Q "Asian, Non-Hispanic"
  1.  I R=2,E=1 Q "Native Hawaiian, Hispanic"
  1.  I R=2,E=2 Q "Native Hawaiian, Non-Hispanic"
  1.  I R=3,E=1 Q "Other Pacific Islander, Hispanic"
  1.  I R=3,E=2 Q "Other Pacific Islander, Non-Hispanic"
  1.  I R=4,E=1 Q "Black/African American, Hispanic"
  1.  I R=4,E=2 Q "Black/African American, Non-Hispanic"
  1.  I R=5,E=1 Q "American Indian/Alaska Native, Hispanic"
  1.  I R=5,E=2 Q "American Indian/Alaska Native, Non-Hispanic"
  1.  I R=6,E=1 Q "White, Hispanic"
  1.  I R=6,E=2 Q "White, Non-Hispanic"
  1.  I R=7,E=1 Q "More than one race, Hispanic"
  1.  I R=7,E=2 Q "More than one race, Non-Hispanic"
  1.  I R=8,E=1 Q "Unreported / Refused to Report, Hispanic"
  1.  I R=8,E=2 Q "Unreported / Refused to Report, Non-Hispanic"
  1.  I R=8,E=3 Q "Unreported / Refused to Report Race and Identity"
  1.  Q "UNKNOWN"
  1.  ;