- 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
- 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
