Routine: PSJ0186

Package	Total	Call Graph
Kernel	2	^%ZISC ^%ZTLOAD
Inpatient Medications	1	$$SELDEV^PSJMUTL
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSJU SI SEARCH

Entry Points

Name	Comments	DBIA/ICR reference
F1	;determine whether print format or comma-delimited
F2
EN	; Select device and determine format
HDR
START	;find potential problem orders
EXIT

External References

Name	Field # of Occurrence
NOW^%DTC	START+2
^%ZISC	EXIT
^%ZTLOAD	F2+11
$$SELDEV^PSJMUTL	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined. It must be defined to run this routine." Line Location: EN+1
Function Call: READ	Timeout: 60 Variable: F1 Line Location: F1+1
Function Call: WRITE	Prompt: !!,"(P)rint format or (C)omma-delimited output: " Line Location: F1+1
Function Call: WRITE	Prompt: " " Line Location: F1+1
Function Call: WRITE	Prompt: "Enter P or C" Line Location: F1+3
Function Call: READ	Timeout: 60 Variable: F2 Line Location: F2+0
Function Call: WRITE	Prompt: !!,"(O)nly active or (A)ll orders: " Line Location: F2+0
Function Call: WRITE	Prompt: " " Line Location: F2+0
Function Call: WRITE	Prompt: "Enter O for a list of active or recently expired orders only" Line Location: F2+3
Function Call: WRITE	Prompt: !?10,"Enter A for all orders since PSB313 was installed." Line Location: F2+4
Function Call: WRITE	Prompt: $E($P(B,"^"),1,25),?28,$E($P(B,"^",9),6,9),?34,$E($G(^DPT(DFN,.1)),1,10),?45 Line Location: START+30
Function Call: WRITE	Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700,?57 Line Location: START+31
Function Call: WRITE	Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700," " Line Location: START+32
Function Call: WRITE	Prompt: $P(A,"^",4)," (",$S(I="UD":"UD",1:"IV"),") ",$P($G(^PS(50.7,$P(A,"^",3),0)),"^"),! Line Location: START+34
Function Call: WRITE	Prompt: $P(B,"^"),",",$E($P(B,"^",9),6,9),",",$G(^DPT(DFN,.1)),"," Line Location: START+36
Function Call: WRITE	Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700,"," Line Location: START+37
Function Call: WRITE	Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700,"," Line Location: START+38
Function Call: WRITE	Prompt: $P(A,"^",4),",(",$S(I="UD":"UD",1:"IV"),"),",$P($G(^PS(50.7,$P(A,"^",3),0)),"^"),! Line Location: START+39
Function Call: WRITE	Prompt: "Nothing to print",! Line Location: START+40
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+0
Function Call: WRITE	Prompt: RDT,?32,"SI/OPI RESEARCH",?83,"PAGE: ",PG,!! Line Location: HDR+0
Function Call: WRITE	Prompt: "PATIENT NAME",?28,"SSN",?34,"WARD",?45,"START DATE",?57,"STOP DATE",?69,"ORDER INFO",!! Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+28, START+30, START+36
^PS(50.7 - [#50.7]	START+34, START+39
^PS(55 - [#55]	START+5, START+7, START+9, START+10, START+12, START+14, START+16, START+18, START+19, START+21
^TMP("PSJ0186"	START+1!, START+13, START+22, START+24, START+27, START+40
^XPD(9.7 - [#9.7]	START+3

Name	Field # of Occurrence
^(	START+12, START+21, START+27
^(2	START+12
^(3	START+19
^(6	START+10

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1~, START+2, START+3
A	F2+6~, F2+10, START+1~, START+3, START+10, START+11, START+19, START+20, START+27*, START+31 , START+32, START+34, START+37, START+38, START+39
A0	START+1~, START+12, START+13, START+21, START+22
A2	START+1~, START+12*, START+13
AD2	START+1~, START+12, START+13, START+21, START+22
B	START+1~, START+11, START+20, START+28, START+30, START+31, START+32, START+36, START+37, START+38*
DFN	START+1~, START+6, START+7, START+9, START+10, START+12, START+13, START+15, START+16, START+18 , START+19, START+21, START+22, START+23, START+24, START+27, START+28, START+30, START+36
DUZ	EN+1
F1	EN+2~, F1+1*, F1+2, F1+3, START+23, START+29, START+35
F2	EN+2~, F2*, F2+1, F2+2, START+3
FIRST	START+1~, START+2, START+3, START+4, START+14
I	F2+6~, F2+10, START+1~, START+25, START+27, START+34, START+39
IO	START+23
IO("Q"	EN+4, F2+5
IOF	HDR
IOSL	START+33
ORDER	START+1~, START+8, START+9, START+10, START+12, START+13, START+17, START+18, START+19, START+21 , START+22, START+26, START+27
PG	START+1~, START+23, HDR
RDT	START+1~, START+2*, HDR
S1	START+1~, START+4, START+5, START+7, START+9, START+14*, START+16, START+18
START	START+1~
XSAVE	EN+2~, F2+8*, F2+10
Y	START+1~
ZTDESC	EN+2~, F2+7*
ZTRTN	EN+2~, F2+9*
ZTSAVE	START+1~
ZTSAVE(	F2+10*

Customize PDF page

Package: Inpatient Medications

Routine: PSJ0186

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
EN	F1+1
EXIT	F1+2, F2+1, F2+5
F1	F1+3, F2
F2	F2+2
HDR	START+23, START+33
START	F2+12