Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSOQ0076

PSOQ0076.m

Go to the documentation of this file.
  1. PSOQ0076 ;HINES/RMS - PRESCRIPTION FUNCTION "LAST RELEASED" ; 30 Nov 2007 7:49 AM
  1. ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
  1. ;
  1. LRDFUNC(PSOQRX) ;LAST RELEASE DATE IN FILEMAN FORMAT
  1. N PSOQRD,PSOQRFD,PSOQANS,PSOQ
  1. S PSOQANS=""
  1. S PSOQRD=$P($G(^PSRX(PSOQRX,2)),"^",13)
  1. S PSOQANS=PSOQRD
  1. S PSOQ=0 F S PSOQ=$O(^PSRX(PSOQRX,1,PSOQ)) Q:'+PSOQ D ;
  1. . S PSOQRFD=$P($G(^PSRX(PSOQRX,1,PSOQ,0)),"^",18)
  1. . I PSOQRFD>PSOQANS S PSOQANS=PSOQRFD
  1. Q PSOQANS
  1. DAYSSUPP(PSOQRX) ;DAYS SUPPLY INDICATOR
  1. Q $P($G(^PSRX(PSOQRX,0)),"^",8)
  1. EXPDATE(PSOQRX) ;EXPIRATION DATE OF A PRESCRIPTION
  1. Q $P($G(^PSRX(PSOQRX,2)),"^",6)
  1. REFILLS(PSOQRX) ;REFILLS REMAINING
  1. N PSOQRCT K RFILLS
  1. Q:'$D(^PSRX(PSOQRX,0)) ""
  1. S RFILLS=$P(^PSRX(PSOQRX,0),"^",9),PSOQRCT=0 F S PSOQRCT=$O(^PSRX(PSOQRX,1,PSOQRCT)) Q:'PSOQRCT S RFILLS=RFILLS-1
  1. Q RFILLS