Changeset 84

Timestamp:

Aug 5, 2008, 11:42:46 PM (16 years ago)

Author:

George Lilly

Message:

handle the case where meds are null

Location:

ccr/trunk/p

Files:

• GPLCCR.m (modified) (1 diff)
• GPLMEDS.m (modified) (2 diffs)

ccr/trunk/p/GPLCCR.m

@@ -86 +86 @@
     . X CALL
     . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
-    . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
-    . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
+    . I @OXML@(0)'=0 D  ; THERE IS A RESULT
+    . . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
+    . . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
     D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
     D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")

ccr/trunk/p/GPLMEDS.m

@@ -28 +28 @@
           N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
           D ACTIVE^ORWPS(.MEDRSLT,DFN)
-          I '$D(MEDRSLT(1)) W "ERROR RUNNINIG MEDICATIONS RPC",! Q
+          I '$D(MEDRSLT(1)) D  ; NO MEDS FOR THIS PATIENT, EXIT
+          . W "ERROR RUNNINIG MEDICATIONS RPC",!
+          . S @MEDOUTXML@(0)=0
+          . Q
           IF DEBUG ZWR MEDRSLT
           S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
@@ -38 +41 @@
           . I DEBUG W "VMAP= ",VMAP,!
           . S MEDPTMP=MEDRSLT(J) ; PULL OUT MEDICATION FROM RPC RETURN ARRAY
-          . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDICATION
+          . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
           . ; PROCESSING FOR MEDS GOES HERE
           . S @MEDVMAP@("MEDICATIONDATETIMETEXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE