Changeset 43 for ccr/trunk/p/GPLACTORS.m


Ignore:
Timestamp:
Jul 5, 2008, 11:49:50 AM (17 years ago)
Author:
George Lilly
Message:

Format changes for SAC compliance

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLACTORS.m

    r40 r43  
    1515           . I ATYP="" Q ; NOT A VALID ACTOR
    1616           . ;
    17            . ; MAP ACTOR VARIABLES HERE
     17           . I ATYP="PATIENT" D  ; PATIENT ACTOR TYPE
     18           . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-PATIENT","ATMP")
     19           . . D PATIENT("ATMP",@ALST@(I),"ATMP2")
    1820           . ;
    19            . S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    20            . S @AMAP@("ACTORGIVENNAME")=""
    21            . S @AMAP@("ACTORMIDDLENAME")=""
    22            . S @AMAP@("ACTORFAMILYNAME")=""
    23            . S @AMAP@("ACTORDATEOFBIRTH")=""
    24            . S @AMAP@("ACTORGENDER")=""
    25            . S @AMAP@("ACTORSSN")=""
    26            . S @AMAP@("ACTORSSNSOURCEID")=""
    27            . S @AMAP@("ACTORADDRESSTYPE")=""
    28            . S @AMAP@("ACTORADDRESSLINE1")=""
    29            . S @AMAP@("ACTORADDRESSLINE2")=""
    30            . S @AMAP@("ACTORADDRESSCITY")=""
    31            . S @AMAP@("ACTORADDRESSSTATE")=""
    32            . S @AMAP@("ACTORADDRESSZIPCODE")=""
    33            . S @AMAP@("ACTORTELEPHONE")=""
    34            . S @AMAP@("ACTORTELEPHONETYPE")=""
    35            . S @AMAP@("ACTOREMAIL")=""
    36            . S @AMAP@("ACTORADDRESSSOURCEID")=""
    37            . S @AMAP@("ACTORINFOSYSNAME")=""
    38            . S @AMAP@("ACTORINFOSYSSOURCEID")=""
    39            . S @AMAP@("ACTORDISPLAYNAME")=""
    40            . S @AMAP@("ACTORRELATION")=""
    41            . S @AMAP@("ACTORRELATIONSOURCEID")=""
    42            . S @AMAP@("ACTORSPECIALITY")=""
     21           . I ATYP="SYSTEM" D  ; SYSTEM ACTOR TYPE
     22           . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-SYSTEM","ATMP")
     23           . . D SYSTEM("ATMP",@ALST@(I),"ATMP2")
    4324           . ;
     25           . I ATYP="NOK" D  ; NOK ACTOR TYPE
     26           . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-NOK","ATMP")
     27           . . D NOK("ATMP",@ALST@(I),"ATMP2")
    4428           . ;
    45            . D MAP^GPLXPATH(INXML,AMAP,"ATMP") ; MAP THE VARIABLE
     29           . I ATYP="PROVIDER" D  ; PROVIDER ACTOR TYPE
     30           . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-PROVIDER","ATMP")
     31           . . D PROVIDER("ATMP",@ALST@(I),"ATMP2")
     32           . ;
    4633           . I FIRST D  ; FIRST TIME , ONLY COPY THE ARRAY
    4734           . . D CP^GPLXPATH("ATMP",OUTXML) ;
    … …  
    5037           . . D INSERT^GPLXPATH("ATMP","//",OUTXML) ; INSERT AT ROOT
    5138           ;
     39           D MISSING^GPLXPATH(OUTXML,"ACTTMP") ; SEARCH XML FOR MISSING VARS
     40           I ACTTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
     41           . ; STRINGS MARKED AS @@X@@
     42           . W "ACTORS Missing list: ",!
     43           . F I=1:1:ACTTMP(0) W ACTTMP(I),!
    5244           Q
    5345           ;
    54 
     46PATIENT(INXML,ACTREC,OUTXML) ; PROCESS A PATIENT ACTOR
     47     ;
     48     N AMAP
     49     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
     50     S @AMAP@("ACTORGIVENNAME")=""
     51     S @AMAP@("ACTORMIDDLENAME")=""
     52     S @AMAP@("ACTORFAMILYNAME")=""
     53     S @AMAP@("ACTORDATEOFBIRTH")=""
     54     S @AMAP@("ACTORGENDER")=""
     55     S @AMAP@("ACTORSSN")=""
     56     S @AMAP@("ACTORSSNSOURCEID")=""
     57     S @AMAP@("ACTORADDRESSTYPE")=""
     58     S @AMAP@("ACTORADDRESSLINE1")=""
     59     S @AMAP@("ACTORADDRESSLINE2")=""
     60     S @AMAP@("ACTORADDRESSCITY")=""
     61     S @AMAP@("ACTORADDRESSSTATE")=""
     62     S @AMAP@("ACTORADDRESSZIPCODE")=""
     63     S @AMAP@("ACTORTELEPHONE")=""
     64     S @AMAP@("ACTORTELEPHONETYPE")=""
     65     S @AMAP@("ACTOREMAIL")=""
     66     S @AMAP@("ACTORADDRESSSOURCEID")=""
     67     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
     68     Q
     69     ;
     70SYSTEM(INXML,ACTREC,OUTXML) ; PROCESS A SYSTEM ACTOR
     71     ;
     72     N AMAP
     73     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
     74     S @AMAP@("ACTORINFOSYSNAME")=""
     75     S @AMAP@("ACTORINFOSYSSOURCEID")=""
     76     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
     77     Q
     78     ;
     79NOK(INXML,ACTREC,OUTXML) ; PROCESS A NEXT OF KIN TYPE ACTOR
     80     ;
     81     N AMAP
     82     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
     83     S @AMAP@("ACTORDISPLAYNAME")=""
     84     S @AMAP@("ACTORRELATION")=""
     85     S @AMAP@("ACTORRELATIONSOURCEID")=""
     86     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
     87     Q
     88     ;
     89PROVIDER(INXML,ACTREC,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
     90     ;
     91     N AMAP
     92     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
     93     S @AMAP@("ACTORGIVENNAME")=""
     94     S @AMAP@("ACTORMIDDLENAME")=""
     95     S @AMAP@("ACTORFAMILYNAME")=""
     96     S @AMAP@("ACTORSPECIALITY")=""
     97     S @AMAP@("ACTORADDRESSTYPE")=""
     98     S @AMAP@("ACTORADDRESSLINE1")=""
     99     S @AMAP@("ACTORADDRESSLINE2")=""
     100     S @AMAP@("ACTORADDRESSCITY")=""
     101     S @AMAP@("ACTORADDRESSSTATE")=""
     102     S @AMAP@("ACTORADDRESSZIPCODE")=""
     103     S @AMAP@("ACTORTELEPHONE")=""
     104     S @AMAP@("ACTORTELEPHONETYPE")=""
     105     S @AMAP@("ACTOREMAIL")=""
     106     S @AMAP@("ACTORADDRESSSOURCEID")=""
     107     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
     108     Q
     109     ;
Note: See TracChangeset for help on using the changeset viewer.