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

Timestamp:

Jan 10, 2012, 8:53:25 PM (13 years ago)

Author:

George Lilly

Message:

T7 ohum version with parameters

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 1
+ ;Sequence Managers Software GPL;;;;;Build 2
  ;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
+ ;RUT 3120109 Changing DATE in FILMAN's FORMAT
+ ;;OHUM/RUT 3111228 Date Range for Notes
+        ;S STDT=^TMP("C0CCCR","TIULIMIT") D NOW^%DTC S ENDDT=X
+ N FLAGS1,FLAGS2
+ S FLAGS1=$P(^C0CPARM(1,2),"^",1) S STDT=$$HTOF^C0CVALID(FLAGS1)
+ S FLAGS2=$P(^C0CPARM(1,2),"^",2) S ENDDT=$$HTOF^C0CVALID(FLAGS2)
+ ;S STDT=^TMP("C0CCCR","TIULIMIT"),ENDDT=^TMP("C0CCCR","TIUSTART")
+        ;;OHUM/RUT
+ ;RUT
         S Z=""
         F  S Z=$O(NOTE(Z)) Q:Z=""  D