Changeset 111 for ccr/trunk/p/GPLCCR.m
- Timestamp:
- Aug 29, 2008, 10:35:39 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCR.m
r104 r111 100 100 D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST 101 101 D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT") 102 D EXTRACT^GPLACTOR S("ACTT",ACTGLO,"ACTT2")102 D EXTRACT^GPLACTOR("ACTT",ACTGLO,"ACTT2") 103 103 D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors") 104 104 N TRIMI,J,DONE S DONE=0 … … 115 115 D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")") 116 116 D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")") 117 D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL S;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")117 D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")") 118 118 I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")") 119 119 Q … … 199 199 ;;>>>D ZTEST^GPLCCR("ACTLST") 200 200 ;;>>>D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","G2") 201 ;;>>>D EXTRACT^GPLACTOR S("G2","ACTTEST","G3")201 ;;>>>D EXTRACT^GPLACTOR("G2","ACTTEST","G3") 202 202 ;;>>?G3(G3(0))["</Actors>" 203 203 ;;><TRIM>
Note:
See TracChangeset
for help on using the changeset viewer.