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

PSOPXRMU.m

Go to the documentation of this file.
  1. PSOPXRMU ;BHM/MFR - Set/Kill of Clinical Reminders Index;07/12/2004
  1. ;;7.0;OUTPATIENT PHARMACY;**118**;DEC 1997
  1. ;Reference to ^PXRMINDX supported by DBIA 4114
  1. ;
  1. SKIDX(X,DA,NODE,CMD) ;Set/Kill Clinical Reminder Index
  1. ;Input: X(1) - DAYS SUPPLY, X(2)=RELEASED DATE/TIME
  1. ; DA - PRESCRIPTION file IEN
  1. ; NODE - "O":Original; "R":Refill; "P":Partial
  1. ; CMD - "S":Set; "K": Kill
  1. ;
  1. N D0,DAS,DATE,DFN,DRUG,Z
  1. S D0=$S(NODE="O":DA,1:DA(1))
  1. S Z=$G(^PSRX(D0,0)),DFN=$P(Z,U,2),DRUG=$P(Z,U,6)
  1. I DFN=""!(DRUG="") Q
  1. S DATE=+$$FMADD^XLFDT(X(2),X(1))
  1. S DAS=DA_";2"
  1. S:NODE="R" DAS=DA(1)_";1;"_DA_";0"
  1. S:NODE="P" DAS=DA(1)_";P;"_DA_";0"
  1. ;
  1. I CMD="S" D
  1. . S ^PXRMINDX(52,"IP",DRUG,DFN,X(2),DATE,DAS)=""
  1. . S ^PXRMINDX(52,"PI",DFN,DRUG,X(2),DATE,DAS)=""
  1. I CMD="K" D
  1. . K ^PXRMINDX(52,"IP",DRUG,DFN,X(2),DATE,DAS)
  1. . K ^PXRMINDX(52,"PI",DFN,DRUG,X(2),DATE,DAS)
  1. Q
  1. ;
  1. ;=============================================
  1. KNVA(X,DA) ;Delete index for NVA node.
  1. N DAS,START,STOP
  1. ;Reference to ^PXRMINDX("55NVA" is supported by DBIA# 4114.
  1. S START=$S(X(3)'="":X(3),1:X(2))
  1. S STOP=$S(X(4)'="":X(4),1:"U"_DA(1))
  1. S DAS=DA(1)_";NVA;"_DA_";0"
  1. K ^PXRMINDX("55NVA","IP",X(1),DA(1),START,STOP,DAS)
  1. K ^PXRMINDX("55NVA","PI",DA(1),X(1),START,STOP,DAS)
  1. Q
  1. ;
  1. ;=============================================
  1. SNVA(X,DA) ;Set index for NVA node
  1. ;X(1)=PHARMACY ORDERABLE ITEM,X(2)=DOCUMENTED DATE,
  1. ;X(3)=START DATE (optional), X(4)=DISCONTINUED DATE (optional)
  1. ;Reference to ^PXRMINDX(55 is supported by DBIA# 4114.
  1. N DAS,START,STOP
  1. S START=$S(X(3)'="":X(3),1:X(2))
  1. S STOP=$S(X(4)'="":X(4),1:"U"_DA(1))
  1. S DAS=DA(1)_";NVA;"_DA_";0"
  1. S ^PXRMINDX("55NVA","IP",X(1),DA(1),START,STOP,DAS)=""
  1. S ^PXRMINDX("55NVA","PI",DA(1),X(1),START,STOP,DAS)=""
  1. Q
  1. ;