From 40de665bfa9158fb73c541110d30bfa2a4100f1a Mon Sep 17 00:00:00 2001
From: sam <sam>
Date: Mon, 16 Mar 2009 00:21:30 +0000
Subject: [PATCH] Changed CCRVA200 to C0CVA200

---
 p/C0CACTOR.m                 | 32 ++++++++++++++++----------------
 p/{CCRVA200.m => C0CVA200.m} |  2 +-
 2 files changed, 17 insertions(+), 17 deletions(-)
 rename p/{CCRVA200.m => C0CVA200.m} (99%)

diff --git a/p/C0CACTOR.m b/p/C0CACTOR.m
index 65c2873..ea5e7f8 100644
--- a/p/C0CACTOR.m
+++ b/p/C0CACTOR.m
@@ -186,26 +186,26 @@ PROVIDER(INXML,AIEN,AOID,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
      . W "WARNING - MISSING PROVIDER: ",AIEN,!
      . S @OUTXML@(0)=0 ; SIGNAL NO OUTPUT
      S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
-     S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)
-     S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRVA200(AIEN)
-     S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRVA200(AIEN)
-     S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
-     S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
-     S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
-     S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
-     S @AMAP@("ACTORSPECIALITY")=$$SPEC^CCRVA200(AIEN)
-     S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^CCRVA200(AIEN)
-     S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^CCRVA200(AIEN)
-     S @AMAP@("ACTORADDRESSCITY")=$$CITY^CCRVA200(AIEN)
-     S @AMAP@("ACTORADDRESSSTATE")=$$STATE^CCRVA200(AIEN)
-     S @AMAP@("ACTORPOSTALCODE")=$$POSTCODE^CCRVA200(AIEN)
+     S @AMAP@("ACTORGIVENNAME")=$$GIVEN^C0CVA200(AIEN)
+     S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^C0CVA200(AIEN)
+     S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^C0CVA200(AIEN)
+     S @AMAP@("ACTORTITLE")=$$TITLE^C0CVA200(AIEN)
+     S @AMAP@("IDTYPE")=$P($$NPI^C0CVA200(AIEN),U,1)
+     S @AMAP@("ID")=$P($$NPI^C0CVA200(AIEN),U,2)
+     S @AMAP@("IDDESC")=$P($$NPI^C0CVA200(AIEN),U,3)
+     S @AMAP@("ACTORSPECIALITY")=$$SPEC^C0CVA200(AIEN)
+     S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^C0CVA200(AIEN)
+     S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^C0CVA200(AIEN)
+     S @AMAP@("ACTORADDRESSCITY")=$$CITY^C0CVA200(AIEN)
+     S @AMAP@("ACTORADDRESSSTATE")=$$STATE^C0CVA200(AIEN)
+     S @AMAP@("ACTORPOSTALCODE")=$$POSTCODE^C0CVA200(AIEN)
      S @AMAP@("ACTORTELEPHONE")=""
      S @AMAP@("ACTORTELEPHONETYPE")=""
-     S ZX=$$TEL^CCRVA200(AIEN)
+     S ZX=$$TEL^C0CVA200(AIEN)
      I ZX'="" D  ; THERE IS A PHONE NUMBER AVAILABLE
      . S @AMAP@("ACTORTELEPHONE")=ZX
-     . S @AMAP@("ACTORTELEPHONETYPE")=$$TELTYPE^CCRVA200(AIEN)
-     S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRVA200(AIEN)
+     . S @AMAP@("ACTORTELEPHONETYPE")=$$TELTYPE^C0CVA200(AIEN)
+     S @AMAP@("ACTOREMAIL")=$$EMAIL^C0CVA200(AIEN)
      S @AMAP@("ACTORADDRESSSOURCEID")="ACTORSYSTEM_1"
      S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1" ; THE SYSTEM IS THE SOURCE
      D MAP^C0CXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
diff --git a/p/CCRVA200.m b/p/C0CVA200.m
similarity index 99%
rename from p/CCRVA200.m
rename to p/C0CVA200.m
index e908fd0..62b460a 100644
--- a/p/CCRVA200.m
+++ b/p/C0CVA200.m
@@ -1,4 +1,4 @@
-CCRVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
+C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
         ;;0.1;C0C;;JUL 13, 2007;Build 0
  ;Copyright 2008 Sam Habiel.  Licensed under the terms of the GNU
  ;General Public License See attached copy of the License.