Last change
on this file since 1452 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
714 bytes
|
Line | |
---|
1 | PSSPOIMP ;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
|
---|
3 | ASKSYN ;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
|
---|
13 | ADDSYN ;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.