Routine: PSOCPDUP

Package	Total	Call Graph
Outpatient Pharmacy	8	^PSOBUILD (,NVA)^PSODRDU1 PRSTAT^PSODRDUP STAT^PSOFUNC (CLS,DUP)^PSOORRD2 REMOTE^PSOORRDI FSIG^PSOUTLA EN2^PSOUTLA1
Kernel	1	$$UP^XLFSTR
Order Entry Results Reporting	1	($$HAVEHDR,HAVEHDR)^ORRDI1
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
VA Fileman	1	^DIR

Package

Total

Call Graph

Outpatient Pharmacy

^PSOBUILD (,NVA)^PSODRDU1 PRSTAT^PSODRDUP STAT^PSOFUNC (CLS,DUP)^PSOORRD2 REMOTE^PSOORRDI FSIG^PSOUTLA EN2^PSOUTLA1

Kernel

$$UP^XLFSTR

Order Entry Results Reporting

($$HAVEHDR,HAVEHDR)^ORRDI1

Pharmacy Data Management

(PSOL,PSOUL)^PSSLOCK

VA Fileman

^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSODRDUP

Package

Total

Caller Graph

Outpatient Pharmacy

PSODRDUP

External References

Name	Field # of Occurrence
^DIR	ASKCAN+1, ASKCAN+2, ASKCAN+4, ASKCAN+5, ASKCAN+9, CLS+3
$$HAVEHDR^ORRDI1	REMOTE+3
HAVEHDR^ORRDI1	REMOTE+2
^PSOBUILD	EXIT
^PSODRDU1	PSOCPDUP+9
NVA^PSODRDU1	PSOCPDUP+10
PRSTAT^PSODRDUP	DATA+2
STAT^PSOFUNC	DATA+1
CLS^PSOORRD2	REMOTE+8
DUP^PSOORRD2	REMOTE+7
REMOTE^PSOORRDI	REMOTE+6
FSIG^PSOUTLA	DATA+3
EN2^PSOUTLA1	DATA+4
PSOL^PSSLOCK	ASKCAN+5
PSOUL^PSSLOCK	ULRX+2
$$UP^XLFSTR	PSOCPDUP+11, PSOCPDUP+15

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+1
Function Call: WRITE	Prompt: ST Line Location: DATA+1
Function Call: WRITE	Prompt: ST Line Location: DATA+1
Function Call: WRITE	Prompt: !,$J("SIG: ",24) Line Location: DATA+5
Function Call: WRITE	Prompt: $G(BSIG(1)) Line Location: DATA+5
Function Call: WRITE	Prompt: !?24,$G(BSIG(PSREV)) Line Location: DATA+6
Function Call: WRITE	Prompt: !,$J("QTY: ",24)_$P(DUPRX0,"^",7),?40,$J("# of refills: ",24)_RFLS Line Location: DATA+8
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+9
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+10
Function Call: WRITE	Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!" Line Location: DATA+11
Function Call: WRITE	Prompt: !!,"Prescription "_$S(+$G(PSOSD(STA,DNM)):$P($G(^PSRX(+$G(PSOSD(STA,DNM)),0)),"^")_" ",1:"")_"is on Provider Hold, it cannot be discontinued.",! Line Location: ASKCAN+3
Function Call: WRITE	Prompt: !!,$P(PSOMSG,"^",2) Line Location: ASKCAN+6
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+0
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+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: REMOTE+5
Function Call: WRITE	Prompt: !,"Now doing remote order checks. Please wait..." Line Location: REMOTE+5
Routine Call	DIR Line Location: ASKCAN+1 ASKCAN+2 ASKCAN+4 ASKCAN+5 ASKCAN+9 CLS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	DATA+11
^PSRX - [#52]	DUP, DATA, DATA+3, DATA+4, DATA+9, DATA+10, ASKCAN+3, ASKCAN+7, ASKCAN+8, ASKCAN+13 , CLS+1
^TMP("PSORXDC"	ASKCAN+11!, ASKCAN+16*
^TMP($J	PSOCPDUP+17!, REMOTE+7, REMOTE+8, REMOTE2+1!
^VA(200 - [#200]	DATA+8
^XTMP("ORRDI"	REMOTE+4
^XUSEC("PSORPH"	PSOCPDUP+11, PSOCPDUP+15, ASKCAN+1, ASKCAN+2

Name	Line Occurrences
CLS	PSOCPDUP+16
DATA	CLS+2
DUP	PSOCPDUP+12, PSOCPDUP+13, PSOCPDUP+14, PSOCPDUP+15
REMOTE	PSOCPDUP+18
REMOTE2	REMOTE+4
ULRX	ASKCAN+12, ASKCAN+13

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	EXIT!, ASKCAN+9*, ASKCAN+10, ASKCAN+14, ASKCAN+16
BSIG	DATA+3!, DATA+7!
BSIG(	DATA+3*, DATA+6
BSIG(1	DATA+5, DATA+6
CAN	EXIT!, CLS+2*
CLS	ASKCAN+1, ASKCAN+2, ASKCAN+10!, ASKCAN+13!, ASKCAN+15, ASKCAN+17!, CLS*
DA	EXIT!, ASKCAN+9*, ASKCAN+16
DIR	EXIT!, ASKCAN+1!, ASKCAN+2!, ASKCAN+4!, ASKCAN+5!, ASKCAN+9!, CLS+3!
DIR("?"	ASKCAN+8*
DIR("A"	ASKCAN+1, ASKCAN+2, ASKCAN+4, ASKCAN+5, ASKCAN+8, CLS+3
DIR(0	ASKCAN+1, ASKCAN+2, ASKCAN+4, ASKCAN+5, ASKCAN+8, CLS+3
DIRUT	CLS+3!
DNM	PSOCPDUP+7, PSOCPDUP+8, PSOCPDUP+11, PSOCPDUP+15, PSOCPDUP+16, EXIT!, DUP, DUP+1, ASKCAN, ASKCAN+3 , ASKCAN+8, ASKCAN+13, ASKCAN+16, CLS+1, CLS+2
DTOUT	CLS+3!
DUOUT	CLS+3!
DUP	DUP*, ASKCAN+3, ASKCAN+4!, ASKCAN+10!, ASKCAN+13!, ASKCAN+17!, CLS!
DUPRX0	EXIT!, DATA*, DATA+8, DATA+10
DUZ	PSOCPDUP+11, PSOCPDUP+15, ASKCAN+1, ASKCAN+2, ASKCAN+10, ASKCAN+14
FSIG	DATA+3!, DATA+4!
FSIG(	DATA+3
IOF	REMOTE+5
ISSD	EXIT!, DATA*, DATA+1
J	EXIT!, DATA+1*
LSTFL	EXIT!, DATA+10*
MSG	EXIT!, DUP+1, ASKCAN+10, ASKCAN+14, ASKCAN+16, CLS
PHYS	EXIT!, DATA+8*, DATA+9
PSOCD	EXIT!
PSOCLC	EXIT!, ASKCAN+10, ASKCAN+14
PSOCLOZ	EXIT!
PSOCPCLS	PSOCPDUP+16*!, ASKCAN+5, ASKCAN+12, ASKCAN+17!
>> PSODFN	REMOTE+6
>> PSODRUG("IEN"	REMOTE+6
>> PSODRUG("NAME"	PSOCPDUP+11, PSOCPDUP+15, PSOCPDUP+16
>> PSODRUG("VA C	LASS" , PSOCPDUP+16, CLS+1
PSOELSE	CLS+2*, CLS+3, CLS+4!
PSOLDT	EXIT!
PSOLR	EXIT!
PSOMSG	ASKCAN+5!, ASKCAN+6, ASKCAN+8!
>> PSONOOR	ASKCAN+16*
PSONULN	PSOCPDUP+7*, EXIT!, DUP, DATA+11, CLS
>> PSOPAR	PSOCPDUP+12, PSOCPDUP+13, PSOCPDUP+14, DATA+11, ASKCAN+1, ASKCAN+2, CLS+2
>> PSORX("DFLG"	PSOCPDUP+8, PSOCPDUP+11, PSOCPDUP+12, PSOCPDUP+13, PSOCPDUP+14, PSOCPDUP+15, ASKCAN+1, ASKCAN+2, ASKCAN+4, ASKCAN+5 , ASKCAN+10, ASKCAN+13, REMOTE+1
>> PSORX("PATIEN	T STATUS" , DATA+11
>> PSOSD(	PSOCPDUP+8, PSOCPDUP+16, DUP, DUP+1, ASKCAN, ASKCAN+3, ASKCAN+8, ASKCAN+13, CLS+1, CLS+2
PSREV	DATA+3, DATA+4!, DATA+6, DATA+7!
REA	EXIT!, ASKCAN+10, ASKCAN+14, ASKCAN+16
RFLS	EXIT!, DATA*, DATA+8, DATA+9
RX0	EXIT!, DATA*, DATA+1!
RX2	EXIT!, DATA*, DATA+1!
RXREC	EXIT!, DUP+1, DATA, DATA+1, DATA+2, DATA+3, DATA+4, DATA+9, DATA+10, ASKCAN+9 , ASKCAN+11, ASKCAN+16, CLS+2
RXRECCOP	ASKCAN+5, ASKCAN+7, CLS+2*, CLS+4!, ULRX+1, ULRX+2
RXRECLOC	ASKCAN+13!
SIG	EXIT!, DATA*
ST	EXIT!, DATA+1
>> STA	PSOCPDUP+7, PSOCPDUP+8, PSOCPDUP+9, PSOCPDUP+10, PSOCPDUP+16, DUP, DUP+1, ASKCAN, ASKCAN+3, ASKCAN+8 , ASKCAN+13, ASKCAN+16, CLS+1, CLS+2
Y	EXIT!, ASKCAN+10
ZZ	EXIT!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPDUP

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items