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

BGP1C4.m

Go to the documentation of this file.
  1. BGP1C4 ; IHS/CMI/LAB - calc CMS measures ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. SCALL ;EP
  1. K BGPDATA
  1. D SCIP^BGP1CU5(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
  1. Q:'$D(BGPDATA)
  1. K BGPDATA
  1. I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
  1. S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=""
  1. Q
  1. ;
  1. SCIP1 ;EP
  1. S BGPEX=""
  1. K BGPDATA
  1. D SCIP1^BGP1CU5(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
  1. I '$D(BGPDATA) Q ;no procedure
  1. I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
  1. ;exclusions
  1. I $$ADMPRIM^BGP1CU5(BGPVINP,"BGP CMS INFECTIOUS DXS") S BGPEX=BGPEX_"1|"
  1. SCIP1A ;
  1. I $G(BGPEXCL),BGPEX]"" Q
  1. S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
  1. Q
  1. ;
  1. SCIP3 ;EP
  1. S BGPEX=""
  1. K BGPDATA
  1. D SCIP1^BGP1CU5(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
  1. I '$D(BGPDATA) Q ;no procedure
  1. I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
  1. ;exclusions
  1. I $$ADMPRIM^BGP1CU5(BGPVINP,"BGP CMS INFECTIOUS DXS") S BGPEX=BGPEX_"1|"
  1. K BGPDATA
  1. D ANTIRX^BGP1CU3(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
  1. I '$D(BGPDATA) S BGPEX=BGPEX_"|7"
  1. SCIP3A ;
  1. I $G(BGPEXCL),BGPEX]"" Q
  1. S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
  1. Q
  1. ;