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

PSSDIUTX.m

Go to the documentation of this file.
  1. PSSDIUTX ;HP/MJE - Drug Interaction Utility ;05/14/11 5:00pm
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**175**;9/30/97;Build 9
  1. ;This routine can be used for PSS namespace additional code
  1. ;
  1. DELDISC ;This will delete discontinued drugs from drug interaction order checks result set but not dup therapy results
  1. I $D(PSOSD("DISCONTINUED")) D
  1. .N CKSV,CKDRG,CKON,CKCT,CKVAL,CKNM,DCRCMN S (CKSV,CKDRG,CKON,CKCT,CKVAL,CKNM,DCRCMN)=""
  1. .F S CKNM=$O(PSOSD("DISCONTINUED",CKNM)) Q:CKNM="" D
  1. ..S DCRCNM=$P(PSOSD("DISCONTINUED",CKNM),"^") D
  1. ...F S CKSV=$O(^TMP($J,LIST,"OUT","DRUGDRUG",CKSV)) Q:CKSV="" F S CKDRG=$O(^TMP($J,LIST,"OUT","DRUGDRUG",CKSV,CKDRG)) Q:CKDRG="" D
  1. ....F S CKON=$O(^TMP($J,LIST,"OUT","DRUGDRUG",CKSV,CKDRG,CKON)) Q:CKON="" F S CKCT=$O(^TMP($J,LIST,"OUT","DRUGDRUG",CKSV,CKDRG,CKON,CKCT)) Q:CKCT="" D
  1. .....S CKVAL=$P($P(^TMP($J,LIST,"OUT","DRUGDRUG",CKSV,CKDRG,CKON,CKCT),"^"),";",2)
  1. .....I DCRCNM=CKVAL K ^TMP($J,LIST,"OUT","DRUGDRUG",CKSV,CKDRG,CKON,CKCT)
  1. .....I DCRCNM=$P(CKON,";",2) K ^TMP($J,LIST,"OUT","DRUGDRUG",CKSV,CKDRG,CKON,CKCT)
  1. K CKSV,CKDRG,CKON,CKCT,CKVAL,CKNM,DCRCMN
  1. Q