Routine: PSXCSMON

Package	Total	Call Graph
CMOP	2	(,EX)^PSXCSMN1 (END,MN,NAME)^PSXCSUTL
Kernel	2	^%ZIS ^%ZTLOAD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;Loops thru all facilities
EN	;Get month, specific drug (if desired), facility, & div
ALLDV	;Loops thru all divs
MIN	;If user selected specific drug, get minimum # of refills to print
DEV	;Device handling
START	;Queued entry point
DRUG	;Gets drug data & sets ^TMP nodes
DATE	;Entry point if specific fac & div OR this is called by ALL & ALLDV

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: MIN+1
Function Call: WRITE	Prompt: ! Line Location: MIN+4
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Printout must be sent to a 132-column printer!",!! Line Location: DEV+2
Routine Call	DIR Line Location: MIN+2 MIN+5
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	DRUG+5, DRUG+7
^PSDRUG("AQ1"	DRUG+3
^PSX(552.5	ALL+1, ALLDV+1, DATE+1, DATE+2, DATE+3, DRUG+1, DRUG+2, DRUG+4
^TMP($J	START+1!, DRUG+5, DRUG+6, DRUG+7*

Name	Field # of Occurrence
^(	DATE+3, DRUG+6, DRUG+7
^(0	DRUG+2

Name	Field # of Occurrence
%ZIS	DEV+1!*
%ZIS("B"	DEV+1*
DIR	MIN+2!, MIN+5!
DIR("?"	MIN+1, MIN+4
DIR("A"	MIN+1, MIN+4
DIR("B"	MIN+1, MIN+4
DIR(0	MIN+1, MIN+4
>> DIRUT	MIN+2, MIN+5
IO	START+1
IO("Q"	DEV+3, DEV+4!
IOM	DEV+2
ION	DEV+1
IOP	DEV+1!
IOST	DEV+2
POP	DEV+1!
>> PSXBDT	START+1, DATE+2
>> PSXBDTH	START+1*
>> PSXDG	DATE+3*, DRUG+1, DRUG+2, DRUG+4
>> PSXDGID	DRUG+1*, DRUG+3
>> PSXDT	DATE+2*, DATE+3, DRUG+1, DRUG+2, DRUG+4
>> PSXDV	START+1, START+3, ALL+1, ALLDV+1, DATE+1, DRUG+4*, DRUG+5, DRUG+6, DRUG+7
>> PSXEDT	START+1*, DATE+2
>> PSXFAC	START+3, ALL+1*, ALLDV+1, DATE+1, DATE+2, DATE+3, DRUG+1, DRUG+2, DRUG+4, DRUG+5 , DRUG+6, DRUG+7
>> PSXG	DEV+3*
>> PSXID	MIN+1, DRUG+1
>> PSXIDG	DRUG+3*, DRUG+5, DRUG+7
>> PSXIDV	DATE+1*, DATE+2, DATE+3, DRUG+1, DRUG+2, DRUG+4
PSXION	DEV+1*, DEV+3!
>> PSXMC	MIN+5*, DRUG+2
>> PSXNAM	DRUG+5, DRUG+6, DRUG+7
>> PSXOUT	EN+1
>> PSXPG	START+1*
>> PSXRF	MIN+2*, DRUG+2
PSXSPDV	START+1!*
>> Y	MIN+2, MIN+5, DRUG+4*, DRUG+5, DRUG+6, DRUG+7
>> ZTDESC	DEV+3*
>> ZTRTN	DEV+3*
>> ZTSAVE(	DEV+3*
ZTSK	DEV+1!, DEV+4