Changeset 84 for ccr/trunk/p/GPLMEDS.m

Timestamp:

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

Author:

George Lilly

Message:

handle the case where meds are null

File:

• ccr/trunk/p/GPLMEDS.m (modified) (2 diffs)

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