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

PSDRFV.m

Go to the documentation of this file.
  1. PSDRFV ;BIR/JPW,LTL-Nurse RF Dispensing review; 8 Aug 94
  1. ;;3.0; CONTROLLED SUBSTANCES ;**5,12,25,27**;13 Feb 97
  1. ;Reference to ^PSD(58.8 are covered by DBIA #2711
  1. ;Reference to ^PSD(58.81 are covered by DBIA #2808
  1. ;Reference to ^PSDRUG( are covered by DBIA #221
  1. ; Reference to VA(200 DBIA # 10060
  1. ;
  1. ;PAT=PATIENT,PSDR=DRUG
  1. LOOP N PSD,PSDL S (PSDL,PSDA,PSDT)=0
  1. W !!,"Doses signed out in the last ",$S($G(NAOU(1)):NAOU(1),1:"eight")," hours:"
  1. S PSDT=$$FMADD^XLFDT($$NOW^XLFDT,0,-$S($G(NAOU(1)):NAOU(1),1:8))
  1. CHEC ;PSD*3*27 (DAVE B - Do not need to look at every ward - PSDL)
  1. S PSDL=$G(NAOU)
  1. F S PSDT=$O(^PSD(58.81,"ACT",PSDT)) Q:'PSDT F S PSDA=$O(^PSD(58.81,"ACT",PSDT,PSDL,PSDR,17,PSDA)) Q:'PSDA D:$P($G(^PSD(58.81,PSDA,9)),U)=$G(PAT)
  1. .S PSDA(2)=$$FMTE^XLFDT(PSDT,"2P"),PSDA(3)=PSDT
  1. .W !!,PSDA(2),?22,$P($G(^PSD(58.81,PSDA,0)),U,6)," ",$S($P($G(^(0)),U,8)]"":$P($G(^(0)),U,8),1:$P($G(^PSDRUG(PSDR,660)),U,8))
  1. .W:$P($G(^PSD(58.81,PSDA,9)),U,4) " (",$P($G(^(9)),U,4)," WASTED)"
  1. .W:$P($G(^PSD(58.81,PSDA,3)),U,2) " (",$P($G(^(3)),U,2)," RETURNED)"
  1. .W " ",$P($G(^VA(200,+$P($G(^PSD(58.81,PSDA,0)),U,7),0)),U)
  1. .W:$P($G(^PSD(58.81,PSDA,0)),U,16)]"" !?25,$P($G(^(0)),U,16) S PSDA(4)=$P($G(^(0)),U,7)
  1. .S PSDA(1)=PSDA
  1. END Q