source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPOIMP.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 714 bytes
Line 
1PSSPOIMP ;BIR/RTR/WRT-Edit Orderable Item Name and Inactive date ;7/20/04 1:45pm
2 ;;1.0;PHARMACY DATA MANAGEMENT;**102,107**;9/30/97
3ASKSYN ;PSS*1*102;PROMPT TO ADD DRUG TEXT AS SYNONYM
4 N DIR
5 S DIR(0)="Y"
6 S DIR("A")="ADD THIS DRUG TEXT AS A SYNONYM? "
7 S DIR("B")="N"
8 D ^DIR
9 I 'Y Q
10 S X=$G(^PS(51.7,X(1),0))
11 I X]"" S PPPTMP(50.72,D0,X)="" ;; PSS*1*107 replace with D0
12 Q
13ADDSYN ;ADD DRUG TEXT AS A SYNONYM
14 N TMP,PSOERR,DIERR,X,PSOIEN
15 S PSOIEN="" F S PSOIEN=$O(PPPTMP(50.72,PSOIEN)) Q:PSOIEN="" D
16 .S X="" F S X=$O(PPPTMP(50.72,PSOIEN,X)) Q:X="" D
17 ..I $D(^PS(50.7,PSOIEN,2,"B",X)) Q
18 ..S TMP(50.72,"+2,"_PSOIEN_",",.01)=X
19 ..D UPDATE^DIE("","TMP","","PSOERR")
20 ..K DIE,DIR,DIERR,TMP
21 K PPPTMP,TMP
22 Q
Note: See TracBrowser for help on using the repository browser.