| 1 | PSOQ0076 ;HINES/RMS - PRESCRIPTION FUNCTION "LAST RELEASED" ; 30 Nov 2007 7:49 AM
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
|
|---|
| 3 | ;
|
|---|
| 4 | LRDFUNC(PSOQRX) ;LAST RELEASE DATE IN FILEMAN FORMAT
|
|---|
| 5 | N PSOQRD,PSOQRFD,PSOQANS,PSOQ
|
|---|
| 6 | S PSOQANS=""
|
|---|
| 7 | S PSOQRD=$P($G(^PSRX(PSOQRX,2)),"^",13)
|
|---|
| 8 | S PSOQANS=PSOQRD
|
|---|
| 9 | S PSOQ=0 F S PSOQ=$O(^PSRX(PSOQRX,1,PSOQ)) Q:'+PSOQ D ;
|
|---|
| 10 | . S PSOQRFD=$P($G(^PSRX(PSOQRX,1,PSOQ,0)),"^",18)
|
|---|
| 11 | . I PSOQRFD>PSOQANS S PSOQANS=PSOQRFD
|
|---|
| 12 | Q PSOQANS
|
|---|
| 13 | DAYSSUPP(PSOQRX) ;DAYS SUPPLY INDICATOR
|
|---|
| 14 | Q $P($G(^PSRX(PSOQRX,0)),"^",8)
|
|---|
| 15 | EXPDATE(PSOQRX) ;EXPIRATION DATE OF A PRESCRIPTION
|
|---|
| 16 | Q $P($G(^PSRX(PSOQRX,2)),"^",6)
|
|---|
| 17 | REFILLS(PSOQRX) ;REFILLS REMAINING
|
|---|
| 18 | N PSOQRCT K RFILLS
|
|---|
| 19 | Q:'$D(^PSRX(PSOQRX,0)) ""
|
|---|
| 20 | S RFILLS=$P(^PSRX(PSOQRX,0),"^",9),PSOQRCT=0 F S PSOQRCT=$O(^PSRX(PSOQRX,1,PSOQRCT)) Q:'PSOQRCT S RFILLS=RFILLS-1
|
|---|
| 21 | Q RFILLS
|
|---|
