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

PSSPOIMP.m

Go to the documentation of this file.
  1. PSSPOIMP ;BIR/RTR/WRT-Edit Orderable Item Name and Inactive date ;7/20/04 1:45pm
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**102,107**;9/30/97
  1. ASKSYN ;PSS*1*102;PROMPT TO ADD DRUG TEXT AS SYNONYM
  1. N DIR
  1. S DIR(0)="Y"
  1. S DIR("A")="ADD THIS DRUG TEXT AS A SYNONYM? "
  1. S DIR("B")="N"
  1. D ^DIR
  1. I 'Y Q
  1. S X=$G(^PS(51.7,X(1),0))
  1. I X]"" S PPPTMP(50.72,D0,X)="" ;; PSS*1*107 replace with D0
  1. Q
  1. ADDSYN ;ADD DRUG TEXT AS A SYNONYM
  1. N TMP,PSOERR,DIERR,X,PSOIEN
  1. S PSOIEN="" F S PSOIEN=$O(PPPTMP(50.72,PSOIEN)) Q:PSOIEN="" D
  1. .S X="" F S X=$O(PPPTMP(50.72,PSOIEN,X)) Q:X="" D
  1. ..I $D(^PS(50.7,PSOIEN,2,"B",X)) Q
  1. ..S TMP(50.72,"+2,"_PSOIEN_",",.01)=X
  1. ..D UPDATE^DIE("","TMP","","PSOERR")
  1. ..K DIE,DIR,DIERR,TMP
  1. K PPPTMP,TMP
  1. Q