Changeset 1335 for qrda/C0Q/trunk/p/C0QUPDT.m

Timestamp:

Jan 4, 2012, 4:37:42 PM (13 years ago)

Author:

George Lilly

Message:

latest C0Q changes with parameters

File:

• qrda/C0Q/trunk/p/C0QUPDT.m (modified) (8 diffs)

qrda/C0Q/trunk/p/C0QUPDT.m

@@ -1 +1 @@
 C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11  17:05
-        ;;0.1;C0Q;nopatch;noreleasedate;Build 19
+        ;;0.1;C0Q;nopatch;noreleasedate;Build 23
         ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -27 +27 @@
 RLSTFN()        Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE
 RLSTPFN()       Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE
+C0QPLF()        Q 1130580001.301 ; C0Q PATIENT LIST FILE
 C0QALFN()       Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ;
         ;
@@ -39 +40 @@
         N ZI S ZI=""
         N C0QM ; FOR HOLDING THE MEASURES IN THE SET
-        D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES
+        I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D  Q  ; IS IT LOCKED?
+        . W !,"ERROR MEASURE SET IS LOCKED, EXITING"
+        D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES
         D DELIST("C0QM")
         N ZII S ZII=""
         F  S ZII=$O(C0QM(ZII)) Q:ZII=""  D  ; FOR EACH MEASURE
+        . N C0QNL,C0QDL,C0QFLTN,C0QFLTD
+        . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST
+        . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST
         . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE
         . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER
@@ -60 +66 @@
         . E  D  ; USE THE REMINDER PACKAGE PATIENT LISTS
         . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS
+        . I C0QFLTN'="" D  ; USE A NUMERATOR FILTER LIST
+        . . N ZNEW
+        . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST
+        . . K C0QFLTRD
+        . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW)
+        . . S C0QNEW="C0QFLTRD"
         . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST
         . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET
@@ -105 +117 @@
         . E  D  ; USE THE REMINDER PACKAGE PATIENT LISTS
         . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS
+        . I C0QFLTD'="" D  ; USE A DENOMINATOR FILTER LIST
+        . . N ZNEW
+        . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST
+        . . K C0QFLTRD
+        . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW)
+        . . S C0QNEW="C0QFLTRD"
         . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST
         . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET
@@ -144 +162 @@
         . I $D(C0QFDA) D UPDIE ; PROCESS
         . N C0QPCT ; PERCENT
-        . I C0QDCNT>0 D  ;
-        . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0)
+        . D  ;
+               . . I C0QDCNT>0 D  ;
+        . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0)
+               . . E  S C0QPCT=0
         . . K C0QFDA
         . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT
@@ -154 +174 @@
         ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE
         ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE
-        N ZI,IV,EV,ZDI,ZIEN
+        N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD
         S ZI=""
         S ZDI=$NA(^TMP("DILIST",$J))
@@ -161 +181 @@
         . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE
         . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE
+        . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST
+        . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST
         . S ZIEN=@ZDI@(2,ZI) ; IEN
-        . S @RTN@(ZIEN)=IV_"^"_EV
+        . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD
         . ;S @RTN@("B",IV,ZIEN)=EV
         Q