Changeset 111 for ccr/trunk/p


Ignore:
Timestamp:
Aug 29, 2008, 10:35:39 AM (16 years ago)
Author:
George Lilly
Message:

rename GPLVITALS and GPLACTORS to GPLVITAL and GPLACTOR for kids build

Location:
ccr/trunk/p
Files:
2 edited
2 moved

Legend:

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

    r80 r111  
    8080    S ZZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
    8181    D QUERY^GPLXPATH(CCDGLO,ZZX,"ACTT1")
    82     D PATIENT^GPLACTORS("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
     82    D PATIENT^GPLACTOR("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
    8383    I DEBUG D PARY^GPLXPATH("ACTT2")
    8484    D REPLACE^GPLXPATH(CCDGLO,"ACTT2",ZZX)
     
    140140    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
    141141    ;D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
    142     I 'CCD D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     142    I 'CCD D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
    143143    Q
    144144    ;
     
    249249 ;;>>>D ZTEST^GPLCCR("ACTLST")
    250250 ;;>>>D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","G2")
    251  ;;>>>D EXTRACT^GPLACTORS("G2","ACTTEST","G3")
     251 ;;>>>D EXTRACT^GPLACTOR("G2","ACTTEST","G3")
    252252 ;;>>?G3(G3(0))["</Actors>"
    253253 ;;><TRIM>
  • ccr/trunk/p/GPLCCR.m

    r104 r111  
    100100    D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
    101101    D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
    102     D EXTRACT^GPLACTORS("ACTT",ACTGLO,"ACTT2")
     102    D EXTRACT^GPLACTOR("ACTT",ACTGLO,"ACTT2")
    103103    D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
    104104    N TRIMI,J,DONE S DONE=0
     
    115115    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
    116116    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
    117     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     117    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
    118118    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
    119119    Q
     
    199199 ;;>>>D ZTEST^GPLCCR("ACTLST")
    200200 ;;>>>D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","G2")
    201  ;;>>>D EXTRACT^GPLACTORS("G2","ACTTEST","G3")
     201 ;;>>>D EXTRACT^GPLACTOR("G2","ACTTEST","G3")
    202202 ;;>>?G3(G3(0))["</Actors>"
    203203 ;;><TRIM>
Note: See TracChangeset for help on using the changeset viewer.