Changeset 57 for ccr/trunk


Ignore:
Timestamp:
Jul 11, 2008, 7:08:09 PM (16 years ago)
Author:
George Lilly
Message:

Added the Organization actor and fixed defaults

Location:
ccr/trunk/p
Files:
3 edited

Legend:

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

    r54 r57  
    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
     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
    1010           ;
    1111EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
    1212           ; IPXML is the Input Actor Template into which we are going to substitute values
    13                    ; This is straight XML. Values to be substituted are in @@VAL@@ format.
    14                    
    15                    ; ALST is the actor list global generated by ACTLST^GPLCCR and is in the following format
    16                    ; ^TMP(7542,1,"ACTORS",0)=Count
    17                    ; ^TMP(7542,1,"ACTORS",n)="ActorID^ActorType^ActorIEN"
    18                    ; ActorType is an enum containing either "PROVIDER" "PATIENT" "SYSTEM"
    19                    
     13                   ; This is straight XML. Values to be substituted are in @@VAL@@ format.
     14
     15                   ; ALST is the actor list global generated by ACTLST^GPLCCR and is in the following format
     16                   ; ^TMP(7542,1,"ACTORS",0)=Count
     17                   ; ^TMP(7542,1,"ACTORS",n)="ActorID^ActorType^ActorIEN"
     18                   ; ActorType is an enum containing either "PROVIDER" "PATIENT" "SYSTEM"
     19
    2020           ; AXML is the output arrary, to contain XML.
    2121
     
    4848           . . D PROVIDER("ATMP",@ALST@(I),"ATMP2")
    4949           . ;
     50           . I ATYP="ORGANIZATION" D  ; PROVIDER ACTOR TYPE
     51           . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-ORG","ATMP")
     52           . . D ORG("ATMP",@ALST@(I),"ATMP2")
     53           . ;
    5054           . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
    5155           ;
     
    6266     ; N AMAP
    6367     S AMAP=$NA(^TMP($J,"AMAP"))
    64         D INIT^CCRDPT(AIEN)
     68        D INIT^CCRDPT(AIEN)
    6569     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    6670     S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRDPT
     
    7983     S @AMAP@("ACTORRESTEL")=$$RESTEL^CCRDPT
    8084     S @AMAP@("ACTORWORKTEL")=$$WORKTEL^CCRDPT
    81         S @AMAP@("ACTORCELLTEL")=$$CELLTEL^CCRDPT
     85        S @AMAP@("ACTORCELLTEL")=$$CELLTEL^CCRDPT
    8286     S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRDPT
    8387     S @AMAP@("ACTORADDRESSSOURCEID")=AOID
    84         D DESTROY^CCRDPT
     88        D DESTROY^CCRDPT
    8589     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    8690     Q
     
    9296     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    9397     S @AMAP@("ACTORINFOSYSNAME")=$$SYSNAME^CCRSYS
    94         S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS
     98        S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS
    9599     S @AMAP@("ACTORINFOSYSSOURCEID")=AOID
    96100     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
     
    105109     S @AMAP@("ACTORRELATION")=""
    106110     S @AMAP@("ACTORRELATIONSOURCEID")=""
     111     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
     112     Q
     113     ;
     114ORG(INXML,ACTREC,OUTXML) ; PROCESS AN ORGANIZATION TYPE ACTOR
     115     ;
     116     ; N AMAP
     117     S AMAP=$NA(^TMP($J,"AMAP"))
     118     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
     119     S @AMAP@("ORGANIZATIONNAME")="WORLDVISTA EHR CLINIC"
     120     S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1"
    107121     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    108122     Q
  • ccr/trunk/p/GPLCCR.m

    r56 r57  
    9494    I IHDR="" D  ; HEADER ARRAY IS NOT PROVIDED, USE DEFAULTS
    9595    . S @VMAP@("ACTORPATIENT")="ACTORPATIENT_"_DFN
    96     . S @VMAP@("ACTORFROM")="ACTORPROVIDER_"_DUZ ; FROM DUZ - ???
     96    . S @VMAP@("ACTORFROM")="ACTORORGANIZATION_"_DUZ ; FROM DUZ - ???
    9797    . S @VMAP@("ACTORFROM2")="ACTORSYSTEM_1" ; SECOND FROM IS THE SYSTEM
    98     . S @VMAP@("ACTORTO")="ACTORPATIENT_"_DFN  ; FOR TEST PURPOSES,
     98    . S @VMAP@("ACTORTO")="ACTORPATIENT_"_DFN  ; FOR TEST PURPOSES
     99    . S @VMAP@("PURPOSEDESCRIPTION")="CEND PHR"  ; FOR TEST PURPOSES
     100    . S @VMAP@("ACTORTOTEXT")="Patient"  ; FOR TEST PURPOSES
    99101    . ; THIS IS THE USE CASE FOR THE PHR WHERE "TO" IS THE PATIENT
    100102    I IHDR'="" D  ; HEADER VALUES ARE PROVIDED
  • ccr/trunk/p/GPLCCR0.m

    r55 r57  
    573573 ;;</Actor>
    574574 ;;</ACTOR-PROVIDER>
     575 ;;<ACTOR-ORG>
     576 ;;<Actor>
     577 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
     578 ;;<Organization>
     579 ;;<Name>@@ORGANIZATIONNAME@@</Name>
     580 ;;</Organization>
     581 ;;<Source>
     582 ;;<Actor>
     583 ;;<ActorID>@@ACTORSOURCEID</ActorID>
     584 ;;</Actor>
     585 ;;</Source>
     586 ;;</Actor>
     587 ;;</ACTOR-ORG>
    575588 ;;</Actors>
    576589 ;;<Signatures>
Note: See TracChangeset for help on using the changeset viewer.