Routine: PSJOCDI

Package	Total	Call Graph
Inpatient Medications	5	DISPCLN^PSJCLNOC (INTERV,RINTERV)^PSJGMRA ($$GENVUID,$$VAGEN,LINE,PAUSE,WRITE)^PSJMISC MON^PSJMON DSPORD^PSJOC
Outpatient Pharmacy	1	EN^PSODRDU2

Package	Total	Caller Graph
Inpatient Medications	1	PSJOC

Name	Comments	DBIA/ICR reference
DI	;
DSPLOC	;Display drug drug interaction - sorted by severity, prospective drug (50,.01), profile drug (VAgen name), package, seq#
DSPCRTCL(PSJPSPEC,PSJPROFL)	;Display Critical orders
DISPON	; Display orders & clin effects if applied.
DISPON2	;
SORTORD	;Sort drug drug output to display in order of: Inpatient, Active Rx, Remote Rx, Pending Rx, Non_VA
OCLST(PSJ1,PSJCLINF)	;Sort orders into array to display later
CLIN(PSJSEV,PSJDNM,PSJPON,PSJDN,PSJLINE)	;
INTERV	;Log intervention. Required for Critical.
HDR(PSJDNM)	;Display the intro text on drug interaction
PSTAT(PSJPONCK)	;**Display order status - CCR 5980
DSPDRG(PSJPON,PSJDNM,PSJCLINF)	;Display order info or drug name from prospective. CCR 6454
RDIVUID	;Loop thru the "IN" global to store the VUID for remote Rx
DSPLCLIN(PSJ2)	;If the next drug on the list is diff the flag to display the clin effects.
CRITICAL	;

Name	Field # of Occurrence
DISPCLN^PSJCLNOC	DISPON+8, DISPON+14
INTERV^PSJGMRA	INTERV+23
RINTERV^PSJGMRA	INTERV+14
$$GENVUID^PSJMISC	OCLST+27
$$VAGEN^PSJMISC	OCLST+19, OCLST+26
LINE^PSJMISC	DI+19, DSPLOC+4, DSPLOC+25
PAUSE^PSJMISC	DSPLOC+4, DISPON+1, DISPON+5, DISPON+10, DISPON+16, DISPON2+3, CLIN+8, CLIN+11, DSPDRG+7
WRITE^PSJMISC	CLIN+9
MON^PSJMON	DI+21
DSPORD^PSJOC	DSPDRG+8
EN^PSODRDU2	DISPON+15

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*** REFER TO MONOGRAPH FOR SIGNIFICANT INTERACTION CLINICAL EFFECTS",! Line Location: DI+18
Function Call: WRITE	Prompt: ! Line Location: DI+20
Function Call: WRITE	Prompt: @IOF Line Location: DSPLOC+4
Function Call: WRITE	Prompt: ! Line Location: DSPLOC+30
Function Call: WRITE	Prompt: @IOF Line Location: DISPON+1
Function Call: WRITE	Prompt: @IOF Line Location: DISPON+5
Function Call: WRITE	Prompt: @IOF Line Location: DISPON+10
Function Call: WRITE	Prompt: @IOF Line Location: DISPON+16
Function Call: WRITE	Prompt: @IOF Line Location: DISPON2+3
Function Call: WRITE	Prompt: ! Line Location: CLIN+7
Function Call: WRITE	Prompt: @IOF Line Location: CLIN+8
Function Call: WRITE	Prompt: ! Line Location: CLIN+10
Function Call: WRITE	Prompt: @IOF Line Location: CLIN+11
Function Call: WRITE	Prompt: !,?8,$G(PSJDNM)_$G(PSJSTCK),! Line Location: DSPDRG+3
Function Call: WRITE	Prompt: !?8,$G(PSJDNM)_" (Prospective)",! Line Location: DSPDRG+4
Function Call: WRITE	Prompt: @IOF Line Location: DSPDRG+7

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	PSTAT+25, PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30
^PS(55 - [#55]	PSTAT+32, PSTAT+33, PSTAT+34, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41, PSTAT+42 , PSTAT+43, PSTAT+44, PSTAT+45, PSTAT+46, PSTAT+47, PSTAT+48
^PSRX - [#52]	PSTAT+8, PSTAT+9, PSTAT+10, PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14, PSTAT+15, PSTAT+16, PSTAT+17 , PSTAT+18, PSTAT+19, PSTAT+20, PSTAT+21
^TMP($J	DI+8, DI+9, DI+10, DI+12, DI+13, DI+17, SORTORD+2, OCLST+15, OCLST+24, CLIN+5 , CLIN+6, HDR+3, HDR+4, RDIVUID+4, RDIVUID+5, DSPLCLIN+11, DSPLCLIN+12

Name	Line Occurrences
$$DSPLCLIN	DISPON2+2
$$PSTAT	HDR+4
CLIN	DISPON2+2
CRITICAL	DI+15
DISPON	DSPLOC+29, DSPCRTCL+7
DSPCRTCL	DSPLOC+20
DSPDRG	DISPON+9
DSPLOC	DI+16
HDR	DISPON+4
INTERV	DI+22
OCLST	SORTORD+5, SORTORD+6
RDIVUID	DI+5
SORTORD	DI+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DISPON+15, PSTAT+32, PSTAT+33, PSTAT+34, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41 , PSTAT+42, PSTAT+43, PSTAT+44, PSTAT+45, PSTAT+46, PSTAT+47, PSTAT+48
IOF	DSPLOC+4, DISPON+1, DISPON+5, DISPON+10, DISPON+16, DISPON2+3, CLIN+8, CLIN+11, DSPDRG+7
IOSL	DISPON+1, DISPON+5, DISPON+10, DISPON+16, DISPON2+3, CLIN+8, CLIN+11, DSPDRG+7
PDJDNV	SORTORD+1~
>> PSGORQF	DI+8, DI+9, DI+10, DI+13, INTERV+6, INTERV+9, INTERV+17, INTERV+19
PSJ1	OCLST~, OCLST+13, OCLST+20, OCLST+23
PSJ2	DI+1~, DI+6, DSPLOC+1~, DSPLOC+27, DSPLOC+28, DSPCRTCL+1~, DSPCRTCL+5, DSPCRTCL+6, DISPON2+1, DISPON2+2 , OCLST+14, OCLST+20, OCLST+23, DSPLCLIN~, DSPLCLIN+2, DSPLCLIN+3, DSPLCLIN+5, CRITICAL+10*, CRITICAL+12
PSJ2N	DSPLCLIN+1~, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8
PSJCKOS	PSTAT+1~, PSTAT+2, PSTAT+8, PSTAT+9, PSTAT+10, PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14, PSTAT+15 , PSTAT+16, PSTAT+17, PSTAT+18, PSTAT+19, PSTAT+20, PSTAT+21
PSJCKST	PSTAT+1~, PSTAT+2, PSTAT+4, PSTAT+6, PSTAT+7, PSTAT+8, PSTAT+22, PSTAT+23, PSTAT+24, PSTAT+25 , PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30, PSTAT+31, PSTAT+32, PSTAT+33, PSTAT+34, PSTAT+35* , PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+40, PSTAT+41, PSTAT+42, PSTAT+43, PSTAT+44, PSTAT+45* , PSTAT+46, PSTAT+47, PSTAT+48*, PSTAT+49
PSJCLINC	DSPLCLIN+1~, DSPLCLIN+11*, DSPLCLIN+13
PSJCLINF	DI+1~, DI+11, DI+12, DSPLOC+1~, DISPON+3*, DISPON+8, DISPON+9, DISPON+14, SORTORD+5, SORTORD+6 , OCLST~, OCLST+20, OCLST+23, DSPDRG~, DSPDRG+8
PSJCLINN	DSPLCLIN+1~, DSPLCLIN+12*, DSPLCLIN+13
PSJCLINV	CLIN+3~, CLIN+6*, CLIN+8
PSJCNT	HDR+1~, HDR+3, HDR+4, PSTAT+1~, PSTAT+2, PSTAT+23
PSJCRTCL	DI+1~
PSJCRTCL(	DSPLOC+17, DSPLOC+18, DSPLOC+19, CRITICAL+12*
PSJDD	INTERV+3~, INTERV+10, INTERV+20
PSJDDSV	INTERV+4!
>> PSJDEFLG	DSPLOC+4*
>> PSJDGCK	DI+11, DI+22, INTERV+14, INTERV+23, HDR+3, HDR+9, PSTAT+4
PSJDN	DI+1~, DI+13, DSPLOC+1~, SORTORD+2, OCLST+15, OCLST+20, OCLST+23, OCLST+24, OCLST+32, CLIN~ , INTERV+3~, INTERV+9, INTERV+10, INTERV+19*, INTERV+20
PSJDNM	DI+1~, DI+9*, DI+10, DI+13, SORTORD+2, OCLST+15, OCLST+19, OCLST+20, OCLST+23, OCLST+24 , OCLST+32, CLIN~, CLIN+5, CLIN+6, HDR~, HDR+4, HDR+8, HDR+12, DSPDRG~, DSPDRG+4
PSJDNV	DSPLOC+1~, DSPLOC+28, DSPCRTCL+6, DISPON+2, DISPON+3, DISPON+4, DISPON+9, DISPON+14, SORTORD+2, OCLST+12~ , OCLST+15, OCLST+16, OCLST+19, OCLST+20, OCLST+23, OCLST+26, OCLST+27, OCLST+29, OCLST+32
PSJDNVC	DSPLCLIN+1~, DSPLCLIN+3*, DSPLCLIN+4
PSJDNVN	DSPLCLIN+1~, DSPLCLIN+8*, DSPLCLIN+9
>> PSJDNX	CLIN+5*, CLIN+6
>> PSJDRGIF	DSPLOC+4, DISPON+7, DISPON+11
PSJDSPON	DSPLOC+1~, DSPLOC+22!, DISPON+4!
PSJDSPON(	DISPON+12, DISPON+13, DSPDRG+5, DSPDRG+6
PSJDXOPT	DI+1~, DI+11*, DI+12
PSJGROUP	DI+1~, DSPLOC+18, DSPLOC+19, CRITICAL+1~, CRITICAL+2, CRITICAL+7*, CRITICAL+12
PSJHDR	DI+1~, DISPON+4*
PSJHDRS	DSPLOC+1~, DSPLOC+6, DISPON+4
PSJIND	PSTAT+1~, PSTAT+2, PSTAT+23, PSTAT+24, PSTAT+31, PSTAT+40
PSJINTVD	INTERV+3~, INTERV+4!
PSJINTVD(	INTERV+12, INTERV+13, INTERV+21, INTERV+22
PSJLINE	DSPLOC+6, DISPON2+1, DISPON2+2, CLIN~, CLIN+4*
PSJMON	DI+1~, DI+21
PSJMON(	OCLST+30, OCLST+32, OCLST+33, OCLST+35, OCLST+41
PSJMONTI	OCLST+12~, OCLST+24, OCLST+25, OCLST+30, OCLST+31, OCLST+32, OCLST+33, OCLST+35, OCLST+41
PSJMONV	OCLST+12~, OCLST+30*, OCLST+34, OCLST+35, OCLST+37
PSJNDV	INTERV+3~, INTERV+10, INTERV+12, INTERV+13, INTERV+14, INTERV+20, INTERV+21, INTERV+22, INTERV+23
PSJNDX	CLIN+3~
PSJNEXT	CRITICAL+1~, CRITICAL+2, CRITICAL+6, CRITICAL+9, CRITICAL+11, CRITICAL+13*
PSJOCLST	DI+1~
PSJOCLST(	DSPLOC+8, DSPLOC+9, DSPLOC+10, DSPLOC+11, DSPLOC+24, DSPLOC+26, DSPLOC+27, DSPLOC+28, OCLST+20, OCLST+23 , INTERV+6, INTERV+7, INTERV+8, INTERV+9, INTERV+10, INTERV+17, INTERV+18, INTERV+19, INTERV+20, DSPLCLIN+3 , DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+4, CRITICAL+5, CRITICAL+8, CRITICAL+10, CRITICAL+12
PSJOCLST(""	DI+14, DSPLOC+7
PSJOCLST("C"	DSPCRTCL+4, DSPCRTCL+5, DSPCRTCL+6
PSJON1	OCLST+12~, OCLST+37*, OCLST+39, OCLST+40, OCLST+42!
PSJON2	OCLST+12~, OCLST+38*, OCLST+39, OCLST+40, OCLST+42!
PSJONCK	PSTAT+1~, PSTAT+2, PSTAT+23, PSTAT+25, PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30, PSTAT+32 , PSTAT+33, PSTAT+34, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41, PSTAT+42, PSTAT+43 , PSTAT+44, PSTAT+45, PSTAT+46, PSTAT+47, PSTAT+48
PSJONFG	OCLST+12~, OCLST+36, OCLST+39, OCLST+40*, OCLST+41, OCLST+42!
PSJONFLG	DI+1~, DI+22, DISPON+7, DISPON+11
PSJP	DSPLOC+1~, DISPON+8, DISPON+14
PSJP(	DISPON+2*
PSJP(1	DISPON2+2
PSJP(2	DISPON2+2
PSJP(4	DISPON+9, DISPON+12, DISPON+13, DISPON+15, DISPON2+2
PSJP(5	DISPON2+2
PSJPAUSE	DSPLOC+3!
PSJPC	DSPLCLIN+1~
PSJPC(	DSPLCLIN+4*
PSJPC(1	DSPLCLIN+10, DSPLCLIN+11
PSJPC(2	DSPLCLIN+10, DSPLCLIN+11
PSJPC(4	DSPLCLIN+10, DSPLCLIN+11
PSJPC(5	DSPLCLIN+10, DSPLCLIN+11
PSJPN	DSPLCLIN+1~
PSJPN(	DSPLCLIN+9*
PSJPN(1	DSPLCLIN+10, DSPLCLIN+12
PSJPN(2	DSPLCLIN+10, DSPLCLIN+12
PSJPN(4	DSPLCLIN+10, DSPLCLIN+12
PSJPN(5	DSPLCLIN+10, DSPLCLIN+12
PSJPON	DI+1~, DI+10, DI+12, DI+13, DSPLOC+1~, SORTORD+2, SORTORD+3, SORTORD+4, SORTORD+6, OCLST+15 , OCLST+20, OCLST+23, OCLST+24, OCLST+27, OCLST+32, OCLST+38, CLIN~, CLIN+5, CLIN+6, DSPDRG~ , DSPDRG+1, DSPDRG+4, DSPDRG+5, DSPDRG+6, DSPDRG+8, RDIVUID+1~, RDIVUID+3, RDIVUID+4*, RDIVUID+5, RDIVUID+6
PSJPONCK	PSTAT~, PSTAT+6, PSTAT+7, PSTAT+8, PSTAT+9, PSTAT+10, PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14 , PSTAT+15, PSTAT+16, PSTAT+17, PSTAT+18, PSTAT+19, PSTAT+20, PSTAT+21, PSTAT+22, PSTAT+23
PSJPROFL	DSPLOC+1~, DSPCRTCL~, DSPCRTCL+3, DSPCRTCL+4, DSPCRTCL+5, DSPCRTCL+6, OCLST+12~, INTERV+3~, INTERV+7, INTERV+8 , INTERV+9, INTERV+10, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+5, CRITICAL+8, CRITICAL+10 , CRITICAL+12
PSJPSPEC	DSPLOC+1~, DSPLOC+24, DSPLOC+26, DSPLOC+27, DSPLOC+28, DSPCRTCL~, DSPCRTCL+2, DSPCRTCL+4, DSPCRTCL+5, DSPCRTCL+6 , DISPON2+1, OCLST+12~, OCLST+16, OCLST+20, OCLST+23, INTERV+6, INTERV+7, INTERV+8, INTERV+9, INTERV+10 , INTERV+17, INTERV+18, INTERV+19, INTERV+20, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+4* , CRITICAL+5, CRITICAL+8, CRITICAL+10, CRITICAL+12
PSJRDI	DI+1~, RDIVUID+2!
PSJRDI(	OCLST+27, RDIVUID+6*
PSJSEV	DI+1~, DI+8, DI+9, DI+10, DI+13, DSPLOC+1~, DSPLOC+15, DSPLOC+23, DSPLOC+24, DSPLOC+26 , DSPLOC+27, DSPLOC+28, DISPON+4, DISPON2+1, DISPON2+2, SORTORD+2, OCLST+15, OCLST+18, OCLST+20, OCLST+22 , OCLST+23, OCLST+24, OCLST+32, OCLST+35, CLIN~, CLIN+2, CLIN+5, CLIN+6, INTERV+3~, INTERV+6 , INTERV+7, INTERV+8, INTERV+9, INTERV+10, INTERV+17, INTERV+18, INTERV+19, INTERV+20, HDR+7, HDR+11 , DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+3, CRITICAL+4, CRITICAL+5, CRITICAL+8, CRITICAL+10 , CRITICAL+12
PSJSORT	DI+1~, DSPLOC+1~, DSPLOC+17, DSPLOC+18, DSPLOC+19, DSPLOC+26, DSPLOC+27, DSPLOC+28, DSPCRTCL+1~, DSPCRTCL+4* , DSPCRTCL+5, DSPCRTCL+6, DISPON+6, DISPON+11, DISPON2+1, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8 , CRITICAL+8*, CRITICAL+10, CRITICAL+12
PSJSORTN	DSPLCLIN+1~, DSPLCLIN+6*
PSJSTCK	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+8
PSJTYPE	INTERV+3~, INTERV+8, INTERV+9, INTERV+10, INTERV+18, INTERV+19, INTERV+20
PSJVAGEN	OCLST+12~, OCLST+19, OCLST+20, OCLST+26, OCLST+27, OCLST+28, OCLST+29, OCLST+30, OCLST+32, OCLST+33 , OCLST+35, OCLST+41
PSJVUID	RDIVUID+1~, RDIVUID+5*, RDIVUID+6
PSJX	DSPLOC+1~, SORTORD+1~, SORTORD+4, SORTORD+5, CLIN+3~, CLIN+8, CLIN+9
PSJXDN	DSPLOC+1~, DSPLOC+11*, DISPON2+1
PSJXNM	DSPLOC+1~, DSPLOC+8*, DSPLOC+9, DSPLOC+10, DSPLOC+11, DISPON2+1
PSJXNM1	DSPLOC+1~, DSPLOC+9*, DSPLOC+10, DSPLOC+11
PSJXSEV	DSPLOC+1~, DSPLOC+7*, DSPLOC+8, DSPLOC+9, DSPLOC+10, DSPLOC+11, DISPON2+1
PSJXSORT	DSPLOC+1~, DSPLOC+10*, DSPLOC+11, DISPON2+1
U	DSPLOC+20, DISPON+2, DISPON+3, DISPON+4, DISPON+9, DISPON+14, OCLST+16, OCLST+19, OCLST+20, OCLST+23 , OCLST+26, OCLST+27, OCLST+29, OCLST+32, OCLST+33, OCLST+35, OCLST+37, OCLST+41, INTERV+10, INTERV+12 , INTERV+13, INTERV+14, INTERV+20, INTERV+21, INTERV+22, INTERV+23, HDR+4, PSTAT+8, PSTAT+9, PSTAT+10 , PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14, PSTAT+15, PSTAT+16, PSTAT+17, PSTAT+18, PSTAT+19, PSTAT+20 , PSTAT+21, PSTAT+25, PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30, PSTAT+32, PSTAT+33, PSTAT+34 , PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41, PSTAT+42, PSTAT+43, PSTAT+44, PSTAT+45 , PSTAT+46, PSTAT+47, PSTAT+48, RDIVUID+5, DSPLCLIN+4, DSPLCLIN+9, CRITICAL+12
X	DSPLOC+1~, DSPLOC+19, DSPLOC+20, DISPON+2, DSPLCLIN+4, DSPLCLIN+9

Customize PDF page

Package: Inpatient Medications

Routine: PSJOCDI

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: