Changeset 1230 for qrda/C0Q/trunk/p/C0QPRML.m

Timestamp:

Aug 30, 2011, 1:51:06 PM (13 years ago)

Author:

George Lilly

Message:

update instead of delete old patient lists for performance

File:

• qrda/C0Q/trunk/p/C0QPRML.m (modified) (3 diffs)

qrda/C0Q/trunk/p/C0QPRML.m

@@ -1 +1 @@
 C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm
-        ;;1.0;MU PACKAGE;;;Build 13
+        ;;1.0;MU PACKAGE;;;Build 14
         ;
         ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -26 +26 @@
         I '$D(C0QPL) S C0QPL=1 ;default do create patient lists
         N G1 ; ONE SET OF VALUES - RNF1 FORMAT
+        ; INITIALIZE LISTS
+        S C0QLIST("HasDemographics")=""
+        S C0QLIST("Patient")=""
+        S C0QLIST("HasProblem")=""
+        S C0QLIST("HasAllergy")=""
+        S C0QLIST("HasMed")=""
         D ALL ; all currently admitted patients in the hospital
         D DIS ; all patients discharged since the reporting period began
         I C0QSS ZWR GRSLT
-        I C0QPL D FILE ; FILE THE PATIENT LISTS
+        I C0QPL D  ;
+        . D FILE ; FILE THE PATIENT LISTS
+        . D UPDATE^C0QUPDT(.G,8) ; UPDATE THE MU MEASUREMENT SET
         Q
         ;
@@ -216 +224 @@
         . I ZN="" D  Q  ; OOPS
         . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI
-        . S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN
+        . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN
+        . N C0QNEW,C0QOLD,C0QRSLT
+        . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST
+        . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST
+        . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW
+        . N ZJ,ZK
+        . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST
         . K C0QFDA
-        . N ZJ,ZC
-        . S ZJ="" S ZC=1
-        . F  S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ=""  D  ; FOR EACH PAT IN LIST
-        . . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ
-        . . S ZC=ZC+1
-        . D UPDIE
-        . W !,"FOUND:"_ZI
+        . S ZJ=""
+        . F  S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ=""  D  ; MARKED WITH A 2 FROM UNITY
+        . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE
+        . . I ZK="" D  Q  ; OOPS SHOULDN'T HAPPEN
+        . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE"
+        . . . B
+        . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@"
+        . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS
+        . ; SECOND, PROCESS THE ADDITIONS
+        . K C0QFDA
+        . S ZJ="" S ZK=1
+        . F  S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ=""  D  ; PATIENTS TO ADD ARE MARKED WITH 0
+        . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ
+        . . S ZK=ZK+1
+        . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS
+        ;. Q
+        ;. K C0QFDA
+        ;. N ZJ,ZC
+        ;. S ZJ="" S ZC=1
+        ;. F  S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ=""  D  ; FOR EACH PAT IN LIST
+        ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ
+        ;. . S ZC=ZC+1
+        ;. D UPDIE
+        ;. W !,"FOUND:"_ZI
         Q
         ;