BGP3CP1.m

BGP3CP1 ; IHS/CMI/LAB - IHS gpra print ;

 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81

 ;

 ;

AMIALL ;EP

 I $Y>(BGPIOSL-3) D HDR^BGP3CP Q:BGPQUIT  D L1H^BGP3CP

 S BGPNOBA=1

 D WRACE^BGP3CPU(DFN)

 Q:BGPQUIT

 D WDOB^BGP3CPU(DFN)

 Q:BGPQUIT

 D WZIP^BGP3CPU(DFN)

 Q:BGPQUIT

 D WINS^BGP3CPU(BGPVSIT,DFN)

 Q:BGPQUIT

 D WADM^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 D WADM92^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 D WADMS92^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 D WDT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 D WDSGS92^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D WTT^BGP3CPU(BGPVINP) Q:BGPQUIT

 K BGPNOBA

 D WPPDPOV^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 S BGPNOBA=1

 D OTHDPOVS^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 D WPRINPRO^BGP3CPU2

 Q:BGPQUIT

 D WOTHPROS^BGP3CPU2

 K BGPNOBA

 Q

 ;

AMI1 ;EP

 I $Y>(BGPIOSL-3) D HDR^BGP3CP Q:BGPQUIT  D L1H^BGP3CP

 I $$TRANSIN^BGP3CU(BGPVINP) D TRANSIN^BGP3CP3 Q:BGPQUIT

 D WDT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D WTT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP),$$DODA^BGP3CU(BGPVSIT,BGPVINP) D TRANSN^BGP3CP2 Q:BGPQUIT

 D WPPDPOV^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 D OTHDPOVS^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 S X=$$COMFORT^BGP3CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))

 D WCOMFORT^BGP3CPU(X)

 Q:BGPQUIT

 K BGPY,BGPDATA

 D NMIDRUG^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-1),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 D WNMIASP^BGP3CPU

 Q:BGPQUIT

 K X

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS") I X]"" S X="Last Outpatient Rx: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 D WLASTASP^BGP3CPU

 Q:BGPQUIT

 S X=$$LASTASPC^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30))

 D WASPCPT^BGP3CPU(X)

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS") I X]"" S X="Last Outpatient Rx: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)),.BGPUD,$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)))

 D WLASTAP^BGP3CPU

 Q:BGPQUIT

 D ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 D WALLALG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 D WALLALGT^BGP3CPU

 K BGPDATA

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 D WIVUD^BGP3CPU

 Q

AMI1W ;EP

 I $Y>(BGPIOSL-3) D HDR^BGP3CP Q:BGPQUIT  D L1H^BGP3CP

 I $$TRANSIN^BGP3CU(BGPVINP) D TRANSIN^BGP3CP3 Q:BGPQUIT

 D WDOD^BGP3CPU(DFN)

 Q:BGPQUIT

 D WDT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D WTT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP),$$DODA^BGP3CU(BGPVSIT,BGPVINP) D TRANSN^BGP3CP2 Q:BGPQUIT

 D WPPDPOV^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 D OTHDPOVS^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 S X=$$COMFORT^BGP3CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))

 D WCOMFORT^BGP3CPU(X)

 Q:BGPQUIT

 S X=$$ASAALLEG^BGP3CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP3CU(BGPVINP)),X=$P(X,U,2,999)

 D WASAALEG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D WARRX^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-180),$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),1,.BGPDATA)

 D WWARRX^BGP3CPU

 Q:BGPQUIT

 K BGPDATA,BGPY

 D NMIDRUG^BGP3CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 D WNMIASP^BGP3CPU

 Q:BGPQUIT

 K X

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS") I X]"" S X="Last Outpatient Rx: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 D WLASTASP^BGP3CPU

 Q:BGPQUIT

 S X=$$LASTASPC^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30))

 D WASPCPT^BGP3CPU(X)

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS") I X]"" S X="Last Outpatient RX: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)),.BGPUD,$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)))

 D WLASTAP^BGP3CPU

 Q:BGPQUIT

 D ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 D WALLALG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 D WALLALGT^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 D WIVUD^BGP3CPU

 Q

AMI2 ;EP

 I $Y>(BGPIOSL-3) D HDR^BGP3CP Q:BGPQUIT  D L1H^BGP3CP

 D WDT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D WTT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D TRANSN^BGP3CP2 Q:BGPQUIT

 D WPPDPOV^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 D OTHDPOVS^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 S X=$$COMFORT^BGP3CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))

 D WCOMFORT^BGP3CPU(X)

 Q:BGPQUIT

 K BGPY,BGPDATA

 D NMIDRUG^BGP3CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 D WNMIASP^BGP3CPU

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS") I X]"" S X="Last Outpatient Rx: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 D WLASTASP^BGP3CPU

 Q:BGPQUIT

 S X=$$LASTASPC^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30))

 D WASPCPT^BGP3CPU(X)

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS") I X]"" S X="Last Outpatient RX: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)),.BGPUD,$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)))

 D WLASTAP^BGP3CPU

 Q:BGPQUIT

 D ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 D WALLALG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 D WALLALGT^BGP3CPU

 K BGPDATA

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 D WIVUD^BGP3CPU

 Q

AMI2W ;EP

 I $Y>(BGPIOSL-3) D HDR^BGP3CP Q:BGPQUIT  D L1H^BGP3CP

 D WDOD^BGP3CPU(DFN)

 Q:BGPQUIT

 D WDT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D WTT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D TRANSN^BGP3CP2 Q:BGPQUIT

 D WPPDPOV^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 D OTHDPOVS^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 S X=$$COMFORT^BGP3CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))

 D WCOMFORT^BGP3CPU(X)

 Q:BGPQUIT

 S X=$$ASAALLEG^BGP3CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP3CU(BGPVINP))

 D WASAALEG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D WARRX^BGP3CU1(DFN,$P($P(^AUPNVINP(BGPVINP,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),1,.BGPDATA)

 D WWARRX^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D NMIDRUG^BGP3CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 D WNMIASP^BGP3CPU

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS") I X]"" S X="Last Outpatient Rx: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 D WLASTASP^BGP3CPU

 Q:BGPQUIT

 S X=$$LASTASPC^BGP3CU1(DFN,$P($P(^AUPNVINP(BGPVINP,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))

 D WASPCPT^BGP3CPU(X)

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS") I X]"" S X="Last Outpatient RX: "_X

 K BGPUD

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)),.BGPUD,$O(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)))

 D WLASTAP^BGP3CPU

 Q:BGPQUIT

 D ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 D WALLALG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 D WALLALGT^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 D WIVUD^BGP3CPU

 Q

AMI3 ;EP

 I $Y>(BGPIOSL-3) D HDR^BGP3CP Q:BGPQUIT  D L1H^BGP3CP

 D WDT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D WTT^BGP3CPU(BGPVINP)

 Q:BGPQUIT

 I $$TRANS^BGP3CU(BGPVINP) D TRANSN^BGP3CP2 Q:BGPQUIT

 D WPPDPOV^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 D OTHDPOVS^BGP3CPU(BGPVSIT)

 Q:BGPQUIT

 K BGPDATA

 S BGPC=0

 D LVSD^BGP3CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,0)

 D EJECFRAC^BGP3CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,BGPC)

 D WLVSD^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 S X=$$COMFORT^BGP3CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))

 D WCOMFORT^BGP3CPU(X)

 Q:BGPQUIT

 K BGPDATA,BGPDX

 S BGPXX=0

 D ANGIOED^BGP3CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,0)

 S X=0 F  S X=$O(BGPDATA(X)) Q:X'=+X  S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)

 K BGPDATA D HYPERKAL^BGP3CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,0)

 S X=0 F  S X=$O(BGPDATA(X)) Q:X'=+X  S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)

 K BGPDATA D HYPOTEN^BGP3CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,0)

 S X=0 F  S X=$O(BGPDATA(X)) Q:X'=+X  S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)

 K BGPDATA D RENART^BGP3CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,0)

 S X=0 F  S X=$O(BGPDATA(X)) Q:X'=+X  S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)

 K BGPDATA D RENAL^BGP3CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP3CU(BGPVINP),-365),$$DSCH^BGP3CU(BGPVINP),.BGPDATA,0)

 S X=0 F  S X=$O(BGPDATA(X)) Q:X'=+X  S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)

 D WDXS^BGP3CPU

 K BGPDATA

 K BGPY

 Q:BGPQUIT

 S X=$$ACEALLEG^BGP3CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP3CU(BGPVINP))

 S Z=$$ARBALLEG^BGP3CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP3CU(BGPVINP))

 D WACEALEG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 S BGPC=0

 D NMIDRUG^BGP3CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"BGP CMS ACEI MEDS",0)

 D NMIDRUG^BGP3CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"BGP CMS ARB MEDS",BGPC)

 D WNMIACE^BGP3CPU(.BGPDATA)

 Q:BGPQUIT

 S X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP CMS ACEI MEDS","","BGP CMS ACEI MEDS CLASS")

 S Z=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($P($P(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP CMS ARB MEDS","","BGP CMS ARB MEDS CLASS")

 D WLASTACE^BGP3CPU

 Q:BGPQUIT

 D ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 D WALLALG^BGP3CPU

 Q:BGPQUIT

 K BGPDATA

 D ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 D WALLALGT^BGP3CPU

 K BGPDATA

 D IVUD^BGP3CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 D WIVUD^BGP3CPU

 Q

 ;

AMI3W ;EP

 D AMI3W^BGP3CP11

 Q

BGP3CP1   ; IHS/CMI/LAB - IHS gpra print ;

 +1       ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81

 +2       ;

 +3       ;

AMIALL    ;EP

 +1        IF $Y>(BGPIOSL-3)

               DO HDR^BGP3CP

               IF BGPQUIT

                   QUIT 

               DO L1H^BGP3CP

 +2        SET BGPNOBA=1

 +3        DO WRACE^BGP3CPU(DFN)

 +4        IF BGPQUIT

               QUIT 

 +5        DO WDOB^BGP3CPU(DFN)

 +6        IF BGPQUIT

               QUIT 

 +7        DO WZIP^BGP3CPU(DFN)

 +8        IF BGPQUIT

               QUIT 

 +9        DO WINS^BGP3CPU(BGPVSIT,DFN)

 +10       IF BGPQUIT

               QUIT 

 +11       DO WADM^BGP3CPU(BGPVINP)

 +12       IF BGPQUIT

               QUIT 

 +13       DO WADM92^BGP3CPU(BGPVINP)

 +14       IF BGPQUIT

               QUIT 

 +15       DO WADMS92^BGP3CPU(BGPVINP)

 +16       IF BGPQUIT

               QUIT 

 +17       DO WDT^BGP3CPU(BGPVINP)

 +18       IF BGPQUIT

               QUIT 

 +19       DO WDSGS92^BGP3CPU(BGPVINP)

 +20       IF BGPQUIT

               QUIT 

 +21       IF $$TRANS^BGP3CU(BGPVINP)

               DO WTT^BGP3CPU(BGPVINP)

               IF BGPQUIT

                   QUIT 

 +22       KILL BGPNOBA

 +23       DO WPPDPOV^BGP3CPU(BGPVSIT)

 +24       IF BGPQUIT

               QUIT 

 +25       SET BGPNOBA=1

 +26       DO OTHDPOVS^BGP3CPU(BGPVSIT)

 +27       IF BGPQUIT

               QUIT 

 +28       DO WPRINPRO^BGP3CPU2

 +29       IF BGPQUIT

               QUIT 

 +30       DO WOTHPROS^BGP3CPU2

 +31       KILL BGPNOBA

 +32       QUIT 

 +33      ;

AMI1      ;EP

 +1        IF $Y>(BGPIOSL-3)

               DO HDR^BGP3CP

               IF BGPQUIT

                   QUIT 

               DO L1H^BGP3CP

 +2        IF $$TRANSIN^BGP3CU(BGPVINP)

               DO TRANSIN^BGP3CP3

               IF BGPQUIT

                   QUIT 

 +3        DO WDT^BGP3CPU(BGPVINP)

 +4        IF BGPQUIT

               QUIT 

 +5        IF $$TRANS^BGP3CU(BGPVINP)

               DO WTT^BGP3CPU(BGPVINP)

 +6        IF BGPQUIT

               QUIT 

 +7        IF $$TRANS^BGP3CU(BGPVINP)

               IF $$DODA^BGP3CU(BGPVSIT,BGPVINP)

                   DO TRANSN^BGP3CP2

                   IF BGPQUIT

                       QUIT 

 +8        DO WPPDPOV^BGP3CPU(BGPVSIT)

 +9        IF BGPQUIT

               QUIT 

 +10       DO OTHDPOVS^BGP3CPU(BGPVSIT)

 +11       IF BGPQUIT

               QUIT 

 +12       SET X=$$COMFORT^BGP3CU(DFN,$PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),$PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."))

 +13       DO WCOMFORT^BGP3CPU(X)

 +14       IF BGPQUIT

               QUIT 

 +15       KILL BGPY,BGPDATA

 +16       DO NMIDRUG^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-1),$PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 +17       DO WNMIASP^BGP3CPU

 +18       IF BGPQUIT

               QUIT 

 +19       KILL X

 +20       SET X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS")

           IF X]""

               SET X="Last Outpatient Rx: "_X

 +21       KILL BGPUD

 +22       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$ORDER(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 +23       DO WLASTASP^BGP3CPU

 +24       IF BGPQUIT

               QUIT 

 +25       SET X=$$LASTASPC^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30))

 +26       DO WASPCPT^BGP3CPU(X)

 +27       IF BGPQUIT

               QUIT 

 +28       SET X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS")

           IF X]""

               SET X="Last Outpatient Rx: "_X

 +29       KILL BGPUD

 +30       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$ORDER(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)),.BGPUD,$ORDER(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)))

 +31       DO WLASTAP^BGP3CPU

 +32       IF BGPQUIT

               QUIT 

 +33       DO ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 +34       DO WALLALG^BGP3CPU

 +35       IF BGPQUIT

               QUIT 

 +36       KILL BGPDATA

 +37       DO ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 +38       DO WALLALGT^BGP3CPU

 +39       KILL BGPDATA

 +40       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 +41       DO WIVUD^BGP3CPU

 +42       QUIT 

AMI1W     ;EP

 +1        IF $Y>(BGPIOSL-3)

               DO HDR^BGP3CP

               IF BGPQUIT

                   QUIT 

               DO L1H^BGP3CP

 +2        IF $$TRANSIN^BGP3CU(BGPVINP)

               DO TRANSIN^BGP3CP3

               IF BGPQUIT

                   QUIT 

 +3        DO WDOD^BGP3CPU(DFN)

 +4        IF BGPQUIT

               QUIT 

 +5        DO WDT^BGP3CPU(BGPVINP)

 +6        IF BGPQUIT

               QUIT 

 +7        IF $$TRANS^BGP3CU(BGPVINP)

               DO WTT^BGP3CPU(BGPVINP)

 +8        IF BGPQUIT

               QUIT 

 +9        IF $$TRANS^BGP3CU(BGPVINP)

               IF $$DODA^BGP3CU(BGPVSIT,BGPVINP)

                   DO TRANSN^BGP3CP2

                   IF BGPQUIT

                       QUIT 

 +10       DO WPPDPOV^BGP3CPU(BGPVSIT)

 +11       IF BGPQUIT

               QUIT 

 +12       DO OTHDPOVS^BGP3CPU(BGPVSIT)

 +13       IF BGPQUIT

               QUIT 

 +14       SET X=$$COMFORT^BGP3CU(DFN,$PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),$PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."))

 +15       DO WCOMFORT^BGP3CPU(X)

 +16       IF BGPQUIT

               QUIT 

 +17       SET X=$$ASAALLEG^BGP3CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP3CU(BGPVINP))

           SET X=$PIECE(X,U,2,999)

 +18       DO WASAALEG^BGP3CPU

 +19       IF BGPQUIT

               QUIT 

 +20       KILL BGPDATA

 +21       DO WARRX^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-180),$PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),1,.BGPDATA)

 +22       DO WWARRX^BGP3CPU

 +23       IF BGPQUIT

               QUIT 

 +24       KILL BGPDATA,BGPY

 +25       DO NMIDRUG^BGP3CU1(DFN,$PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),$PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 +26       DO WNMIASP^BGP3CPU

 +27       IF BGPQUIT

               QUIT 

 +28       KILL X

 +29       SET X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS")

           IF X]""

               SET X="Last Outpatient Rx: "_X

 +30       KILL BGPUD

 +31       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$ORDER(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 +32       DO WLASTASP^BGP3CPU

 +33       IF BGPQUIT

               QUIT 

 +34       SET X=$$LASTASPC^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30))

 +35       DO WASPCPT^BGP3CPU(X)

 +36       IF BGPQUIT

               QUIT 

 +37       SET X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS")

           IF X]""

               SET X="Last Outpatient RX: "_X

 +38       KILL BGPUD

 +39       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$ORDER(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)),.BGPUD,$ORDER(^ATXAX("B","BGP ANTI-PLATELET DRUGS",0)))

 +40       DO WLASTAP^BGP3CPU

 +41       IF BGPQUIT

               QUIT 

 +42       DO ALLALG1^BGP3CU1(DFN,DT,$$DSCH^BGP3CU(BGPVINP),.BGPDATA)

 +43       DO WALLALG^BGP3CPU

 +44       IF BGPQUIT

               QUIT 

 +45       KILL BGPDATA

 +46       DO ALLALGA1^BGP3CU1(DFN,DT,.BGPDATA)

 +47       DO WALLALGT^BGP3CPU

 +48       IF BGPQUIT

               QUIT 

 +49       KILL BGPDATA

 +50       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),,.BGPDATA)

 +51       DO WIVUD^BGP3CPU

 +52       QUIT 

AMI2      ;EP

 +1        IF $Y>(BGPIOSL-3)

               DO HDR^BGP3CP

               IF BGPQUIT

                   QUIT 

               DO L1H^BGP3CP

 +2        DO WDT^BGP3CPU(BGPVINP)

 +3        IF BGPQUIT

               QUIT 

 +4        IF $$TRANS^BGP3CU(BGPVINP)

               DO WTT^BGP3CPU(BGPVINP)

 +5        IF BGPQUIT

               QUIT 

 +6        IF $$TRANS^BGP3CU(BGPVINP)

               DO TRANSN^BGP3CP2

               IF BGPQUIT

                   QUIT 

 +7        DO WPPDPOV^BGP3CPU(BGPVSIT)

 +8        IF BGPQUIT

               QUIT 

 +9        DO OTHDPOVS^BGP3CPU(BGPVSIT)

 +10       IF BGPQUIT

               QUIT 

 +11       SET X=$$COMFORT^BGP3CU(DFN,$PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),$PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."))

 +12       DO WCOMFORT^BGP3CPU(X)

 +13       IF BGPQUIT

               QUIT 

 +14       KILL BGPY,BGPDATA

 +15       DO NMIDRUG^BGP3CU1(DFN,$PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),$PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"DM AUDIT ASPIRIN DRUGS",0)

 +16       DO WNMIASP^BGP3CPU

 +17       IF BGPQUIT

               QUIT 

 +18       SET X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30),"DM AUDIT ASPIRIN DRUGS")

           IF X]""

               SET X="Last Outpatient Rx: "_X

 +19       KILL BGPUD

 +20       DO IVUD^BGP3CU1(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP3CU(BGPVINP),$ORDER(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0)),.BGPUD)

 +21       DO WLASTASP^BGP3CPU

 +22       IF BGPQUIT

               QUIT 

 +23       SET X=$$LASTASPC^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30))

 +24       DO WASPCPT^BGP3CPU(X)

 +25       IF BGPQUIT

               QUIT 

 +26       SET X=$$LASTMED^BGP3CU1(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$FMADD^XLFDT($PIECE($PIECE(^AUPNVINP(BGPVINP,0),U),"."),30),"BGP ANTI-PLATELET DRUGS","","BGP CMS ANTI-PLATELET CLASS")

           IF X]""

               SET X="Last Outpatient RX: "_X

 +27       KILL BGPUD