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

BGP1CP11.m

Go to the documentation of this file.
  1. BGP1CP11 ; IHS/CMI/LAB - IHS gpra print ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. ;
  1. ;
  1. AMI3W ;EP
  1. I $Y>(BGPIOSL-3) D HDR^BGP1CP Q:BGPQUIT D L1H^BGP1CP
  1. D WDOD^BGP1CPU(DFN)
  1. D WDT^BGP1CPU(BGPVINP)
  1. Q:BGPQUIT
  1. I $$TRANS^BGP1CU(BGPVINP) D WTT^BGP1CPU(BGPVINP)
  1. Q:BGPQUIT
  1. I $$TRANS^BGP1CU(BGPVINP) D TRANSN^BGP1CP2 Q:BGPQUIT
  1. D WPPDPOV^BGP1CPU(BGPVSIT)
  1. Q:BGPQUIT
  1. D OTHDPOVS^BGP1CPU(BGPVSIT)
  1. Q:BGPQUIT
  1. K BGPDATA
  1. S BGPC=0
  1. D LVSD^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA,0)
  1. D EJECFRAC^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA,BGPC)
  1. D WLVSD^BGP1CPU
  1. Q:BGPQUIT
  1. K BGPDATA
  1. S X=$$COMFORT^BGP1CU(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."))
  1. D WCOMFORT^BGP1CPU(X)
  1. K BGPDATA
  1. K BGPY
  1. Q:BGPQUIT
  1. S X=$$ACEALLEG^BGP1CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP1CU(BGPVINP))
  1. S Z=$$ARBALLEG^BGP1CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP1CU(BGPVINP))
  1. D WACEALEG^BGP1CPU
  1. K BGPDATA
  1. S BGPC=0
  1. D ALLDXS^BGP1CU2(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA,BGPC,"BGP CMS AORTIC STENOSIS DXS")
  1. D WAORTIC^BGP1CPU
  1. Q:BGPQUIT
  1. K BGPDATA,BGPDX
  1. S BGPXX=0
  1. D ANGIOED^BGP1CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(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^BGP1CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(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^BGP1CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(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^BGP1CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(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^BGP1CU6(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(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^BGP1CPU
  1. K BGPDATA
  1. K BGPY
  1. Q:BGPQUIT
  1. K BGPDATA
  1. S BGPC=0
  1. D NMIDRUG^BGP1CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"BGP CMS ACEI MEDS",0)
  1. D NMIDRUG^BGP1CU1(DFN,$P($P(^AUPNVSIT(BGPVSIT,0),U),"."),$P($P(^AUPNVINP(BGPVINP,0),U),"."),.BGPDATA,"BGP CMS ARB MEDS",BGPC)
  1. D WNMIACE^BGP1CPU(.BGPDATA)
  1. Q:BGPQUIT
  1. S X=$$LASTMED^BGP1CU1(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^BGP1CU1(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^BGP1CPU
  1. Q:BGPQUIT
  1. Q:BGPQUIT
  1. D ALLALG1^BGP1CU1(DFN,DT,$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
  1. D WALLALG^BGP1CPU
  1. Q:BGPQUIT
  1. K BGPDATA
  1. D ALLALGA1^BGP1CU1(DFN,DT,.BGPDATA)
  1. D WALLALGT^BGP1CPU
  1. K BGPDATA
  1. D IVUD^BGP1CU1(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP),,.BGPDATA)
  1. D WIVUD^BGP1CPU
  1. Q
  1. ;