BGPMUA02 ; IHS/MSC/MGH - MI measure NQF0034 ;01-Mar-2011 15:36;MGH
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;Code to collect meaningful use report for colorectal screening
ENTRY ;EP
N START,END,BGPNUM,BGPDEN,BGPNUM,AENC,BENC,BGPBIRTH,COLLECT
N IEN,INV,VISIT,WTIEN,DATA,VDATE,VALUE,EXCEPT,FIRST,REF,VIEN,EXCEPT,AENC,BENC
N BGPN1,BGPN3,RETVAL,BGPCOLI,BGPCOLP,BGPSIGI,BGPSIGP,BGPFOBTI,BGPCAPR,BGPFOBTC,BGPFOBTI,BGPDSTR,BGPNSTR
N BGPFOBTP,BGPFOBTL,BGPCADXI,BGPCADXP,BGPCARMC,BGPCARMP,BGPENC,BGPFOBT,BGPSIG,BGPCOL,STRING1,STRING2
S (BGPDEN,BGPNUM)=0
;Set a new begin date of 2 years prior to the reporting period end date
N X1,X2,X S X1=BGPEDATE,X2=-730 D C^%DTC S BGPENC=X
S START=9999999-BGPENC,END=9999999-BGPEDATE,VALUE=0,EXCEPT=0,COLLECT=0
S BGPBIRTH=$P(^DPT(DFN,0),U,3)
I BGPBIRTH="" S BGPBIRTH=BGPENC
S RETVAL="",VIEN="" ;Return value
S (STRING1,STRING2,BGPDSTR,BGPNSTR)=""
;Pts must be 50-74
;No need to check further if no age match
Q:(BGPAGEE<50)!(BGPAGEE>74)
;Quit if the patient has a total colectomy by ICD0 or CPT
S BGPCARMC=$$CPT^BGPMUUT1(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLECTOMY CPT")
Q:+BGPCARMC
S BGPCARMP=$$LASTPRC^BGPMUUT2(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLECTOMY ICDS")
Q:+BGPCARMP
S FIRST=END-0.1 F S FIRST=$O(^AUPNVSIT("AA",DFN,FIRST)) Q:FIRST=""!($P(FIRST,".",1)>START)!(RETVAL]"") D
.S IEN=0 F S IEN=$O(^AUPNVSIT("AA",DFN,FIRST,IEN)) Q:'+IEN!(RETVAL]"") D
..;Check provider, Only visits for chosen provider
..Q:'$$PRV^BGPMUUT1(IEN,BGPPROV)
..;Quit if any visit in the last 2 years does not have a valid E&M code
..S AENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU COLON ENC EM")
..S BENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU COLON ENC DX")
..Q:(AENC=0)&(BENC=0)
..I +AENC S STRING1="ENCC:"_$P(AENC,U,2)
..I +BENC S STRING1="ENCC:"_$P(BENC,U,2)
..S DATA=$G(^AUPNVSIT(IEN,0))
..S VDATE=$P($G(^AUPNVSIT(IEN,0)),U,1),VIEN=IEN
Q:'+VIEN
S BGPDSTR=$P(VDATE,".",1)
S STRING2=""
;Set a new begin date of 2 years prior to the visit
;N X1,X2,X S X1=VDATE,X2=-730 D C^%DTC S BGPENC=X
;Set a new begin date of 10 years prior to the visit for colonoscopy
N X1,X2,X S X1=BGPEDATE,X2=-3650 D C^%DTC S BGPCOL=X
;Set a new begin date of 5 years prior to the visit to find sigmoidoscopy
N X1,X2,X S X1=BGPEDATE,X2=-1825 D C^%DTC S BGPSIG=X
;Set a new begin date of 1 year prior to the visit to find FOBT
N X1,X2,X S X1=BGPEDATE,X2=-365 D C^%DTC S BGPFOBT=X
;Check for colonoscopy in the last 10 years
S BGPCOLP=$$CPT^BGPMUUT1(DFN,BGPCOL,BGPEDATE,"BGPMU COLONOSCOPY CPT")
I +BGPCOLP=1 S VALUE=BGPCOLP,STRING2="COLC:"_$P(BGPCOLP,U,2),BGPNSTR=$P(BGPCOLP,U,2)_";"_$P($P(BGPCOLP,U,3),".",1) G EXCCHK
S BGPCOLI=$$LASTPRC^BGPMUUT2(DFN,BGPCOL,BGPEDATE,"BGPMU COLONOSCOPY PROCEDURE")
I +BGPCOLI=1 S VALUE=BGPCOLI,STRING2="COLI:"_$P(BGPCOLI,U,2),BGPNSTR=$P(BGPCOLI,U,2)_";"_$P($P(BGPCOLI,U,3),".",1) G EXCCHK
;Check for sigmoidoscopy in the last 5 years
S BGPSIGP=$$CPT^BGPMUUT1(DFN,BGPSIG,BGPEDATE,"BGPMU SIGMOIDOSCOPY CPT")
I +BGPSIGP=1 S VALUE=BGPSIGP,STRING2=STRING2_";SIGC:"_$P(BGPSIGP,U,2),BGPNSTR=$P(BGPSIGP,U,2)_";"_$P($P(BGPSIGP,U,3),".",1) G EXCCHK
S BGPSIGI=$$LASTPRC^BGPMUUT2(DFN,BGPSIG,BGPEDATE,"BGPMU SIGMOIDOSCOPY PROCEDURES")
I +BGPSIGI=1 S VALUE=BGPSIGI,STRING2=STRING2_";SIGI:"_$P(BGPSIGI,U,2),BGPNSTR=$P(BGPSIGI,U,2)_";"_$P($P(BGPSIGI,U,3),".",1) G EXCCHK
;Check for FOBT in the last year
S BGPFOBTC=$$CPT^BGPMUUT1(DFN,BGPFOBT,BGPEDATE,"BGPMU FOBT CPTS")
I +BGPFOBTC=1 S VALUE=BGPFOBTC,STRING2=STRING2_";FOBC:"_$P(BGPFOBTC,U,2),BGPNSTR=$P(BGPFOBTC,U,2)_";"_$P($P(BGPFOBTC,U,3),".",1) G EXCCHK
S BGPFOBTI=$$LASTDX^BGPMUUT2(DFN,BGPFOBT,BGPEDATE,"BGPMU FOBT ICD CODES")
I +BGPFOBTI=1 S VALUE=BGPFOBTI,STRING2=STRING2_";FOBI:"_$P(BGPFOBTI,U,2),BGPNSTR=$P(BGPFOBTI,U,2)_";"_$P($P(BGPFOBTI,U,3),".",1) G EXCCHK
S BGPFOBTL=$$LOINC^BGPMUUT2(DFN,BGPFOBT,BGPEDATE,"BGPMU FOBT LOINC")
I +BGPFOBTL S BGPLOINC=$P($G(^AUPNVLAB($P(BGPFOBTL,U,2),11)),U,13) S VALUE="1^"_BGPFOBTL,STRING2=STRING2_";FOBL:"_BGPLOINC,BGPNSTR=BGPLOINC_";"_$P($P(BGPFOBTL,U,1),".",1) G EXCCHK
;I +BGPFOBTL S VALUE="1^"_BGPFOBTL,STRING2=STRING2_";FOBL:"_$P(BGPFOBTL,U,2),BGPNSTR=$P(BGPFOBTL,U,2)_";"_$P($P(BGPFOBTL,U,1),".",1) G EXCCHK
EXCCHK ;Exclude if the patient has a colon cancer diagnosis
;Colon cancer is by ICD or CPT code
I '+VALUE D
.S BGPCADXI=$$LASTDX^BGPMUUT2(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLON CANCER DX")
.I +BGPCADXI=1 S EXCEPT=BGPCADXI,STRING1=STRING1_";CCD:"_$P(BGPCADXI,U,2)
.S BGPCADXP=$$CPT^BGPMUUT1(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLON CANCER STUDY")
.I +BGPCADXP=1 S EXCEPT=BGPCADXP,STRING1=STRING1_";CCS:"_$P(BGPCADXP,U,2)
.S BGPCAPR=$$PLTAX^BGPMUUT1(DFN,"BGPMU COLON CANCER DX")
.I +BGPCAPR=1 S EXCEPT=BGPCAPR,STRING1=STRING1_";CCP:"_$P(BGPCAPR,U,2)
D TOTAL(DFN,VIEN,BGPDSTR,BGPNSTR)
Q
TOTAL(DFN,VIEN,BGPDSTR,BGPNSTR) ;See where this patient ends up
N PTCNT,EXCCT,DENCT,NUMCT,TOTALS
S TOTALS=$G(^TMP("BGPMU0034",$J,BGPMUTF,"TOT"))
S EXCCT=+$G(^TMP("BGPMU0034",$J,BGPMUTF,"EXC"))
S DENCT=+$G(^TMP("BGPMU0034",$J,BGPMUTF,"DEN"))
S NUMCT=+$G(^TMP("BGPMU0034",$J,BGPMUTF,"NUM"))
S PTCNT=TOTALS
S PTCNT=PTCNT+1
;Do not include those with total colectomy in the denomiator
;Q:+COLLECT
S DENCT=DENCT+1 S ^TMP("BGPMU0034",$J,BGPMUTF,"DEN")=DENCT
;If Colon Cancer Dx, put in exception list
I +EXCEPT D
.S EXCCT=EXCCT+1 S ^TMP("BGPMU0034",$J,BGPMUTF,"EXC")=EXCCT
.I BGPMUTF="C" S ^TMP("BGPMU0034",$J,"PAT",BGPMUTF,"EXC",PTCNT)=DFN_U_STRING1_U_STRING2_U_$G(BGPDSTR)_U_"Excluded"
E D
.I +VALUE D
..S NUMCT=NUMCT+1 S ^TMP("BGPMU0034",$J,BGPMUTF,"NUM")=NUMCT
..I BGPMUTF="C" S ^TMP("BGPMU0034",$J,"PAT",BGPMUTF,"NUM",PTCNT)=DFN_U_STRING1_U_STRING2_U_$G(BGPDSTR)_U_$G(BGPNSTR)
.E I BGPMUTF="C" S ^TMP("BGPMU0034",$J,"PAT",BGPMUTF,"DEN",PTCNT)=DFN_U_STRING1_U_STRING2_U_$G(BGPDSTR)_U_$G(BGPNSTR)
S ^TMP("BGPMU0034",$J,BGPMUTF,"TOT")=PTCNT
;Setup iCare array for patient
S BGPICARE("MU.EP.0034.1",BGPMUTF)='EXCEPT_U_+VALUE_U_+EXCEPT_U_$G(BGPDSTR)_";"_$G(BGPNSTR)_U_$P(EXCEPT,U,2)
Q
;
TEST ;
S U="^"
S DT=$P($$NOW^XLFDT(),".",1)
S DTIME=9000
S IOSTBM="$C(27,91)_(+IOTM)_$C(59)_(+IOBM)_$C(114)"
D DUZ^XUP(2)
;MERGE DUZ=^TMP("ZSAT","DUZ")
D ^%ZIS
S DFN=568 ; DFN = patient code from VA PATIENT file
S BGPBDATE=3110101 ; BGPBDATE = begin date of report
S BGPEDATE=3111231 ; BGPEDATE = end date of report
S BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)
S BGPPROV=2 ; BGPPROV = provider code from NEW PERSON file
S BGPMUTF="C" ; BGPMUTF = timeframe variable - "C"=current year; "P"=previous year; "B"=baseline year
D ENTRY
Q
BGPMUA02 ; IHS/MSC/MGH - MI measure NQF0034 ;01-Mar-2011 15:36;MGH
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+2 ;Code to collect meaningful use report for colorectal screening
ENTRY ;EP
+1 NEW START,END,BGPNUM,BGPDEN,BGPNUM,AENC,BENC,BGPBIRTH,COLLECT
+2 NEW IEN,INV,VISIT,WTIEN,DATA,VDATE,VALUE,EXCEPT,FIRST,REF,VIEN,EXCEPT,AENC,BENC
+3 NEW BGPN1,BGPN3,RETVAL,BGPCOLI,BGPCOLP,BGPSIGI,BGPSIGP,BGPFOBTI,BGPCAPR,BGPFOBTC,BGPFOBTI,BGPDSTR,BGPNSTR
+4 NEW BGPFOBTP,BGPFOBTL,BGPCADXI,BGPCADXP,BGPCARMC,BGPCARMP,BGPENC,BGPFOBT,BGPSIG,BGPCOL,STRING1,STRING2
+5 SET (BGPDEN,BGPNUM)=0
+6 ;Set a new begin date of 2 years prior to the reporting period end date
+7 NEW X1,X2,X
SET X1=BGPEDATE
SET X2=-730
DO C^%DTC
SET BGPENC=X
+8 SET START=9999999-BGPENC
SET END=9999999-BGPEDATE
SET VALUE=0
SET EXCEPT=0
SET COLLECT=0
+9 SET BGPBIRTH=$PIECE(^DPT(DFN,0),U,3)
+10 IF BGPBIRTH=""
SET BGPBIRTH=BGPENC
+11 ;Return value
SET RETVAL=""
SET VIEN=""
+12 SET (STRING1,STRING2,BGPDSTR,BGPNSTR)=""
+13 ;Pts must be 50-74
+14 ;No need to check further if no age match
+15 IF (BGPAGEE<50)!(BGPAGEE>74)
QUIT
+16 ;Quit if the patient has a total colectomy by ICD0 or CPT
+17 SET BGPCARMC=$$CPT^BGPMUUT1(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLECTOMY CPT")
+18 IF +BGPCARMC
QUIT
+19 SET BGPCARMP=$$LASTPRC^BGPMUUT2(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLECTOMY ICDS")
+20 IF +BGPCARMP
QUIT
+21 SET FIRST=END-0.1
FOR
SET FIRST=$ORDER(^AUPNVSIT("AA",DFN,FIRST))
IF FIRST=""!($PIECE(FIRST,".",1)>START)!(RETVAL]"")
QUIT
Begin DoDot:1
+22 SET IEN=0
FOR
SET IEN=$ORDER(^AUPNVSIT("AA",DFN,FIRST,IEN))
IF '+IEN!(RETVAL]"")
QUIT
Begin DoDot:2
+23 ;Check provider, Only visits for chosen provider
+24 IF '$$PRV^BGPMUUT1(IEN,BGPPROV)
QUIT
+25 ;Quit if any visit in the last 2 years does not have a valid E&M code
+26 SET AENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU COLON ENC EM")
+27 SET BENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU COLON ENC DX")
+28 IF (AENC=0)&(BENC=0)
QUIT
+29 IF +AENC
SET STRING1="ENCC:"_$PIECE(AENC,U,2)
+30 IF +BENC
SET STRING1="ENCC:"_$PIECE(BENC,U,2)
+31 SET DATA=$GET(^AUPNVSIT(IEN,0))
+32 SET VDATE=$PIECE($GET(^AUPNVSIT(IEN,0)),U,1)
SET VIEN=IEN
End DoDot:2
End DoDot:1
+33 IF '+VIEN
QUIT
+34 SET BGPDSTR=$PIECE(VDATE,".",1)
+35 SET STRING2=""
+36 ;Set a new begin date of 2 years prior to the visit
+37 ;N X1,X2,X S X1=VDATE,X2=-730 D C^%DTC S BGPENC=X
+38 ;Set a new begin date of 10 years prior to the visit for colonoscopy
+39 NEW X1,X2,X
SET X1=BGPEDATE
SET X2=-3650
DO C^%DTC
SET BGPCOL=X
+40 ;Set a new begin date of 5 years prior to the visit to find sigmoidoscopy
+41 NEW X1,X2,X
SET X1=BGPEDATE
SET X2=-1825
DO C^%DTC
SET BGPSIG=X
+42 ;Set a new begin date of 1 year prior to the visit to find FOBT
+43 NEW X1,X2,X
SET X1=BGPEDATE
SET X2=-365
DO C^%DTC
SET BGPFOBT=X
+44 ;Check for colonoscopy in the last 10 years
+45 SET BGPCOLP=$$CPT^BGPMUUT1(DFN,BGPCOL,BGPEDATE,"BGPMU COLONOSCOPY CPT")
+46 IF +BGPCOLP=1
SET VALUE=BGPCOLP
SET STRING2="COLC:"_$PIECE(BGPCOLP,U,2)
SET BGPNSTR=$PIECE(BGPCOLP,U,2)_";"_$PIECE($PIECE(BGPCOLP,U,3),".",1)
GOTO EXCCHK
+47 SET BGPCOLI=$$LASTPRC^BGPMUUT2(DFN,BGPCOL,BGPEDATE,"BGPMU COLONOSCOPY PROCEDURE")
+48 IF +BGPCOLI=1
SET VALUE=BGPCOLI
SET STRING2="COLI:"_$PIECE(BGPCOLI,U,2)
SET BGPNSTR=$PIECE(BGPCOLI,U,2)_";"_$PIECE($PIECE(BGPCOLI,U,3),".",1)
GOTO EXCCHK
+49 ;Check for sigmoidoscopy in the last 5 years
+50 SET BGPSIGP=$$CPT^BGPMUUT1(DFN,BGPSIG,BGPEDATE,"BGPMU SIGMOIDOSCOPY CPT")
+51 IF +BGPSIGP=1
SET VALUE=BGPSIGP
SET STRING2=STRING2_";SIGC:"_$PIECE(BGPSIGP,U,2)
SET BGPNSTR=$PIECE(BGPSIGP,U,2)_";"_$PIECE($PIECE(BGPSIGP,U,3),".",1)
GOTO EXCCHK
+52 SET BGPSIGI=$$LASTPRC^BGPMUUT2(DFN,BGPSIG,BGPEDATE,"BGPMU SIGMOIDOSCOPY PROCEDURES")
+53 IF +BGPSIGI=1
SET VALUE=BGPSIGI
SET STRING2=STRING2_";SIGI:"_$PIECE(BGPSIGI,U,2)
SET BGPNSTR=$PIECE(BGPSIGI,U,2)_";"_$PIECE($PIECE(BGPSIGI,U,3),".",1)
GOTO EXCCHK
+54 ;Check for FOBT in the last year
+55 SET BGPFOBTC=$$CPT^BGPMUUT1(DFN,BGPFOBT,BGPEDATE,"BGPMU FOBT CPTS")
+56 IF +BGPFOBTC=1
SET VALUE=BGPFOBTC
SET STRING2=STRING2_";FOBC:"_$PIECE(BGPFOBTC,U,2)
SET BGPNSTR=$PIECE(BGPFOBTC,U,2)_";"_$PIECE($PIECE(BGPFOBTC,U,3),".",1)
GOTO EXCCHK
+57 SET BGPFOBTI=$$LASTDX^BGPMUUT2(DFN,BGPFOBT,BGPEDATE,"BGPMU FOBT ICD CODES")
+58 IF +BGPFOBTI=1
SET VALUE=BGPFOBTI
SET STRING2=STRING2_";FOBI:"_$PIECE(BGPFOBTI,U,2)
SET BGPNSTR=$PIECE(BGPFOBTI,U,2)_";"_$PIECE($PIECE(BGPFOBTI,U,3),".",1)
GOTO EXCCHK
+59 SET BGPFOBTL=$$LOINC^BGPMUUT2(DFN,BGPFOBT,BGPEDATE,"BGPMU FOBT LOINC")
+60 IF +BGPFOBTL
SET BGPLOINC=$PIECE($GET(^AUPNVLAB($PIECE(BGPFOBTL,U,2),11)),U,13)
SET VALUE="1^"_BGPFOBTL
SET STRING2=STRING2_";FOBL:"_BGPLOINC
SET BGPNSTR=BGPLOINC_";"_$PIECE($PIECE(BGPFOBTL,U,1),".",1)
GOTO EXCCHK
+61 ;I +BGPFOBTL S VALUE="1^"_BGPFOBTL,STRING2=STRING2_";FOBL:"_$P(BGPFOBTL,U,2),BGPNSTR=$P(BGPFOBTL,U,2)_";"_$P($P(BGPFOBTL,U,1),".",1) G EXCCHK
EXCCHK ;Exclude if the patient has a colon cancer diagnosis
+1 ;Colon cancer is by ICD or CPT code
+2 IF '+VALUE
Begin DoDot:1
+3 SET BGPCADXI=$$LASTDX^BGPMUUT2(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLON CANCER DX")
+4 IF +BGPCADXI=1
SET EXCEPT=BGPCADXI
SET STRING1=STRING1_";CCD:"_$PIECE(BGPCADXI,U,2)
+5 SET BGPCADXP=$$CPT^BGPMUUT1(DFN,BGPBIRTH,BGPEDATE,"BGPMU COLON CANCER STUDY")
+6 IF +BGPCADXP=1
SET EXCEPT=BGPCADXP
SET STRING1=STRING1_";CCS:"_$PIECE(BGPCADXP,U,2)
+7 SET BGPCAPR=$$PLTAX^BGPMUUT1(DFN,"BGPMU COLON CANCER DX")
+8 IF +BGPCAPR=1
SET EXCEPT=BGPCAPR
SET STRING1=STRING1_";CCP:"_$PIECE(BGPCAPR,U,2)
End DoDot:1
+9 DO TOTAL(DFN,VIEN,BGPDSTR,BGPNSTR)
+10 QUIT
TOTAL(DFN,VIEN,BGPDSTR,BGPNSTR) ;See where this patient ends up
+1 NEW PTCNT,EXCCT,DENCT,NUMCT,TOTALS
+2 SET TOTALS=$GET(^TMP("BGPMU0034",$JOB,BGPMUTF,"TOT"))
+3 SET EXCCT=+$GET(^TMP("BGPMU0034",$JOB,BGPMUTF,"EXC"))
+4 SET DENCT=+$GET(^TMP("BGPMU0034",$JOB,BGPMUTF,"DEN"))
+5 SET NUMCT=+$GET(^TMP("BGPMU0034",$JOB,BGPMUTF,"NUM"))
+6 SET PTCNT=TOTALS
+7 SET PTCNT=PTCNT+1
+8 ;Do not include those with total colectomy in the denomiator
+9 ;Q:+COLLECT
+10 SET DENCT=DENCT+1
SET ^TMP("BGPMU0034",$JOB,BGPMUTF,"DEN")=DENCT
+11 ;If Colon Cancer Dx, put in exception list
+12 IF +EXCEPT
Begin DoDot:1
+13 SET EXCCT=EXCCT+1
SET ^TMP("BGPMU0034",$JOB,BGPMUTF,"EXC")=EXCCT
+14 IF BGPMUTF="C"
SET ^TMP("BGPMU0034",$JOB,"PAT",BGPMUTF,"EXC",PTCNT)=DFN_U_STRING1_U_STRING2_U_$GET(BGPDSTR)_U_"Excluded"
End DoDot:1
+15 IF '$TEST
Begin DoDot:1
+16 IF +VALUE
Begin DoDot:2
+17 SET NUMCT=NUMCT+1
SET ^TMP("BGPMU0034",$JOB,BGPMUTF,"NUM")=NUMCT
+18 IF BGPMUTF="C"
SET ^TMP("BGPMU0034",$JOB,"PAT",BGPMUTF,"NUM",PTCNT)=DFN_U_STRING1_U_STRING2_U_$GET(BGPDSTR)_U_$GET(BGPNSTR)
End DoDot:2
+19 IF '$TEST
IF BGPMUTF="C"
SET ^TMP("BGPMU0034",$JOB,"PAT",BGPMUTF,"DEN",PTCNT)=DFN_U_STRING1_U_STRING2_U_$GET(BGPDSTR)_U_$GET(BGPNSTR)
End DoDot:1
+20 SET ^TMP("BGPMU0034",$JOB,BGPMUTF,"TOT")=PTCNT
+21 ;Setup iCare array for patient
+22 SET BGPICARE("MU.EP.0034.1",BGPMUTF)='EXCEPT_U_+VALUE_U_+EXCEPT_U_$GET(BGPDSTR)_";"_$GET(BGPNSTR)_U_$PIECE(EXCEPT,U,2)
+23 QUIT
+24 ;
TEST ;
+1 SET U="^"
+2 SET DT=$PIECE($$NOW^XLFDT(),".",1)
+3 SET DTIME=9000
+4 SET IOSTBM="$C(27,91)_(+IOTM)_$C(59)_(+IOBM)_$C(114)"
+5 DO DUZ^XUP(2)
+6 ;MERGE DUZ=^TMP("ZSAT","DUZ")
+7 DO ^%ZIS
+8 ; DFN = patient code from VA PATIENT file
SET DFN=568
+9 ; BGPBDATE = begin date of report
SET BGPBDATE=3110101
+10 ; BGPEDATE = end date of report
SET BGPEDATE=3111231
+11 SET BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)
+12 ; BGPPROV = provider code from NEW PERSON file
SET BGPPROV=2
+13 ; BGPMUTF = timeframe variable - "C"=current year; "P"=previous year; "B"=baseline year
SET BGPMUTF="C"
+14 DO ENTRY
+15 QUIT
