Changeset 180 for ccr/trunk/p


Ignore:
Timestamp:
Oct 4, 2008, 10:48:35 PM (16 years ago)
Author:
Sam Habiel
Message:

Fixed CCRMEDS2 to not display refills requests from CPRS as pending orders

File:
1 edited

Legend:

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

    r179 r180  
    5050        N MEDCOUNT S MEDCOUNT=0
    5151        F  S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN="B"  D  ; FOR EACH MEDICATION IN THE LIST
     52        . I $$GET1^DIQ(52.41,RXIEN,2,"I")="RF" QUIT  ; Dont' want refill request as a "pending" order
    5253        . S MEDCOUNT=MEDCOUNT+1
    5354        . I DEBUG W "RXIEN IS ",RXIEN,!
     
    126127        . . N SIGDATA M SIGDATA=FMSIG(52.413,FMSIGNUM)
    127128        . . ; If this is an order for a refill; it's not really a new order; move on to next
    128         . . I SIGDATA(2)="RF" QUIT
    129129        . . S @MAP@("M",DIRNUM,"MEDDIRECTIONDESCRIPTIONTEXT")=""  ; This is reserved for systems not able to generate the sig in components.
    130130        . . S @MAP@("M",DIRNUM,"MEDDOSEINDICATOR")="1"  ; means that we are specifying it. See E2369-05.
Note: See TracChangeset for help on using the changeset viewer.