|
Last change
on this file since 767 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
829 bytes
|
| Line | |
|---|
| 1 | PSSHELP ;BIR/SAB-PDM UTILITY ROUTINE ; 09/02/97 8:37
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**125**;9/30/97;Build 2
|
|---|
| 3 | ADD ;add/edited local drug/drug interactions
|
|---|
| 4 | W ! S DIC("A")="Select Drug Interaction: ",DIC(0)="AEMQL",(DIC,DIE)="^PS(56,",DIC("S")="I '$P(^(0),""^"",5)",DLAYGO=56
|
|---|
| 5 | D ^DIC G:"^"[X QU G:Y<0 ADD S DA=+Y,DR="[PSS INTERACT]" L +^PS(56,DA):$S($G(DILOCKTM)>0:DILOCKTM,1:3) W:'$T !,$C(7),"Already being edited." I $T D ^DIE L:$G(DA) -^PS(56,DA) K DA G ADD
|
|---|
| 6 | QU K X,DIC,DIE,DA
|
|---|
| 7 | Q
|
|---|
| 8 | CRI ;change drug interaction severity to critical from significant
|
|---|
| 9 | W ! S DIC("A")="Select Drug Interaction: ",DIC(0)="AEQM",(DIC,DIE)="^PS(56,",DIC("S")="I $P(^(0),""^"",4)=2"
|
|---|
| 10 | D ^DIC G:"^"[X QU G:Y<0 CRI S DA=+Y,DR=3 L +^PS(56,DA):$S($G(DILOCKTM)>0:DILOCKTM,1:3) W:'$T !,$C(7),"Already being edited." I $T D ^DIE L -^PS(56,DA) K DA G CRI
|
|---|
| 11 | G QU
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
