Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Controlled Substances 1 CLLDIR2^PSDOPT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDOPT  

Entry Points

Name Comments DBIA/ICR reference
RTSDTC ;; PSD*3*48 ADDED LOGIC FOR WHEN AN RTS IS REISSUED ON THE SAMEDAY.
QTY
Q
PSDKLL ;
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)
RTS ;PSD*3*39 (6JUL02) - Check for returned to stock
ASK
POST ;Check to see if fill has been released/posted
TRANS

External References

Name Field # of Occurrence
^DIR Q
CLLDIR2^PSDOPT RTSDTC+2, RTSDTC+7

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
  • Timeout: DTIME
  • Variable: AN
  • 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
  • Timeout: DTIME
  • Variable: AN
  • Line Location: RTSDTC+5
Routine Call
  • DIR
  • Line Location:
    • Q

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TRANS+3, RTS+5
^PSD(58.8 - [#58.8] TRANS+4
^PSD(58.81 - [#58.81] PSDOPT2+7, TRANS, TRANS+1
^PSRX - [#52] RTS+8, RTS+9, RTS+10, POST+3
^VA(200 - [#200] TRANS+2

Label References

Name Line Occurrences
ASK ASK+1
Q TRANS, ASK
QTY RTS+7, RTS+8, RTS+9, RTS+10
TRANS TRANS, POST+4, ASK+4, ASK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AN ASK*, ASK+1, ASK+4, RTSDTC+1~, RTSDTC+5*, RTSDTC+6*, RTSDTC+7
DIR Q!
DIR("A" Q*
DIR(0 Q*
DIRUT Q!
DT RTSDTC+2
DTIME ASK, RTSDTC+5
>> NODE TRANS+1*, TRANS+2, TRANS+3, TRANS+4, QTY, POST+1
>> NODE3 TRANS+1*, RTS+5, RTS+6, POST+3
>> NODE6 TRANS+1*, TRANS+6, RTS+2, RTS+4
>> PHARM TRANS+2*
>> PHARMN TRANS+2*, TRANS+6
PSD PSDKLL+1!
PSDA PSDKLL+1!
PSDATE TRANS+3*, TRANS+6, PSDKLL+1!
PSDBAL PSDKLL+1!
PSDCS PSDKLL+1!
PSDDATE3 RTS+1*, RTS+5*, RTS+7, RTS+9, RTS+10, QTY+1, PSDKLL+1!
PSDDATE3(1 RTS+5*, PSDRTS+2, RTSDTC+3
PSDDATE4 RTS+1*, RTS+9*, RTS+10*, QTY+1, PSDKLL+1!
PSDDATE4(1 PSDRTS+2
PSDERR PSDKLL+1!
PSDFILL PSDKLL+1!
PSDFLNO PSDKLL+1!
PSDHOLDX PSDKLL+1!
PSDJJ PSDOPT2+7*, TRANS*, TRANS+1, PSDKLL+1!
PSDLBL PSDKLL+1!
PSDLBLP PSDKLL+1!
PSDNEXT PSDKLL+1!
PSDNUM PSDKLL+1!
PSDNUM1 PSDKLL+2!
PSDOIN PSDKLL+2!
PSDOUT Q*, PSDKLL+2!
PSDPOST PSDKLL+2!
PSDPR1 PSDKLL+2!
PSDQTY PSDKLL+2!
PSDR PSDKLL+2!
PSDREL PSDKLL+2!
PSDRET PSDOPT2+7*, PSDOPT2+9*, PSDKLL+2!
PSDRET( RTS+5*, ASK+5!
PSDRET("OR" RTS+8!
PSDRET("PR" RTS+10!
PSDRET("RF" RTS+9!, RTSDTC+2
PSDRETN RTS+4*, RTS+5, RTS+8, RTS+9, RTS+10, QTY+1, POST+1, POST+3, PSDRTS+2, ASK+5
, RTSDTC+3, PSDKLL+2!
PSDRF1 PSDKLL+3!
PSDRN PSDKLL+3!
PSDRPH PSDKLL+3!
PSDRS PSDKLL+3!
PSDRTS PSDKLL+3!
PSDRTSE PSDKLL+3!
PSDRTSE( QTY+1*
PSDRX PSDOPT2+7, TRANS, RTS+8, RTS+9, RTS+10, POST+3, PSDKLL+3!
PSDRX( POST+1*, POST+3*
PSDRXFD PSDKLL+3!
PSDRXIN PSDKLL+4!
PSDS PSDKLL+4!
PSDSEL PSDKLL+4!
PSDSITE PSDKLL+4!
PSDSN TRANS+5, PSDKLL+4!
PSDSTA PSDKLL+4!
PSDSUPN PSDKLL+4!
PSDT PSDKLL+4!
PSDTYPE RTS+2*, RTS+3, RTS+4, RTS+5, RTS+8, RTS+9, RTS+10, QTY+1, POST+1, POST+3
, PSDRTS+2, ASK+5, RTSDTC+3, PSDKLL+4!
PSDTYPE(1 RTS+3*, PSDRTS+2, ASK+4, RTSDTC+3
PSDUZ PSDKLL+4!
PSDXXX PSDKLL+5!
PSOCSUB PSDKLL+5!
PSOVR PSDKLL+5!
QTY PSDKLL+6!
RETSK PSDKLL+6!
RF PSDKLL+6!
RPDT PSDKLL+6!
RX0 PSDKLL+6!
RX2 PSDKLL+6!
RXNUM PSDOPT2+8, PSDKLL+6!
U TRANS+6, QTY
>> VAULT TRANS+4*, TRANS+5
>> X PSDOPT2+7*
>> X1 RTSDTC+2
>> Y TRANS+3*, RTS+5*, Q
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All