Routine: PSODRDUP

Package	Total	Call Graph
Outpatient Pharmacy	8	^PSOBUILD ^PSOCMOPA REMOTE^PSOCPDUP (,NVA)^PSODRDU1 STAT^PSOFUNC ($$TRANCMOP,CMOP)^PSOUTL FSIG^PSOUTLA EN2^PSOUTLA1
Kernel	2	ENDR^%ZISS $$FMTE^XLFDT
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
VA FileMan	1	^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOCPDUP

Entry Points

Name	Comments	DBIA/ICR reference
EXIT
DUP
DATA
ASKCAN
CLS
ULRX	;
PRSTAT(DA)	;Displays the prescription's status

External References

Name	Field # of Occurrence
ENDR^%ZISS	PRSTAT+7
^DIR	ASKCAN, ASKCAN+4, ASKCAN+8, CLS+5
^PSOBUILD	EXIT
^PSOCMOPA	PRSTAT+3
REMOTE^PSOCPDUP	PSODRDUP+15
^PSODRDU1	PSODRDUP+6
NVA^PSODRDU1	PSODRDUP+7
STAT^PSOFUNC	DATA+2
$$TRANCMOP^PSOUTL	PRSTAT+10
CMOP^PSOUTL	ASKCAN+9
FSIG^PSOUTLA	DATA+4
EN2^PSOUTLA1	DATA+5
PSOL^PSSLOCK	ASKCAN+4
PSOUL^PSSLOCK	ULRX+2
$$FMTE^XLFDT	PRSTAT+17, PRSTAT+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSONULN,!,$C(7),"Duplicate Drug "_$P(DNM,"^")_" in Prescription: ",$P(^PSRX(+PSOSD(STA,DNM),0),"^") Line Location: DUP+0
Function Call: WRITE	Prompt: !!,$J("Status: ",24) Line Location: DATA+2
Function Call: WRITE	Prompt: ST Line Location: DATA+2
Function Call: WRITE	Prompt: ST Line Location: DATA+2
Function Call: WRITE	Prompt: !,$J("SIG: ",24) Line Location: DATA+6
Function Call: WRITE	Prompt: $G(BSIG(1)) Line Location: DATA+6
Function Call: WRITE	Prompt: !?24,$G(BSIG(PSREV)) Line Location: DATA+7
Function Call: WRITE	Prompt: !,$J("QTY: ",24)_$P(DUPRX0,"^",7),?40,$J("# of refills: ",24)_RFLS Line Location: DATA+9
Function Call: WRITE	Prompt: !,$J("Provider: ",24)_PHYS,?40,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0) Line Location: DATA+10
Function Call: WRITE	Prompt: !?40,$J("Last filled on: ",24)_$E(LSTFL,4,5)_"/"_$E(LSTFL,6,7)_"/"_$E(LSTFL,2,3),!?40,$J("Days Supply: ",24)_$P(DUPRX0,"^",8) Line Location: DATA+11
Function Call: WRITE	Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!" Line Location: DATA+12
Function Call: WRITE	Prompt: !!,"Prescription "_$P($G(^PSRX(+$G(RXRECLOC),0)),"^")_" is on Provider Hold, it cannot be discontinued.",! Line Location: ASKCAN+3
Function Call: WRITE	Prompt: !!,$P(PSOMSG,"^",2),! Line Location: ASKCAN+5
Function Call: WRITE	Prompt: !,"A CMOP Rx cannot be discontinued during transmission!",! Line Location: ASKCAN+9
Function Call: WRITE	Prompt: $C(7)," -Prescription was not "_$S($P(PSOSD(STA,DNM),"^",2)=12:"reinstated",1:"discontinued")_"..." Line Location: ASKCAN+10
Function Call: WRITE	Prompt: !!,"Prescription "_$P($G(^PSRX(+$G(RXRECLOC),0)),"^")_" is on Provider Hold, it cannot be discontinued.",! Line Location: ASKCAN+13
Function Call: WRITE	Prompt: !!,"Duplicate "_$S($G(CLS):"Class",1:"Drug")_" will be discontinued after the acceptance of the new order.",! Line Location: ASKCAN+15
Function Call: WRITE	Prompt: !,PSONULN Line Location: CLS+2
Function Call: WRITE	Prompt: !?5,$C(7),"* SAME CLASS * OF DRUG IN RX #"_$P(^PSRX(+PSOSD(STA,DNM),0),"^")_" FOR "_$P(DNM,"^"),!,"CLASS: "_PSODRUG("VA CLASS") Line Location: CLS+3
Function Call: WRITE	Prompt: !,PSONULN Line Location: CLS+5
Function Call: WRITE	Prompt: "Returned to stock on "_$$FMTE^XLFDT(PSORTS,2) Line Location: PRSTAT+17
Routine Call	DIR Line Location: ASKCAN ASKCAN+4 ASKCAN+8 CLS+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	DATA+12
^PSRX - [#52]	DUP, DATA, DATA+4, DATA+5, DATA+10, DATA+11, ASKCAN+3, ASKCAN+6, ASKCAN+7, ASKCAN+13 , CLS+3, PRSTAT+2, PRSTAT+5, PRSTAT+9, PRSTAT+13, PRSTAT+14, PRSTAT+16, PRSTAT+18
^TMP("PSORXDC"	ASKCAN+12!, ASKCAN+16*
^TMP($J	PSODRDUP+14!
^VA(200 - [#200]	DATA+9
^XUSEC("PSORPH"	PSODRDUP+8, PSODRDUP+12, ASKCAN+1, ASKCAN+2

Label References

Name	Line Occurrences
CLS	PSODRDUP+13
DATA	CLS+4
DUP	PSODRDUP+9, PSODRDUP+10, PSODRDUP+11, PSODRDUP+12
PRSTAT	DATA+3
ULRX	ASKCAN+11, ASKCAN+13

Naked Globals

Name	Field # of Occurrence
^(0	DATA+9, DATA+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	EXIT!, ASKCAN+8*, ASKCAN+11, ASKCAN+14, ASKCAN+16
BSIG	DATA+4!, DATA+8!
BSIG(	DATA+4*, DATA+7
BSIG(1	DATA+6, DATA+7
CAN	EXIT!, CLS+4*
CLS	PSODRDUP+4!, ASKCAN+1, ASKCAN+2, ASKCAN+13!, ASKCAN+15, ASKCAN+17!, CLS+2*
CMOP	ASKCAN+9!, PRSTAT+1~, PRSTAT+3!
CMOP("L"	PRSTAT+5
CMOP("S"	ASKCAN+9
DA	EXIT!, DATA+3, ASKCAN+8, ASKCAN+16, PRSTAT~, PRSTAT+5
DIR	EXIT!, ASKCAN!, ASKCAN+4!, ASKCAN+8!, CLS+5!
DIR("?"	ASKCAN+7*
DIR("A"	ASKCAN, ASKCAN+4, ASKCAN+7, CLS+5
DIR(0	ASKCAN, ASKCAN+4, ASKCAN+7, CLS+5
DIRUT	ASKCAN!, CLS+5!
DNM	PSODRDUP+4, PSODRDUP+5, PSODRDUP+8, PSODRDUP+12, PSODRDUP+13, EXIT!, DUP, DUP+1, ASKCAN, ASKCAN+3 , ASKCAN+7, ASKCAN+8, ASKCAN+10, ASKCAN+11, ASKCAN+13, ASKCAN+14, ASKCAN+16, CLS+1, CLS+3, CLS+4
DTOUT	ASKCAN!, CLS+5!
DUOUT	ASKCAN!, CLS+5!
DUP	DUP*, ASKCAN+3!, ASKCAN+4!, ASKCAN+11!, ASKCAN+13!, ASKCAN+17!, CLS!
DUPRX0	EXIT!, DATA*, DATA+9, DATA+11
DUZ	PSODRDUP+8, PSODRDUP+12, ASKCAN+1, ASKCAN+2, ASKCAN+11, ASKCAN+14
FSIG	DATA+4!, DATA+5!
FSIG(	DATA+4
>> IOINHI	PRSTAT+7, PRSTAT+10
>> IOINORM	PRSTAT+7, PRSTAT+11
>> IORVOFF	PRSTAT+11
>> IORVON	PRSTAT+10
ISSD	EXIT!, DATA*, DATA+2
J	EXIT!, DATA+2*
LSTFL	EXIT!, DATA+11*
MSG	EXIT!, DUP+1, ASKCAN+11, ASKCAN+14, ASKCAN+16, CLS+2
PHYS	EXIT!, DATA+9*, DATA+10
PSOCD	EXIT!
PSOCLC	EXIT!, ASKCAN+11, ASKCAN+14
PSOCLOZ	EXIT!
>> PSOCMOP	PRSTAT+3, PRSTAT+4, PRSTAT+11, PRSTAT+12
>> PSODRUG("NAME"	PSODRDUP+8, PSODRDUP+12, PSODRDUP+13
>> PSODRUG("VA C	LASS" , PSODRDUP+13, CLS+1, CLS+3
PSOELSE	CLS+1!, CLS+6!
PSOLDT	EXIT!
PSOLR	EXIT!
PSOLRD	PRSTAT+1~, PRSTAT+2, PRSTAT+15, PRSTAT+16*, PRSTAT+18
PSOMSG	ASKCAN+4!, ASKCAN+5, ASKCAN+7!
PSONOOR	ASKCAN+16*, ASKCAN+17!
PSONULN	PSODRDUP+4*, EXIT!, DUP, DATA+12, CLS+2, CLS+5
>> PSONV	DUP+1, ASKCAN+8, ASKCAN+14, CLS+2
>> PSOPAR	PSODRDUP+9, PSODRDUP+10, PSODRDUP+11, DATA+12, ASKCAN+1, ASKCAN+2, CLS+4
PSOREL	PRSTAT+1~, PRSTAT+3!, PRSTAT+5, PRSTAT+6, PRSTAT+11
>> PSORENW("OIRXN"	PSODRDUP+5
PSORTS	PRSTAT+1~, PRSTAT+15, PRSTAT+16, PRSTAT+17
>> PSORX("DFLG"	PSODRDUP+5, PSODRDUP+8, PSODRDUP+9, PSODRDUP+10, PSODRDUP+11, PSODRDUP+12, ASKCAN+1, ASKCAN+2, ASKCAN+3, ASKCAN+4 , ASKCAN+11, ASKCAN+13
>> PSORX("PATIEN	T STATUS" , DATA+12
>> PSOSD(	PSODRDUP+5, PSODRDUP+13, DUP, DUP+1, ASKCAN, ASKCAN+3, ASKCAN+7, ASKCAN+8, ASKCAN+10, ASKCAN+11 , ASKCAN+13, ASKCAN+14, CLS+1, CLS+3, CLS+4
PSOTRANS	PRSTAT+1~, PRSTAT+3!, PRSTAT+4*, PRSTAT+11
PSOX	PRSTAT+1~, PRSTAT+13*, PRSTAT+14
PSREV	DATA+4, DATA+5!, DATA+7, DATA+8!
REA	EXIT!, ASKCAN+11, ASKCAN+14, ASKCAN+16
RFLS	EXIT!, DATA*, DATA+9, DATA+10
RFLZRO	PRSTAT+1~, PRSTAT+14*, PRSTAT+15
RX0	EXIT!, DATA*, DATA+2!
RX2	EXIT!, DATA*, DATA+2!
RXN	EXIT!
RXPSTA	PRSTAT+1~, PRSTAT+2*, PRSTAT+11, PRSTAT+17
RXREC	EXIT!, DUP+1, DATA, DATA+1, DATA+2, DATA+3, DATA+4, DATA+5, DATA+10, DATA+11 , ASKCAN+8, ASKCAN+12, ASKCAN+16, CLS+4, PRSTAT+2, PRSTAT+9, PRSTAT+10, PRSTAT+13, PRSTAT+14, PRSTAT+16 , PRSTAT+18
RXRECLOC	DATA+1*, DATA+12!, ASKCAN!, ASKCAN+1!, ASKCAN+2!, ASKCAN+3!, ASKCAN+4!, ASKCAN+6, ASKCAN+11!, ASKCAN+13! , ASKCAN+17!, ULRX+1, ULRX+2
SIG	EXIT!
>> SPCANC	ASKCAN+8
ST	EXIT!, DATA+2
>> STA	PSODRDUP+4, PSODRDUP+5, PSODRDUP+6, PSODRDUP+7, PSODRDUP+13, DUP, DUP+1, ASKCAN, ASKCAN+3, ASKCAN+7 , ASKCAN+8, ASKCAN+10, ASKCAN+11, ASKCAN+13, ASKCAN+14, ASKCAN+16, CLS+1, CLS+3, CLS+4
>> X	PRSTAT+7*
Y	EXIT!, ASKCAN+9*, ASKCAN+10
ZZ	EXIT!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODRDUP

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: