Changeset 508 for ccr/trunk/p/C0CCCD.m

Timestamp:

May 21, 2009, 1:12:11 PM (15 years ago)

Author:

George Lilly

Message:

formatting for Version 1

File:

• ccr/trunk/p/C0CCCD.m (modified) (11 diffs)

ccr/trunk/p/C0CCCD.m

@@ -1 @@
-C0CCCD   ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
- ;;0.1;CCDCCR;nopatch;noreleasedate
+C0CCCD    ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
+ ;;1.0;C0C;;May 19, 2009;
  ;Copyright 2008,2009 George Lilly, University of Minnesota.
  ;Licensed under the terms of the GNU General Public License.
@@ -21 +21 @@
  ; EXPORT A CCR
  ;
-EXPORT   ; EXPORT ENTRY POINT FOR CCR
+EXPORT    ; EXPORT ENTRY POINT FOR CCR
        ; Select a patient.
        S DIC=2,DIC(0)="AEMQ" D ^DIC
@@ -29 +29 @@
        Q
        ;
-XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
+XPAT(DFN,DIR,FN)        ; EXPORT ONE PATIENT TO A FILE
        ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("C0CCCR","ODIR")
        ; FN IS FILE NAME, DEFAULTS IF NULL
@@ -49 +49 @@
        Q
        ;
-CCDRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
+CCDRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)   ;RPC ENTRY POINT FOR CCR OUTPUT
     ; CCRGRTN IS RETURN ARRAY PASSED BY NAME
     ; DFN IS PATIENT IEN
@@ -146 +146 @@
     Q
     ;
-INITSTPS(TAB)  ; INITIALIZE CCR PROCESSING STEPS
+INITSTPS(TAB)    ; INITIALIZE CCR PROCESSING STEPS
     ; TAB IS PASSED BY NAME
     W "TAB= ",TAB,!
@@ -155 +155 @@
     Q
     ;
-SHAVE(SHXML) ; REMOVES THE 2-6 AND N-1 AND N-2 LINES FROM A COMPONENT
+SHAVE(SHXML)    ; REMOVES THE 2-6 AND N-1 AND N-2 LINES FROM A COMPONENT
     ; NEEDED TO EXPOSE THE REPEATING PARTS FOR GENERATION
     N SHTMP,SHBLD ; TEMP ARRAY AND BUILD LIST
@@ -168 +168 @@
     Q
     ;
-UNSHAVE(ORIGXML,SHXML) ; REPLACES THE 2-6 AND N-1 AND N-2 LINES FROM TEMPLATE
+UNSHAVE(ORIGXML,SHXML)  ; REPLACES THE 2-6 AND N-1 AND N-2 LINES FROM TEMPLATE
     ; NEEDED TO RESTORM FIXED TOP AND BOTTOM OF THE COMPONENT XML
     N SHTMP,SHBLD ; TEMP ARRAY AND BUILD LIST
@@ -181 +181 @@
     Q
     ;
-HDRMAP(CXML,DFN,IHDR)   ; MAP HEADER VARIABLES: FROM, TO ECT
+HDRMAP(CXML,DFN,IHDR)     ; MAP HEADER VARIABLES: FROM, TO ECT
     N VMAP S VMAP=$NA(^TMP("C0CCCR",$J,DFN,"HEADER"))
     ; K @VMAP
@@ -200 +200 @@
     Q
     ;
-ACTLST(AXML,ACTRTN) ; RETURN THE ACTOR LIST FOR THE XML IN AXML
+ACTLST(AXML,ACTRTN)     ; RETURN THE ACTOR LIST FOR THE XML IN AXML
     ; AXML AND ACTRTN ARE PASSED BY NAME
     ; EACH ACTOR RECORD HAS 3 PARTS - IE IF OBJECTID=ACTORPATIENT_2
@@ -225 +225 @@
     Q
     ;
-TEST ; RUN ALL THE TEST CASES
+TEST    ; RUN ALL THE TEST CASES
   D TESTALL^C0CUNIT("C0CCCR")
   Q
   ;
-ZTEST(WHICH)  ; RUN ONE SET OF TESTS
+ZTEST(WHICH)     ; RUN ONE SET OF TESTS
   N ZTMP
   D ZLOAD^C0CUNIT("ZTMP","C0CCCR")
@@ -235 +235 @@
   Q
   ;
-TLIST  ; LIST THE TESTS
+TLIST    ; LIST THE TESTS
   N ZTMP
   D ZLOAD^C0CUNIT("ZTMP","C0CCCR")