Changeset 49 for ccr/trunk


Ignore:
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:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLACTORS.m

    r48 r49  
    11GPLACTORS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
    2            ;;0.1;CCDCCR;nopatch;noreleasedate
     2           ;;0.3;CCDCCR;nopatch;noreleasedate
    33           ;
    44           ;  PROCESS THE ACTORS SECTION OF THE CCR
     5                   ;
     6                   ;===Revision History===
     7                   ; 0.1 Initial Writing of Skeleton--GPL
     8                   ; 0.2 Patient Data Extraction--SMH
     9                   ; 0.3 Information System Info Extraction--SMH
    510           ;
    611EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
     
    8691     S AMAP=$NA(^TMP($J,"AMAP"))
    8792     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    88      S @AMAP@("ACTORINFOSYSNAME")=""
    89      S @AMAP@("ACTORINFOSYSSOURCEID")=""
     93     S @AMAP@("ACTORINFOSYSNAME")=$$SYSNAME^CCRSYS
     94         S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS
     95     S @AMAP@("ACTORINFOSYSSOURCEID")=AOID
    9096     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    9197     Q
Note: See TracChangeset for help on using the changeset viewer.