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