Changeset 48 for ccr/trunk


Ignore:
Timestamp:
Jul 6, 2008, 4:18:34 PM (16 years ago)
Author:
Sam Habiel
Message:

Added entry points to GPLACTORS to get the patient information; changes in Template in GPLCCR0

Location:
ccr/trunk/p
Files:
3 edited

Legend:

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

    r40 r48  
    199199          Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc")
    200200          ; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
    201 OB() ; Date of Birth; PUBLIC; Extrinsic
     201DOB() ; Date of Birth; PUBLIC; Extrinsic
    202202          ; PREREQ: PT Defined
    203203          Q:$G(PT(0))="" ""
  • ccr/trunk/p/GPLACTORS.m

    r45 r48  
    55           ;
    66EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
    7            ;
     7           ; IPXML is the Input Actor Template into which we are going to substitute values
     8                   ; This is straight XML. Values to be substituted are in @@VAL@@ format.
     9                   
     10                   ; ALST is the actor list global generated by ACTLST^GPLCCR and is in the following format
     11                   ; ^TMP(7542,1,"ACTORS",0)=Count
     12                   ; ^TMP(7542,1,"ACTORS",n)="ActorID^ActorType^ActorIEN"
     13                   ; ActorType is an enum containing either "PROVIDER" "PATIENT" "SYSTEM"
     14                   
     15           ; AXML is the output arrary, to contain XML.
     16
    817           N I,J,AMAP,AOID,ATYP,AIEN
    918           D CP^GPLXPATH(IPXML,AXML) ; MAKE A COPY OF ACTORS XML
     
    1120           W "PROCESSING ACTORS ",!
    1221           F I=1:1:@ALST@(0) D  ; PROCESS ALL ACTORS IN THE LIST
    13            . I @ALST@(I)["@@" Q ; NOT A VALID ACTOR
     22           . I @ALST@(I)["@@" Q  ; NOT A VALID ACTOR
    1423           . S AOID=$P(@ALST@(I),"^",1) ; ACTOR OBJECT ID
    1524           . S ATYP=$P(@ALST@(I),"^",2) ; ACTOR TYPE
    1625           . S AIEN=$P(@ALST@(I),"^",3) ; ACTOR RECORD NUMBER
    17            . I ATYP="" Q ; NOT A VALID ACTOR
     26           . I ATYP="" Q  ; NOT A VALID ACTOR
    1827           . ;
    1928           . W AOID_" "_ATYP_" "_AIEN,!
     
    4857     ; N AMAP
    4958     S AMAP=$NA(^TMP($J,"AMAP"))
     59         D INIT^CCRDPT(AIEN)
    5060     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    51      S @AMAP@("ACTORGIVENNAME")=""
    52      S @AMAP@("ACTORMIDDLENAME")=""
    53      S @AMAP@("ACTORFAMILYNAME")=""
    54      S @AMAP@("ACTORDATEOFBIRTH")=""
    55      S @AMAP@("ACTORGENDER")=""
    56      S @AMAP@("ACTORSSN")=""
    57      S @AMAP@("ACTORSSNSOURCEID")=""
    58      S @AMAP@("ACTORADDRESSTYPE")=""
    59      S @AMAP@("ACTORADDRESSLINE1")=""
    60      S @AMAP@("ACTORADDRESSLINE2")=""
    61      S @AMAP@("ACTORADDRESSCITY")=""
    62      S @AMAP@("ACTORADDRESSSTATE")=""
    63      S @AMAP@("ACTORADDRESSZIPCODE")=""
    64      S @AMAP@("ACTORTELEPHONE")=""
    65      S @AMAP@("ACTORTELEPHONETYPE")=""
    66      S @AMAP@("ACTOREMAIL")=""
    67      S @AMAP@("ACTORADDRESSSOURCEID")=""
     61     S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRDPT
     62     S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRDPT
     63     S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRDPT
     64     S @AMAP@("ACTORDATEOFBIRTH")=$$DOB^CCRDPT
     65     S @AMAP@("ACTORGENDER")=$$GENDER^CCRDPT
     66     S @AMAP@("ACTORSSN")=$$SSN^CCRDPT
     67     S @AMAP@("ACTORSSNSOURCEID")=AOID
     68     S @AMAP@("ACTORADDRESSTYPE")=$$ADDRTYPE^CCRDPT
     69     S @AMAP@("ACTORADDRESSLINE1")=$$ADDR1^CCRDPT
     70     S @AMAP@("ACTORADDRESSLINE2")=$$ADDR2^CCRDPT
     71     S @AMAP@("ACTORADDRESSCITY")=$$CITY^CCRDPT
     72     S @AMAP@("ACTORADDRESSSTATE")=$$STATE^CCRDPT
     73     S @AMAP@("ACTORADDRESSZIPCODE")=$$ZIP^CCRDPT
     74     S @AMAP@("ACTORRESTEL")=$$RESTEL^CCRDPT
     75     S @AMAP@("ACTORWORKTEL")=$$WORKTEL^CCRDPT
     76         S @AMAP@("ACTORCELLTEL")=$$CELLTEL^CCRDPT
     77     S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRDPT
     78     S @AMAP@("ACTORADDRESSSOURCEID")=AOID
     79         D DESTROY^CCRDPT
    6880     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    6981     Q
  • ccr/trunk/p/GPLCCR0.m

    r42 r48  
    437437;;</DateOfBirth>
    438438;;<Gender>
     439;;<Code>
    439440;;<Text>@@ACTORGENDER@@</Text>
     441;;<Value>@@ACTORGENDER@@</Value>
     442;;<CodingSystem>2.16.840.1.113883.5.1</CodingSystem>
     443;;</Code>
    440444;;</Gender>
    441445;;</Person>
     
    462466;;</Address>
    463467;;<Telephone>
    464 ;;<Value>@@ACTORTELEPHONE@@</Value>
    465 ;;<Type>
    466 ;;<Text>@@ACTORTELEPHONETYPE@@</Text>
     468;;<Value>@@ACTORRESTEL@@</Value>
     469;;<Type>
     470;;<Text>Residential Telephone</Text>
     471;;</Type>
     472;;</Telephone>
     473;;<Telephone>
     474;;<Value>@@ACTORWORKTEL@@</Value>
     475;;<Type>
     476;;<Text>Work Telephone</Text>
     477;;</Type>
     478;;</Telephone>
     479;;<Telephone>
     480;;<Value>@@ACTORCELLTEL@@</Value>
     481;;<Type>
     482;;<Text>Cell phone</Text>
    467483;;</Type>
    468484;;</Telephone>
Note: See TracChangeset for help on using the changeset viewer.