Changeset 1204 for ccr/trunk/p/C0CCPT.m

Timestamp:

Jun 23, 2011, 3:01:41 PM (13 years ago)

Author:

George Lilly

Message:

updates for MU Certification

File:

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

ccr/trunk/p/C0CCPT.m

@@ -1 +1 @@
 C0CCPT  ;;BSL;RETURN CPT DATA;
-        ;Sequence Managers Software GPL
+        ;Sequence Managers Software GPL;;;;;Build 38
         ;Copied into C0C namespace from SQMCPT with permission from
         ;Brian Lord - and with our thanks. gpl 01/20/2010
@@ -9 +9 @@
         ;TXT=INCLUDE TEXT FROM ENCOUNTER NOTE
         ;THAT FALL INSIDE DATA RANGE. IF NO STDT OR ENDDT ASSUME 
-        ;ALL INCLUSIVE IN THAT DIRECTION
-        ;LIST OF TIU DOCS IN ^TIU(8925,"ACLPT",3,DFN)
-        ;BUILD INTO NOTE(Y)=""
-        S U="^",X=""
-        F  S X=$O(^TIU(8925,"ACLPT",3,DFN,X)) Q:X=""  D
-        . S Y=""
-        . F  S Y=$O(^TIU(8925,"ACLPT",3,DFN,X,Y)) Q:Y=""  D
-        .. S NOTE(Y)=""
-        ;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE
-        ;GET DATE OF NOTE
-        S Z=""
-        F  S Z=$O(NOTE(Z)) Q:Z=""  D
-        . S DT=$P(^TIU(8925,Z,0),U,7)
-        . I $G(STDT)]"" D
-        .. I STDT>DT S NOTE(Z)="D"  ;SET NOTE TO BE DELETED
-        . I $G(ENDDT)]"" D
-        .. I ENDDT<DT S NOTE(Z)="D"
-        . I NOTE(Z)="D" K NOTE(Z)
+               ;ALL INCLUSIVE IN THAT DIRECTION
+               ;LIST OF TIU DOCS IN ^TIU(8925,"ACLPT",3,DFN)
+               ;BUILD INTO NOTE(Y)=""
+               S U="^",X=""
+               F  S X=$O(^TIU(8925,"ACLPT",3,DFN,X)) Q:X=""  D
+               . S Y=""
+               . F  S Y=$O(^TIU(8925,"ACLPT",3,DFN,X,Y)) Q:Y=""  D
+               .. S NOTE(Y)=""
+               ;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE
+               ;GET DATE OF NOTE
+               S Z=""
+               F  S Z=$O(NOTE(Z)) Q:Z=""  D
+               . S DT=$P(^TIU(8925,Z,0),U,7)
+               . I $G(STDT)]"" D
+               .. I STDT>DT S NOTE(Z)="D"  ;SET NOTE TO BE DELETED
+               . I $G(ENDDT)]"" D
+               .. I ENDDT<DT S NOTE(Z)="D"
+               . I NOTE(Z)="D" K NOTE(Z)
         D VISIT
-        Q
-VISIT   ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
+               Q
+VISIT     ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
         S ILST=1,X0="",X12="",VISIT="",LST="",X811=""
         S IEN=""  F  S IEN=$O(NOTE(IEN)) Q:IEN=""  D