- PSSCSPD ;BIR/RTR-Corresponding drug functions ;03/28/00
- ;;1.0;PHARMACY DATA MANAGEMENT;**34,47**;9/30/97
- ;
- REP ;
- W !!,"Since this report must check every drug in the DRUG (#50) File, we recommend",!,"that you queue this report to a printer.",!
- K IOP,%ZIS,POP S %ZIS="QM" D ^%ZIS I $G(POP) W !!,"Nothing queued to print.",! Q
- I $D(IO("Q")) S ZTRTN="START^PSSCSPD",ZTDESC="Corresponding drug report" D ^%ZTLOAD K %ZIS W !,"Report queued to print.",! Q
- START ;
- U IO
- K ^TMP($J,"PSSC")
- S (PSSOUT,PSSHV,PSSONE)=0,PSSDV=$S($E(IOST)="C":"C",1:"P"),PSSCT=1
- K PSSLINE S $P(PSSLINE,"-",78)=""
- D HDC
- S PSSN="" F S PSSN=$O(^PSDRUG("B",PSSN)) Q:PSSN=""!($G(PSSOUT)) F PSSIEN=0:0 S PSSIEN=$O(^PSDRUG("B",PSSN,PSSIEN)) Q:'PSSIEN!($G(PSSOUT)) D
- .Q:'$D(^PSDRUG(PSSIEN,0))
- .S PSSINDTE=0 I $P($G(^PSDRUG(PSSIEN,"I")),"^"),$P($G(^("I")),"^")'>DT S PSSINDTE=1
- .S PSSNODE=$G(^PSDRUG(PSSIEN,8))
- .I '$P(PSSNODE,"^",5),'$P(PSSNODE,"^",6) Q
- .I ($Y+5)>IOSL D HDC Q:$G(PSSOUT)
- .S PSSONE=1
- .W !!,$P($G(^PSDRUG(PSSIEN,0)),"^")
- .I ($Y+5)>IOSL D HDC Q:$G(PSSOUT)
- .S PSSUSE=$P($G(^PSDRUG(PSSIEN,2)),"^",3)
- .K PSSI,PSSO,PSSOX,PSSIX
- .I $P(PSSNODE,"^",5) W !?3,"Corresponding Outpatient drug: ",?36,$P($G(^PSDRUG(+$P(PSSNODE,"^",5),0)),"^") D
- ..S PSSOX=+$P(PSSNODE,"^",5) I 'PSSOX!($P($G(^PSDRUG(+$G(PSSOX),0)),"^")="") Q
- ..Q:$P($G(^PSDRUG(PSSOX,8)),"^",6)
- ..Q:$D(^TMP($J,"PSSC",$P($G(^PSDRUG(+$G(PSSOX),0)),"^"),1))
- ..Q:$G(PSSINDTE)
- ..I PSSUSE["I"!(PSSUSE["U") S ^TMP($J,"PSSC",$P($G(^PSDRUG(+$G(PSSOX),0)),"^"),1)=$P($G(^PSDRUG(PSSIEN,0)),"^")
- .I $P(PSSNODE,"^",6) W !?3," Corresponding Inpatient drug: ",?36,$P($G(^PSDRUG(+$P(PSSNODE,"^",6),0)),"^") D
- ..S PSSIX=+$P(PSSNODE,"^",6) I 'PSSIX!($P($G(^PSDRUG(+$G(PSSIX),0)),"^")="") Q
- ..Q:$P($G(^PSDRUG(PSSIX,8)),"^",5)
- ..Q:$D(^TMP($J,"PSSC",$P($G(^PSDRUG(+$G(PSSIX),0)),"^"),2))
- ..Q:$G(PSSINDTE)
- ..I PSSUSE["O" S ^TMP($J,"PSSC",$P($G(^PSDRUG(+$G(PSSIX),0)),"^"),2)=$P($G(^PSDRUG(PSSIEN,0)),"^")
- I '$G(PSSOUT),'$G(PSSONE) W !?5,"No Corresponding Drugs were found.",!
- I $G(PSSOUT) G END
- S PSSHV=1 S:PSSCT=1 PSSCT=2 D HDC I $G(PSSOUT) G END
- I '$D(^TMP($J,"PSSC")) W !!?5,"There are no potential matches!",! G END
- S PSSNM="" F S PSSNM=$O(^TMP($J,"PSSC",PSSNM)) Q:PSSNM=""!($G(PSSOUT)) D
- .I ($Y+5)>IOSL D HDC Q:$G(PSSOUT)
- .W !!,$G(PSSNM)
- .I ($Y+5)>IOSL D HDC Q:$G(PSSOUT)
- .I $D(^TMP($J,"PSSC",PSSNM,2)) W !," ** Potential corr. Outpatient Drug: "_$G(^(2))
- .I $D(^TMP($J,"PSSC",PSSNM,1)) W !," ** Potential corr. Inpatient Drug: "_$G(^(1))
- END ;
- I '$G(PSSOUT),$G(PSSDV)="C" W !!,"End of Report." K DIR S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR K DIR
- I $G(PSSDV)="C" W !
- E W @IOF
- K ^TMP($J,"PSSC")
- K PSSI,PSSINDTE,PSSNM,PSSONE,PSSHV,PSSO,PSSIX,PSSOX,PSSB,PSSUSE,PSSLINE,PSSOUT,PSSNODE,PSSN,PSSIEN D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
- Q
- HDC ;
- I $G(PSSDV)="C",$G(PSSCT)'=1 W ! K DIR S DIR(0)="E",DIR("A")="Press Return to continue, '^' to exit" D ^DIR K DIR I 'Y S PSSOUT=1 Q
- W @IOF W !,$S('$G(PSSHV):"Current Corresponding Inpatient/Outpatient Drug Matches",1:" *** Potential Corresponding Inpatient/Outpatient Drug Matches"),?68,"PAGE: "_$G(PSSCT),!,PSSLINE S PSSCT=PSSCT+1
- Q
- EDIT ;
- W !! K DIC S DIC(0)="QEAMZ",DIC("A")="Select Drug: ",DIC="^PSDRUG(" D ^DIC K DIC I Y<1!($D(DTOUT))!($D(DUOUT)) W ! K PSSA,PSSI,PSSN,DA,DIE,DR Q
- S PSSI=+Y,PSSN=$P($G(^PSDRUG(PSSI,0)),"^"),PSSA=$P($G(^(2)),"^",3)
- W !!,"This entry is marked for the following PHARMACY packages:" W:PSSA["O" !," Outpatient" W:PSSA["U" !," Unit Dose" W:PSSA["I" !," IV" W:PSSA["W" !," Ward Stock" W:PSSA["N" !," Controlled Substances"
- I PSSA["O" I PSSA["I"!(PSSA["U") W ! K DIR S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR K DIR G EDIT
- I PSSA'["O",PSSA'["U",PSSA'["I",PSSA'["W",PSSA'["N" W !," (none)"
- I PSSA'["O" W ! K DIE S DA=PSSI,DIE="^PSDRUG(",DR=62.05 D ^DIE K DIE I $D(Y)!($D(DTOUT)) G EDIT
- I PSSA'["I",PSSA'["U" W ! K DIE S DA=PSSI,DIE="^PSDRUG(",DR=905 D ^DIE K DIE
- G EDIT
- Q
- PAT ;
- W ! K PSSOTH,DIC S DIC(0)="QEAMZ",DIC("A")="Select Pharmacy Orderable Item: ",DIC="^PS(50.7," D ^DIC K DIC I Y<1!($D(DTOUT))!($D(DUOUT)) G PATQ
- S PSSOTH=$S($P($G(^PS(59.7,1,40.2)),"^"):1,1:0)
- K DIE W ! S DA=+Y,DIE="^PS(50.7,",DR="7;S:'$G(PSSOTH) Y=""@1"";7.1;@1"
- D ^DIE G:$D(Y)!($D(DTOUT)) PATQ
- G PAT
- PATQ W ! K DA,DIC,DIE,PSSOTH
- Q
- MARK ;
- W !!,"This option will automatically mark all corresponding Inpatient and Outpatient",!,"drugs that are listed in the 'Potential Corresponding Inpatient/Outpatient Drug",!,"Matches' section of the 'Report of Corresponding Drugs'.",!
- W !,"Before using this option, please make sure you print a current 'Report of",!,"Corresponding Drugs' for review.",!
- K DIR S DIR(0)="Y",DIR("A")="Mark potential corresponding drugs",DIR("B")="Y" D D ^DIR K DIR I Y'=1 G MARKQ
- .S DIR("?")=" ",DIR("?",1)="Enter 'Yes' to mark corresponding inpatient and outpatient drugs as displayed",DIR("?",2)="in the 'Potential Corresponding Inpatient/Outpatient Drug Matches' section of"
- .S DIR("?",3)="the 'Report of Corresponding Drugs'."
- W !!,"This job must be queued. You will receive a mail message upon completion.",!
- S PSSDUZX=$G(DUZ)
- K ZTDTH S ZTIO="",ZTRTN="MARKT^PSSCSPD",ZTDESC="AUTO-MARK CORRESPONDING DRUGS",ZTSAVE("PSSDUZX")="" D ^%ZTLOAD I $D(ZTSK)[0 W !!,"Nothing queued.",!
- MARKQ K PSSDUZX
- Q
- MARKT ;
- N PSSN,PSSIEN,PSSINDTE,PSSNODE
- S PSSN="" F S PSSN=$O(^PSDRUG("B",PSSN)) Q:PSSN="" F PSSIEN=0:0 S PSSIEN=$O(^PSDRUG("B",PSSN,PSSIEN)) Q:'PSSIEN D
- .Q:'$D(^PSDRUG(PSSIEN,0))
- .I $P($G(^PSDRUG(PSSIEN,"I")),"^"),$P($G(^("I")),"^")'>DT Q
- .S PSSNODE=$G(^PSDRUG(PSSIEN,8))
- .I '$P(PSSNODE,"^",5),'$P(PSSNODE,"^",6) Q
- .S PSSUSE=$P($G(^PSDRUG(PSSIEN,2)),"^",3)
- .K PSSI,PSSO,PSSOX,PSSIX
- .I $P(PSSNODE,"^",5) D
- ..S PSSOX=+$P(PSSNODE,"^",5) I 'PSSOX!($P($G(^PSDRUG(+$G(PSSOX),0)),"^")="") Q
- ..Q:$P($G(^PSDRUG(PSSOX,8)),"^",6)
- ..I PSSUSE["I"!(PSSUSE["U") S $P(^PSDRUG(PSSOX,8),"^",6)=PSSIEN
- .I $P(PSSNODE,"^",6) D
- ..S PSSIX=+$P(PSSNODE,"^",6) I 'PSSIX!($P($G(^PSDRUG(+$G(PSSIX),0)),"^")="") Q
- ..Q:$P($G(^PSDRUG(PSSIX,8)),"^",5)
- ..I PSSUSE["O" S $P(^PSDRUG(PSSIX,8),"^",5)=PSSIEN
- I '$G(PSSDUZX) G MMM
- S XMDUZ="PHARMACY DATA MANAGEMENT",XMY(PSSDUZX)="",XMSUB="PDM CORRESPONDING DRUGS"
- K PSSXTEXT S PSSXTEXT(1)="The PDM job that automatically marks corresponding inpatient and",PSSXTEXT(2)="outpatient drugs is complete."
- S XMTEXT="PSSXTEXT(" D ^XMD K PSSXTEXT,XMDUZ,XMY,XMSUB,XMTEXT
- MMM K PSSI,PSSO,PSSOX,PSSIX
- S:$D(ZTQUEUED) ZTREQ="@"
- Q
- PSSCSPD ;BIR/RTR-Corresponding drug functions ;03/28/00
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**34,47**;9/30/97
- +2 ;
- REP ;
- +1 WRITE !!,"Since this report must check every drug in the DRUG (#50) File, we recommend",!,"that you queue this report to a printer.",!
- +2 KILL IOP,%ZIS,POP
- SET %ZIS="QM"
- DO ^%ZIS
- IF $GET(POP)
- WRITE !!,"Nothing queued to print.",!
- QUIT
- +3 IF $DATA(IO("Q"))
- SET ZTRTN="START^PSSCSPD"
- SET ZTDESC="Corresponding drug report"
- DO ^%ZTLOAD
- KILL %ZIS
- WRITE !,"Report queued to print.",!
- QUIT
- START ;
- +1 USE IO
- +2 KILL ^TMP($JOB,"PSSC")
- +3 SET (PSSOUT,PSSHV,PSSONE)=0
- SET PSSDV=$SELECT($EXTRACT(IOST)="C":"C",1:"P")
- SET PSSCT=1
- +4 KILL PSSLINE
- SET $PIECE(PSSLINE,"-",78)=""
- +5 DO HDC
- +6 SET PSSN=""
- FOR
- SET PSSN=$ORDER(^PSDRUG("B",PSSN))
- IF PSSN=""!($GET(PSSOUT))
- QUIT
- FOR PSSIEN=0:0
- SET PSSIEN=$ORDER(^PSDRUG("B",PSSN,PSSIEN))
- IF 'PSSIEN!($GET(PSSOUT))
- QUIT
- Begin DoDot:1
- +7 IF '$DATA(^PSDRUG(PSSIEN,0))
- QUIT
- +8 SET PSSINDTE=0
- IF $PIECE($GET(^PSDRUG(PSSIEN,"I")),"^")
- IF $PIECE($GET(^("I")),"^")'>DT
- SET PSSINDTE=1
- +9 SET PSSNODE=$GET(^PSDRUG(PSSIEN,8))
- +10 IF '$PIECE(PSSNODE,"^",5)
- IF '$PIECE(PSSNODE,"^",6)
- QUIT
- +11 IF ($Y+5)>IOSL
- DO HDC
- IF $GET(PSSOUT)
- QUIT
- +12 SET PSSONE=1
- +13 WRITE !!,$PIECE($GET(^PSDRUG(PSSIEN,0)),"^")
- +14 IF ($Y+5)>IOSL
- DO HDC
- IF $GET(PSSOUT)
- QUIT
- +15 SET PSSUSE=$PIECE($GET(^PSDRUG(PSSIEN,2)),"^",3)
- +16 KILL PSSI,PSSO,PSSOX,PSSIX
- +17 IF $PIECE(PSSNODE,"^",5)
- WRITE !?3,"Corresponding Outpatient drug: ",?36,$PIECE($GET(^PSDRUG(+$PIECE(PSSNODE,"^",5),0)),"^")
- Begin DoDot:2
- +18 SET PSSOX=+$PIECE(PSSNODE,"^",5)
- IF 'PSSOX!($PIECE($GET(^PSDRUG(+$GET(PSSOX),0)),"^")="")
- QUIT
- +19 IF $PIECE($GET(^PSDRUG(PSSOX,8)),"^",6)
- QUIT
- +20 IF $DATA(^TMP($JOB,"PSSC",$PIECE($GET(^PSDRUG(+$GET(PSSOX),0)),"^"),1))
- QUIT
- +21 IF $GET(PSSINDTE)
- QUIT
- +22 IF PSSUSE["I"!(PSSUSE["U")
- SET ^TMP($JOB,"PSSC",$PIECE($GET(^PSDRUG(+$GET(PSSOX),0)),"^"),1)=$PIECE($GET(^PSDRUG(PSSIEN,0)),"^")
- End DoDot:2
- +23 IF $PIECE(PSSNODE,"^",6)
- WRITE !?3," Corresponding Inpatient drug: ",?36,$PIECE($GET(^PSDRUG(+$PIECE(PSSNODE,"^",6),0)),"^")
- Begin DoDot:2
- +24 SET PSSIX=+$PIECE(PSSNODE,"^",6)
- IF 'PSSIX!($PIECE($GET(^PSDRUG(+$GET(PSSIX),0)),"^")="")
- QUIT
- +25 IF $PIECE($GET(^PSDRUG(PSSIX,8)),"^",5)
- QUIT
- +26 IF $DATA(^TMP($JOB,"PSSC",$PIECE($GET(^PSDRUG(+$GET(PSSIX),0)),"^"),2))
- QUIT
- +27 IF $GET(PSSINDTE)
- QUIT
- +28 IF PSSUSE["O"
- SET ^TMP($JOB,"PSSC",$PIECE($GET(^PSDRUG(+$GET(PSSIX),0)),"^"),2)=$PIECE($GET(^PSDRUG(PSSIEN,0)),"^")
- End DoDot:2
- End DoDot:1
- +29 IF '$GET(PSSOUT)
- IF '$GET(PSSONE)
- WRITE !?5,"No Corresponding Drugs were found.",!
- +30 IF $GET(PSSOUT)
- GOTO END
- +31 SET PSSHV=1
- IF PSSCT=1
- SET PSSCT=2
- DO HDC
- IF $GET(PSSOUT)
- GOTO END
- +32 IF '$DATA(^TMP($JOB,"PSSC"))
- WRITE !!?5,"There are no potential matches!",!
- GOTO END
- +33 SET PSSNM=""
- FOR
- SET PSSNM=$ORDER(^TMP($JOB,"PSSC",PSSNM))
- IF PSSNM=""!($GET(PSSOUT))
- QUIT
- Begin DoDot:1
- +34 IF ($Y+5)>IOSL
- DO HDC
- IF $GET(PSSOUT)
- QUIT
- +35 WRITE !!,$GET(PSSNM)
- +36 IF ($Y+5)>IOSL
- DO HDC
- IF $GET(PSSOUT)
- QUIT
- +37 IF $DATA(^TMP($JOB,"PSSC",PSSNM,2))
- WRITE !," ** Potential corr. Outpatient Drug: "_$GET(^(2))
- +38 IF $DATA(^TMP($JOB,"PSSC",PSSNM,1))
- WRITE !," ** Potential corr. Inpatient Drug: "_$GET(^(1))
- End DoDot:1
- END ;
- +1 IF '$GET(PSSOUT)
- IF $GET(PSSDV)="C"
- WRITE !!,"End of Report."
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Press Return to continue"
- DO ^DIR
- KILL DIR
- +2 IF $GET(PSSDV)="C"
- WRITE !
- +3 IF '$TEST
- WRITE @IOF
- +4 KILL ^TMP($JOB,"PSSC")
- +5 KILL PSSI,PSSINDTE,PSSNM,PSSONE,PSSHV,PSSO,PSSIX,PSSOX,PSSB,PSSUSE,PSSLINE,PSSOUT,PSSNODE,PSSN,PSSIEN
- DO ^%ZISC
- IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +6 QUIT
- HDC ;
- +1 IF $GET(PSSDV)="C"
- IF $GET(PSSCT)'=1
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Press Return to continue, '^' to exit"
- DO ^DIR
- KILL DIR
- IF 'Y
- SET PSSOUT=1
- QUIT
- +2 WRITE @IOF
- WRITE !,$SELECT('$GET(PSSHV):"Current Corresponding Inpatient/Outpatient Drug Matches",1:" *** Potential Corresponding Inpatient/Outpatient Drug Matches"),?68,"PAGE: "_$GET(PSSCT),!,PSSLINE
- SET PSSCT=PSSCT+1
- +3 QUIT
- EDIT ;
- +1 WRITE !!
- KILL DIC
- SET DIC(0)="QEAMZ"
- SET DIC("A")="Select Drug: "
- SET DIC="^PSDRUG("
- DO ^DIC
- KILL DIC
- IF Y<1!($DATA(DTOUT))!($DATA(DUOUT))
- WRITE !
- KILL PSSA,PSSI,PSSN,DA,DIE,DR
- QUIT
- +2 SET PSSI=+Y
- SET PSSN=$PIECE($GET(^PSDRUG(PSSI,0)),"^")
- SET PSSA=$PIECE($GET(^(2)),"^",3)
- +3 WRITE !!,"This entry is marked for the following PHARMACY packages:"
- IF PSSA["O"
- WRITE !," Outpatient"
- IF PSSA["U"
- WRITE !," Unit Dose"
- IF PSSA["I"
- WRITE !," IV"
- IF PSSA["W"
- WRITE !," Ward Stock"
- IF PSSA["N"
- WRITE !," Controlled Substances"
- +4 IF PSSA["O"
- IF PSSA["I"!(PSSA["U")
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Press Return to continue"
- DO ^DIR
- KILL DIR
- GOTO EDIT
- +5 IF PSSA'["O"
- IF PSSA'["U"
- IF PSSA'["I"
- IF PSSA'["W"
- IF PSSA'["N"
- WRITE !," (none)"
- +6 IF PSSA'["O"
- WRITE !
- KILL DIE
- SET DA=PSSI
- SET DIE="^PSDRUG("
- SET DR=62.05
- DO ^DIE
- KILL DIE
- IF $DATA(Y)!($DATA(DTOUT))
- GOTO EDIT
- +7 IF PSSA'["I"
- IF PSSA'["U"
- WRITE !
- KILL DIE
- SET DA=PSSI
- SET DIE="^PSDRUG("
- SET DR=905
- DO ^DIE
- KILL DIE
- +8 GOTO EDIT
- +9 QUIT
- PAT ;
- +1 WRITE !
- KILL PSSOTH,DIC
- SET DIC(0)="QEAMZ"
- SET DIC("A")="Select Pharmacy Orderable Item: "
- SET DIC="^PS(50.7,"
- DO ^DIC
- KILL DIC
- IF Y<1!($DATA(DTOUT))!($DATA(DUOUT))
- GOTO PATQ
- +2 SET PSSOTH=$SELECT($PIECE($GET(^PS(59.7,1,40.2)),"^"):1,1:0)
- +3 KILL DIE
- WRITE !
- SET DA=+Y
- SET DIE="^PS(50.7,"
- SET DR="7;S:'$G(PSSOTH) Y=""@1"";7.1;@1"
- +4 DO ^DIE
- IF $DATA(Y)!($DATA(DTOUT))
- GOTO PATQ
- +5 GOTO PAT
- PATQ WRITE !
- KILL DA,DIC,DIE,PSSOTH
- +1 QUIT
- MARK ;
- +1 WRITE !!,"This option will automatically mark all corresponding Inpatient and Outpatient",!,"drugs that are listed in the 'Potential Corresponding Inpatient/Outpatient Drug",!,"Matches' section of the 'Report of Corresponding Drugs'.",!
- +2 WRITE !,"Before using this option, please make sure you print a current 'Report of",!,"Corresponding Drugs' for review.",!
- +3 KILL DIR
- SET DIR(0)="Y"
- SET DIR("A")="Mark potential corresponding drugs"
- SET DIR("B")="Y"
- Begin DoDot:1
- +4 SET DIR("?")=" "
- SET DIR("?",1)="Enter 'Yes' to mark corresponding inpatient and outpatient drugs as displayed"
- SET DIR("?",2)="in the 'Potential Corresponding Inpatient/Outpatient Drug Matches' section of"
- +5 SET DIR("?",3)="the 'Report of Corresponding Drugs'."
- End DoDot:1
- DO ^DIR
- KILL DIR
- IF Y'=1
- GOTO MARKQ
- +6 WRITE !!,"This job must be queued. You will receive a mail message upon completion.",!
- +7 SET PSSDUZX=$GET(DUZ)
- +8 KILL ZTDTH
- SET ZTIO=""
- SET ZTRTN="MARKT^PSSCSPD"
- SET ZTDESC="AUTO-MARK CORRESPONDING DRUGS"
- SET ZTSAVE("PSSDUZX")=""
- DO ^%ZTLOAD
- IF $DATA(ZTSK)[0
- WRITE !!,"Nothing queued.",!
- MARKQ KILL PSSDUZX
- +1 QUIT
- MARKT ;
- +1 NEW PSSN,PSSIEN,PSSINDTE,PSSNODE
- +2 SET PSSN=""
- FOR
- SET PSSN=$ORDER(^PSDRUG("B",PSSN))
- IF PSSN=""
- QUIT
- FOR PSSIEN=0:0
- SET PSSIEN=$ORDER(^PSDRUG("B",PSSN,PSSIEN))
- IF 'PSSIEN
- QUIT
- Begin DoDot:1
- +3 IF '$DATA(^PSDRUG(PSSIEN,0))
- QUIT
- +4 IF $PIECE($GET(^PSDRUG(PSSIEN,"I")),"^")
- IF $PIECE($GET(^("I")),"^")'>DT
- QUIT
- +5 SET PSSNODE=$GET(^PSDRUG(PSSIEN,8))
- +6 IF '$PIECE(PSSNODE,"^",5)
- IF '$PIECE(PSSNODE,"^",6)
- QUIT
- +7 SET PSSUSE=$PIECE($GET(^PSDRUG(PSSIEN,2)),"^",3)
- +8 KILL PSSI,PSSO,PSSOX,PSSIX
- +9 IF $PIECE(PSSNODE,"^",5)
- Begin DoDot:2
- +10 SET PSSOX=+$PIECE(PSSNODE,"^",5)
- IF 'PSSOX!($PIECE($GET(^PSDRUG(+$GET(PSSOX),0)),"^")="")
- QUIT
- +11 IF $PIECE($GET(^PSDRUG(PSSOX,8)),"^",6)
- QUIT
- +12 IF PSSUSE["I"!(PSSUSE["U")
- SET $PIECE(^PSDRUG(PSSOX,8),"^",6)=PSSIEN
- End DoDot:2
- +13 IF $PIECE(PSSNODE,"^",6)
- Begin DoDot:2
- +14 SET PSSIX=+$PIECE(PSSNODE,"^",6)
- IF 'PSSIX!($PIECE($GET(^PSDRUG(+$GET(PSSIX),0)),"^")="")
- QUIT
- +15 IF $PIECE($GET(^PSDRUG(PSSIX,8)),"^",5)
- QUIT
- +16 IF PSSUSE["O"
- SET $PIECE(^PSDRUG(PSSIX,8),"^",5)=PSSIEN
- End DoDot:2
- End DoDot:1
- +17 IF '$GET(PSSDUZX)
- GOTO MMM
- +18 SET XMDUZ="PHARMACY DATA MANAGEMENT"
- SET XMY(PSSDUZX)=""
- SET XMSUB="PDM CORRESPONDING DRUGS"
- +19 KILL PSSXTEXT
- SET PSSXTEXT(1)="The PDM job that automatically marks corresponding inpatient and"
- SET PSSXTEXT(2)="outpatient drugs is complete."
- +20 SET XMTEXT="PSSXTEXT("
- DO ^XMD
- KILL PSSXTEXT,XMDUZ,XMY,XMSUB,XMTEXT
- MMM KILL PSSI,PSSO,PSSOX,PSSIX
- +1 IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 QUIT
