Changeset 415 for ccr/trunk/p/C0CACTOR.m

Timestamp:

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

Author:

George Lilly

Message:

Renamed CCRDPT to C0CDPT

File:

• ccr/trunk/p/C0CACTOR.m (modified) (4 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