Changeset 74 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jul 25, 2008, 10:01:34 PM (16 years ago)

Author:

George Lilly

Message:

First commit for CCD

File:

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

ccr/trunk/p/GPLCCR.m

@@ -31 +31 @@
        S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
        I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
-       . ;S @ODIRGLB="/home/glilly/CCROUT"
-       . S @ODIRGLB="/home/cedwards/"
+       . S @ODIRGLB="/home/glilly/CCROUT"
+       . ;S @ODIRGLB="/home/cedwards/"
        . ;S @ODIRGLB="/opt/wv/p/"
        S ODIR=@ODIRGLB
@@ -191 +191 @@
  ;;>>>D ZTEST^GPLCCR("CCR")
  ;;>>>W $$TRIM^GPLXPATH(CCRGLO)
+ ;;><CCD>
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCD","","","")
+ ;;>>?@GPL@(@GPL@(0))["</ContinuityOfCareRecord>"
  ;;></TEST>