BDMDM4 ; IHS/CMI/LAB -CONTINUATION OF DM AUDIT RETRIEVAL ROUTINE ;
;;2.0;DIABETES MANAGEMENT SYSTEM;**2**;JUN 14, 2007
;IHS/CMI/LAB - fixed EKG
;
;
EN ; - EP - from ^BDMDM1
;
F BDMII=1:1 Q:$T(@BDMII)="" K BDMX S BDMY="BDM(" D @BDMII K BDM
K BDMII
Q
1 ;
URINE ;urinalysis done?
S BDMX=BDMPD_"^LAST LAB [DM AUDIT URINALYSIS TAX"_BDMDATE S BDMER=$$START1^APCLDF(BDMX,BDMY)
I '$D(BDM(1)) S ^TMP("BDM",$J,23)="NO",^TMP("BDM",$J,24.1)="-" G UPRO
S ^TMP("BDM",$J,23)="YES"
UPRO ;
S BDMX=BDMPD_"^LAST LAB [DM AUDIT URINE PROTEIN TAX"_BDMDATE S BDMER=$$START1^APCLDF(BDMX,BDMY)
I '$D(BDM(1)) S ^TMP("BDM",$J,24.1)="-" G X7
S %A=$P(BDM(1),U,2) S ^TMP("BDM",$J,24.1)=$S(%A]"":$P(BDM(1),U,2),1:"-")
I BDMCUML F %=24.1 I ^TMP("BDM",$J,%)["+" S BDMPOS=1 Q
I BDMCUML S BDMGOT1=$S($G(BDMPOS):1,1:0),BDMSUB=35 D CUML^BDMDM1
S ^TMP("BDM",$J,31)=$S($G(BDMPOS):"YES",1:"NO")
X7 I BDMCUML S BDMGOT1=$S(^TMP("BDM",$J,23)="YES":1,1:0),BDMSUB=34 D CUML^BDMDM1
K BDMPOS
Q
2 ;
CRTININE S BDMX=BDMPD_"^LAST DX V42.0" S BDMER=$$START1^APCLDF(BDMX,BDMY) I $D(BDM(1)) S BDMD1=+BDM(1) K BDM
S BDMX=BDMPD_"^LAST DX V56.0" S BDMER=$$START1^APCLDF(BDMX,BDMY) I $D(BDM(1)) D I $D(^TMP("BDM",$J,25)) G CUM
. I $D(BDMD1) S:BDMD1<+BDM(1) ^TMP("BDM",$J,25)="ON DIALYSIS"
. I '$D(BDMD1) S ^TMP("BDM",$J,25)="ON DIALYSIS"
K BDM
S BDMX=BDMPD_"^LAST LAB [DM AUDIT CREATININE TAX"_BDMDATE S BDMER=$$START1^APCLDF(BDMX,BDMY) D
. S ^TMP("BDM",$J,25)=$S($D(BDM(1)):"YES - "_$P(BDM(1),U,2),1:"NO") ;***
CUM I BDMCUML S BDMGOT1=$S(^TMP("BDM",$J,25)["YES":1,1:0),BDMSUB=36 D CUML^BDMDM1
I BDMCUML,BDMGOT1 S BDMGOT1=$S(+($P(^TMP("BDM",$J,25)," ",3))>2:1,1:0),BDMSUB=37 D CUML^BDMDM1
X9 K BDMD1 Q ;***
3 ;
CHOLES S BDMX=BDMPD_"^LAST LAB [DM AUDIT CHOLESTEROL TAX"_BDMDATE S BDMER=$$START1^APCLDF(BDMX,BDMY)
S ^TMP("BDM",$J,26)=$S($D(BDM(1)):"YES - "_$P(BDM(1),U,2),1:"NO") ;***
I BDMCUML S BDMGOT1=$S(^TMP("BDM",$J,26)["YES":1,1:0),BDMSUB=38 D CUML^BDMDM1
I BDMCUML,BDMGOT1 S BDMGOT1=$S(+($P(^TMP("BDM",$J,26)," ",3))>240:1,1:0),BDMSUB=39 D CUML^BDMDM1
Q
4 ;
TRIGLYC S BDMX=BDMPD_"^LAST LAB [DM AUDIT TRIGLYCERIDE TAX"_BDMDATE S BDMER=$$START1^APCLDF(BDMX,BDMY)
S ^TMP("BDM",$J,27)=$S($D(BDM(1)):"YES - "_$P(BDM(1),U,2),1:"NO") ;***
I BDMCUML S BDMGOT1=$S(^TMP("BDM",$J,27)["YES":1,1:0),BDMSUB=40 D CUML^BDMDM1
Q
;
5 ;
D PPD^BDMDM8
Q
6 ;ECG SUMMARY
S BDMX=BDMPD_"^LAST DIAGNOSTIC ECG SUMMARY" S BDMER=$$START1^APCLDF(BDMX,BDMY) S ^TMP("BDM",$J,39)=$S($D(BDM(1)):"YES",1:"NO") ;IHS/CMI/LAB
S BDMSUB=55,BDMGOT1=$S($D(BDM(1)):1,1:0) D CUML^BDMDM1
;S BDMSUB=55,BDMGOT1=1 D CUML^BDMDM1
K BDMSUB,BDMX,BDMGOT1
Q
BDMDM4 ; IHS/CMI/LAB -CONTINUATION OF DM AUDIT RETRIEVAL ROUTINE ;
+1 ;;2.0;DIABETES MANAGEMENT SYSTEM;**2**;JUN 14, 2007
+2 ;IHS/CMI/LAB - fixed EKG
+3 ;
+4 ;
EN ; - EP - from ^BDMDM1
+1 ;
+2 FOR BDMII=1:1
IF $TEXT(@BDMII)=""
QUIT
KILL BDMX
SET BDMY="BDM("
DO @BDMII
KILL BDM
+3 KILL BDMII
+4 QUIT
1 ;
URINE ;urinalysis done?
+1 SET BDMX=BDMPD_"^LAST LAB [DM AUDIT URINALYSIS TAX"_BDMDATE
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
+2 IF '$DATA(BDM(1))
SET ^TMP("BDM",$JOB,23)="NO"
SET ^TMP("BDM",$JOB,24.1)="-"
GOTO UPRO
+3 SET ^TMP("BDM",$JOB,23)="YES"
UPRO ;
+1 SET BDMX=BDMPD_"^LAST LAB [DM AUDIT URINE PROTEIN TAX"_BDMDATE
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
+2 IF '$DATA(BDM(1))
SET ^TMP("BDM",$JOB,24.1)="-"
GOTO X7
+3 SET %A=$PIECE(BDM(1),U,2)
SET ^TMP("BDM",$JOB,24.1)=$SELECT(%A]"":$PIECE(BDM(1),U,2),1:"-")
+4 IF BDMCUML
FOR %=24.1
IF ^TMP("BDM",$JOB,%)["+"
SET BDMPOS=1
QUIT
+5 IF BDMCUML
SET BDMGOT1=$SELECT($GET(BDMPOS):1,1:0)
SET BDMSUB=35
DO CUML^BDMDM1
+6 SET ^TMP("BDM",$JOB,31)=$SELECT($GET(BDMPOS):"YES",1:"NO")
X7 IF BDMCUML
SET BDMGOT1=$SELECT(^TMP("BDM",$JOB,23)="YES":1,1:0)
SET BDMSUB=34
DO CUML^BDMDM1
+1 KILL BDMPOS
+2 QUIT
2 ;
CRTININE SET BDMX=BDMPD_"^LAST DX V42.0"
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
IF $DATA(BDM(1))
SET BDMD1=+BDM(1)
KILL BDM
+1 SET BDMX=BDMPD_"^LAST DX V56.0"
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
IF $DATA(BDM(1))
Begin DoDot:1
+2 IF $DATA(BDMD1)
IF BDMD1<+BDM(1)
SET ^TMP("BDM",$JOB,25)="ON DIALYSIS"
+3 IF '$DATA(BDMD1)
SET ^TMP("BDM",$JOB,25)="ON DIALYSIS"
End DoDot:1
IF $DATA(^TMP("BDM",$JOB,25))
GOTO CUM
+4 KILL BDM
+5 SET BDMX=BDMPD_"^LAST LAB [DM AUDIT CREATININE TAX"_BDMDATE
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
Begin DoDot:1
+6 ;***
SET ^TMP("BDM",$JOB,25)=$SELECT($DATA(BDM(1)):"YES - "_$PIECE(BDM(1),U,2),1:"NO")
End DoDot:1
CUM IF BDMCUML
SET BDMGOT1=$SELECT(^TMP("BDM",$JOB,25)["YES":1,1:0)
SET BDMSUB=36
DO CUML^BDMDM1
+1 IF BDMCUML
IF BDMGOT1
SET BDMGOT1=$SELECT(+($PIECE(^TMP("BDM",$JOB,25)," ",3))>2:1,1:0)
SET BDMSUB=37
DO CUML^BDMDM1
X9 ;***
KILL BDMD1
QUIT
3 ;
CHOLES SET BDMX=BDMPD_"^LAST LAB [DM AUDIT CHOLESTEROL TAX"_BDMDATE
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
+1 ;***
SET ^TMP("BDM",$JOB,26)=$SELECT($DATA(BDM(1)):"YES - "_$PIECE(BDM(1),U,2),1:"NO")
+2 IF BDMCUML
SET BDMGOT1=$SELECT(^TMP("BDM",$JOB,26)["YES":1,1:0)
SET BDMSUB=38
DO CUML^BDMDM1
+3 IF BDMCUML
IF BDMGOT1
SET BDMGOT1=$SELECT(+($PIECE(^TMP("BDM",$JOB,26)," ",3))>240:1,1:0)
SET BDMSUB=39
DO CUML^BDMDM1
+4 QUIT
4 ;
TRIGLYC SET BDMX=BDMPD_"^LAST LAB [DM AUDIT TRIGLYCERIDE TAX"_BDMDATE
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
+1 ;***
SET ^TMP("BDM",$JOB,27)=$SELECT($DATA(BDM(1)):"YES - "_$PIECE(BDM(1),U,2),1:"NO")
+2 IF BDMCUML
SET BDMGOT1=$SELECT(^TMP("BDM",$JOB,27)["YES":1,1:0)
SET BDMSUB=40
DO CUML^BDMDM1
+3 QUIT
+4 ;
5 ;
+1 DO PPD^BDMDM8
+2 QUIT
6 ;ECG SUMMARY
+1 ;IHS/CMI/LAB
SET BDMX=BDMPD_"^LAST DIAGNOSTIC ECG SUMMARY"
SET BDMER=$$START1^APCLDF(BDMX,BDMY)
SET ^TMP("BDM",$JOB,39)=$SELECT($DATA(BDM(1)):"YES",1:"NO")
+2 SET BDMSUB=55
SET BDMGOT1=$SELECT($DATA(BDM(1)):1,1:0)
DO CUML^BDMDM1
+3 ;S BDMSUB=55,BDMGOT1=1 D CUML^BDMDM1
+4 KILL BDMSUB,BDMX,BDMGOT1
+5 QUIT
