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

PSSPOID2.m

Go to the documentation of this file.
  1. PSSPOID2 ;BIR/RTR/WRT-Get drugs, additives, solutions ;02/14/00
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97
  1. CHECK(PSSROIT) ;
  1. ;PSSDACT = ARRAY OF ACTIVE DISPENSE DRUGS
  1. ;PSSDACTI = ARRAY OF INACTIVE DISPENSE DRUGS
  1. ;PSSSACT = ARRAY OF ACTIVE SOLUTIONS
  1. ;PSSSACTI = ARRAY OF INACTIVE SOLUTIONS
  1. ;PSSAACT = ARRAY OF ACTIVE ADDITIVES
  1. ;PSSAACTI = ARRAY OF INACTIVE ADDITIVES
  1. K PSSDACT,PSSDACTI,PSSSACT,PSSSACTI,PSSAACT,PSSAACTI
  1. N PSSRDATE,PSSRFLAG,PSSAI
  1. Q:'$G(PSSROIT)
  1. I $D(^PS(50.7,PSSROIT,0)) D
  1. .F PSSAI=0:0 S PSSAI=$O(^PS(52.7,"AOI",PSSROIT,PSSAI)) Q:'PSSAI I $D(^PS(52.7,PSSAI,0)) D
  1. ..S PSSRDATE=$P($G(^PS(52.7,PSSAI,"I")),"^") D DTE
  1. ..I PSSRFLAG S PSSSACT(PSSAI)="" Q
  1. ..S PSSSACTI(PSSAI)=""
  1. .F PSSAI=0:0 S PSSAI=$O(^PS(52.6,"AOI",PSSROIT,PSSAI)) Q:'PSSAI I $D(^PS(52.6,PSSAI,0)) D
  1. ..S PSSRDATE=$P($G(^PS(52.6,PSSAI,"I")),"^") D DTE
  1. ..I PSSRFLAG S PSSAACT(PSSAI)="" Q
  1. ..S PSSAACTI(PSSAI)=""
  1. .F PSSAI=0:0 S PSSAI=$O(^PSDRUG("ASP",PSSROIT,PSSAI)) Q:'PSSAI I $D(^PSDRUG(PSSAI,0)) D
  1. ..S PSSRDATE=$P($G(^PSDRUG(PSSAI,"I")),"^") D DTE
  1. ..I PSSRFLAG S PSSDACT(PSSAI)="" Q
  1. ..S PSSDACTI(PSSAI)=""
  1. Q
  1. DTE ;
  1. S PSSRFLAG=0
  1. I '$G(PSSRDATE)!(+$G(PSSRDATE)>DT) S PSSRFLAG=1
  1. Q