PSSHELP.m

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