Changeset 180 for ccr/trunk/p

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:

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

ccr/trunk/p/CCRMEDS2.m

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