Changeset 415

Timestamp:

Mar 22, 2009, 3:06:25 PM (16 years ago)

Author:

George Lilly

Message:

Renamed CCRDPT to C0CDPT

Location:

ccr/trunk/p

Files:

• C0CACTOR.m (modified) (4 diffs)
• C0CDPT.m (moved) (moved from ccr/trunk/p/CCRDPT.m ) (2 diffs)
• C0CLABS.m (modified) (1 diff)
• C0CUNIT.m (modified) (2 diffs)

ccr/trunk/p/C0CACTOR.m

@@ -89 +89 @@
  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")=""
@@ -105 +105 @@
  . 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
@@ -124 +124 @@
  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
@@ -130 +130 @@
  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

ccr/trunk/p/C0CDPT.m

@@ -1 @@
-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;
  ;
@@ -14 +14 @@
  ; 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

ccr/trunk/p/C0CLABS.m

@@ -139 +139 @@
  ; 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",!

ccr/trunk/p/C0CUNIT.m

@@ -173 +173 @@
  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
@@ -182 +182 @@
  . 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