Updated Information System Actor Section.

p/CCRSYS.m

@@ -0,0 +1,19 @@
+CCRSYS ;CCDCCR/SMH - Routine to Get EHR System Information;6JUL2008
+	;;0.1;CCDCCR;;;
+
+	W "Enter at appropriate points." Q
+
+	; Originally, I was going to use VEPERVER, but VEPERVER
+	; actually kills ^TMP($J), outputs it to the screen in a user-friendly
+	; manner (press any key to continue),
+	; and is really a very half finished routine
+
+	; So for now, I am hard-coding the values.
+
+SYSNAME() ;Get EHR System Name; PUBLIC; Extrinsic
+	Q "WorldVistA EHR/VOE"
+	;
+SYSVER() ;Get EHR System Version; PUBLIC; Extrinsic
+	Q "1.0"
+	;
+

p/GPLACTORS.m

@@ -1,7 +1,12 @@
 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
            ; IPXML is the Input Actor Template into which we are going to substitute values
@@ -85,8 +90,9 @@ SYSTEM(INXML,ACTREC,OUTXML) ; PROCESS A SYSTEM ACTOR
      ; N AMAP
      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
      ;