BKMQSSR2.m

BKMQSSR2 ;PRXM/HC/CLT - STATE SURV. REPORT CONTINUED ; 31 Mar 2005  3:50 PM

 ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

 ;

EN ;EP - PRIMARY ENTRY POINT

 D HAART,PCP,PREG

 Q

HAART ;GATHER HAART DRUG DATA (using Taxonomy)

 S BKMCKDT=$$FMADD^XLFDT(DT,-183)

 S GLOBAL="BKMHAART(VSTDT,TEST)"

 D NDCTAX^BKMIXX1(DFN,"BKMV EI MED NDCS","",BKMCKDT,GLOBAL)

 D MEDTAX^BKMIXX(DFN,"BKMV EI MEDS","",BKMCKDT,GLOBAL)

 D NDCTAX^BKMIXX1(DFN,"BKMV NNRTI MED NDCS","",BKMCKDT,GLOBAL)

 D MEDTAX^BKMIXX(DFN,"BKMV NNRTI MEDS","",BKMCKDT,GLOBAL)

 D NDCTAX^BKMIXX1(DFN,"BKMV NRTI MED NDCS","",BKMCKDT,GLOBAL)

 D MEDTAX^BKMIXX(DFN,"BKMV NRTI MEDS","",BKMCKDT,GLOBAL)

 D NDCTAX^BKMIXX1(DFN,"BKMV PI MED NDCS","",BKMCKDT,GLOBAL)

 D MEDTAX^BKMIXX(DFN,"BKMV PI MEDS","",BKMCKDT,GLOBAL)

 Q

PCP ;COLLECTION OF PCP DRUG DATA (using Taxonomy)

 S BKMCKDT=$$FMADD^XLFDT(DT,-183)

 S GLOBAL="BKMPCP(VSTDT,TEST)"

 D NDCTAX^BKMIXX1(DFN,"BKMV PCP PROPH MED NDCS","",BKMCKDT,GLOBAL)

 D MEDTAX^BKMIXX(DFN,"BKMV PCP PROPH MEDS","",BKMCKDT,GLOBAL)

 Q

PREG ;PREGNANCY DATA

 Q:BKMVSEX'="F"

 ;This section is still awaiting further specification.

 ;Q:'$D(^AUPNREP(DFN))

 Q

BKMQSSR2  ;PRXM/HC/CLT - STATE SURV. REPORT CONTINUED ; 31 Mar 2005  3:50 PM

 +1       ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

 +3       ;

EN        ;EP - PRIMARY ENTRY POINT

 +1        DO HAART

           DO PCP

           DO PREG

 +2        QUIT 

HAART     ;GATHER HAART DRUG DATA (using Taxonomy)

 +1        SET BKMCKDT=$$FMADD^XLFDT(DT,-183)

 +2        SET GLOBAL="BKMHAART(VSTDT,TEST)"

 +3        DO NDCTAX^BKMIXX1(DFN,"BKMV EI MED NDCS","",BKMCKDT,GLOBAL)

 +4        DO MEDTAX^BKMIXX(DFN,"BKMV EI MEDS","",BKMCKDT,GLOBAL)

 +5        DO NDCTAX^BKMIXX1(DFN,"BKMV NNRTI MED NDCS","",BKMCKDT,GLOBAL)

 +6        DO MEDTAX^BKMIXX(DFN,"BKMV NNRTI MEDS","",BKMCKDT,GLOBAL)

 +7        DO NDCTAX^BKMIXX1(DFN,"BKMV NRTI MED NDCS","",BKMCKDT,GLOBAL)

 +8        DO MEDTAX^BKMIXX(DFN,"BKMV NRTI MEDS","",BKMCKDT,GLOBAL)

 +9        DO NDCTAX^BKMIXX1(DFN,"BKMV PI MED NDCS","",BKMCKDT,GLOBAL)

 +10       DO MEDTAX^BKMIXX(DFN,"BKMV PI MEDS","",BKMCKDT,GLOBAL)

 +11       QUIT 

PCP       ;COLLECTION OF PCP DRUG DATA (using Taxonomy)

 +1        SET BKMCKDT=$$FMADD^XLFDT(DT,-183)

 +2        SET GLOBAL="BKMPCP(VSTDT,TEST)"

 +3        DO NDCTAX^BKMIXX1(DFN,"BKMV PCP PROPH MED NDCS","",BKMCKDT,GLOBAL)

 +4        DO MEDTAX^BKMIXX(DFN,"BKMV PCP PROPH MEDS","",BKMCKDT,GLOBAL)

 +5        QUIT 

PREG      ;PREGNANCY DATA

 +1        IF BKMVSEX'="F"

               QUIT 

 +2       ;This section is still awaiting further specification.

 +3       ;Q:'$D(^AUPNREP(DFN))

 +4        QUIT