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

BDMPF10.m

Go to the documentation of this file. 
  1. BDMPF10 ; IHS/CMI/LAB -IHS -GETS DATA FOR DIABETES QA REPORT ; 15 Dec 2016  3:48 PM
  1.  ;;2.0;DIABETES MANAGEMENT SYSTEM;**11**;JUN 14, 2007;Build 30
  1.  ;
  1.  ;
  1. EN ; - ENTRY POINT - from ^BDMASK
  1.  ;D UNFOLDTX^BDMUTL(2018)
  1.  ;D BUILDSML^BDMUTL(2018)
  1.  K ^BDMDATA("BDMEPI",$J)
  1.  S ^XTMP("BDMPF1",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^PRE DM AUDIT 2018"
  1.  S BDMEPIN=0
  1.  S BDMPF=0 F  S BDMPF=$O(^XTMP("BDMPF1",BDMJOB,BDMBTH,"PATS",BDMPF)) Q:'BDMPF  D
  1.  .I BDMTYPE'="P",BDMTYPE'="S" Q:$$DEMO^BDMUTL(BDMPF,$G(BDMDFMO))
  1.  .D GATHER
  1.  I BDMPREP=2!(BDMPREP=3) D CUML^BDMPF15
  1.  Q
  1. S(P,I,V) ;
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",P,I)=V
  1.  Q
  1. GATHER ;gather data for 1 patient
  1.  S BDMER=0
  1.  ;set report dates
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,1)=$S($G(BDMFISC)]"":BDMFISC,1:BDMRBD_" - "_BDMRED)
  1.  ;set audit date to DT
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,2)=$$FMTE^XLFDT(DT)
  1.  ;set area, su, facility code and name
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,4)=$P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,6)=$E($P(^AUTTLOC($S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U,10),1,2)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,8)=$E($P(^AUTTLOC($S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U,10),3,4)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,10)=$E($P(^AUTTLOC($S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U,10),5,6)
  1.  ;# pats in register
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,12)=$S(BDMDMRG:$$RSTAT^BDMDM6(BDMDMRG,"A"),1:"")
  1.  ;reviewer
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,14)=$P(^VA(200,DUZ,0),U,2)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,15)=$$VAL^XBDIQ1(9000001,BDMPF,.14)
  1. DEMO ;pat demographics
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,16)=$$HRN^AUPNPAT(BDMPF,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)))
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,18)=$$DOB^AUPNPAT(BDMPF,"E")
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,20)=$$VAL^XBDIQ1(2,BDMPF,.02)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,120)=$$TRIBE(BDMPF)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,121)=$$COMM(BDMPF)
  1. DXDT ;dates of and dm dxs
  1.  K BDMDFTA D IFG^BDMPF13(BDMPF,.BDMDFTA)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,200)=$S($D(BDMDFTA):"Yes",1:"No")
  1.  S X=0 F  S X=$O(BDMDFTA(X)) Q:X'=+X  D
  1.  .S Y=200_"."_X
  1.  .S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,Y)=BDMDFTA(X)
  1.  K BDMDFTA D IGT^BDMPF13(BDMPF,.BDMDFTA)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,210)=$S($D(BDMDFTA):"Yes",1:"No")
  1.  S X=0 F  S X=$O(BDMDFTA(X)) Q:X'=+X  D
  1.  .S Y=210_"."_X
  1.  .S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,Y)=BDMDFTA(X)
  1.  K BDMDFTA D MS^BDMPF13(BDMPF,.BDMDFTA)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,220)=$S($D(BDMDFTA):"Yes",1:"No")
  1.  S X=0 F  S X=$O(BDMDFTA(X)) Q:X'=+X  D
  1.  .S Y=220_"."_X
  1.  .S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,Y)=BDMDFTA(X)
  1.  K BDMDFTA D ABNG^BDMPF13(BDMPF,.BDMDFTA)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,230)=$S($D(BDMDFTA):"Yes",1:"No")
  1.  S X=0 F  S X=$O(BDMDFTA(X)) Q:X'=+X  D
  1.  .S Y=230_"."_X
  1.  .S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,Y)=BDMDFTA(X)
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,22)=$S(BDMDMRG:$$CMSFDX^BDMDF13(BDMPF,BDMDMRG,"D"),1:"")
  1.  S ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,24)=$S(BDMDMRG:$$CMSFDX^BDMDF13(BDMPF,BDMDMRG,"DX"),1:"")
  1.  I $$PLDMDXS^BDMDF13(BDMPF)]"" D S(BDMPF,25,"PLEASE NOTE:  Diabetes is on the Problem list for this patient")
  1.  S X=$$FRSTDMDX^BDMDF13(BDMPF,"E") I X]"" D S(BDMPF,26,"PLEASE NOTE:  Diabetes has been used as a diagnosis in PCC: "_X)
  1.  D S(BDMPF,27,$P($$TOBACCO^BDMDF1T(BDMPF,$$DOB^AUPNPAT(BDMPF),BDMADAT),U,2))
  1.  D S(BDMPF,28,$$CESS^BDMDF11(BDMPF,BDMBDAT,BDMADAT))
  1. VITAL ;
  1.  D S(BDMPF,30,$$LASTHT^BDMDF13(BDMPF,BDMADAT))
  1.  D S(BDMPF,32,$$LASTWT^BDMPF13(BDMPF,BDMADAT))
  1.  D S(BDMPF,33,$$LASTWC^BDMPF13(BDMPF,BDMADAT))
  1.  ;htn dx
  1.  S X=$$HTNDX^BDMDF13(BDMPF,BDMADAT) D S(BDMPF,34,$S($E(X)=1:"Yes",1:"No"))
  1.  ;last 3 BPs
  1.  D S(BDMPF,36,$$BPS^BDMDF13(BDMPF,BDMRBD,BDMRED))
  1. EXAMS ;
  1.  S X=$$DIETEDUC^BDMDF17(BDMPF,BDMRBD,BDMRED),X=$P(X,U),X=$P(X,"  ",2) D S(BDMPF,44,X)
  1.  D S(BDMPF,46,$$EXEDUC^BDMDF17(BDMPF,BDMBDAT,BDMADAT))
  1. THERAPY ;
  1.  S BDM6MBD=$$FMADD^XLFDT(BDMADAT,-(6*31)),BDM6MBD=$$FMTE^XLFDT(BDM6MBD)
  1.  D S(BDMPF,53,$$SULF^BDMDF12(BDMPF,BDM6MBD,BDMRED))
  1.  D S(BDMPF,54,$$MET^BDMDF12(BDMPF,BDM6MBD,BDMRED))
  1.  D S(BDMPF,55,$$ACAR^BDMDF12(BDMPF,BDM6MBD,BDMRED))
  1.  D S(BDMPF,56,$$TROG^BDMDF12(BDMPF,BDM6MBD,BDMRED))
  1.  S Y="" F X=53:1:56 I ^XTMP("BDMPF1",BDMJOB,BDMBTH,"AUDIT",BDMPF,X)="X" S Y=1
  1.  D S(BDMPF,51,$S(Y:"",1:"X"))
  1.  D S(BDMPF,60,$$ACE^BDMDF16(BDMPF,BDM6MBD,BDMRED))
  1. IMM ;
  1.  D S(BDMPF,62,$$ASPIRIN^BDMPF16(BDMPF,BDMRBD,BDMRED))
  1.  D S(BDMPF,61,$$LIPID^BDMPF16(BDMPF,BDM6MBD,BDMRED))
  1.  D S(BDMPF,76,$$EKG^BDMPF12(BDMPF,BDMRED))
  1. LABS ;
  1.  D S(BDMPF,90,$$FGLUCOSE^BDMDF18(BDMPF,$P(^DPT(BDMPF,0),U,3),BDMADAT))
  1.  D S(BDMPF,91,$$G75^BDMDF18(BDMPF,$P(^DPT(BDMPF,0),U,3),BDMADAT))
  1.  D S(BDMPF,86,$$CHOL^BDMDF18(BDMPF,BDMBDAT,BDMADAT))
  1.  D S(BDMPF,88,$$LDL^BDMDF18(BDMPF,BDMBDAT,BDMADAT))
  1.  D S(BDMPF,89,$$HDL^BDMDF18(BDMPF,BDMBDAT,BDMADAT))
  1.  D S(BDMPF,190,$$TRIG^BDMDF18(BDMPF,BDMBDAT,BDMADAT))
  1.  ;
  1.  D S(BDMPF,112,$$BMI^BDMDF18(BDMPF,BDMRBD,BDMRED))
  1.  Q
  1. DATE(D) ;EP
  1.  I $G(D)="" Q ""
  1.  Q $E(D,4,5)_"/"_$E(D,6,7)_"/"_(1700+($E(D,1,3)))
  1. TRIBE(P) ;EP
  1.  I '$G(P) Q ""
  1.  I '$D(^AUPNPAT(P,11)) Q ""
  1.  Q $$TRIBE^AUPNPAT(P,"C")_"^"_$$TRIBE^AUPNPAT(P,"E")
  1. COMM(P) ;EP
  1.  I '$G(P) Q ""
  1.  I '$D(^AUPNPAT(P,11)) Q ""
  1.  Q $$COMMRES^AUPNPAT(P,"C")_"^"_$$COMMRES^AUPNPAT(P,"E")