|
Last change
on this file since 771 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
714 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
