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

PSSRXACT.m

Go to the documentation of this file.
  1. PSSRXACT ;BIR/SAB- returns active Rx flag ; 09/04/03 10:30 am
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**75**;9/30/97
  1. ;External reference to EN^PSOORDER supported by DBIA 1878
  1. ;
  1. EN(DFN) ;
  1. N FLAG,EXPD,RX,STAT S EXPD=DT-1
  1. F S EXPD=$O(^PS(55,DFN,"P","A",EXPD)) Q:'EXPD!($G(FLAG)) F RX=0:0 S RX=$O(^PS(55,DFN,"P","A",EXPD,RX)) Q:'RX!($G(FLAG)) D
  1. .D EN^PSOORDER(DFN,RX)
  1. .I $G(^TMP("PSOR",$J,RX,0))']"" Q
  1. .S STAT=$P($P(^TMP("PSOR",$J,RX,0),"^",4),";")
  1. .S FLAG=$S(STAT="A":1,STAT="N":1,STAT="H":1,STAT="S":1,1:0)
  1. .K ^TMP("PSOR",$J)
  1. Q +$G(FLAG)