Changeset 397 for ccr/trunk/p

Timestamp:

Mar 15, 2009, 8:21:30 PM (16 years ago)

Author:

Sam Habiel

Message:

Changed CCRVA200 to C0CVA200

Location:

ccr/trunk/p

Files:

• C0CACTOR.m (modified) (1 diff)
• C0CVA200.m (moved) (moved from ccr/trunk/p/CCRVA200.m ) (1 diff)

ccr/trunk/p/C0CACTOR.m

@@ -187 +187 @@
      . 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

ccr/trunk/p/C0CVA200.m

@@ -1 @@
-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