Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSDOPT2

Package: Controlled Substances

Routine: PSDOPT2


Information

PSDOPT2 ;BIR/JPW,LTL - Outpatient Rx Entry (cont. from PSDOPT) ;9 Jan 95

Source Information

Source file <PSDOPT2.m>

Entry Points

Name Comments DBIA/ICR reference
TRANS
RTS ;PSD*3*39 (6JUL02) - Check for returned to stock
QTY
POST ;Check to see if fill has been released/posted
Q
PSDRTS ;PSD*3.0*39 ; The next 10 lines are original code commented out for patch PSD*3*45 (this subroutine was duplicated then modified for testing)
ASK
RTSDTC ;; PSD*3*48 ADDED LOGIC FOR WHEN AN RTS IS REISSUED ON THE SAMEDAY.
PSDKLL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,!!,"Previously posted transactions for Rx #",RXNUM
  • Line Location: PSDOPT2+8
Function Call: WRITE
  • Prompt: !,"(RTS) - denotes a Returned to Stock Transaction."
  • Line Location: PSDOPT2+9
Function Call: WRITE
  • Prompt: !!,"Date Posted:",?22,"Pharmacist:",?54,"Type:",?70,"Quantity:"
  • Line Location: PSDOPT2+10
Function Call: WRITE
  • Prompt: !,PSDATE,?22,PHARMN,?54,$S($P(NODE6,U,2):"Refill #"_$P(NODE6,U,2),$P(NODE6,U,4):"Partial #"_$P(NODE6,U,4),1:"Original")
  • Line Location: TRANS+6
Function Call: WRITE
  • Prompt: " (RTS)"
  • Line Location: RTS+6
Function Call: WRITE
  • Prompt: ?70,$J($P(NODE,U,6),6)
  • Line Location: QTY+0
Function Call: WRITE
  • Prompt: !,?10,PSDTYPE(1)_$S($G(PSDTYPE)="OR":"",1:(" #"_PSDRETN))_" was returned to stock on "_$G(PSDDATE3(1)),!?10,"The prescription shows it re-issued on"_$G(PSDDATE4(1))
  • Line Location: PSDRTS+2
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Was the fill re-issued AFTER being returned to stock? YES// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,$G(PSDTYPE(1))_" will remain marked as returned to stock and unavailable.",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"ok, we'll bypass the returned to stock transaction."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,?10,PSDTYPE(1)_$S($G(PSDTYPE)="OR":"",1:(" #"_PSDRETN))_" was returned to stock on "_$G(PSDDATE3(1)),!?10,"The prescription shows it re-issued today"
  • Line Location: RTSDTC+3
Function Call: WRITE
  • Prompt: !!,"Was the fill re-issued AFTER being returned to stock? YES// "
  • Line Location: RTSDTC+4
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: RTSDTC+5
Info |  Source |  Entry Points |  Interaction Calls