Routine: PSODDPR5

Package	Total	Call Graph
Outpatient Pharmacy	8	(DGSORT,HD)^PSODDPR2 (CLASSES,VAGEN)^PSODDPR3 RVAGEN^PSODDPR4 CRI^PSODGDG1 ^PSODGDGP JUMP^PSODIR1 (POST,SET,TRADE)^PSODRG ($$PSOSUPCK,PSOCK)^PSOUTL
VA FileMan	5	^%DT C^%DTC MIX^DIC1 ^DIR ^DIWP
List Manager	1	FULL^VALM1
National Drug File	1	$$PROD0^PSNAPIS
Toolkit	1	GETIREF^XTID

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSO DRUG CHECK PSODDPR2 PSOORRDI
Kernel	1	^ORD(101
Pharmacy Data Management	1	PSSDIUTL

Name	Comments	DBIA/ICR reference
EXC	;displays order check exceptions	ICR #5760 Status: Pending Usage: Controlled Subscription
NOCAN	;shows duplicate therapeutic when cancel duplicate class parameter is et to 'no'
DUPCL	;
DUPCP
REMOTE	;backdoor RDI
NSRT	;sort of drug interactions ; called by psoddpr2
S2(SEV,TYP,PSOVAG,CNT)	;
NSRT1	;sort out dc'd drug therapies local and remote rxs
RVAGEN	;va generic for remote drugs
DVAGEN	;va generic for non-va/pending meds
INT	;
DGCK	;CK - Drug check option at patient profile
DGCKNP
DGCKQ
GCN(PSOIENID)	;Return 0 for not matched, 1 for matched with no GCNSEQNO, 1^1 for matched with a GCNSEQNO
PKGFLG(PKF1)	;Return 0 for not in range of acceptable package flags, 1 for within range
SELECT	;
SELECTX
CKMSG	;

Name	Field # of Occurrence
^%DT	NSRT1+9
C^%DTC	NSRT1+6, NSRT1+10
MIX^DIC1	SELECT+19
^DIR	EXC+13, EXC+21, INT+3, DGCK+6, SELECT+11, SELECT+25, SELECT+29, CKMSG+1
^DIWP	EXC+11, EXC+17
$$PROD0^PSNAPIS	REMOTE+9, GCN+4
DGSORT^PSODDPR2	NSRT+24
HD^PSODDPR2	EXC+2, EXC+20, NOCAN+11, DUPCP, DUPCP+2, DUPCP+8, DUPCP+15, DUPCP+17, DUPCP+21, DUPCP+26 , DUPCP+28
CLASSES^PSODDPR3	DUPCP+27
VAGEN^PSODDPR3	NSRT+9, DVAGEN+9
RVAGEN^PSODDPR4	RVAGEN+1
CRI^PSODGDG1	INT+7
^PSODGDGP	INT+10
JUMP^PSODIR1	SELECT+15
POST^PSODRG	DGCKNP
SET^PSODRG	DGCK+9
TRADE^PSODRG	SELECT+35
$$PSOSUPCK^PSOUTL	SELECT+20
PSOCK^PSOUTL	DGCK+5
FULL^VALM1	DGCK+1, DGCK+4
GETIREF^XTID	REMOTE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",1,ZX,0) Line Location: EXC+12
Function Call: WRITE	Prompt: ! Line Location: EXC+13
Function Call: WRITE	Prompt: @IOF Line Location: EXC+13
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",1,ZX,0) Line Location: EXC+18
Function Call: WRITE	Prompt: !! Line Location: EXC+21
Function Call: WRITE	Prompt: ! Line Location: EXC+21
Function Call: WRITE	Prompt: ! Line Location: EXC+21
Function Call: WRITE	Prompt: !,PSONULN,!,"* THERAPEUTIC DUPLICATION(S) * "_PSODRUG("NAME")_" with",! Line Location: NOCAN+11
Function Call: WRITE	Prompt: $P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: DUPCP+12
Function Call: WRITE	Prompt: $P(^PSDRUG($P(DUPRX0,"^",9),0),"^") Line Location: DUPCP+13
Function Call: WRITE	Prompt: !?2,"Remote Rx #"_RDIRX_" ("_$P(RXDAT,"^",4)_") for "_$P(RXDAT,"^",3) Line Location: DUPCP+17
Function Call: WRITE	Prompt: $P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: DUPCP+23
Function Call: WRITE	Prompt: $P(^PSDRUG($P(DUPRX0,"^",2),0),"^") Line Location: DUPCP+24
Function Call: WRITE	Prompt: ! Line Location: DGCK+6
Function Call: WRITE	Prompt: @IOF,! Line Location: DGCK+6
Function Call: WRITE	Prompt: ! Line Location: DGCK+8
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: SELECT+4
Function Call: WRITE	Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM" Line Location: SELECT+12
Function Call: WRITE	Prompt: !!,"Duplicate Drug in Patient profile, please select a different drug:",! Line Location: SELECT+24
Function Call: WRITE	Prompt: @IOF Line Location: SELECT+25
Function Call: WRITE	Prompt: !!,"Not enough active profile drugs to perform drug check",! Line Location: CKMSG+1
Routine Call	DIR Line Location: EXC+13 EXC+21 INT+3 DGCK+6 SELECT+11 SELECT+25 SELECT+29 CKMSG+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	DUPCP+12, DUPCP+23
^PS(50.7 - [#50.7]	DUPCP+12, DUPCP+23
^PS(52.41 - [#52.41]	DUPCP+9, DUPCP+10, NSRT+7
^PS(55 - [#55]	DUPCP+19, DUPCP+20, NSRT+8
^PSDRUG - [#50]	DUPCP+6, DUPCP+13, DUPCP+24, REMOTE+6, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7 , GCN+2, SELECT+2
^PSDRUG("ASP"	DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
^PSDRUG("B"	NSRT+9, DVAGEN+9
^PSRX - [#52]	DUPCP+2, DUPCP+5, DUPCP+6, NSRT+5, NSRT1+4, NSRT1+5, INT+6
^TMP("PSORXDC"	NOCAN+8, NOCAN+9, DUPCL+5, DUPCL+6
^TMP("PSORXDD"	NOCAN+10, DUPCL+7
^TMP($J	EXC+4, EXC+5, EXC+7, EXC+8, EXC+11, EXC+14, EXC+20, NOCAN+2, NOCAN+3, NOCAN+6 , NOCAN+7, NOCAN+14, DUPCL+1, DUPCL+3, DUPCL+4, DUPCP+16, REMOTE+3, REMOTE+6, REMOTE+7, REMOTE+10 , NSRT+3, NSRT+4, NSRT1+2, NSRT1+3, NSRT1+7, NSRT1+9
^UTILITY($J	EXC+10!, EXC+12, EXC+16!, EXC+18, EXC+19!, NOCAN+1!

Name	Line Occurrences
CKMSG	DGCK+1, SELECT+5
DGCKQ	DGCK+1, DGCK+8
DUPCL	NOCAN+14
DUPCP	NOCAN+15
DVAGEN	NSRT+7, NSRT+8
RVAGEN	NSRT+6
S2	NSRT+23
SELECT	DGCK+7, SELECT+12, SELECT+20, SELECT+26, SELECT+31, SELECT+32
SELECTX	SELECT+5, SELECT+13, SELECT+14, SELECT+15, SELECT+30

Name	Field # of Occurrence
^(	NOCAN+3, DUPCL+1, REMOTE+3
^("I"	DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
^(0	DUPCP+12, DUPCP+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHK	NSRT+2~, NSRT+21*
CLOZPAT	SELECT+1!
CNT	NSRT+2~, NSRT+17, NSRT+23, NSRT+25!, S2~, S2+3, S2+4
COUNT	NSRT+2~, NSRT+25!, DVAGEN+11
COUNT2	S2+1~, S2+2
CT	EXC+1~, EXC+3, EXC+4, EXC+5, EXC+7, EXC+11, EXC+20, NOCAN+1, NOCAN+2, NOCAN+3 , NOCAN+14, DUPCL+1, NSRT+2~, NSRT+4, NSRT+12, NSRT+13, NSRT1+1, NSRT1+2*, NSRT1+3, DVAGEN+11
D	SELECT+16, SELECT+17, SELECT+19!
DA	INT+2~, INT+6, INT+8
DDTH	NOCAN+1!, NOCAN+14!
DDTH(	DUPCP+25*
DGCKDNM	SELECT+21, SELECT+22, SELECT+23, SELECTX!
DGCKDUPF	DGCKQ+1!, SELECT+22, SELECT+24*, SELECT+26!
DGCKSTA	SELECT+21, SELECT+22, SELECTX!
DIC	SELECT+2!, SELECT+16, SELECT+17, SELECT+19!
DIC("S"	SELECT+18*
DIC("T"	SELECT+17*
DIC(0	SELECT+16, SELECT+17
DIR	EXC+13!, EXC+21!, INT+2!, INT+4!, INT+10!, DGCK+6!, SELECT+11!, SELECT+25!, SELECT+29!, CKMSG+1!
DIR("?"	EXC+21, SELECT+11, SELECT+29, CKMSG+1
DIR("A"	EXC+13, EXC+21, INT+3, DGCK+6, SELECT+11, SELECT+25, SELECT+29, CKMSG+1
DIR("B"	INT+3*
DIR(0	EXC+13, EXC+21, INT+3, DGCK+6, SELECT+11, SELECT+25, SELECT+29, CKMSG+1
DIROUT	INT+2!, INT+4!
DIRUT	INT+2!, INT+3, INT+4!
DIWF	EXC+1~, EXC+10, EXC+16, EXC+19!, NOCAN+1*
DIWL	EXC+1~, EXC+10, EXC+16, EXC+19!, NOCAN+1*
DIWR	EXC+1~, EXC+10, EXC+16, EXC+19!, NOCAN+1*
DNM	DUPCP+9~*
DO	REMOTE+2~, REMOTE+7*, REMOTE+10
DOCPL	NOCAN+1!, NOCAN+13!
DOCPL(	DUPCL+9*, DUPCP
DRG	NSRT+2~, NSRT+4, NSRT+9, NSRT+10, NSRT+12, NSRT+13, DVAGEN+11
DT	NSRT1+6, NSRT1+10, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
DTIME	SELECT+4
DTOUT	EXC+21, INT+2!, INT+3, INT+4!, SELECT+4*, SELECT+14, SELECT+30, SELECTX!
DUOUT	EXC+21, INT+2!, INT+3, INT+4!, SELECT+31!, SELECTX!
DUPRX0	DUPCP+9~, DUPCP+10, DUPCP+12, DUPCP+13, DUPCP+20, DUPCP+23, DUPCP+24
ERRTY	EXC+1~, EXC+9*
F	NSRT+25!
I	NSRT+18*, NSRT+23, NSRT+25!
II	NSRT+2~, NSRT+23*
INDD	REMOTE+2~, REMOTE+6*
IOF	EXC+13, EXC+21, DGCK+6, SELECT+25
IOSL	EXC+2, EXC+21, NOCAN+11, DUPCP, DUPCP+2, DUPCP+8, DUPCP+15, DUPCP+17, DUPCP+21, DUPCP+26
IT	INT+10*, SELECT+2!
J	NSRT+18*, NSRT+20, NSRT+21, NSRT+23, NSRT+25!
>> LIST	EXC+4, EXC+5, EXC+7, EXC+11, EXC+20, NOCAN+2, NOCAN+3, NOCAN+14, DUPCL+1, DUPCP+16 , REMOTE+3, REMOTE+7, REMOTE+10, NSRT+3, NSRT+4, NSRT1+2, NSRT1+3, NSRT1+7, NSRT1+9
MON	DGCKQ+1!
NSRT	NSRT+2~, NSRT+25!
NSRT(	NSRT+14, NSRT+15, NSRT+18, NSRT+19
NSRT2	NSRT+2~
NVAQ	DUPCP+20~
OLDDA	INT+8!
ON	EXC+1~, EXC+6, NOCAN+3, NOCAN+4, NOCAN+5, NOCAN+6, NOCAN+7, NOCAN+8, NOCAN+9, NOCAN+10 , DUPCL+1, DUPCL+2, DUPCL+3, DUPCL+4, DUPCL+5, DUPCL+6, DUPCL+7, DUPCL+8, DUPCL+9, DUPCP , DUPCP+1, DUPCP+2, DUPCP+5, DUPCP+6, DUPCP+7, DUPCP+9, DUPCP+14, DUPCP+16, DUPCP+18, DUPCP+19 , DUPCP+20, DUPCP+25, NSRT+2~, NSRT+4, NSRT+5, NSRT+6, NSRT+7, NSRT+8, NSRT+11, NSRT+12 , NSRT+13, NSRT+17, NSRT1+3, NSRT1+4, NSRT1+5, NSRT1+6, NSRT1+7, NSRT1+8, NSRT1+10, DVAGEN+11 , INT+10*
ONT	EXC+1~, EXC+3, EXC+4, EXC+5, EXC+6, EXC+7, EXC+11, EXC+20
OP	EXC+1~, EXC+6*
OPP	EXC+1~, EXC+6*, EXC+8, EXC+14
>> OR0	SELECT+2
ORT	NOCAN+13~, DUPCL+8, DUPCL+9, DUPCP
OT	EXC+1~, EXC+6*, EXC+7, EXC+9, EXC+14
P3	REMOTE+2~, REMOTE+9*
>> PDRG	NOCAN+3, DUPCL+1
>> PDRG(	REMOTE+6
>> PDRG(0	REMOTE+6
PKF1	PKGFLG~, PKGFLG+1, PKGFLG+2, SELECT+19!
>> POERR	SELECT+2, SELECT+15
PSI	DVAGEN+1, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7*, DVAGEN+12!
PSID	DVAGEN+1~, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7, DVAGEN+8, DVAGEN+9, DVAGEN+12!
>> PSOCLNS(	NSRT+13*
PSODCTH	NSRT1+1!
PSODCTH(	NOCAN+4, NSRT1+6, NSRT1+10
PSODD	NSRT+2~, NSRT+9, DVAGEN+1~, DVAGEN+9, DVAGEN+12!
>> PSODFN	DUPCP+19, DUPCP+20, NSRT+8
PSODGCK	EXC+7, EXC+13, INT+7, INT+10, DGCK+3*, DGCKQ+1!, SELECT+3, SELECT+5
PSODGCKD	SELECT+1~, SELECT+8, SELECT+17, SELECT+18, SELECTX!
PSODGCKX	DGCK+2~, DGCKQ+1!, SELECT+6*, SELECT+22, SELECT+26!
PSODIR	SELECT+15!
PSODIR("FIELD"	SELECT+15
PSODIR("FLD"	SELECT+15*
>> PSODLQT	EXC+2, EXC+20, EXC+21, NOCAN+11, NOCAN+12, DUPCP, DUPCP+2, DUPCP+8, DUPCP+15, DUPCP+17 , DUPCP+21, DUPCP+26, DUPCP+28, REMOTE+1, REMOTE+3, NSRT+3, NSRT+4, INT+3, INT+5*, INT+9
>> PSODRG("QFLG"	SELECT+15, SELECT+33
>> PSODRUG("BAD"	EXC+7*, SELECT+2!
>> PSODRUG("DAW"	SELECT+2!
>> PSODRUG("IEN"	EXC+7, SELECT+3, SELECT+7
>> PSODRUG("NAME"	NOCAN+11, SELECT+3
>> PSODRUG("NDC"	SELECT+2!
>> PSODRUG("TRAD	E NAME" , SELECT+2!
>> PSOEDIT	SELECT+33
PSOGCNID	DGCKQ+1!, GCN+1~, GCN+4*, GCN+5
PSOGCNPT	DGCKQ+1!, GCN+1~, GCN+2*, GCN+3, GCN+4
PSOIENID	DGCKQ+1!, GCN~, GCN+2, GCN+5, GCN+6
>> PSOINTV	INT+1, INT+10
PSONAM	S2+1~, S2+2, S2+3, S2+4
PSONCROC	DGCK+3*, DGCKQ+1!
PSONDFID	DGCKQ+1!, GCN+1~, GCN+2*, GCN+3, GCN+4, GCN+5, GCN+6
>> PSONEW("DFLG"	DGCK+8, DGCKQ+1!, SELECT+5, SELECT+14, SELECT+30*
>> PSONEW("FIELD"	SELECT+15*
>> PSONEW("FLD"	SELECT+15
>> PSONEW("OLD V	AL" , SELECT+3*, SELECT+33, SELECTX!
>> PSONULN	NOCAN+11
>> PSONV	INT+6
PSORDI	REMOTE+2~, REMOTE+3*, REMOTE+6, REMOTE+7, REMOTE+10
PSORDIT	NSRT+7, NSRT+8, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7, DVAGEN+12!
>> PSORX("DFLG"	EXC+21, NSRT+3, INT+3, INT+5*, INT+9, DGCKQ+1!
>> PSORX("INTERVENE"	INT+6*
>> PSORXED	SELECT+1, SELECT+13
>> PSORXED("DFLG"	SELECT+13*
>> PSOSD	DGCK+1, DGCK+8, SELECT+5, SELECT+8, SELECT+9, SELECT+22, SELECT+27
>> PSOSD(	SELECT+8, SELECT+22
>> PSOSD(""	SELECT+8
PSOSEQN	REMOTE+3!, REMOTE+7
PSOSEQN(	REMOTE+8
PSOVAG	NSRT+2~, NSRT+10, NSRT+12, NSRT+13, NSRT+14, NSRT+15, NSRT+17, NSRT+18, NSRT+19, NSRT+23 , S2~, S2+2, S2+3, S2+4, DVAGEN+1~, DVAGEN+10, DVAGEN+11, DVAGEN+12!
>> PSOVORD	INT+1
PSOWROTE	EXC+1~, EXC+12, EXC+14, EXC+18*, EXC+21
PSOY	SELECT+34!*
PSOY(0	SELECT+34*, SELECT+35
>> PSSDGCK	EXC+7, EXC+13
Q	EXC+1~, EXC+3, EXC+9
RDIDNAM	REMOTE+2~, REMOTE+5*, REMOTE+6, REMOTE+7, REMOTE+10
RDIRX	DUPCP+16~, DUPCP+17*
RDITMP	REMOTE+2~, REMOTE+3*, REMOTE+4, REMOTE+5
RDIVUID	REMOTE+2~, REMOTE+5*, REMOTE+7, REMOTE+10
>> RX	INT+6*
RXDAT	DUPCP+14~, DUPCP+16*, DUPCP+17
RXN	NSRT1+1~, NSRT1+5, NSRT1+8, NSRT1+9
>> RXREC	NOCAN+3, NOCAN+6, NOCAN+7, NOCAN+8, NOCAN+9, NOCAN+10, DUPCL+1, DUPCL+3, DUPCL+4, DUPCL+5 , DUPCL+6, DUPCL+7, DUPCP+9, DUPCP+10, INT+6
SEQN	REMOTE+2~, REMOTE+8, REMOTE+9, REMOTE+10
SEV	NSRT+2~, NSRT+17, NSRT+18, NSRT+19, NSRT+23, S2~, S2+2, S2+3, S2+4
ST	NOCAN+13~, DUPCP+2*, DUPCP+4, DUPCP+5
STA	NOCAN+13~, DUPCP+3*, DUPCP+4
STAT	NOCAN+13~, DUPCP+4, DUPCP+5, DUPCP+6
STOP	NSRT+2~, NSRT+17, NSRT+21, NSRT+22
SUB	NOCAN+1, NOCAN+2, NOCAN+3, NOCAN+14, DUPCL+1, NSRT1+1~, NSRT1+2*, NSRT1+3
SV	NSRT+2~, NSRT+3, NSRT+4, NSRT+12, NSRT+13, NSRT+14, NSRT+15, DVAGEN+11
TCT	NOCAN+1!
TCTI	NOCAN+1!
TCTL	NOCAN+1!
TCTP	NOCAN+1!
TD	EXC+1~
TYP	NSRT+2~, NSRT+17, NSRT+19, NSRT+20, NSRT+21, NSRT+23*, S2~, S2+2, S2+3, S2+4
U	SELECT+15
>> VALMBCK	DGCKQ*
X	EXC+1~, EXC+11, EXC+17, EXC+19!, EXC+21!, NSRT1+6!, NSRT1+8!, NSRT1+9, NSRT1+10!, SELECT+2! , SELECT+4, SELECT+5, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+12, SELECT+13, SELECT+14, SELECT+15 , SELECTX!
X1	NSRT1+5, NSRT1+6!, NSRT1+8!, NSRT1+9, NSRT1+10!
X2	NSRT1+5, NSRT1+6!, NSRT1+8!, NSRT1+9, NSRT1+10!
Y	EXC+21!, NSRT1+6!, NSRT1+8!, NSRT1+9, NSRT1+10!, INT+5, SELECT+2!, SELECT+3, SELECT+7, SELECT+20 , SELECT+32, SELECT+33, SELECT+34, SELECTX!
Y(0	SELECT+23, SELECT+34
ZDGDG	NSRT+25!
ZDGDG(	NSRT+12, NSRT+23, S2+2, S2+3, S2+4, DVAGEN+11
ZEXC	EXC+1~, EXC+5*
ZHDR	NOCAN+1!, NOCAN+11*, NOCAN+12
ZI	REMOTE+2~, REMOTE+6*
ZOT	NSRT+2~, NSRT+11, NSRT+12, NSRT+13, NSRT+14, NSRT+15, DVAGEN+11
ZREA	EXC+1~, EXC+5*, EXC+7, EXC+15, EXC+17
ZX	EXC+1~, EXC+12, EXC+18
>> ZZDGCK(	S2+4*
ZZDGDG	NSRT+17!
ZZDGDG(	S2+3*
ZZDGDG3	NSRT+2~
ZZDGDG3(	NSRT+12, DVAGEN+11
ZZQ	NOCAN+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODDPR5

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: