PSDCOSM ;BIR/LTL-Send MM about 0$ in DRUG file (#50), PSDCOST (cont'd) ; 9 Nov 93
;;3.0; CONTROLLED SUBSTANCES ;**17,63**;13 Feb 97;Build 1
K PSD,PSDM,PSDM1,PSDN D KILL^XM
S XMSUB="DRUG file cost missing",XMDUZ=PSDCHO(1)_" messenger" D XMZ^XMA2
I XMZ<1 D KILL^XM Q
S XMY(DUZ)=""
S PSD(1)=$S($P($G(^VA(200,DUZ,.1)),U,4)]"":$P($G(^(.1)),U,4),1:$P($P($G(^VA(200,DUZ,0)),U),",",2))_", when you ran the "_PSDCHO(1)_" on "_PSDT(1)_","
;
;DAVE B (PSD*3*17 29APR99) - more detailed report
S PSD(2)="either the PRICE PER DISPENSE UNIT from the DRUG file (#50), or the quantity"
S PSD(3)="recorded for the transaction, had a value of zero for the drug(s) listed below:"
S PSD(4)=" "
S $P(PSD(5)," ",65)="Price"
S $P(PSD(6)," ",65)="Per"
S $P(PSD(7)," ",52)="Transaction Disp."
S PSD(8)="Drug Name Date/Time Number Unit Qnty"
S $P(PSD(9),"-",79)=""
S PSDM=0,PSDN=10
;
F S PSDM=$O(^TMP("PSDM",$J,PSDM)) Q:PSDM="" D
.S DATE=""
.F S DATE=$O(^TMP("PSDM",$J,PSDM,DATE)) Q:DATE="" D
..S DATA=^TMP("PSDM",$J,PSDM,DATE)
..Q:DATA=""
..S PSDM1=$P($G(^PSDRUG(PSDM,0)),"^"),DATE=$$FMTE^XLFDT(DATE)
..S XX=$E(PSDM1,1,25),XXX=XX F X=$L(XX):1:29 S XXX=XXX_" "
..S XXX=XXX_DATE_$J($P(DATA,"^",1),9)_$J($P(DATA,"^",2),8,2)_$J($P(DATA,"^",3)+0,8)
..S PSD(PSDN)=XXX,PSDN=PSDN+1,PSD(PSDN)=" ",PSDN=PSDN+1
D DONE
Q
;
DONE ;
S XMTEXT="PSD(" D ^XMD,KILL^XM Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDCOSM 1436 printed Dec 13, 2024@01:45:22 Page 2
PSDCOSM ;BIR/LTL-Send MM about 0$ in DRUG file (#50), PSDCOST (cont'd) ; 9 Nov 93
+1 ;;3.0; CONTROLLED SUBSTANCES ;**17,63**;13 Feb 97;Build 1
+2 KILL PSD,PSDM,PSDM1,PSDN
DO KILL^XM
+3 SET XMSUB="DRUG file cost missing"
SET XMDUZ=PSDCHO(1)_" messenger"
DO XMZ^XMA2
+4 IF XMZ<1
DO KILL^XM
QUIT
+5 SET XMY(DUZ)=""
+6 SET PSD(1)=$SELECT($PIECE($GET(^VA(200,DUZ,.1)),U,4)]"":$PIECE($GET(^(.1)),U,4),1:$PIECE($PIECE($GET(^VA(200,DUZ,0)),U),",",2))_", when you ran the "_PSDCHO(1)_" on "_PSDT(1)_","
+7 ;
+8 ;DAVE B (PSD*3*17 29APR99) - more detailed report
+9 SET PSD(2)="either the PRICE PER DISPENSE UNIT from the DRUG file (#50), or the quantity"
+10 SET PSD(3)="recorded for the transaction, had a value of zero for the drug(s) listed below:"
+11 SET PSD(4)=" "
+12 SET $PIECE(PSD(5)," ",65)="Price"
+13 SET $PIECE(PSD(6)," ",65)="Per"
+14 SET $PIECE(PSD(7)," ",52)="Transaction Disp."
+15 SET PSD(8)="Drug Name Date/Time Number Unit Qnty"
+16 SET $PIECE(PSD(9),"-",79)=""
+17 SET PSDM=0
SET PSDN=10
+18 ;
+19 FOR
SET PSDM=$ORDER(^TMP("PSDM",$JOB,PSDM))
if PSDM=""
QUIT
Begin DoDot:1
+20 SET DATE=""
+21 FOR
SET DATE=$ORDER(^TMP("PSDM",$JOB,PSDM,DATE))
if DATE=""
QUIT
Begin DoDot:2
+22 SET DATA=^TMP("PSDM",$JOB,PSDM,DATE)
+23 if DATA=""
QUIT
+24 SET PSDM1=$PIECE($GET(^PSDRUG(PSDM,0)),"^")
SET DATE=$$FMTE^XLFDT(DATE)
+25 SET XX=$EXTRACT(PSDM1,1,25)
SET XXX=XX
FOR X=$LENGTH(XX):1:29
SET XXX=XXX_" "
+26 SET XXX=XXX_DATE_$JUSTIFY($PIECE(DATA,"^",1),9)_$JUSTIFY($PIECE(DATA,"^",2),8,2)_$JUSTIFY($PIECE(DATA,"^",3)+0,8)
+27 SET PSD(PSDN)=XXX
SET PSDN=PSDN+1
SET PSD(PSDN)=" "
SET PSDN=PSDN+1
End DoDot:2
End DoDot:1
+28 DO DONE
+29 QUIT
+30 ;
DONE ;
+1 SET XMTEXT="PSD("
DO ^XMD
DO KILL^XM
QUIT
