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
S AMAP=$NA(^TMP($J,"AMAP"))
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
S @AMAP@("ACTORGIVENNAME")=""
S @AMAP@("ACTORMIDDLENAME")=""
S @AMAP@("ACTORFAMILYNAME")=""
S @AMAP@("ACTORSPECIALITY")=""
S @AMAP@("ACTORADDRESSTYPE")=""
S @AMAP@("ACTORADDRESSLINE1")=""
S @AMAP@("ACTORADDRESSLINE2")=""
S @AMAP@("ACTORADDRESSCITY")=""
S @AMAP@("ACTORADDRESSSTATE")=""
S @AMAP@("ACTORADDRESSZIPCODE")=""
S @AMAP@("ACTORTELEPHONE")=""
S @AMAP@("ACTORTELEPHONETYPE")=""
S @AMAP@("ACTOREMAIL")=""
S @AMAP@("ACTORADDRESSSOURCEID")=""
S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)
S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRVA200(AIEN)
S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRVA200(AIEN)
S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
S @AMAP@("ACTORSPECIALITY")=$$SPEC^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSCITY")=$$CITY^CCRVA200(AIEN)
S @AMAP@("ACTORADDRESSSTATE")=$$STATE^CCRVA200(AIEN)
S @AMAP@("ACTORPOSTALCODE")=$$POSTCODE^CCRVA200(AIEN)
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
Q
;