Changeset 49

Timestamp:

Jul 6, 2008, 5:00:17 PM (16 years ago)

Author:

Sam Habiel

Message:

Updated Information System Actor Section.

Location:

ccr/trunk/p

Files:

• CCRSYS.m (added)
• GPLACTORS.m (modified) (2 diffs)

ccr/trunk/p/GPLACTORS.m

@@ -1 +1 @@
 GPLACTORS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
-           ;;0.1;CCDCCR;nopatch;noreleasedate
+           ;;0.3;CCDCCR;nopatch;noreleasedate
            ;
            ;  PROCESS THE ACTORS SECTION OF THE CCR
+                   ;
+                   ;===Revision History===
+                   ; 0.1 Initial Writing of Skeleton--GPL
+                   ; 0.2 Patient Data Extraction--SMH
+                   ; 0.3 Information System Info Extraction--SMH
            ;
 EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
@@ -86 +91 @@
      S AMAP=$NA(^TMP($J,"AMAP"))
      S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
-     S @AMAP@("ACTORINFOSYSNAME")=""
-     S @AMAP@("ACTORINFOSYSSOURCEID")=""
+     S @AMAP@("ACTORINFOSYSNAME")=$$SYSNAME^CCRSYS
+         S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS
+     S @AMAP@("ACTORINFOSYSSOURCEID")=AOID
      D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
      Q