PSSHELP ;BIR/SAB-PDM UTILITY ROUTINE ; 09/02/97 8:37
;;1.0;PHARMACY DATA MANAGEMENT;**125**;9/30/97;Build 2
ADD ;add/edited local drug/drug interactions
W ! S DIC("A")="Select Drug Interaction: ",DIC(0)="AEMQL",(DIC,DIE)="^PS(56,",DIC("S")="I '$P(^(0),""^"",5)",DLAYGO=56
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
QU K X,DIC,DIE,DA
Q
CRI ;change drug interaction severity to critical from significant
W ! S DIC("A")="Select Drug Interaction: ",DIC(0)="AEQM",(DIC,DIE)="^PS(56,",DIC("S")="I $P(^(0),""^"",4)=2"
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
G QU
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSHELP 841 printed Dec 13, 2024@02:31:42 Page 2
PSSHELP ;BIR/SAB-PDM UTILITY ROUTINE ; 09/02/97 8:37
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**125**;9/30/97;Build 2
ADD ;add/edited local drug/drug interactions
+1 WRITE !
SET DIC("A")="Select Drug Interaction: "
SET DIC(0)="AEMQL"
SET (DIC,DIE)="^PS(56,"
SET DIC("S")="I '$P(^(0),""^"",5)"
SET DLAYGO=56
+2 DO ^DIC
if "^"[X
GOTO QU
if Y<0
GOTO ADD
SET DA=+Y
SET DR="[PSS INTERACT]"
LOCK +^PS(56,DA):$SELECT($GET(DILOCKTM)>0:DILOCKTM,1:3)
if '$TEST
WRITE !,$CHAR(7),"Already being edited."
IF $TEST
DO ^DIE
if $GET(DA)
LOCK -^PS(56,DA)
KILL DA
GOTO ADD
QU KILL X,DIC,DIE,DA
+1 QUIT
CRI ;change drug interaction severity to critical from significant
+1 WRITE !
SET DIC("A")="Select Drug Interaction: "
SET DIC(0)="AEQM"
SET (DIC,DIE)="^PS(56,"
SET DIC("S")="I $P(^(0),""^"",4)=2"
+2 DO ^DIC
if "^"[X
GOTO QU
if Y<0
GOTO CRI
SET DA=+Y
SET DR=3
LOCK +^PS(56,DA):$SELECT($GET(DILOCKTM)>0:DILOCKTM,1:3)
if '$TEST
WRITE !,$CHAR(7),"Already being edited."
IF $TEST
DO ^DIE
LOCK -^PS(56,DA)
KILL DA
GOTO CRI
+3 GOTO QU
+4 QUIT
