Changeset 1325 for ccr/branches/ohum/p/C0CCPT.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CCPT.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CCPT.m

@@ -1 +1 @@
 C0CCPT ;;BSL;RETURN CPT DATA;
- ;Sequence Managers Software GPL;;;;;Build 38
+ ;Sequence Managers Software GPL;;;;;Build 39
  ;Copied into C0C namespace from SQMCPT with permission from
  ;Brian Lord - and with our thanks. gpl 01/20/2010
@@ -19 +19 @@
         ;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE
         ;GET DATE OF NOTE
+        ;OHUM/RUT 3111228 Date Range for Notes
+               S STDT=^TMP("C0CCCR","TIULIMIT") D NOW^%DTC S ENDDT=X
+        ;OHUM/RUT
         S Z=""
         F  S Z=$O(NOTE(Z)) Q:Z=""  D