Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.