PSOORNE3.m

PSOORNE3 ;ISC-BHAM/SAB - display pending orders from backdoor ;15-Jul-2013 10:29;DU

 ;;7.0;OUTPATIENT PHARMACY;**11,9,39,59,46,103,124,139,152,1005,1006,1008,1013,194,1015,1017**;DEC 1997;Build 40

 ;Ext ref to ^SC (File #44) (DBIA 10040),^PSXOPUTL (DBIA 2200)

 ;^PS(50.606 (DBIA 2174),^PS(50.7 DBIA 2223),^PS(55,DBIA 2228)

 ;^PSDRUG (DBIA 221)

 ; Modified - IHS/CIA/PLS 01/27/04 - Added display of IHS Fields DSP+14 and PSOORNE3+44

 ;            IHS/MSC/PLS - 03/13/08 - Added line PSOORNE3+53 and DSP+24

 ;                          01/23/09 - Added line PSOORNE3+54 and DSP+25

 ;                          02/13/12 - Line PST+6

 ;                          06/04/13 - Added Discharge Medication

 K ^TMP("PSOPO",$J) S ORD=$P(PSOLST(ORN),"^",2) D ORD^PSOORFIN Q

 S PSODRUG("OI")=$P(OR0,"^",8),PSODRUG("OIN")=$P(^PS(50.7,$P(OR0,"^",8),0),"^")

 I $P($G(OR0),"^",9) S DREN=$P(OR0,"^",9) S POERR=1 D DRG^PSOORDRG K POERR ;D POST^PSODRG

 I '$P(OR0,"^",9) D DREN^PSOORNW2

 S PSONEW("# OF REFILLS")=$P(OR0,"^",11)

 S (Y,PSONEW("ISSUE DATE"))=$S($G(PSONEW("ISSUE DATE")):PSONEW("ISSUE DATE"),1:$E($P(OR0,"^",6),1,7)) X ^DD("DD")

 S PSONEW("CLERK CODE")=$P(OR0,"^",4),PSORX("CLERK CODE")=$P(^VA(200,$P(OR0,"^",4),0),"^")

 S (PSONEW("DFLG"),PSONEW("QFLG"))=0,PSODFN=$P(OR0,"^",2),PSONEW("QTY")=$P(OR0,"^",10),PSONEW("MAIL/WINDOW")=$S($P(OR0,"^",17)]"":$P(OR0,"^",17),1:"W")

 S:$G(PSONEW("CLINIC"))']"" PSONEW("CLINIC")=$P(OR0,"^",13)

 S:$G(PSORX("CLINIC"))']"" PSORX("CLINIC")=$S($D(^SC(+$P(OR0,"^",13),0)):$P(^SC($P(OR0,"^",13),0),"^"),1:"")

 S PSONEW("CLERK CODE")=$P(OR0,"^",4),PSONEW("PROVIDER")=$P(OR0,"^",5),PSONEW("PROVIDER NAME")=$P(^VA(200,$P(OR0,"^",5),0),"^")

 S PSONEW("PATIENT STATUS")=$S(+$G(^PS(55,PSODFN,"PS")):+$G(^PS(55,PSODFN,"PS")),1:"")

 S PSONEW("DAYS SUPPLY")=$S(+$G(^PS(55,PSODFN,"PS"))&($P(^PS(53,+$G(^PS(55,PSODFN,"PS")),0),"^",3)):$P(^PS(53,+$G(^PS(55,PSODFN,"PS")),0),"^",3),1:30)

 S IEN=0 D OBX^PSOORFI1,DIN^PSONFI(PSODRUG("OI"),$S($G(PSODRUG("IEN")):PSODRUG("IEN"),1:"")) ;Setup for N/F & DIN indicator

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="* (1) Orderable Item: "_$P(^PS(50.7,PSODRUG("OI"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")_NFIO

 S:NFIO["DIN" NFIO=IEN_","_($L(^TMP("PSOPO",$J,IEN,0))-4)

 K LST S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (2)           Drug: "_$S($G(PSODRUG("NAME"))]"":PSODRUG("NAME")_NFID,1:"No Dispense Drug Selected")

 S:NFID["DIN" NFID=IEN_","_($L(^TMP("PSOPO",$J,IEN,0))-4)

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (3) Patient Status: "_$P($G(^PS(53,PSONEW("PATIENT STATUS"),0)),"^")

 S IEN=IEN+1,(PSOID,Y)=$E($P(OR0,"^",6),1,7) X ^DD("DD") S ^TMP("PSOPO",$J,IEN,0)="   (4)     Issue Date: "_Y

 S (Y,PSONEW("FILL DATE"))=$E($P(OR0,"^",6),1,7) X ^DD("DD") S PSONEW("FILL DATE")=Y,^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"                       (5) Fill Date: "_Y

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="       Instructions:" S TY=3 D INST^PSOORFI1

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (6)   Possible SIG: " D:$G(PSONEW("SIG"))']"" SIG^PSOORFI1 S:$G(PSONEW("SIG"))]"" IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=$G(PSONEW("SIG")),IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=PSOERR("SIG")

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (7)    Days Supply: "_$S($G(PSONEW("DAYS SUPPLY")):PSONEW("DAYS SUPPLY"),+$G(^PS(55,PSODFN,"PS"))&($P(^PS(53,+$G(^PS(55,PSODFN,"PS")),0),"^",3)):$P(^PS(53,+$G(^PS(55,PSODFN,"PS")),0),"^",3),1:"")

 S ^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"                                 (8)     QTY: "_$P(OR0,"^",10)

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (9)   # of Refills: "_$P(OR0,"^",11)_$E("  ",$L($P(OR0,"^",11))+1,2)_"                                (10) Routing: "_$S($G(PSONEW("MAIL/WINDOW"))="M":"MAIL",1:"WINDOW")

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" (11)         Clinic: "_PSORX("CLINIC")

 S $P(RN," ",32)=" ",IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" (12)       Provider: "_PSONEW("PROVIDER NAME")_$E(RN,$L(PSONEW("PROVIDER NAME"))+1,32)_"  (13)  Copies: "_$S($G(PSONEW("COPIES")):PSONEW("COPIES"),1:1) K RN

 I $P(^VA(200,$S($G(PSONEW("PROVIDER")):PSONEW("PROVIDER"),1:$P(OR0,"^",5)),"PS"),"^",7)&($P(^("PS"),"^",8)) S IEN=IEN+1,PSONEW("COSIGNING PROVIDER")=$P(^("PS"),"^",8) D

 .S ^TMP("PSOPO",$J,IEN,0)="        Cos-Provider: "_$P(^VA(200,+$G(PSONEW("COSIGNING PROVIDER")),0),"^")

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  Provider Comments:" S TY=2 D INST^PSOORFI1

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" (14)        Remarks: "

 I $G(PSONEW("REMARKS"))]"" D

 .F SG=1:1:$L(PSONEW("REMARKS")) S:$L(^TMP("PSOPO",$J,IEN,0)_" "_$P(PSONEW("REMARKS")," ",SG))>80 IEN=IEN+1,$P(^TMP("PSOPO",$J,IEN,0)," ",20)=" " D

 ..S:$P(PSONEW("REMARKS")," ",SG)'="" ^TMP("PSOPO",$J,IEN,0)=$G(^TMP("PSOPO",$J,IEN,0))_" "_$P(PSONEW("REMARKS")," ",SG)

 ; IHS/CIA/PLS - 01/26/04 - Add IHS Fields to display

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="Enter a zero (0) to edit IHS specific fields."

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="                  NDC: "_$$GET1^DIQ(52,RXN,27)

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="                  AWP: "_$$GET1^DIQ(52,RXN,9999999.06)_"       Unit Cost: "_$$GET1^DIQ(52,RXN,17)   ; IHS/CIA/PLS - 01/15/04

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="         Triplicate #: "_$$GET1^DIQ(52,RXN,9999999.14)   ; IHS/CIA/PLS - 01/15/04

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="          Bill Status: "_$$EXTERNAL^DILFD(52,9999999.07,,$S($G(PSONEW("BST")):$G(PSONEW("BST")),1:$G(PSORX("BST"))))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="         Manufacturer: "_$G(PSONEW("MANUFACTURER"))_"   Lot #: "_$G(PSONEW("LOT #"))_"  ExpDate: "_$$FMTE^XLFDT($G(PSONEW("EXPIRATION DATE")))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="          Chronic Med: "_$S($D(PSONEW("CM")):$G(PSONEW("CM")),$G(RXN):$$GET1^DIQ(52,RXN,9999999.02),1:$G(PSORX("CM")))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="         Substitution: "_$$EXTERNAL^DILFD(52,9999999.25,,$G(PSONEW("DAW")))  ;IHS/MSC/PLS - 03/13/08

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" Discharge Medication: "_$$EXTERNAL^DILFD(52,9999999.28,,$G(PSONEW("DSCMED")))    ; IHS/MSC/PLS - 06/04/13

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="             Cash Due: "_$$EXTERNAL^DILFD(52,9999999.26,,$G(PSONEW("CASH DUE")))  ; IHS/MSC/PLS - 01/23/09

 ;S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="              Insurer: "_$G(PSONEW("INSURER"))

 ; End IHS Fields

 S $P(RN," ",35)=" ",IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="   Entry By: "_$P(^VA(200,$P(OR0,"^",4),0),"^")_$E(RN,$L($P(^VA(200,$P(OR0,"^",4),0),"^"))+1,35)

 S Y=$P(OR0,"^",12) X ^DD("DD") S ^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"Entry Date: "_$E($P(OR0,"^",12),4,5)_"/"_$E($P(OR0,"^",12),6,7)_"/"_$E($P(OR0,"^",12),2,3)_" "_$P(Y,"@",2) K RN

 G ^PSOLMPO

 Q

DSPL ;backdoor

 K ^TMP("PSOPO",$J) D DIN^PSONFI(PSODRUG("OI"),$S($G(PSODRUG("IEN")):PSODRUG("IEN"),1:"")) ;NFI

 I $D(RX0),$D(PSODRUG("IEN")) D

 .I PSODRUG("IEN")=$P(RX0,"^",6)!($P(PSLST,",",2)) D RST

 S IEN=0,IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="      Orderable Item: "_$P(^PS(50.7,PSODRUG("OI"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")_NFIO

 S:NFIO["DIN" NFIO=IEN_","_($L(^TMP("PSOPO",$J,IEN,0))-4)

 I $G(PSODRUG("NAME"))]"" D  G PST

 .S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (1)"_$S($D(^PSDRUG("AQ",PSODRUG("IEN"))):"      CMOP ",1:"           ")_"Drug: "_PSODRUG("NAME")_NFID

 .S:NFID["DIN" NFID=IEN_","_($L(^TMP("PSOPO",$J,IEN,0))-4)

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (1)           Drug: No Dispense Drug Selected"

PST S:$G(PSODRUG("TRADE NAME"))]"" IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="          Trade Name: "_$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:"")

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (2) Patient Status: "_$P($G(^PS(53,PSONEW("PATIENT STATUS"),0)),"^")

 I $G(PSOID) S Y=PSOID X ^DD("DD") S PSONEW("ISSUE DATE")=Y

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (3)     Issue Date: "_PSONEW("ISSUE DATE")

 S X2=PSONEW("DAYS SUPPLY")*(PSONEW("# OF REFILLS")+1)\1

 S X1=$S($G(PSOID):PSOID,1:DT)

 ;IHS/MSC/PLS - 02/13/2012

 ;S X2=$S(PSONEW("DAYS SUPPLY")=X2:X2,+$G(PSOX("CS")):184,1:366)

 ;I X2<30 D

 ;. N % S %=$P($G(PSORX("PATIENT STATUS")),"^"),X2=30

 ;. S:%?.N %=$P($G(^PS(53,+%,0)),"^") I %["AUTH ABS" S X2=5

 S X2=$S(+$G(PSOX("CS")):184,1:366)

 D C^%DTC I PSONEW("FILL DATE")>X S PSONEW("FILL DATE")=PSONEW("ISSUE DATE")

 S Y=PSONEW("FILL DATE") X ^DD("DD") S ^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"             (4) Fill Date: "_Y

 D DOSE^PSOBKDED

 I $G(PSORXED("IRXN")),'$G(PSOSIGFL) S RXN=PSORXED("IRXN") D:'$G(COPY) INST1^PSOORNE5 K RXN

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="                 SIG:"

 I $G(SIGOK),$O(SIG(0)) D SIG G DSP

 I $D(PSOCOPY),$G(PSONEW("SIG"))']"" D SIG G DSP

 I $G(PSOSIGFL),$G(PSONEW("SIG"))']"" D SIG G DSP

 D:$G(PSONEW("SIG"))]""

 .S X=PSONEW("SIG") D SIGONE^PSOHELP S SIG=$E($G(INS1),2,250)

 .F SG=1:1:$L(SIG) S:$L(^TMP("PSOPO",$J,IEN,0)_" "_$P(SIG," ",SG))>80 IEN=IEN+1,$P(^TMP("PSOPO",$J,IEN,0)," ",21)=" " S:$P(SIG," ",SG)'="" ^TMP("PSOPO",$J,IEN,0)=$G(^TMP("PSOPO",$J,IEN,0))_" "_$P(SIG," ",SG)

DSP S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (7)    Days Supply: "_PSONEW("DAYS SUPPLY")_$S($L(PSONEW("DAYS SUPPLY"))=1:" ",1:"")

 I '$D(PSONEW("FLD")),$D(RX0) S PSONEW("QTY")=$P(RX0,"^",7)

 ;if sched PSONEW("FLD") not def. qty reset

 ;if qty PSONEW("FLD")=7, qty NOT reset

 S ^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"                     (8)   QTY"_$S($G(PSODRUG("UNIT"))]"":" ("_PSODRUG("UNIT")_")",1:" ( )")_": "_PSONEW("QTY")

 I $P($G(^PSDRUG(+$G(PSODRUG("IEN")),5)),"^")]"" D

 .S $P(RN," ",79)=" ",IEN=IEN+1

 .S ^TMP("PSOPO",$J,IEN,0)=$E(RN,$L("QTY DSP MSG: "_$P(^PSDRUG(PSODRUG("IEN"),5),"^"))+1,79)_"QTY DSP MSG: "_$P(^PSDRUG(PSODRUG("IEN"),5),"^") K RN

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  (9)   # of Refills: "_PSONEW("# OF REFILLS")_$S($L(PSONEW("# OF REFILLS"))=1:" ",1:"")_"                     (10)  Routing: "_$S($G(PSONEW("MAIL/WINDOW"))="M":"MAIL",1:"WINDOW")

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" (11)         Clinic: "_$S($G(PSONEW("CLINIC")):$P(^SC(PSONEW("CLINIC"),0),"^"),1:"")

 S $P(RN," ",31)=" ",IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" (12)       Provider: "_PSONEW("PROVIDER NAME")_$E(RN,$L(PSONEW("PROVIDER NAME"))+1,31)_"(13)   Copies: "_$S($G(PSONEW("COPIES")):PSONEW("COPIES"),1:1) K RN

 I $G(PSONEW("COSIGNING PROVIDER"))]"" S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="        Cos-Provider: "_$P(^VA(200,PSONEW("COSIGNING PROVIDER"),0),"^")

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" (14)        Remarks:"

 I $G(PSONEW("REMARKS"))]"" D

 .F SG=1:1:$L(PSONEW("REMARKS")) S:$L(^TMP("PSOPO",$J,IEN,0)_" "_$P(PSONEW("REMARKS")," ",SG))>80 IEN=IEN+1,$P(^TMP("PSOPO",$J,IEN,0)," ",21)=" " D

 ..S:$P(PSONEW("REMARKS")," ",SG)'="" ^TMP("PSOPO",$J,IEN,0)=$G(^TMP("PSOPO",$J,IEN,0))_" "_$P(PSONEW("REMARKS")," ",SG)

 I $G(PSORXED("IRXN")),'$G(PSOSIGFL) S RXN=PSORXED("IRXN") D:'$G(COPY) PC1^PSOORNE5 K RXN

 ; IHS/CIA/PLS - 01/26/04 - Add IHS Fields to display

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="Enter a zero (0) to edit IHS specific fields."

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="                  NDC: "_$S($D(PSONEW("NDC")):$G(PSONEW("NDC")),$G(PSORXED("IRXN")):$$GET1^DIQ(52,PSORXED("IRXN"),27),$D(PSODRUG("NDC")):$G(PSODRUG("NDC")),1:"")

 S IEN=IEN+1 D

 .S ^TMP("PSOPO",$J,IEN,0)="                  AWP: "_$S($D(PSONEW("AWP")):$G(PSONEW("AWP")),$G(PSORXED("IRXN")):$$GET1^DIQ(52,PSORXED("IRXN"),9999999.06),1:"")

 .S ^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"       Unit Cost: "_$S($D(PSONEW("COST")):$G(PSONEW("COST")),$G(PSORXED("IRXN")):$$GET1^DIQ(52,PSORXED("IRXN"),17),1:"")   ; IHS/CIA/PLS - 01/15/04

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="         Triplicate #: "_$S($D(PSONEW("TRIP")):$G(PSONEW("TRIP")),$G(PSORXED("IRXN")):$$GET1^DIQ(52,PSORXED("IRXN"),9999999.14),1:"")   ; IHS/CIA/PLS - 01/15/04,10/10/07

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="          Bill Status: "_$$EXTERNAL^DILFD(52,9999999.07,,$S($D(PSORX("BST")):$G(PSORX("BST")),$D(PSONEW("BST")):$G(PSONEW("BST")),1:""))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="         Manufacturer: "_$G(PSONEW("MANUFACTURER"))_"   Lot #: "_$G(PSONEW("LOT #"))_"  ExpDate: "_$$FMTE^XLFDT($G(PSONEW("EXPIRATION DATE")))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="          Chronic Med: "_$$EXTERNAL^DILFD(52,9999999.02,,$S($D(PSONEW("CM")):$G(PSONEW("CM")),1:$G(PSORX("CM"))))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="         Substitution: "_$$EXTERNAL^DILFD(52,9999999.25,,$G(PSONEW("DAW")))  ;IHS/MSC/PLS - 03/13/08

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)=" Discharge Medication: "_$$EXTERNAL^DILFD(52,9999999.28,,$G(PSONEW("DSCMED")))    ; IHS/MSC/PLS - 07/15/13

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="             Cash Due: "_$$EXTERNAL^DILFD(52,9999999.26,,$G(PSONEW("CASH DUE")))  ; IHS/,SC/PLS - 01/23/09

 ;S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="             Insurer: "_$G(PSONEW("INSURER"))

 S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="  "

 ; End IHS Fields

 S $P(RN," ",35)=" ",IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="   Entry By: "_$P(^VA(200,DUZ,0),"^")_$E(RN,$L($P(^VA(200,DUZ,0),"^"))+1,35)

 D NOW^%DTC S PSONEW("LOGIN DATE")=% K %,X S Y=PSONEW("LOGIN DATE") X ^DD("DD")

 S ^TMP("PSOPO",$J,IEN,0)=^TMP("PSOPO",$J,IEN,0)_"Entry Date: "_$P(Y,"@")_" "_$P(Y,"@",2) K RN,PSOFDR

 S (VALMCNT,PSOPF)=IEN Q

SIG ;

 D SIG^PSOORNE6 Q

CMOP ;

 K PSXZ S X="PSXOPUTL" X ^%ZOSF("TEST") K X I  D

 .S DA=RXN D ^PSXOPUTL K DA,PSOCMOP

 .S PSOCMOP=$S($G(PSXZ(PSXZ("L")))=0!($G(PSXZ(PSXZ("L")))=2):"Transmitted",$G(PSXZ(PSXZ("L")))=1:"Released",$G(PSXZ(PSXZ("L")))=3:"Not Dispensed",1:"")

 .I $G(PSXZ(PSXZ("L")))=3 F LBL=0:0 S LBL=$O(^PSRX(RXN,"L",LBL)) Q:'LBL  I $P(^PSRX(RXN,"L",LBL,0),"^",2)=PSXZ("L"),'$P(^(0),"^",5),$P(^(0),"^",3)'["INTERACTION" S PSOCMOP="Local"

 .K PSXZ

 Q

RST ;

 S PSODRUG("IEN")=$P(RX0,"^",6),PSODRUG("OI")=$P(^PSDRUG(($P(RX0,"^",6)),2),"^")

 S PSODRUG("NAME")=$P(^PSDRUG(($P(RX0,"^",6)),0),"^")

 Q

RMK ;

 I $P(RX3,"^",7)]"" D

 .F SG=1:1:$L($P(RX3,"^",7)) S:$L(^TMP("PSOAO",$J,IEN,0)_" "_$P($P(RX3,"^",7)," ",SG))>80 IEN=IEN+1,$P(^TMP("PSOAO",$J,IEN,0)," ",21)=" " D

 ..S:$P($P(RX3,"^",7)," ",SG)'="" ^TMP("PSOAO",$J,IEN,0)=$G(^TMP("PSOAO",$J,IEN,0))_" "_$P($P(RX3,"^",7)," ",SG)

 Q

PSOORNE3  ;ISC-BHAM/SAB - display pending orders from backdoor ;15-Jul-2013 10:29;DU

 +1       ;;7.0;OUTPATIENT PHARMACY;**11,9,39,59,46,103,124,139,152,1005,1006,1008,1013,194,1015,1017**;DEC 1997;Build 40

 +2       ;Ext ref to ^SC (File #44) (DBIA 10040),^PSXOPUTL (DBIA 2200)

 +3       ;^PS(50.606 (DBIA 2174),^PS(50.7 DBIA 2223),^PS(55,DBIA 2228)

 +4       ;^PSDRUG (DBIA 221)

 +5       ; Modified - IHS/CIA/PLS 01/27/04 - Added display of IHS Fields DSP+14 and PSOORNE3+44

 +6       ;            IHS/MSC/PLS - 03/13/08 - Added line PSOORNE3+53 and DSP+24

 +7       ;                          01/23/09 - Added line PSOORNE3+54 and DSP+25

 +8       ;                          02/13/12 - Line PST+6

 +9       ;                          06/04/13 - Added Discharge Medication

 +10       KILL ^TMP("PSOPO",$JOB)

           SET ORD=$PIECE(PSOLST(ORN),"^",2)

           DO ORD^PSOORFIN

           QUIT 

 +11       SET PSODRUG("OI")=$PIECE(OR0,"^",8)

           SET PSODRUG("OIN")=$PIECE(^PS(50.7,$PIECE(OR0,"^",8),0),"^")

 +12      ;D POST^PSODRG

           IF $PIECE($GET(OR0),"^",9)

               SET DREN=$PIECE(OR0,"^",9)

               SET POERR=1

               DO DRG^PSOORDRG

               KILL POERR

 +13       IF '$PIECE(OR0,"^",9)

               DO DREN^PSOORNW2

 +14       SET PSONEW("# OF REFILLS")=$PIECE(OR0,"^",11)

 +15       SET (Y,PSONEW("ISSUE DATE"))=$SELECT($GET(PSONEW("ISSUE DATE")):PSONEW("ISSUE DATE"),1:$EXTRACT($PIECE(OR0,"^",6),1,7))

           XECUTE ^DD("DD")

 +16       SET PSONEW("CLERK CODE")=$PIECE(OR0,"^",4)

           SET PSORX("CLERK CODE")=$PIECE(^VA(200,$PIECE(OR0,"^",4),0),"^")

 +17       SET (PSONEW("DFLG"),PSONEW("QFLG"))=0

           SET PSODFN=$PIECE(OR0,"^",2)

           SET PSONEW("QTY")=$PIECE(OR0,"^",10)

           SET PSONEW("MAIL/WINDOW")=$SELECT($PIECE(OR0,"^",17)]"":$PIECE(OR0,"^",17),1:"W")

 +18       IF $GET(PSONEW("CLINIC"))']""

               SET PSONEW("CLINIC")=$PIECE(OR0,"^",13)

 +19       IF $GET(PSORX("CLINIC"))']""

               SET PSORX("CLINIC")=$SELECT($DATA(^SC(+$PIECE(OR0,"^",13),0)):$PIECE(^SC($PIECE(OR0,"^",13),0),"^"),1:"")

 +20       SET PSONEW("CLERK CODE")=$PIECE(OR0,"^",4)

           SET PSONEW("PROVIDER")=$PIECE(OR0,"^",5)

           SET PSONEW("PROVIDER NAME")=$PIECE(^VA(200,$PIECE(OR0,"^",5),0),"^")

 +21       SET PSONEW("PATIENT STATUS")=$SELECT(+$GET(^PS(55,PSODFN,"PS")):+$GET(^PS(55,PSODFN,"PS")),1:"")

 +22       SET PSONEW("DAYS SUPPLY")=$SELECT(+$GET(^PS(55,PSODFN,"PS"))&($PIECE(^PS(53,+$GET(^PS(55,PSODFN,"PS")),0),"^",3)):$PIECE(^PS(53,+$GET(^PS(55,PSODFN,"PS")),0),"^",3),1:30)

 +23      ;Setup for N/F & DIN indicator

           SET IEN=0

           DO OBX^PSOORFI1

           DO DIN^PSONFI(PSODRUG("OI"),$SELECT($GET(PSODRUG("IEN")):PSODRUG("IEN"),1:""))

 +24       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="* (1) Orderable Item: "_$PIECE(^PS(50.7,PSODRUG("OI"),0),"^")_" "_$PIECE(^PS(50.606,$PIECE(^(0),"^",2),0),"^")_NFIO

 +25       IF NFIO["DIN"

               SET NFIO=IEN_","_($LENGTH(^TMP("PSOPO",$JOB,IEN,0))-4)

 +26       KILL LST

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="  (2)           Drug: "_$SELECT($GET(PSODRUG("NAME"))]"":PSODRUG("NAME")_NFID,1:"No Dispense Drug Selected")

 +27       IF NFID["DIN"

               SET NFID=IEN_","_($LENGTH(^TMP("PSOPO",$JOB,IEN,0))-4)

 +28       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="  (3) Patient Status: "_$PIECE($GET(^PS(53,PSONEW("PATIENT STATUS"),0)),"^")

 +29       SET IEN=IEN+1

           SET (PSOID,Y)=$EXTRACT($PIECE(OR0,"^",6),1,7)

           XECUTE ^DD("DD")

           SET ^TMP("PSOPO",$JOB,IEN,0)="   (4)     Issue Date: "_Y

 +30       SET (Y,PSONEW("FILL DATE"))=$EXTRACT($PIECE(OR0,"^",6),1,7)

           XECUTE ^DD("DD")

           SET PSONEW("FILL DATE")=Y

           SET ^TMP("PSOPO",$JOB,IEN,0)=^TMP("PSOPO",$JOB,IEN,0)_"                       (5) Fill Date: "_Y

 +31       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="       Instructions:"

           SET TY=3

           DO INST^PSOORFI1

 +32       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="  (6)   Possible SIG: "

           IF $GET(PSONEW("SIG"))']""

               DO SIG^PSOORFI1

           IF $GET(PSONEW("SIG"))]""

               SET IEN=IEN+1

               SET ^TMP("PSOPO",$JOB,IEN,0)=$GET(PSONEW("SIG"))

               SET IEN=IEN+1

               SET ^TMP("PSOPO",$JOB,IEN,0)=PSOERR("SIG")

 +33       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="  (7)    Days Supply: "_$SELECT($GET(PSONEW("DAYS SUPPLY")):PSONEW("DAYS SUPPLY"),+$GET(^PS(55,PSODFN,"PS"))&($PIECE(^PS(53,+$GET(^PS(55,PSODFN,"PS")),0),"^",3)):$PIECE(^PS(53,+$GET(^PS(55,PSODFN,"PS")),0),"^",3),1

:"")

 +34       SET ^TMP("PSOPO",$JOB,IEN,0)=^TMP("PSOPO",$JOB,IEN,0)_"                                 (8)     QTY: "_$PIECE(OR0,"^",10)

 +35       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="  (9)   # of Refills: "_$PIECE(OR0,"^",11)_$EXTRACT("  ",$LENGTH($PIECE(OR0,"^",11))+1,2)_"                                (10) Routing: "_$SELECT($GET(PSONEW("MAIL/WINDOW"))="M":"MAIL",1:"WINDOW")

 +36       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)=" (11)         Clinic: "_PSORX("CLINIC")

 +37       SET $PIECE(RN," ",32)=" "

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)=" (12)       Provider: "_PSONEW("PROVIDER NAME")_$EXTRACT(RN,$LENGTH(PSONEW("PROVIDER NAME"))+1,32)_"  (13)  Copies: "_$SELECT($GET(PSONEW("COPIES")):PSONEW("COPIES"),1:1)

           KILL RN

 +38       IF $PIECE(^VA(200,$SELECT($GET(PSONEW("PROVIDER")):PSONEW("PROVIDER"),1:$PIECE(OR0,"^",5)),"PS"),"^",7)&($PIECE(^("PS"),"^",8))

               SET IEN=IEN+1

               SET PSONEW("COSIGNING PROVIDER")=$PIECE(^("PS"),"^",8)

               Begin DoDot:1

 +39               SET ^TMP("PSOPO",$JOB,IEN,0)="        Cos-Provider: "_$PIECE(^VA(200,+$GET(PSONEW("COSIGNING PROVIDER")),0),"^")

               End DoDot:1

 +40       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="  Provider Comments:"

           SET TY=2

           DO INST^PSOORFI1

 +41       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)=" (14)        Remarks: "

 +42       IF $GET(PSONEW("REMARKS"))]""

               Begin DoDot:1

 +43               FOR SG=1:1:$LENGTH(PSONEW("REMARKS"))

                       IF $LENGTH(^TMP("PSOPO",$JOB,IEN,0)_" "_$PIECE(PSONEW("REMARKS")," ",SG))>80

                           SET IEN=IEN+1

                           SET $PIECE(^TMP("PSOPO",$JOB,IEN,0)," ",20)=" "

                       Begin DoDot:2

 +44                       IF $PIECE(PSONEW("REMARKS")," ",SG)'=""

                               SET ^TMP("PSOPO",$JOB,IEN,0)=$GET(^TMP("PSOPO",$JOB,IEN,0))_" "_$PIECE(PSONEW("REMARKS")," ",SG)

                       End DoDot:2

               End DoDot:1

 +45      ; IHS/CIA/PLS - 01/26/04 - Add IHS Fields to display

 +46       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="Enter a zero (0) to edit IHS specific fields."

 +47       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="                  NDC: "_$$GET1^DIQ(52,RXN,27)

 +48      ; IHS/CIA/PLS - 01/15/04

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="                  AWP: "_$$GET1^DIQ(52,RXN,9999999.06)_"       Unit Cost: "_$$GET1^DIQ(52,RXN,17)

 +49      ; IHS/CIA/PLS - 01/15/04

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="         Triplicate #: "_$$GET1^DIQ(52,RXN,9999999.14)

 +50       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="          Bill Status: "_$$EXTERNAL^DILFD(52,9999999.07,,$SELECT($GET(PSONEW("BST")):$GET(PSONEW("BST")),1:$GET(PSORX("BST"))))

 +51       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="         Manufacturer: "_$GET(PSONEW("MANUFACTURER"))_"   Lot #: "_$GET(PSONEW("LOT #"))_"  ExpDate: "_$$FMTE^XLFDT($GET(PSONEW("EXPIRATION DATE")))

 +52       SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="          Chronic Med: "_$SELECT($DATA(PSONEW("CM")):$GET(PSONEW("CM")),$GET(RXN):$$GET1^DIQ(52,RXN,9999999.02),1:$GET(PSORX("CM")))

 +53      ;IHS/MSC/PLS - 03/13/08

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="         Substitution: "_$$EXTERNAL^DILFD(52,9999999.25,,$GET(PSONEW("DAW")))

 +54      ; IHS/MSC/PLS - 06/04/13

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)=" Discharge Medication: "_$$EXTERNAL^DILFD(52,9999999.28,,$GET(PSONEW("DSCMED")))

 +55      ; IHS/MSC/PLS - 01/23/09

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="             Cash Due: "_$$EXTERNAL^DILFD(52,9999999.26,,$GET(PSONEW("CASH DUE")))

 +56      ;S IEN=IEN+1,^TMP("PSOPO",$J,IEN,0)="              Insurer: "_$G(PSONEW("INSURER"))

 +57      ; End IHS Fields

 +58       SET $PIECE(RN," ",35)=" "

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="   Entry By: "_$PIECE(^VA(200,$PIECE(OR0,"^",4),0),"^")_$EXTRACT(RN,$LENGTH($PIECE(^VA(200,$PIECE(OR0,"^",4),0),"^"))+1,35)

 +59       SET Y=$PIECE(OR0,"^",12)

           XECUTE ^DD("DD")

           SET ^TMP("PSOPO",$JOB,IEN,0)=^TMP("PSOPO",$JOB,IEN,0)_"Entry Date: "_$EXTRACT($PIECE(OR0,"^",12),4,5)_"/"_$EXTRACT($PIECE(OR0,"^",12),6,7)_"/"_$EXTRACT($PIECE(OR0,"^",12),2,3)_" "_$PIECE(Y,"@",2)

           KILL RN

 +60       GOTO ^PSOLMPO

 +61       QUIT 

DSPL      ;backdoor

 +1       ;NFI

           KILL ^TMP("PSOPO",$JOB)

           DO DIN^PSONFI(PSODRUG("OI"),$SELECT($GET(PSODRUG("IEN")):PSODRUG("IEN"),1:""))

 +2        IF $DATA(RX0)

               IF $DATA(PSODRUG("IEN"))

                   Begin DoDot:1

 +3                    IF PSODRUG("IEN")=$PIECE(RX0,"^",6)!($PIECE(PSLST,",",2))

                           DO RST

                   End DoDot:1

 +4        SET IEN=0

           SET IEN=IEN+1

           SET ^TMP("PSOPO",$JOB,IEN,0)="      Orderable Item: "_$PIECE(^PS(50.7,PSODRUG("OI"),0),"^")_" "_$PIECE(^PS(50.606,$PIECE(^(0),"^",2),0),"^")_NFIO

 +5        IF NFIO["DIN"

               SET NFIO=IEN_","_($LENGTH(^TMP("PSOPO",$JOB,IEN,0))-4)

 +6        IF $GET(PSODRUG("NAME"))]""