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

Timestamp:

Oct 30, 2012, 1:11:02 PM (12 years ago)

Author:

Sam Habiel

Message:

Changed license to AGPL. Some clean-up for XINDEX

File:

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

ccr/trunk/p/C0CCPT.m

@@ -1 +1 @@
 C0CCPT  ;;BSL;RETURN CPT DATA;
-        ;;1.2;C0C;;May 11, 2012;Build 47
-        ;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
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
+        ; (C) George Lilly 2010
+        ;
+        ; This program is free software: you can redistribute it and/or modify
+        ; it under the terms of the GNU Affero General Public License as
+        ; published by the Free Software Foundation, either version 3 of the
+        ; License, or (at your option) any later version.
+        ;
+        ; This program is distributed in the hope that it will be useful,
+        ; but WITHOUT ANY WARRANTY; without even the implied warranty of
+        ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+        ; GNU Affero General Public License for more details.
+        ;
+        ; You should have received a copy of the GNU Affero General Public License
+        ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+        ;
 ENTRY(DFN,STDT,ENDDT,TXT)       ;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES
         ;DFN=PATIENT IEN
@@ -10 +22 @@
         ;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
+        ;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
         ;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
+        ;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
+        ;OHUM/RUT
         ;RUT
-               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)
+        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
+        Q
 VISIT     ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
         S ILST=1,X0="",X12="",VISIT="",LST="",X811=""