iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated GPLACTORS to use CCRVA200 for provider data

This commit is contained in:
sam 2008-07-17 04:16:33 +00:00
parent 0a2a7d7a23
commit 2f98641ac6
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
p/GPLACTORS.m
View File

@ -142,20 +142,23 @@ PROVIDER(INXML,ACTREC,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
; N AMAP ; N AMAP
S AMAP=$NA(^TMP($J,"AMAP")) S AMAP=$NA(^TMP($J,"AMAP"))
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
S @AMAP@("ACTORGIVENNAME")="" S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)
S @AMAP@("ACTORMIDDLENAME")="" S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRVA200(AIEN)
S @AMAP@("ACTORFAMILYNAME")="" S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRVA200(AIEN)
S @AMAP@("ACTORSPECIALITY")="" S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSTYPE")="" S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
S @AMAP@("ACTORADDRESSLINE1")="" S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
S @AMAP@("ACTORADDRESSLINE2")="" S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
S @AMAP@("ACTORADDRESSCITY")="" S @AMAP@("ACTORSPECIALITY")=$$SPEC^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSSTATE")="" S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSZIPCODE")="" S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^CCRVA200(AIEN)
S @AMAP@("ACTORTELEPHONE")="" S @AMAP@("ACTORADDRESSCITY")=$$CITY^CCRVA200(AIEN)
S @AMAP@("ACTORTELEPHONETYPE")="" S @AMAP@("ACTORADDRESSSTATE")=$$STATE^CCRVA200(AIEN)
S @AMAP@("ACTOREMAIL")="" S @AMAP@("ACTORPOSTALCODE")=$$POSTCODE^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSSOURCEID")="" S @AMAP@("ACTORTELEPHONE")=$$TEL^CCRVA200(AIEN)
S @AMAP@("ACTORTELEPHONETYPE")=$$TELTYPE^CCRVA200(AIEN)
S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSSOURCEID")="ACTORSYSTEM_1"
D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
Q Q
; ;