Changeset 71 for ccr/trunk/p/GPLACTORS.m

Timestamp:

Jul 22, 2008, 11:39:53 AM (16 years ago)

Author:

George Lilly

Message:

call $$SITE^{VASITE for INSTITUTION NAME}

File:

• ccr/trunk/p/GPLACTORS.m (modified) (2 diffs)

ccr/trunk/p/GPLACTORS.m

@@ -133 +133 @@
      S AMAP=$NA(^TMP($J,"AMAP"))
      S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
-     S @AMAP@("ORGANIZATIONNAME")="WORLDVISTA EHR CLINIC"
+     S @AMAP@("ORGANIZATIONNAME")=$P($$SITE^VASITE,U,2)
      S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1"
      D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
@@ -146 +146 @@
      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@("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)