- PSSPOIMP ;BIR/RTR/WRT-Edit Orderable Item Name and Inactive date ;7/20/04 1:45pm
- ;;1.0;PHARMACY DATA MANAGEMENT;**102,107**;9/30/97
- ASKSYN ;PSS*1*102;PROMPT TO ADD DRUG TEXT AS SYNONYM
- N DIR
- S DIR(0)="Y"
- S DIR("A")="ADD THIS DRUG TEXT AS A SYNONYM? "
- S DIR("B")="N"
- D ^DIR
- I 'Y Q
- S X=$G(^PS(51.7,X(1),0))
- I X]"" S PPPTMP(50.72,D0,X)="" ;; PSS*1*107 replace with D0
- Q
- ADDSYN ;ADD DRUG TEXT AS A SYNONYM
- N TMP,PSOERR,DIERR,X,PSOIEN
- S PSOIEN="" F S PSOIEN=$O(PPPTMP(50.72,PSOIEN)) Q:PSOIEN="" D
- .S X="" F S X=$O(PPPTMP(50.72,PSOIEN,X)) Q:X="" D
- ..I $D(^PS(50.7,PSOIEN,2,"B",X)) Q
- ..S TMP(50.72,"+2,"_PSOIEN_",",.01)=X
- ..D UPDATE^DIE("","TMP","","PSOERR")
- ..K DIE,DIR,DIERR,TMP
- K PPPTMP,TMP
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSPOIMP 736 printed Feb 19, 2025@00:00:07 Page 2
- 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
- ASKSYN ;PSS*1*102;PROMPT TO ADD DRUG TEXT AS SYNONYM
- +1 NEW DIR
- +2 SET DIR(0)="Y"
- +3 SET DIR("A")="ADD THIS DRUG TEXT AS A SYNONYM? "
- +4 SET DIR("B")="N"
- +5 DO ^DIR
- +6 IF 'Y
- QUIT
- +7 SET X=$GET(^PS(51.7,X(1),0))
- +8 ;; PSS*1*107 replace with D0
- IF X]""
- SET PPPTMP(50.72,D0,X)=""
- +9 QUIT
- ADDSYN ;ADD DRUG TEXT AS A SYNONYM
- +1 NEW TMP,PSOERR,DIERR,X,PSOIEN
- +2 SET PSOIEN=""
- FOR
- SET PSOIEN=$ORDER(PPPTMP(50.72,PSOIEN))
- if PSOIEN=""
- QUIT
- Begin DoDot:1
- +3 SET X=""
- FOR
- SET X=$ORDER(PPPTMP(50.72,PSOIEN,X))
- if X=""
- QUIT
- Begin DoDot:2
- +4 IF $DATA(^PS(50.7,PSOIEN,2,"B",X))
- QUIT
- +5 SET TMP(50.72,"+2,"_PSOIEN_",",.01)=X
- +6 DO UPDATE^DIE("","TMP","","PSOERR")
- +7 KILL DIE,DIR,DIERR,TMP
- End DoDot:2
- End DoDot:1
- +8 KILL PPPTMP,TMP
- +9 QUIT