Changeset 180
- Timestamp:
- Oct 4, 2008, 10:48:35 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS2.m
r179 r180 50 50 N MEDCOUNT S MEDCOUNT=0 51 51 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 52 53 . S MEDCOUNT=MEDCOUNT+1 53 54 . I DEBUG W "RXIEN IS ",RXIEN,! … … 126 127 . . N SIGDATA M SIGDATA=FMSIG(52.413,FMSIGNUM) 127 128 . . ; If this is an order for a refill; it's not really a new order; move on to next 128 . . I SIGDATA(2)="RF" QUIT129 129 . . S @MAP@("M",DIRNUM,"MEDDIRECTIONDESCRIPTIONTEXT")="" ; This is reserved for systems not able to generate the sig in components. 130 130 . . 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.