Changeset 84 for ccr


Ignore:
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:
2 edited

Legend:

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

    r79 r84  
    8686    . X CALL
    8787    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
    88     . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
    89     . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
     88    . I @OXML@(0)'=0 D  ; THERE IS A RESULT
     89    . . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
     90    . . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
    9091    D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
    9192    D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
  • ccr/trunk/p/GPLMEDS.m

    r83 r84  
    2828          N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
    2929          D ACTIVE^ORWPS(.MEDRSLT,DFN)
    30           I '$D(MEDRSLT(1)) W "ERROR RUNNINIG MEDICATIONS RPC",! Q
     30          I '$D(MEDRSLT(1)) D  ; NO MEDS FOR THIS PATIENT, EXIT
     31          . W "ERROR RUNNINIG MEDICATIONS RPC",!
     32          . S @MEDOUTXML@(0)=0
     33          . Q
    3134          IF DEBUG ZWR MEDRSLT
    3235          S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
     
    3841          . I DEBUG W "VMAP= ",VMAP,!
    3942          . S MEDPTMP=MEDRSLT(J) ; PULL OUT MEDICATION FROM RPC RETURN ARRAY
    40           . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDICATION
     43          . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
    4144          . ; PROCESSING FOR MEDS GOES HERE
    4245          . S @MEDVMAP@("MEDICATIONDATETIMETEXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
Note: See TracChangeset for help on using the changeset viewer.