Routine: PSJPDV

Package	Total	Call Graph
Inpatient Medications	3	ENDEV^PSGTI LIST^PSJEXP0 ^PSJPDV0
VA Fileman	3	^%DT ^DIC ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
Inpatient Medications	1	PSJ PDV

Entry Points

Name	Comments	DBIA/ICR reference
SORT
DRGS
DATES	;prompt user for the range of dates
D	;get dispense drug from user
DTM
DEV	; ask print device and queue if asked to
P	;get primary drug from user
DONE
SELECT
O	;get orderable item from user
V	;get VA Class of Drug from user
DT
O1	; here if the orderable item is marked for IV use
ORDERS
MATCH	;**prompt user for the number of matches

External References

Name	Field # of Occurrence
^%DT	DT
^%ZISC	DONE
^DIC	DRGS+8
^DIR	SORT+1, SELECT+2, MATCH+3
ENDEV^PSGTI	DEV+2
LIST^PSJEXP0	ORDERS
^PSJPDV0	DEV+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ORDERS+0
Function Call: WRITE	Prompt: ! Line Location: SELECT+0
Function Call: WRITE	Prompt: ! Line Location: DRGS+0
Function Call: WRITE	Prompt: ! Line Location: MATCH+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue: " Line Location: DEV+6
Function Call: WRITE	Prompt: !!,"Dispense Drugs for ",NAME," are:" Line Location: P+1
Function Call: WRITE	Prompt: !,$P(^PSDRUG(SPDRG,0),"^") Line Location: P+2
Function Call: WRITE	Prompt: !," NONE FOUND" Line Location: P+4
Function Call: WRITE	Prompt: ! Line Location: P+5
Function Call: WRITE	Prompt: !!,"Dispense Drugs for ",NAME," are:" Line Location: O+3
Function Call: WRITE	Prompt: !,$P(^PSDRUG(SPDRG,0),"^") Line Location: O+4
Function Call: WRITE	Prompt: !," NONE FOUND" Line Location: O+6
Function Call: WRITE	Prompt: ! Line Location: O+7
Function Call: WRITE	Prompt: !!,"Additives for ",NAME," are:" Line Location: O1+1
Function Call: WRITE	Prompt: !,$P(^PS(52.6,SPDRG,0),"^") Line Location: O1+2
Function Call: WRITE	Prompt: !,$P(^PS(52.6,SPDRG,0),"^") Line Location: O1+3
Function Call: WRITE	Prompt: !," NONE FOUND" Line Location: O1+6
Function Call: WRITE	Prompt: !,$P(^PS(52.7,SPDRG,0),"^") Line Location: O1+8
Function Call: WRITE	Prompt: !,$P(^PS(52.7,SPDRG,0),"^") Line Location: O1+9
Function Call: WRITE	Prompt: !," NONE FOUND" Line Location: O1+12
Function Call: WRITE	Prompt: ! Line Location: O1+13
Function Call: WRITE	Prompt: !!,"Dispense Drugs for VA Class ",NAME," are: " Line Location: V+1
Function Call: WRITE	Prompt: !,$P(^PSDRUG(SPDRG,0),"^") Line Location: V+2
Function Call: WRITE	Prompt: ! Line Location: V+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: DT+0
Function Call: WRITE	Prompt: !,"No ",D," date chosen for notices run." Condition for execution: Y<0 Line Location: DT+0
Function Call: WRITE	Prompt: !!,"Enter the ",D," date of the range of dates where you wish to see patients ",!,"on specific drugs. The start date and stop date may be the same." Line Location: DTM+0
Function Call: WRITE	Prompt: " The stop",!,"date may not come before the start date." Condition for execution: D="stop" Line Location: DTM+0
Function Call: WRITE	Prompt: ! Line Location: DTM+0
Routine Call	DIC Line Location: DRGS+8
Routine Call	DIR Line Location: SORT+1 SELECT+2 MATCH+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(	O+2
^PS(52.6 - [#52.6]	O1+3
^PS(52.7 - [#52.7]	O1+9
^PSDRUG - [#50]	P+2, O+4, V+2
^PSDRUG("AOC"	V+2
^PSDRUG("AP"	P+2
^PSDRUG("ASP"	O+4

Label References

Name	Line Occurrences
@(	DRGS+8
DONE	DATES+1, ORDERS, SORT+1, SELECT+2, DRGS+12, MATCH+3, DEV+2
DT	DATES+1
DTM	DT
O1	O+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATES+1*!, DONE!
%DT(0	DATES+1*
>> BCNT	DRGS, DRGS+12, P+3, O+5, O1+5, O1+11, D+1, V+3*
CHOICE	DONE!
CNT	DONE!
CONT	DEV+6*, DONE!
COUNT	DRGS, DRGS+10, DONE!, P+2, P+3, O+4, O+5, O1+3, O1+5, O1+9 , O1+11, D+1, V+2, V+3*
D	DATES+1*, DONE!, DT, DTM
DIC	DRGS+3!*, DRGS+8!, DONE!
DIC("W"	DRGS+6, DRGS+7
DIC(0	DRGS+3*
DIR	SORT+1!, SELECT+2!, MATCH+3!
DIR("?"	SORT+1, SELECT+1, SELECT+2, MATCH+2
DIR("A"	SORT, SELECT, MATCH+1*
DIR("B"	SORT, MATCH+1
DIR(0	SORT, SELECT, MATCH+1*
DTIME	DEV+6, DT
DTOUT	SORT+1, SELECT+2, DRGS+8, MATCH+3, DONE!
DUOUT	SORT+1, SELECT+2, DRGS+8, MATCH+3, DONE!
FIL	O+2~*
GG	DONE+2!
GGG	DONE+2!
IEN	DRGS+8*, DONE!, P+2, O+2, O+4, O1+3, O1+9, D+1
IO	DEV+3
IOF	DONE
IOST	DEV+4, DEV+6, DONE
MATCHES	DONE+2!
NAME	DRGS+8*, DONE!, P+1, P+2, P+3, O+3, O+4, O+5, O1+1, O1+3 , O1+5, O1+7, O1+9, O1+11, D+1, V+1, V+2, V+3
ON	DONE+2!
OUT	ORDERS, DRGS+3, DRGS+8*, DONE!, DONE+2!
POP	DEV+2, DONE!
PRIM	DONE!, V+2*
PSGP	DONE!
PSGTIR	DEV+1*, DONE!
PSIVUP	DONE+2!
PSJACNWP	DONE+2!
PSJCNT	DRGS+10*, MATCH+1, MATCH+2, DONE!
PSJDOB	DONE+2!
PSJISP	DONE!
PSJISP(	P+2, O+4, O1+3, O1+9, D+1, V+2
PSJMAT	MATCH+3*, DONE!
PSJORIFN	DONE+2!
PSJPAD	DONE+2!
PSJPAGE	DONE+2!
PSJPBID	DONE+2!
PSJPCAF	DONE+2!
PSJPDD	DONE+2!
PSJPDOB	DONE+2!
PSJPDX	DONE+2!
PSJPHT	DONE+2!
PSJPHTD	DONE+2!
PSJPPID	DONE+2!
PSJPRB	DONE+2!
PSJPSEX	DONE+2!
PSJPSSN	DONE+2!
PSJPTD	DONE+2!
PSJPTS	DONE+2!
PSJPTSD	DONE+2!
PSJPTSP	DONE+2!
PSJPWD	DONE+2!
PSJPWDN	DONE+2!
PSJPWT	DONE+2!
PSJPWTD	DONE+2!
PSJREPF	DATES+1*, DONE!
PSJREPS	DATES+1*, DONE!
PSJSL	SELECT+2*, DRGS+3, DRGS+4, DRGS+8, DONE!
PSJSNM	DONE!
PSJSNM(	P+2, P+3, O+4, O+5, O1+3, O1+5, O1+9, O1+11, D+1, V+2 , V+3
PSJSRT	SORT+1*, DONE!
QFLG	DRGS+8*, DRGS+12, DEV+6, DONE!
SPDRG	DONE!, P+2, O+4, O1+3, O1+9, V+2*
U	DRGS+8
X	DEV+1, DONE!, DT
Y	DATES+1, SORT+1, SELECT+2, DRGS+8, MATCH+3, DONE!, DT*
>> ZTDESC	DEV+1*
ZTSAVE	DEV+1!
ZTSAVE(	DEV+1*
ZTSK	DEV+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDV

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: