Changeset 1230 for qrda/C0Q/trunk/p/C0QSET.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/C0QSET.m (modified) (2 diffs)

qrda/C0Q/trunk/p/C0QSET.m

@@ -1 +1 @@
 C0QSET  ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm
-        ;;1.0;MU PACKAGE;;;Build 13
+        ;;1.0;MU PACKAGE;;;Build 14
         ;
         ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU
@@ -51 +51 @@
         ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY
         N C0QD ; TEMP WORK ARRAY
+        N ZN S ZN=0 ; COUNT
         N ZI S ZI=0
         F  S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0  D  ; FOR EACH ITEM IN NEW
         . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW
+        . S ZN=ZN+1
+        S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT
         S ZI=0
         F  S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0  D  ; FOR EACH ITEM IN OLD