Routine: PSJOCDT

Information

PSJOCDT ;BIR/MV - PROCESS DUPLICATE THERAPY ORDER CHECKS ;6 Jun 07 / 3:37 PM [9/8/14 1:10pm]

Package	Total	Call Graph
Inpatient Medications	6	CLNDISP^PSJCLNOC PAUSE^PSJLMUT1 (LINE,MYWRITE,PAUSE,WRITE)^PSJMISC DSPORD^PSJOC DC^PSJOCDC $$CKDC^PSJOCDT
VA FileMan	2	GETS^DIQ ^DIR
Outpatient Pharmacy	1	EN^PSODRDU2

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: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSJMISC2 PSJOC PSJOCDT

Entry Points

Name	Comments	DBIA/ICR reference
DT	;
DTDGCK	;This version of DT is only executed when the user selects hidden action CK (Drug Check)
DSPOC	;
HDR	;
HDR2	;
SETCLASS	;Store all classes to display at the end.
SETOC	;Set PSJOCDT array to sort by Package(Inpt, Outpt: Active, Remote, Pending, Non-VA
CONT	;Display the continue prompt.
DCPROMPT()	;Prompt if user wants to DC order(s)
SORTLST()	;Sort orders into a numeric list
LST()	;
PROCLST(PSJY)	;DC the orders selected by user
CKDC()	; rule: don't show orders that have a status of DISCONTINUED in list

External References

Name	Field # of Occurrence
GETS^DIQ	CKDC+4
^DIR	CONT+5, DCPROMPT+5, LST+6
CLNDISP^PSJCLNOC	DSPOC+17
PAUSE^PSJLMUT1	DSPOC+3, DSPOC+29
LINE^PSJMISC	DSPOC+28, HDR+4
MYWRITE^PSJMISC	DSPOC+24
PAUSE^PSJMISC	DSPOC+10, DSPOC+15, DSPOC+19, DSPOC+22, DSPOC+25, DSPOC+31, HDR2+4, LST+3, PROCLST+3
WRITE^PSJMISC	HDR+8, HDR+9, HDR+10
DSPORD^PSJOC	DSPOC+13, LST+4
DC^PSJOCDC	PROCLST+7
$$CKDC^PSJOCDT	SORTLST+11
EN^PSODRDU2	DSPOC+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+3
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+10
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+15
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+19
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+22
Function Call: WRITE	Prompt: !,"Class(es)" Line Location: DSPOC+23
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+25
Function Call: WRITE	Prompt: ! Line Location: DSPOC+26
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+29
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+30
Function Call: WRITE	Prompt: @IOF Line Location: DSPOC+31
Function Call: WRITE	Prompt: !! Line Location: DSPOC+38
Function Call: WRITE	Prompt: ! Line Location: DSPOC+41
Function Call: WRITE	Prompt: ! Line Location: DSPOC+42
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Drug(s) Ordered:" Line Location: HDR2+1
Function Call: WRITE	Prompt: !,?3,PSJDNM Line Location: HDR2+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+4
Function Call: WRITE	Prompt: ! Line Location: HDR2+5
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: ! Line Location: DCPROMPT+2
Function Call: WRITE	Prompt: @IOF Line Location: LST+3
Function Call: WRITE	Prompt: ! Line Location: LST+5
Function Call: WRITE	Prompt: @IOF Line Location: PROCLST+3
Function Call: WRITE	Prompt: ! Line Location: PROCLST+8
Routine Call	DIR Line Location: CONT+5 DCPROMPT+5 LST+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	SETOC+17
^TMP($J	DT+3, DT+5, DT+6, DTDGCK+4, DTDGCK+5, DTDGCK+6, DTDGCK+8, DTDGCK+9, DSPOC+31, HDR+3 , SETCLASS+2, SETCLASS+3, SETOC+8

Label References

Name	Line Occurrences
$$DCPROMPT	DSPOC+40
$$LST	DSPOC+42
$$SORTLST	DSPOC+35
CONT	DSPOC+33
DSPOC	DT+9, DTDGCK+11
HDR	DSPOC+5
PROCLST	DSPOC+39, DSPOC+43
SETCLASS	DT+4, DTDGCK+7
SETOC	DT+7, DTDGCK+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DCTMP	CKDC+5!, CKDC+6!, CKDC+7!
DCTMP(	CKDC+5, CKDC+6
>> DFN	DSPOC+18, CKDC+4, CKDC+5, CKDC+6
DIR	CONT+1~, DCPROMPT+1~, SORTLST+1~, LST+6!
DIR("?"	CONT+4, DCPROMPT+4
DIR("A"	CONT+3, DCPROMPT+3, LST+6*
DIR("B"	CONT+3, DCPROMPT+3
DIR(0	CONT+3, DCPROMPT+3, LST+6*
DIROUT	CONT+1~, DCPROMPT+1~
DIRUT	CONT+1~, DCPROMPT+1~, SORTLST+1~
DTOUT	CONT+1~, DCPROMPT+1~, SORTLST+1~
DUOUT	CONT+1~, DCPROMPT+1~, SORTLST+1~
IOF	DSPOC+3, DSPOC+10, DSPOC+15, DSPOC+19, DSPOC+22, DSPOC+25, DSPOC+29, DSPOC+31, HDR+3, HDR2+4 , LST+3, PROCLST+3
IOSL	DSPOC+10, DSPOC+15, DSPOC+19, DSPOC+22, DSPOC+25, HDR2+4, LST+3, PROCLST+3
>> PSGORQF	DSPOC+34, CONT+6*
>> PSGP	PROCLST+7
PSJCKFLD	CKDC+1~, CKDC+2, CKDC+3, CKDC+4, CKDC+5, CKDC+6
PSJCKPON	CKDC+1~, CKDC+2*, CKDC+4, CKDC+5, CKDC+6
PSJCLASS	DT+1~, DT+2, DTDGCK+1~, DTDGCK+2, DTDGCK+11, DSPOC+21, DSPOC+22, DSPOC+24, SETCLASS+4*
PSJCLINF	DSPOC+2~, DSPOC+9!, DSPOC+13, DSPOC+17, SETOC+3~, SETOC+5, SETOC+8, SETOC+19, SORTLST+7, PROCLST+1~ , PROCLST+5, PROCLST+6, PROCLST+7
PSJCLINF(2	DSPOC+9, PROCLST+6
PSJCLINF(3	DSPOC+9, PROCLST+6
PSJCLS	SETCLASS+1~, SETCLASS+3*, SETCLASS+4
>> PSJDGCK	DSPOC+29, DSPOC+31, DSPOC+32, DSPOC+39, DSPOC+43, HDR+6, HDR+8, HDR+9, SETOC+5, SETOC+14 , CONT+3, CONT+6
PSJDNCNT	DT+1~, DT+5, DT+6, DTDGCK+1~, DTDGCK+8, DTDGCK+9
PSJDNM	DSPOC+2~, DSPOC+7, DSPOC+8, DSPOC+9, HDR+1~, HDR+7, HDR+8, HDR+9, HDR2+2, HDR2+3 , SETOC+3~, SETOC+11, SETOC+15, SETOC+16, SETOC+17, SETOC+18, SETOC+19, SORTLST+1~, SORTLST+4, SORTLST+5 , SORTLST+7
PSJDSPON	DSPOC+2~, SORTLST+1~
PSJDSPON(	DSPOC+13, DSPOC+14, SORTLST+9, SORTLST+10
>> PSJDUPTF	DSPOC+3, DSPOC+11, DSPOC+16
PSJDXOPT	SETOC+3~, SETOC+5, SETOC+7, SETOC+8
PSJHDR	HDR+1~, HDR+5, HDR+6, HDR+8, HDR+9, HDR+10
>> PSJLIFNI	SETOC+16
PSJMONV	SORTLST+1~
PSJN	SORTLST+1~, SORTLST+4, SORTLST+11, SORTLST+12
PSJN1	DT+1~, DT+3, DT+5, DT+6, DTDGCK+1~, DTDGCK+4, DTDGCK+5, DTDGCK+6, DTDGCK+8, DTDGCK+9 , SETCLASS+2, SETCLASS+3
PSJN2	SETCLASS+1~, SETCLASS+2*, SETCLASS+3
PSJNDV	DT+1~, DT+6, DTDGCK+1~, DTDGCK+9, SETOC+4, SETOC+11
PSJOCDT	DT+1~, DTDGCK+1~, DTDGCK+11!, DSPOC+29
PSJOCDT(	DSPOC+6, DSPOC+7, DSPOC+8, DSPOC+9, SETOC+19*
PSJOCDT(10	DSPOC+29, SORTLST+3, SORTLST+5, SORTLST+7
>> PSJOCDTL(	SORTLST+11*, LST+2, LST+4, PROCLST+4, PROCLST+5, PROCLST+6
>> PSJOCDTL(""	LST+6
PSJON	PROCLST+1~, PROCLST+5*, PROCLST+7
PSJPAUSE	DSPOC+29!, DSPOC+36!
PSJPKG	SETOC+3~, SETOC+12*, SETOC+14, SETOC+19
PSJPON	DSPOC+8, DSPOC+9, DSPOC+11, DSPOC+18, SETOC+3~, SETOC+4, SETOC+6, SETOC+7, SETOC+8, SETOC+9 , SETOC+10, SETOC+14, SETOC+19
PSJPON1	SORTLST+1~
PSJPONX	DSPOC+2~, DSPOC+11, DSPOC+12, DSPOC+13, DSPOC+14, SETOC+3~, SETOC+9, SETOC+15, SETOC+16, SETOC+17 , SORTLST+1~, SORTLST+6*, SORTLST+9, SORTLST+10, SORTLST+11, CKDC+2, CKDC+3, CKDC+4, CKDC+5, CKDC+6
PSJPROSP	DT+1~, DT+8, DTDGCK+1~, DTDGCK+11!
PSJPROSP("IV"	HDR2+2, SETOC+15, SETOC+16, SETOC+17*
PSJPROSP("UD"	HDR+7, SETOC+18*
PSJS	SORTLST+1~, SORTLST+5*, SORTLST+6, SORTLST+7
PSJSEV1	SORTLST+1~
PSJSTAT	HDR+1~*
PSJTYPE	DSPOC+2~, DSPOC+6, DSPOC+7, DSPOC+8, DSPOC+9, DSPOC+12, DSPOC+16, SETOC+3~, SETOC+10, SETOC+12
PSJX	DSPOC+2~, DSPOC+22, SORTLST+1~, LST+2, LST+4, PROCLST+1~, PROCLST+2*, PROCLST+4, PROCLST+5, PROCLST+6
PSJX1	PROCLST+1~, PROCLST+2*
PSJXX	DTDGCK+1~, DTDGCK+3*, DTDGCK+5, DTDGCK+6
PSJY	DSPOC+35, DSPOC+37, DSPOC+39, DSPOC+40, DSPOC+42, DSPOC+43, PROCLST~, PROCLST+2
PSOCLINF	SORTLST+1~
PSPON	DSPOC+2~
U	SETOC+4, SETOC+11, SETOC+17
>> VALMBCK	CONT+6*
X	CONT+1~, DCPROMPT+1~, SORTLST+1~
Y	CONT+1~, CONT+6, DCPROMPT+1~, DCPROMPT+6, SORTLST+1~, LST+7

Customize PDF page

Package: Inpatient Medications