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

Timestamp:

May 25, 2012, 5:55:11 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated routines after many small fixes; added C0QKIDS as well

File:

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

qrda/C0Q/trunk/p/C0QUPDT.m

@@ -1 @@
-C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11  17:05
-        ;;0.1;C0Q;nopatch;noreleasedate;Build 27
+C0QUPDT ; GPL - Quality Reporting List Update Routines ; 5/23/12 5:46pm
+        ;;1.0;C0Q;;May 21, 2012;Build 43
         ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -95 +95 @@
         . ; FIRST PROCESS DELETIONS
         . K C0QFDA ; CLEAR OUT THE FDA
-        . N ZG,ZIEN S ZG="" 
+        . N ZG,ZIEN S ZG=""
         . F  S ZG=$O(C0QRSLT(2,ZG)) Q:ZG=""  D  ; FOR EACH DELETION
         . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY
@@ -104 +104 @@
         . ; SECOND, PROCESS ADDITIONS
         . K C0QFDA ; CLEAR OUT THE FDA
-        . N ZG,ZC S ZG="" S ZC=1 
+        . N ZG,ZC S ZG="" S ZC=1
         . F  S ZG=$O(C0QRSLT(0,ZG)) Q:ZG=""  D  ; FOR EACH ADDITION
         . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY
@@ -147 +147 @@
         . ; FIRST PROCESS DELETIONS
         . K C0QFDA ; CLEAR OUT THE FDA
-        . N ZG,ZIEN S ZG="" 
+        . N ZG,ZIEN S ZG=""
         . F  S ZG=$O(C0QRSLT(2,ZG)) Q:ZG=""  D  ; FOR EACH DELETION
         . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY
@@ -156 +156 @@
         . ; SECOND, PROCESS ADDITIONS
         . K C0QFDA ; CLEAR OUT THE FDA
-        . N ZG,ZC S ZG="" S ZC=1 
+        . N ZG,ZC S ZG="" S ZC=1
         . F  S ZG=$O(C0QRSLT(0,ZG)) Q:ZG=""  D  ; FOR EACH ADDITION
         . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY
@@ -191 +191 @@
         K ZERR
         D CLEAN^DILF
-        ZWR C0QFDA
+        ZWRITE C0QFDA
         D UPDATE^DIE("","C0QFDA","","ZERR")
         I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED