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

Changed CCRVA200 to C0CVA200

This commit is contained in:
sam 2009-03-16 00:21:30 +00:00
parent 771afac3ad
commit 40de665bfa
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
p/C0CACTOR.m
View File

@ -186,26 +186,26 @@ PROVIDER(INXML,AIEN,AOID,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
. W "WARNING - MISSING PROVIDER: ",AIEN,!
. S @OUTXML@(0)=0 ; SIGNAL NO OUTPUT
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
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@("ACTORGIVENNAME")=$$GIVEN^C0CVA200(AIEN)
S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^C0CVA200(AIEN)
S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^C0CVA200(AIEN)
S @AMAP@("ACTORTITLE")=$$TITLE^C0CVA200(AIEN)
S @AMAP@("IDTYPE")=$P($$NPI^C0CVA200(AIEN),U,1)
S @AMAP@("ID")=$P($$NPI^C0CVA200(AIEN),U,2)
S @AMAP@("IDDESC")=$P($$NPI^C0CVA200(AIEN),U,3)
S @AMAP@("ACTORSPECIALITY")=$$SPEC^C0CVA200(AIEN)
S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^C0CVA200(AIEN)
S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^C0CVA200(AIEN)
S @AMAP@("ACTORADDRESSCITY")=$$CITY^C0CVA200(AIEN)
S @AMAP@("ACTORADDRESSSTATE")=$$STATE^C0CVA200(AIEN)
S @AMAP@("ACTORPOSTALCODE")=$$POSTCODE^C0CVA200(AIEN)
S @AMAP@("ACTORTELEPHONE")=""
S @AMAP@("ACTORTELEPHONETYPE")=""
S ZX=$$TEL^CCRVA200(AIEN)
S ZX=$$TEL^C0CVA200(AIEN)
I ZX'="" D ; THERE IS A PHONE NUMBER AVAILABLE
. S @AMAP@("ACTORTELEPHONE")=ZX
. S @AMAP@("ACTORTELEPHONETYPE")=$$TELTYPE^CCRVA200(AIEN)
S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRVA200(AIEN)
. S @AMAP@("ACTORTELEPHONETYPE")=$$TELTYPE^C0CVA200(AIEN)
S @AMAP@("ACTOREMAIL")=$$EMAIL^C0CVA200(AIEN)
S @AMAP@("ACTORADDRESSSOURCEID")="ACTORSYSTEM_1"
S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1" ; THE SYSTEM IS THE SOURCE
D MAP^C0CXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE

2
p/CCRVA200.m → p/C0CVA200.m
View File

@ -1,4 +1,4 @@
CCRVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
;;0.1;C0C;;JUL 13, 2007;Build 0
;Copyright 2008 Sam Habiel. Licensed under the terms of the GNU
;General Public License See attached copy of the License.