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

Timestamp:

Jan 4, 2012, 12:05:49 AM (12 years ago)

Author:

George Lilly

Message:

ohum new version

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 1
         ;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