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

Timestamp:

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

Author:

George Lilly

Message:

formatting for Version 1

File:

• ccr/trunk/p/C0CCCR.m (modified) (12 diffs)

ccr/trunk/p/C0CCCR.m

@@ -1 @@
-C0CCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
- ;;0.1;CCDCCR;nopatch;noreleasedate
+C0CCCR    ; CCDCCR/GPL - CCR 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,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
+XPAT(DFN,XPARMS,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
@@ -41 +41 @@
  S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
- I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_22.xml"
+ I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_0.xml"
  S ODIRGLB=$NA(^TMP("C0CCCR","ODIR"))
  S ^TMP("C0CCCR","FNAME",DFN)=ONAM ; FILE NAME FOR BATCH USE
@@ -57 +57 @@
  Q
  ;
-DCCR(DFN) ; DISPLAY A CCR THAT HAS JUST BEEN EXTRACTED
+DCCR(DFN)       ; DISPLAY A CCR THAT HAS JUST BEEN EXTRACTED
  ;
  N G1
@@ -66 +66 @@
  Q
  ;
-CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)  ;RPC ENTRY POINT FOR CCR OUTPUT
+CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)     ;RPC ENTRY POINT FOR CCR OUTPUT
  ; CCRGRTN IS RETURN ARRAY PASSED BY NAME
  ; DFN IS PATIENT IEN
@@ -131 +131 @@
  Q
  ;
-INITSTPS(TAB)  ; INITIALIZE CCR PROCESSING STEPS
+INITSTPS(TAB)    ; INITIALIZE CCR PROCESSING STEPS
  ; TAB IS PASSED BY NAME
  I DEBUG W "TAB= ",TAB,!
@@ -143 +143 @@
  Q
  ;
-HDRMAP(CXML,DFN) ; MAP HEADER VARIABLES: FROM, TO ECT
+HDRMAP(CXML,DFN)        ; MAP HEADER VARIABLES: FROM, TO ECT
  N VMAP S VMAP=$NA(^TMP("C0CCCR",$J,DFN,"HEADER"))
  ; K @VMAP
@@ -167 +167 @@
  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
@@ -192 +192 @@
  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")
@@ -202 +202 @@
  Q
  ;
-TLIST  ; LIST THE TESTS
+TLIST    ; LIST THE TESTS
  N ZTMP
  D ZLOAD^C0CUNIT("ZTMP","C0CCCR")
@@ -238 +238 @@
  ;;>>>D CCRRPC^C0CCCR(.C0C,"2","ALERTS","")
  ;;>>?@C0C@(@C0C@(0))["</Alerts>"
-
+