Index: qrda/C0Q/trunk/p/C0QMU12.m =================================================================== --- qrda/C0Q/trunk/p/C0QMU12.m (revision 1580) +++ qrda/C0Q/trunk/p/C0QMU12.m (revision 1581) @@ -1,4 +1,4 @@ -C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm - ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 32 +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/22/12 4:29pm + ;;1.0;QUALITY MEASURES;**1,5,6**;May 21, 2012;Build 32 ; ;2011 Zach Gonzales - Licensed under the terms of the GNU @@ -10,5 +10,5 @@ C0QPFN() Q 1130580001.401 ; PARAMETER FILE C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE -C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT SET FILE C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS @@ -25,17 +25,22 @@ F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; . S ZCNT=ZCNT+1 + . S @ZARY@(ZCNT,"IEN")=ZIEN . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) - . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") - . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX + . ; + . ; Inpatient + . S (ZX,@ZARY@(ZCNT,"InpatientMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") - . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") - . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX + . ; + . ; Outpatient + . S (ZX,@ZARY@(ZCNT,"EPMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") - . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") + . S @ZARY@(ZCNT,"EPModelPerfSet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.1,"I") + . S @ZARY@(ZCNT,"EPModelQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.2,"I") + . ; . D CLEAN^DILF . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") @@ -346,4 +351,6 @@ ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" ; LOC IS HOSPITAL LOCATION + ; Initially, make an empty list (C0Q*1.0*6) + S C0QLIST(PREFIX_"Patient")="" S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION I ULOC="" D Q ; OOPS @@ -394,4 +401,6 @@ . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") + . ; update parameter list with filter list (1.0*6) + . S C0QPARM(ZI,"FilterListName")=PRE_"Patient" S DFN="" S ZYR=ZYR_"EP-" @@ -413,8 +422,49 @@ . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list - ; + ; N ZI S ZI="" F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; + . I 'C0QPARM(ZI,"EPMeasurementSet"),C0QPARM(ZI,"EPModelPerfSet") D + . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) + . . N FLN S FLN=C0QPARM(ZI,"FilterListName") + . . ; + . . ; 1. BUILD New Measure Set from Model Performance Measure Set + . . ; Get IEN back of the newly created measure set. + . . N MSIEN ; Measure Set IEN that gets created + . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelPerfSet"),C0QCLNC,0,FLN) + . . ; + . . ; 2. File Measure Set + . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2)=MSIEN + . . N C0QERR + . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) + . . I $D(C0QERR) S $EC=",U1," + . . ; + . . ; 3. Set this IEN to be the one in EPMeasurementSet + . . S C0QPARM(ZI,"EPMeasurementSet")=MSIEN + . . ; DONE + . . ; + . I 'C0QPARM(ZI,"EPQualitySet"),C0QPARM(ZI,"EPModelQualitySet") D + . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) + . . N FLN S FLN=C0QPARM(ZI,"FilterListName") + . . ; + . . ; 1. BUILD New Measure Set from Model Performance Measure Set + . . ; Get IEN back of the newly created measure set. + . . N MSIEN ; Measure Set IEN that gets created + . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelQualitySet"),C0QCLNC,1,FLN) + . . ; + . . ; 2. File Measure Set + . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2.1)=MSIEN + . . N C0QERR + . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) + . . I $D(C0QERR) S $EC=",U1," + . . ; + . . ; 3. Set this IEN to be the one in EPMeasurementSet + . . S C0QPARM(ZI,"EPQualitySet")=MSIEN + . . ; DONE + . ; + . ; Quit if we still don't have measurement sets + . I 'C0QPARM(ZI,"EPMeasurementSet")&('C0QPARM(ZI,"EPQualitySet")) QUIT + . ; . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET . ; VEN/SMH -- Quality Set missing for Outpatient -- adding Index: qrda/C0Q/trunk/p/C0QMU123.m =================================================================== --- qrda/C0Q/trunk/p/C0QMU123.m (revision 1581) +++ qrda/C0Q/trunk/p/C0QMU123.m (revision 1581) @@ -0,0 +1,93 @@ +C0QMU123 ; VEN/SMH - Clone a Measure Set and give a new name and filter. ; 10/23/12 1:07pm + ;;1.0;QUALITY MEASURES;**6**; + ; (C) George Lilly. Licensed under AGPL. + QUIT + ; +CLONE(MSIEN,CLNNM,ISQM,FLNAME) ; Private $$ ; Clone a measure set into a new one + ; Input: + ; 1. Measurement Set IEN to clone + ; 2. Clinic Name for which this Measurement Set would apply (FT) + ; 3. Boolean: Is Quality Measure? + ; 4. Filter List Name + ; + ; Output: + ; IEN of Created measure set. + ; + ; Get data from Model Set + N C0QIENS S C0QIENS=MSIEN_"," ; Input to GETS call + N C0QOUT,C0QERR ; Output Variables in GETS call. + D GETS^DIQ(1130580001.201,C0QIENS,"**","",$NA(C0QOUT),$NA(C0QERR)) + ; + I $D(C0QERR) S $EC=",U1," ; Crash in case of error. Shouldn't happen. + ; + ; Deal with D0 stuff first. + ; Merge D0 level into a new FDA array. + N C0QNEW ; New FDA + M C0QNEW(1130580001.201,"?+1,")=C0QOUT(1130580001.201,C0QIENS) + ; + ; Change .01 + ; NOTE: Field name is 30 characters. But HL is max 30 chars too! + ; So we have to truncate it. + ; If Is Quality Measure, Use QM, otherwise, use Performance Report. + S C0QNEW(1130580001.201,"?+1,",.01)=$E(CLNNM,1,27)_" "_$S(ISQM:"QM",1:"PR") + ; + ; Deal with D1 level + N I S I=0 ; Looper + N CNT S CNT=1 ; IENS counter ; Will become 2 and larger. Not to collide with the initial 1. + ; + ; For each record in D1 level + F S I=$O(C0QOUT(1130580001.2011,I)) Q:'I D + . S CNT=CNT+1 + . ; Grab the Measure field + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",.01)=C0QOUT(1130580001.2011,I,.01) + . ; + . ; Put the Filter lists on + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",1.2)=FLNAME + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",2.2)=FLNAME + ; + ; File Data. + N C0QIEN,C0QERR ; Returned IEN, Error array + D UPDATE^DIE("E",$NA(C0QNEW),$NA(C0QIEN),$NA(C0QERR)) + I $D(C0QERR) S $EC=",U1," + ; + Q C0QIEN(1) ; Quit with IEN for ?+1. + ; + ; SAM(1130580001.201,"17,",.01)="DR OFFICE QM REPORT" + ; SAM(1130580001.201,"17,",.02)="AUG 1,2012" + ; SAM(1130580001.201,"17,",.03)="OCT 31,2012" + ; SAM(1130580001.201,"17,",.04)="" + ; SAM(1130580001.201,"17,",.05)="" + ; SAM(1130580001.201,"17,",.2)="" + ; SAM(1130580001.201,"17,",.3)="" + ; SAM(1130580001.201,"17,",.4)="" + ; SAM(1130580001.2011,"1,17,",.01)="MU EP NQF 0013" + ; SAM(1130580001.2011,"1,17,",1.1)=1 + ; SAM(1130580001.2011,"1,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"1,17,",2.1)=1 + ; SAM(1130580001.2011,"1,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"1,17,",3)=100 + ; SAM(1130580001.2011,"2,17,",.01)="MU EP NQF 0028A" + ; SAM(1130580001.2011,"2,17,",1.1)=0 + ; SAM(1130580001.2011,"2,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"2,17,",2.1)=1 + ; SAM(1130580001.2011,"2,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"2,17,",3)=0 + ; SAM(1130580001.2011,"3,17,",.01)="MU EP NQF 0028B" + ; SAM(1130580001.2011,"3,17,",1.1)=0 + ; SAM(1130580001.2011,"3,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"3,17,",2.1)=1 + ; SAM(1130580001.2011,"3,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"3,17,",3)=0 + ; SAM(1130580001.2011,"4,17,",.01)="MU EP NQF 0421" + ; SAM(1130580001.2011,"4,17,",1.1)=1 + ; SAM(1130580001.2011,"4,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"4,17,",2.1)=1 + ; SAM(1130580001.2011,"4,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"4,17,",3)=100 + ; SAM(1130580001.20111,"1,1,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20111,"1,4,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,1,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,2,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,3,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,4,17,",.01)="MOUSE,MICKEY" + ;