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

BGP0CP11.m

Go to the documentation of this file.
  1. BGP0CP11 ; IHS/CMI/LAB - IHS gpra print ;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;
  1. ;
  1. ;
  1. AMI3W ;EP
  1. I $Y>(BGPIOSL-3) D HDR^BGP0CP Q:BGPQUIT D L1H^BGP0CP
  1. D WDOD^BGP0CPU(DFN)
  1. D WDT^BGP0CPU(BGPVINP)
  1. Q:BGPQUIT
  1. I $$TRANS^BGP0CU(BGPVINP) D WTT^BGP0CPU(BGPVINP)
  1. Q:BGPQUIT
  1. I $$TRANS^BGP0CU(BGPVINP) D TRANSN^BGP0CP2 Q:BGPQUIT
  1. D WPPDPOV^BGP0CPU(BGPVSIT)
  1. Q:BGPQUIT
  1. D OTHDPOVS^BGP0CPU(BGPVSIT)
  1. Q:BGPQUIT
  1. K BGPDATA
  1. S BGPC=0
  1. D LVSD^BGP0CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,0)
  1. D EJECFRAC^BGP0CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,BGPC)
  1. D WLVSD^BGP0CPU
  1. Q:BGPQUIT
  1. K BGPDATA
  1. S X=$$COMFORT^BGP0CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))
  1. D WCOMFORT^BGP0CPU(X)
  1. K BGPDATA
  1. K BGPY
  1. Q:BGPQUIT
  1. S X=$$ACEALLEG^BGP0CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP0CU(BGPVINP))
  1. S Z=$$ARBALLEG^BGP0CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP0CU(BGPVINP))
  1. D WACEALEG^BGP0CPU
  1. K BGPDATA
  1. S BGPC=0
  1. D ALLDXS^BGP0CU2(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,BGPC,"BGP CMS AORTIC STENOSIS DXS")
  1. D WAORTIC^BGP0CPU
  1. Q:BGPQUIT
  1. K BGPDATA,BGPDX
  1. S BGPXX=0
  1. D ANGIOED^BGP0CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,0)
  1. S X=0 F S X=$O(BGPDATA(X)) Q:X'=+X S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)
  1. K BGPDATA D HYPERKAL^BGP0CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,0)
  1. S X=0 F S X=$O(BGPDATA(X)) Q:X'=+X S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)
  1. K BGPDATA D HYPOTEN^BGP0CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,0)
  1. S X=0 F S X=$O(BGPDATA(X)) Q:X'=+X S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)
  1. K BGPDATA D RENART^BGP0CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,0)
  1. S X=0 F S X=$O(BGPDATA(X)) Q:X'=+X S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)
  1. K BGPDATA D RENAL^BGP0CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP0CU(BGPVINP),-365),$$DSCH^BGP0CU(BGPVINP),.BGPDATA,0)
  1. S X=0 F S X=$O(BGPDATA(X)) Q:X'=+X S BGPXX=BGPXX+1,BGPDX(BGPXX)=BGPDATA(X)
  1. D WDXS^BGP0CPU
  1. K BGPDATA
  1. K BGPY
  1. Q:BGPQUIT
  1. K BGPDATA
  1. S BGPC=0
  1. D NMIDRUG^BGP0CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"BGP CMS ACEI MEDS",0)
  1. D NMIDRUG^BGP0CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"BGP CMS ARB MEDS",BGPC)
  1. D WNMIACE^BGP0CPU(.BGPDATA)
  1. Q:BGPQUIT
  1. S X=$$LASTMED^BGP0CU1(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")
  1. S Z=$$LASTMED^BGP0CU1(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")
  1. D WLASTACE^BGP0CPU
  1. Q:BGPQUIT
  1. Q:BGPQUIT
  1. D ALLALG1^BGP0CU1(DFN,DT,$$DSCH^BGP0CU(BGPVINP),.BGPDATA)
  1. D WALLALG^BGP0CPU
  1. Q:BGPQUIT
  1. K BGPDATA
  1. D ALLALGA1^BGP0CU1(DFN,DT,.BGPDATA)
  1. D WALLALGT^BGP0CPU
  1. K BGPDATA
  1. D IVUD^BGP0CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP0CU(BGPVINP),,.BGPDATA)
  1. D WIVUD^BGP0CPU
  1. Q
  1. ;