Routine: PSORENW3

Information

PSORENW3 ;IHS/DSD/JCM - EDIT TEMPLATE FOR RENEW RX ORDER ENTRY ;Dec 22, 2021@07:12:33

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PSORENW("NRX #"),?12," ",$P(^PSDRUG(PSORENW("DRUG IEN"),0),"^"),?46," QTY: ",$S($G(PSORENW("QTY")):PSORENW("QTY"),1:$P(PSORENW("RX0"),"^",7)) Line Location: DSPLY+2
Function Call: WRITE	Prompt: !,"# OF REFILLS: "_$S($G(PSORENW("# OF REFILLS")):PSORENW("# OF REFILLS"),1:$P(PSORENW("RX0"),"^",9)) Line Location: DSPLY+3
Function Call: WRITE	Prompt: " ISSUED: "_$S(DT>PSORENW("FILL DATE"):$E(PSORENW("FILL DATE"),4,5)_"-"_$E(PSORENW("FILL DATE"),6,7)_"-"_$E(PSORENW("FILL DATE"),2,3),1:$E(DT,4,5)_"-"_$E(DT,6,7)_"-"_$E(DT,2,3)) Line Location: DSPLY+4
Function Call: WRITE	Prompt: SIG(D),! Line Location: DSPLY+10
Function Call: WRITE	Prompt: " SIG: "_PSORENW("SIG")_" " Line Location: DSPLY+13
Function Call: WRITE	Prompt: "FILLED: "_$E(PSORENW("FILL DATE"),4,5)_"-"_$E(PSORENW("FILL DATE"),6,7)_"-"_$E(PSORENW("FILL DATE"),2,3) Line Location: DSPLY+14
Function Call: WRITE	Prompt: !,"ROUTING: "_$S($G(PSORENW("MAIL/WINDOW"))["W":"WINDOW",$E($G(PSORENW("MAIL/WINDOW")))="P":"PARK",1:"MAIL") Line Location: DSPLY+16
Function Call: WRITE	Prompt: " PHYS: "_PSORX("PROVIDER NAME"),! Line Location: DSPLY+17