Renamed CCRDPT to C0CDPT

p/C0CACTOR.m

@@ -88,11 +88,11 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
  S AMAP=$NA(^TMP($J,"AMAP"))
  K @AMAP
  S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
- S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRDPT(AIEN)
- S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRDPT(AIEN)
- S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRDPT(AIEN)
- S @AMAP@("ACTORDATEOFBIRTH")=$$DOB^CCRDPT(AIEN)
- S @AMAP@("ACTORGENDER")=$$GENDER^CCRDPT(AIEN)
+ S @AMAP@("ACTORGIVENNAME")=$$GIVEN^C0CDPT(AIEN)
+ S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^C0CDPT(AIEN)
+ S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^C0CDPT(AIEN)
+ S @AMAP@("ACTORDATEOFBIRTH")=$$DOB^C0CDPT(AIEN)
+ S @AMAP@("ACTORGENDER")=$$GENDER^C0CDPT(AIEN)
  S @AMAP@("ACTORSSN")=""
  S @AMAP@("ACTORSSNTEXT")=""
  S @AMAP@("ACTORSSNSOURCEID")=""
@@ -104,36 +104,36 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
  . S @AMAP@("ACTORSSNTEXT")="MRN"
  . S @AMAP@("ACTORSSNSOURCEID")=AOID
  E  D  ; NO MRN, USE SSN
- . S ZX=$$SSN^CCRDPT(AIEN)
+ . S ZX=$$SSN^C0CDPT(AIEN)
  . I ZX'="" D  ; IF THERE IS A SSN IN THE RECORD
  . . S @AMAP@("ACTORSSN")=ZX
  . . S @AMAP@("ACTORSSNTEXT")="SSN"
  . . S @AMAP@("ACTORSSNSOURCEID")=AOID
- S @AMAP@("ACTORADDRESSTYPE")=$$ADDRTYPE^CCRDPT(AIEN)
- S @AMAP@("ACTORADDRESSLINE1")=$$ADDR1^CCRDPT(AIEN)
- S @AMAP@("ACTORADDRESSLINE2")=$$ADDR2^CCRDPT(AIEN)
- S @AMAP@("ACTORADDRESSCITY")=$$CITY^CCRDPT(AIEN)
- S @AMAP@("ACTORADDRESSSTATE")=$$STATE^CCRDPT(AIEN)
- S @AMAP@("ACTORADDRESSZIPCODE")=$$ZIP^CCRDPT(AIEN)
+ S @AMAP@("ACTORADDRESSTYPE")=$$ADDRTYPE^C0CDPT(AIEN)
+ S @AMAP@("ACTORADDRESSLINE1")=$$ADDR1^C0CDPT(AIEN)
+ S @AMAP@("ACTORADDRESSLINE2")=$$ADDR2^C0CDPT(AIEN)
+ S @AMAP@("ACTORADDRESSCITY")=$$CITY^C0CDPT(AIEN)
+ S @AMAP@("ACTORADDRESSSTATE")=$$STATE^C0CDPT(AIEN)
+ S @AMAP@("ACTORADDRESSZIPCODE")=$$ZIP^C0CDPT(AIEN)
  S @AMAP@("ACTORRESTEL")=""
  S @AMAP@("ACTORRESTELTEXT")=""
- S ZX=$$RESTEL^CCRDPT(AIEN)
+ S ZX=$$RESTEL^C0CDPT(AIEN)
  I ZX'="" D  ; IF THERE IS A RESIDENT PHONE IN THE RECORD
  . S @AMAP@("ACTORRESTEL")=ZX
  . S @AMAP@("ACTORRESTELTEXT")="Residential Telephone"
  S @AMAP@("ACTORWORKTEL")=""
  S @AMAP@("ACTORWORKTELTEXT")=""
- S ZX=$$WORKTEL^CCRDPT(AIEN)
+ S ZX=$$WORKTEL^C0CDPT(AIEN)
  I ZX'="" D  ; IF THERE IS A RESIDENT PHONE IN THE RECORD
  . S @AMAP@("ACTORWORKTEL")=ZX
  . S @AMAP@("ACTORWORKTELTEXT")="Work Telephone"
  S @AMAP@("ACTORCELLTEL")=""
  S @AMAP@("ACTORCELLTELTEXT")=""
- S ZX=$$CELLTEL^CCRDPT(AIEN)
+ S ZX=$$CELLTEL^C0CDPT(AIEN)
  I ZX'="" D  ; IF THERE IS A CELL PHONE IN THE RECORD
  . S @AMAP@("ACTORCELLTEL")=ZX
  . S @AMAP@("ACTORCELLTELTEXT")="Cell Phone"
- S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRDPT(AIEN)
+ S @AMAP@("ACTOREMAIL")=$$EMAIL^C0CDPT(AIEN)
  S @AMAP@("ACTORADDRESSSOURCEID")=AOID
  S @AMAP@("ACTORIEN")=AIEN
  S @AMAP@("ACTORSUFFIXNAME")="" ; DOES VISTA STORE THE SUFFIX

p/C0CDPT.m

@@ -1,4 +1,4 @@
-CCRDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
+C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
  ;;0.2;CCRCCD;;Jun 15, 2008;
  ;
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -13,7 +13,6 @@ CCRDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
  ; with this program; if not, write to the Free Software Foundation, Inc.,
  ; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  ;
- ; CCRDPT       CCRCCD/SMH - Routines to Extract Patient Data for
  ; FAMILY       Family Name
  ; GIVEN        Given Name
  ; MIDDLE       Middle Name

p/C0CFM3.m

@@ -284,4 +284,4 @@ SHOWE4(DFN) ;
  S ZG=""
  F  S ZG=$O(^C0CE4("P",DFN,ZG)) Q:ZG=""  D  ZWR ^C0CE4(ZG,*)
  Q
- ;
+ ;

p/C0CLABS.m

@@ -138,7 +138,7 @@ EXTRACT(ILXML,DFN,OLXML) ; EXTRACT LABS INTO THE C0CLVAR GLOBAL
 GHL7 ; GET HL7 MESSAGE FOR LABS FOR THIS PATIENT
  ; N C0CPTID,C0CSPC,C0CSDT,C0CEDT,C0CR
  ; SET UP FOR LAB API CALL
- S C0CPTID=$$SSN^CCRDPT(DFN) ; GET THE SSN FOR THIS PATIENT
+ S C0CPTID=$$SSN^C0CDPT(DFN) ; GET THE SSN FOR THIS PATIENT
  I C0CPTID="" D  Q  ; NO SSN, COMPLAIN AND QUIT
  . W "LAB LOOKUP FAILED, NO SSN",!
  . S C0CNSSN=1 ; SET NO SSN FLAG

p/C0CUNIT.m

@@ -172,7 +172,7 @@ MEDS
  D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
  Q
 PAT
- D ANALYZE^ARJTXRD("CCRDPT",.OUT) ; Analyze a routine in the directory
+ D ANALYZE^ARJTXRD("C0CDPT",.OUT) ; Analyze a routine in the directory
  N X,Y
  ; Select Patient
  S DIC=2,DIC(0)="AEMQ" D ^DIC
@@ -181,6 +181,6 @@ PAT
  N I S I=89 F  S I=$O(OUT(I)) Q:I="ALINE"  D
  . W "OUT("_I_",0)"_" is "_$P(OUT(I,0)," ")_" "
  . W "valued at "
- . W @("$$"_$P(OUT(I,0),"(DFN)")_"^"_"CCRDPT"_"("_$P(Y,"^")_")")
+ . W @("$$"_$P(OUT(I,0),"(DFN)")_"^"_"C0CDPT"_"("_$P(Y,"^")_")")
  . W !
  Q