Changeset 277 for ccr/trunk/p/GPLACTOR.m

Timestamp:

Nov 12, 2008, 2:09:42 PM (15 years ago)

Author:

George Lilly

Message:

repairs to Lab processing

File:

• ccr/trunk/p/GPLACTOR.m (modified) (3 diffs)

ccr/trunk/p/GPLACTOR.m

@@ -67 +67 @@
  . . D ORG("ATMP",AIEN,AOID,"ATMP2")
  . ;
+ . ;W "PROCESSING:",ATYP,!
  . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
- . K ATYP,AIEN,AOID ; BE SURE TO GET THE NEXT ONE
+ . K ATYP,AIEN,AOID,ATMP,ATMP2 ; BE SURE TO GET THE NEXT ONE
  ;
  N ACTTMP
@@ -136 +137 @@
      S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
      S @AMAP@("ACTORINFOSYSNAME")=$$SYSNAME^CCRSYS
-         S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS
+     S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS
      S @AMAP@("ACTORINFOSYSSOURCEID")=AOID
      D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
@@ -174 +175 @@
      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)