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

Timestamp:

Jan 4, 2012, 9:41:28 PM (13 years ago)

Author:

George Lilly

Message:

ohum version without tabs

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