Changeset 1438 for qrda/C0Q/trunk/p/C0QUPDT.m
- Timestamp:
- May 25, 2012, 5:55:11 PM (13 years ago)
- 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:052 ;; 0.1;C0Q;nopatch;noreleasedate;Build 271 C0QUPDT ; GPL - Quality Reporting List Update Routines ; 5/23/12 5:46pm 2 ;;1.0;C0Q;;May 21, 2012;Build 43 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. … … 95 95 . ; FIRST PROCESS DELETIONS 96 96 . K C0QFDA ; CLEAR OUT THE FDA 97 . N ZG,ZIEN S ZG="" 97 . N ZG,ZIEN S ZG="" 98 98 . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION 99 99 . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY … … 104 104 . ; SECOND, PROCESS ADDITIONS 105 105 . K C0QFDA ; CLEAR OUT THE FDA 106 . N ZG,ZC S ZG="" S ZC=1 106 . N ZG,ZC S ZG="" S ZC=1 107 107 . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION 108 108 . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY … … 147 147 . ; FIRST PROCESS DELETIONS 148 148 . K C0QFDA ; CLEAR OUT THE FDA 149 . N ZG,ZIEN S ZG="" 149 . N ZG,ZIEN S ZG="" 150 150 . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION 151 151 . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY … … 156 156 . ; SECOND, PROCESS ADDITIONS 157 157 . K C0QFDA ; CLEAR OUT THE FDA 158 . N ZG,ZC S ZG="" S ZC=1 158 . N ZG,ZC S ZG="" S ZC=1 159 159 . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION 160 160 . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY … … 191 191 K ZERR 192 192 D CLEAN^DILF 193 ZWR C0QFDA193 ZWRITE C0QFDA 194 194 D UPDATE^DIE("","C0QFDA","","ZERR") 195 195 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.