Changeset 67 for ccr


Ignore:
Timestamp:
Jul 17, 2008, 12:16:33 AM (16 years ago)
Author:
Sam Habiel
Message:

Updated GPLACTORS to use CCRVA200 for provider data

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLACTORS.m

    r60 r67  
    143143     S AMAP=$NA(^TMP($J,"AMAP"))
    144144     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    145      S @AMAP@("ACTORGIVENNAME")=""
    146      S @AMAP@("ACTORMIDDLENAME")=""
    147      S @AMAP@("ACTORFAMILYNAME")=""
    148      S @AMAP@("ACTORSPECIALITY")=""
    149      S @AMAP@("ACTORADDRESSTYPE")=""
    150      S @AMAP@("ACTORADDRESSLINE1")=""
    151      S @AMAP@("ACTORADDRESSLINE2")=""
    152      S @AMAP@("ACTORADDRESSCITY")=""
    153      S @AMAP@("ACTORADDRESSSTATE")=""
    154      S @AMAP@("ACTORADDRESSZIPCODE")=""
    155      S @AMAP@("ACTORTELEPHONE")=""
    156      S @AMAP@("ACTORTELEPHONETYPE")=""
    157      S @AMAP@("ACTOREMAIL")=""
    158      S @AMAP@("ACTORADDRESSSOURCEID")=""
     145     S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)
     146     S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRVA200(AIEN)
     147     S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRVA200(AIEN)
     148         S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
     149         S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
     150         S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
     151         S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
     152     S @AMAP@("ACTORSPECIALITY")=$$SPEC^CCRVA200(AIEN)
     153     S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^CCRVA200(AIEN)
     154     S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^CCRVA200(AIEN)
     155     S @AMAP@("ACTORADDRESSCITY")=$$CITY^CCRVA200(AIEN)
     156     S @AMAP@("ACTORADDRESSSTATE")=$$STATE^CCRVA200(AIEN)
     157     S @AMAP@("ACTORPOSTALCODE")=$$POSTCODE^CCRVA200(AIEN)
     158     S @AMAP@("ACTORTELEPHONE")=$$TEL^CCRVA200(AIEN)
     159     S @AMAP@("ACTORTELEPHONETYPE")=$$TELTYPE^CCRVA200(AIEN)
     160     S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRVA200(AIEN)
     161     S @AMAP@("ACTORADDRESSSOURCEID")="ACTORSYSTEM_1"
    159162     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    160163     Q
Note: See TracChangeset for help on using the changeset viewer.