Changeset 111 for ccr/trunk/p/GPLCCD.m

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

File:

• ccr/trunk/p/GPLCCD.m (modified) (3 diffs)

ccr/trunk/p/GPLCCD.m

@@ -80 +80 @@
     S ZZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
     D QUERY^GPLXPATH(CCDGLO,ZZX,"ACTT1")
-    D PATIENT^GPLACTORS("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
+    D PATIENT^GPLACTOR("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
     I DEBUG D PARY^GPLXPATH("ACTT2")
     D REPLACE^GPLXPATH(CCDGLO,"ACTT2",ZZX)
@@ -140 +140 @@
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
     ;D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
-    I 'CCD D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
+    I 'CCD D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     Q
     ;
@@ -249 +249 @@
  ;;>>>D ZTEST^GPLCCR("ACTLST")
  ;;>>>D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","G2")
- ;;>>>D EXTRACT^GPLACTORS("G2","ACTTEST","G3")
+ ;;>>>D EXTRACT^GPLACTOR("G2","ACTTEST","G3")
  ;;>>?G3(G3(0))["</Actors>"
  ;;><TRIM>