Routine: PSDOPT2

Information

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

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Controlled Substances	1	CLLDIR2^PSDOPT
Outpatient Pharmacy	1	$$RXRLDT^PSOBPSUT
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSDOPT

Entry Points

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

External References

Name	Field # of Occurrence
^DIR	Q
CLLDIR2^PSDOPT	RTSDTC+2, RTSDTC+7
$$RXRLDT^PSOBPSUT	POST+2

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
Routine Call	DIR Line Location: Q

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
^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+3, 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+2
>> 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+2, 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+2, PSDKLL+3!
PSDRX(	POST+1, POST+2
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+2 , 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

Customize PDF page

Package: Controlled Substances