Routine: PSODRDU2

Information

PSODRDU2 ;BHAM ISC/SAB - dup drug/class display for outpatient orders ;08/23/17 19:54

Name	Comments	DBIA/ICR reference
EN(PSODFN,ORN,LIST)	;psodfn=patient's ifn, orn=ordertype;order#;drugtype;counter	ICR #2189 Status: Active Usage: Private
RX	;Rx info
PND	;op pending orders
NVA	;non-va meds
RDI	;RDI orders
PRSTAT(DA)	;Displays the prescription's status

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Local Rx #"_$P(DUPRX0,"^")_" ("_ST_") for "_$P(^PSDRUG($P(DUPRX0,"^",6),0),"^") Line Location: RX+7
Function Call: WRITE	Prompt: !?20,$G(BSIG(PSREV)) Line Location: RX+10
Function Call: WRITE	Prompt: ! Line Location: RX+11
Function Call: WRITE	Prompt: FSIG(I),!?5 Line Location: PND+6
Function Call: WRITE	Prompt: !,"Dosage: "_$P(DUPRX0,"^",3),?25,"Schedule: "_$P(DUPRX0,"^",5) Line Location: NVA+4
Function Call: WRITE	Prompt: ! Line Location: NVA+5
Function Call: WRITE	Prompt: !,"LOCATION: "_$P(RXREC,"^") Line Location: RDI+3
Function Call: WRITE	Prompt: !,"Remote Rx #"_$P(RXREC,"^",5)_" ("_$P(RXREC,"^",4)_") for "_$P(RXREC,"^",3) Line Location: RDI+4
Function Call: WRITE	Prompt: !,"SIG: " Line Location: RDI+5
Function Call: WRITE	Prompt: ?5 Line Location: RDI+7
Function Call: WRITE	Prompt: "Last Filled On: "_$P(RXREC,"^",6),! Line Location: RDI+8
Function Call: WRITE	Prompt: "Returned to stock on "_$$FMTE^XLFDT(PSORTS,2) Line Location: PRSTAT+18