Ignore:
Timestamp:
May 25, 2012, 5:55:11 PM (13 years ago)
Author:
Sam Habiel
Message:

Updated routines after many small fixes; added C0QKIDS as well

File:
1 edited

Legend:

Unmodified
Added
Removed
  • qrda/C0Q/trunk/p/C0QUPDT.m

    r1364 r1438  
    1 C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11  17:05
    2         ;;0.1;C0Q;nopatch;noreleasedate;Build 27
     1C0QUPDT ; GPL - Quality Reporting List Update Routines ; 5/23/12 5:46pm
     2        ;;1.0;C0Q;;May 21, 2012;Build 43
    33        ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.
     
    9595        . ; FIRST PROCESS DELETIONS
    9696        . K C0QFDA ; CLEAR OUT THE FDA
    97         . N ZG,ZIEN S ZG="" 
     97        . N ZG,ZIEN S ZG=""
    9898        . F  S ZG=$O(C0QRSLT(2,ZG)) Q:ZG=""  D  ; FOR EACH DELETION
    9999        . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY
     
    104104        . ; SECOND, PROCESS ADDITIONS
    105105        . K C0QFDA ; CLEAR OUT THE FDA
    106         . N ZG,ZC S ZG="" S ZC=1 
     106        . N ZG,ZC S ZG="" S ZC=1
    107107        . F  S ZG=$O(C0QRSLT(0,ZG)) Q:ZG=""  D  ; FOR EACH ADDITION
    108108        . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY
     
    147147        . ; FIRST PROCESS DELETIONS
    148148        . K C0QFDA ; CLEAR OUT THE FDA
    149         . N ZG,ZIEN S ZG="" 
     149        . N ZG,ZIEN S ZG=""
    150150        . F  S ZG=$O(C0QRSLT(2,ZG)) Q:ZG=""  D  ; FOR EACH DELETION
    151151        . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY
     
    156156        . ; SECOND, PROCESS ADDITIONS
    157157        . K C0QFDA ; CLEAR OUT THE FDA
    158         . N ZG,ZC S ZG="" S ZC=1 
     158        . N ZG,ZC S ZG="" S ZC=1
    159159        . F  S ZG=$O(C0QRSLT(0,ZG)) Q:ZG=""  D  ; FOR EACH ADDITION
    160160        . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY
     
    191191        K ZERR
    192192        D CLEAN^DILF
    193         ZWR C0QFDA
     193        ZWRITE C0QFDA
    194194        D UPDATE^DIE("","C0QFDA","","ZERR")
    195195        I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED
Note: See TracChangeset for help on using the changeset viewer.