BQITRCLB.m

BQITRCLB ;GDHD/HCD/ALA-CVD Labs ; 13 Jun 2016  9:56 AM

 ;;2.5;ICARE MANAGEMENT SYSTEM;**1**;May 24, 2016;Build 17

 ;

NLDL(BQDFN) ;EP

 ; No LDL ever

 NEW MEET,DESC,X,TAX,TREF

 S MEET=0,DESC=""

 S TREF=$NA(^TMP("BQITAX",UID)) K @TREF

 S TAX="BGP LDL LOINC CODES" D BLD^BQITUTL(TAX,TREF)

 S TAX="DM AUDIT LDL CHOLESTEROL TAX" D BLD^BQITUTL(TAX,TREF,"L")

 S X=$$LAB^BQITRUTL("",1,BQDFN,"",0,">","","",.TREF)

 I $P(X,U,2)'="" S $P(X,U,2)=$$DATE^BQIUL1($P(X,U,2))

 I $P(X,U,1)=1 S MEET=0,DESC="Last LDL was "_$$FMTMDY^BQIUL1($P(X,U,2))_" ("_$P(X,U,3)_")"_U_$P(X,U,2,5)

 I $P(X,U,1)=0 S MEET=1,DESC="No LDL ever"

 K @TREF

 Q MEET_U_DESC

 ;

HLDL(BQDFN,TMFRAME) ;EP

 ; If most recent LDL in past year >190

 NEW X,MEET,DESC,TAX,TREF,X1

 S MEET=0,DESC=""

 S TREF=$NA(^TMP("BQITAX",UID)) K @TREF

 S TAX="BGP LDL LOINC CODES" D BLD^BQITUTL(TAX,TREF)

 S TAX="DM AUDIT LDL CHOLESTEROL TAX" D BLD^BQITUTL(TAX,TREF,"L")

 S X=$$LAB^BQITRUTL(TMFRAME,1,BQDFN,"",190,">","","",.TREF)

 I $P(X,U,2)'="" S $P(X,U,2)=$$DATE^BQIUL1($P(X,U,2))

 I $P(X,U,1)=0 S MEET=0,DESC="Most recent LDL not greater than 190 ("_$$FMTMDY^BQIUL1($P(X,U,2))_" "_$P(X,U,3)_")"

 I $P(X,U,1)=1 S MEET=1,DESC="Most recent LDL greater than 190 ("_$$FMTMDY^BQIUL1($P(X,U,2))_" "_$P(X,U,3)_")"_U_$$FMTMDY^BQIUL1($P(X,U,2))_U_$P(X,U,3,6),X1=X

 Q MEET_U_DESC

 ;

HTG(BQDFN,TMFRAME) ;EP 

 ; Most recent TG in past year >500

 NEW MEET,DESC,X,TAX,TREF

 S MEET=0,DESC=""

 S TMFRAME=$G(TMFRAME,"")

 S TREF=$NA(^TMP("BQITAX",UID)) K @TREF

 S TAX="DM AUDIT TRIGLYCERIDE TAX" D BLD^BQITUTL(TAX,TREF,"L")

 S TAX="BGP TRIGLYCERIDE LOINC CODES" D BLD^BQITUTL(TAX,TREF)

 S X=$$LAB^BQITRUTL(TMFRAME,1,BQDFN,"",500,">","","",.TREF)

 I $P(X,U,2)'="" S $P(X,U,2)=$$DATE^BQIUL1($P(X,U,2))

 I $P(X,U,1)=1 S MEET=1,DESC="Most recent Triglyceride greater than 500 ("_$$FMTMDY^BQIUL1($P(X,U,2))_" "_$P(X,U,3)_")"_U_$P(X,U,2,5)

 I $P(X,U,1)=0 S MEET=0,DESC="Most recent Triglyceride is not greater than 500"

 K @TREF

 Q MEET_U_DESC

BQITRCLB  ;GDHD/HCD/ALA-CVD Labs ; 13 Jun 2016  9:56 AM

 +1       ;;2.5;ICARE MANAGEMENT SYSTEM;**1**;May 24, 2016;Build 17

 +2       ;

NLDL(BQDFN) ;EP

 +1       ; No LDL ever

 +2        NEW MEET,DESC,X,TAX,TREF

 +3        SET MEET=0

           SET DESC=""

 +4        SET TREF=$NAME(^TMP("BQITAX",UID))

           KILL @TREF

 +5        SET TAX="BGP LDL LOINC CODES"

           DO BLD^BQITUTL(TAX,TREF)

 +6        SET TAX="DM AUDIT LDL CHOLESTEROL TAX"

           DO BLD^BQITUTL(TAX,TREF,"L")

 +7        SET X=$$LAB^BQITRUTL("",1,BQDFN,"",0,">","","",.TREF)

 +8        IF $PIECE(X,U,2)'=""

               SET $PIECE(X,U,2)=$$DATE^BQIUL1($PIECE(X,U,2))

 +9        IF $PIECE(X,U,1)=1

               SET MEET=0

               SET DESC="Last LDL was "_$$FMTMDY^BQIUL1($PIECE(X,U,2))_" ("_$PIECE(X,U,3)_")"_U_$PIECE(X,U,2,5)

 +10       IF $PIECE(X,U,1)=0

               SET MEET=1

               SET DESC="No LDL ever"

 +11       KILL @TREF

 +12       QUIT MEET_U_DESC

 +13      ;

HLDL(BQDFN,TMFRAME) ;EP

 +1       ; If most recent LDL in past year >190

 +2        NEW X,MEET,DESC,TAX,TREF,X1

 +3        SET MEET=0

           SET DESC=""

 +4        SET TREF=$NAME(^TMP("BQITAX",UID))

           KILL @TREF

 +5        SET TAX="BGP LDL LOINC CODES"

           DO BLD^BQITUTL(TAX,TREF)

 +6        SET TAX="DM AUDIT LDL CHOLESTEROL TAX"

           DO BLD^BQITUTL(TAX,TREF,"L")

 +7        SET X=$$LAB^BQITRUTL(TMFRAME,1,BQDFN,"",190,">","","",.TREF)

 +8        IF $PIECE(X,U,2)'=""

               SET $PIECE(X,U,2)=$$DATE^BQIUL1($PIECE(X,U,2))

 +9        IF $PIECE(X,U,1)=0

               SET MEET=0

               SET DESC="Most recent LDL not greater than 190 ("_$$FMTMDY^BQIUL1($PIECE(X,U,2))_" "_$PIECE(X,U,3)_")"

 +10       IF $PIECE(X,U,1)=1

               SET MEET=1

               SET DESC="Most recent LDL greater than 190 ("_$$FMTMDY^BQIUL1($PIECE(X,U,2))_" "_$PIECE(X,U,3)_")"_U_$$FMTMDY^BQIUL1($PIECE(X,U,2))_U_$PIECE(X,U,3,6)

               SET X1=X

 +11       QUIT MEET_U_DESC

 +12      ;

HTG(BQDFN,TMFRAME) ;EP 

 +1       ; Most recent TG in past year >500

 +2        NEW MEET,DESC,X,TAX,TREF

 +3        SET MEET=0

           SET DESC=""

 +4        SET TMFRAME=$GET(TMFRAME,"")

 +5        SET TREF=$NAME(^TMP("BQITAX",UID))

           KILL @TREF

 +6        SET TAX="DM AUDIT TRIGLYCERIDE TAX"

           DO BLD^BQITUTL(TAX,TREF,"L")

 +7        SET TAX="BGP TRIGLYCERIDE LOINC CODES"

           DO BLD^BQITUTL(TAX,TREF)

 +8        SET X=$$LAB^BQITRUTL(TMFRAME,1,BQDFN,"",500,">","","",.TREF)

 +9        IF $PIECE(X,U,2)'=""

               SET $PIECE(X,U,2)=$$DATE^BQIUL1($PIECE(X,U,2))

 +10       IF $PIECE(X,U,1)=1

               SET MEET=1

               SET DESC="Most recent Triglyceride greater than 500 ("_$$FMTMDY^BQIUL1($PIECE(X,U,2))_" "_$PIECE(X,U,3)_")"_U_$PIECE(X,U,2,5)

 +11       IF $PIECE(X,U,1)=0

               SET MEET=0

               SET DESC="Most recent Triglyceride is not greater than 500"

 +12       KILL @TREF

 +13       QUIT MEET_U_DESC