- PSSCLDRG ;BIR/SAB,WRT-CLOZAPINE DRUG ENTER AND EDIT ; 09/05/97 14:30
- ;;1.0;PHARMACY DATA MANAGEMENT;**16,19**;9/30/97
- I $P($G(^PSDRUG(DISPDRG,"CLOZ1")),"^",2)=1 W $C(7),$C(7),!!,"This drug is marked for Lab Monitor purposes. You must unmark it as a",!,"Lab Monitor before you can mark it as a Clozapine drug." G MONCLOZ^PSSDEE
- ASK W ! S DA=DISPDRG I $D(^PSDRUG("ACLOZ",DISPDRG)) D:CLFLAG UNMARK^PSSCLDRG
- Q:LMFLAG Q:NFLAG Q:$D(DIRUT) Q:$D(DUOUT) Q:$D(DTOUT)
- N PSSFLG
- I '$G(^PSDRUG(DISPDRG,"I"))!(+$G(^("I"))>DT) S PSSFLG=1 D ^PSSCLOZ
- I '$D(PSSFLG) S DR="D CHECK^PSSCLDRG;100///@;W !,""Drug is now re-activated"" S Y=""@2"";@1;W !!,""No change"";@2" S DA=DISPDRG,DIE=DIC D ^DIE S:$G(Y)=1 DUOUT=1
- I '$D(DUOUT),('$D(DIRUT)),('$D(DTOUT)) D PSIU W !,$P(^PSDRUG(DA,0),"^")_" is now marked as a Clozapine drug",! S CLFLAG=1,NFLAG=1
- END K X,Y,DIR,DR,DIC,DIE,PSIUA,PSIUX,%,D0,D1,DQ,I,Z,DTOUT,DUOUT,DIROUT,DIROUT
- Q
- CHECK N DP,DQ S DIR("A")="THIS DRUG IS INACTIVE - DO YOU WISH TO REACTIVATE IT",DIR("B")="N",DIR(0)="Y" D ^DIR I "^N"[X S Y="@1" Q
- S Y=100
- Q
- PSIU ;
- S PSIUO=$P($G(^PSDRUG(DA,2)),"^",3),PSIUY=$S("O"[PSIUO:PSIUO,1:PSIUO_"O"),$P(^PSDRUG(DA,2),"^",3)=PSIUY
- I $P(^PSDRUG(DA,0),"^")]"" S ^PSDRUG("AIUO",$P(^(0),"^"),DA)=""
- K:PSIUO]"" ^PSDRUG("IU",PSIUO,DA) S:$G(PSIUY)]"" ^PSDRUG("IU",PSIUY,DA)=""
- K PSIUO,PSIUY W !
- Q
- UNMARK I $D(^PSDRUG("ACLOZ",DISPDRG)) S DA=DISPDRG
- I DA S DIR(0)="Y",DIR("A",1)="",DIR("A",2)="Are you sure you want to unmark "_$P(^PSDRUG(DISPDRG,0),"^"),DIR("A")="as a Clozapine drug",DIR("B")="N" D ^DIR
- I "Yy"[X S CLFLAG=0 S DR="17.5///@",DIE=DIC D ^DIE W:CLFLAG=0 !!,$P(^PSDRUG(DA,0),"^")_" is now unmarked as a Clozapine drug",! D ASKIT
- W !
- Q
- ASKIT K DIR W !,"Do you wish to mark this drug as a Lab Monitor drug?" S DIR(0)="Y" D ^DIR
- Q:$D(DIRUT) Q:$D(DTOUT) Q:$D(DUOUT)
- I "Nn"[X S NFLAG=1 K X,Y,DIR Q
- I "Yy"[X D ^PSSLAB
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSCLDRG 1902 printed Feb 18, 2025@23:56:32 Page 2
- PSSCLDRG ;BIR/SAB,WRT-CLOZAPINE DRUG ENTER AND EDIT ; 09/05/97 14:30
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**16,19**;9/30/97
- +2 IF $PIECE($GET(^PSDRUG(DISPDRG,"CLOZ1")),"^",2)=1
- WRITE $CHAR(7),$CHAR(7),!!,"This drug is marked for Lab Monitor purposes. You must unmark it as a",!,"Lab Monitor before you can mark it as a Clozapine drug."
- GOTO MONCLOZ^PSSDEE
- ASK WRITE !
- SET DA=DISPDRG
- IF $DATA(^PSDRUG("ACLOZ",DISPDRG))
- if CLFLAG
- DO UNMARK^PSSCLDRG
- +1 if LMFLAG
- QUIT
- if NFLAG
- QUIT
- if $DATA(DIRUT)
- QUIT
- if $DATA(DUOUT)
- QUIT
- if $DATA(DTOUT)
- QUIT
- +2 NEW PSSFLG
- +3 IF '$GET(^PSDRUG(DISPDRG,"I"))!(+$GET(^("I"))>DT)
- SET PSSFLG=1
- DO ^PSSCLOZ
- +4 IF '$DATA(PSSFLG)
- SET DR="D CHECK^PSSCLDRG;100///@;W !,""Drug is now re-activated"" S Y=""@2"";@1;W !!,""No change"";@2"
- SET DA=DISPDRG
- SET DIE=DIC
- DO ^DIE
- if $GET(Y)=1
- SET DUOUT=1
- +5 IF '$DATA(DUOUT)
- IF ('$DATA(DIRUT))
- IF ('$DATA(DTOUT))
- DO PSIU
- WRITE !,$PIECE(^PSDRUG(DA,0),"^")_" is now marked as a Clozapine drug",!
- SET CLFLAG=1
- SET NFLAG=1
- END KILL X,Y,DIR,DR,DIC,DIE,PSIUA,PSIUX,%,D0,D1,DQ,I,Z,DTOUT,DUOUT,DIROUT,DIROUT
- +1 QUIT
- CHECK NEW DP,DQ
- SET DIR("A")="THIS DRUG IS INACTIVE - DO YOU WISH TO REACTIVATE IT"
- SET DIR("B")="N"
- SET DIR(0)="Y"
- DO ^DIR
- IF "^N"[X
- SET Y="@1"
- QUIT
- +1 SET Y=100
- +2 QUIT
- PSIU ;
- +1 SET PSIUO=$PIECE($GET(^PSDRUG(DA,2)),"^",3)
- SET PSIUY=$SELECT("O"[PSIUO:PSIUO,1:PSIUO_"O")
- SET $PIECE(^PSDRUG(DA,2),"^",3)=PSIUY
- +2 IF $PIECE(^PSDRUG(DA,0),"^")]""
- SET ^PSDRUG("AIUO",$PIECE(^(0),"^"),DA)=""
- +3 if PSIUO]""
- KILL ^PSDRUG("IU",PSIUO,DA)
- if $GET(PSIUY)]""
- SET ^PSDRUG("IU",PSIUY,DA)=""
- +4 KILL PSIUO,PSIUY
- WRITE !
- +5 QUIT
- UNMARK IF $DATA(^PSDRUG("ACLOZ",DISPDRG))
- SET DA=DISPDRG
- +1 IF DA
- SET DIR(0)="Y"
- SET DIR("A",1)=""
- SET DIR("A",2)="Are you sure you want to unmark "_$PIECE(^PSDRUG(DISPDRG,0),"^")
- SET DIR("A")="as a Clozapine drug"
- SET DIR("B")="N"
- DO ^DIR
- +2 IF "Yy"[X
- SET CLFLAG=0
- SET DR="17.5///@"
- SET DIE=DIC
- DO ^DIE
- if CLFLAG=0
- WRITE !!,$PIECE(^PSDRUG(DA,0),"^")_" is now unmarked as a Clozapine drug",!
- DO ASKIT
- +3 WRITE !
- +4 QUIT
- ASKIT KILL DIR
- WRITE !,"Do you wish to mark this drug as a Lab Monitor drug?"
- SET DIR(0)="Y"
- DO ^DIR
- +1 if $DATA(DIRUT)
- QUIT
- if $DATA(DTOUT)
- QUIT
- if $DATA(DUOUT)
- QUIT
- +2 IF "Nn"[X
- SET NFLAG=1
- KILL X,Y,DIR
- QUIT
- +3 IF "Yy"[X
- DO ^PSSLAB
- +4 QUIT