Routine: PSXCSDC

Information

PSXCSDC ;BIR/JMB-Drug Cost by Drug Report ;[ 04/08/97 2:06 PM ]

Source file <PSXCSDC.m>

Package	Total	Call Graph
CMOP	2	(EX,EX1,PRINT)^PSXCSDC1 (IDYN,NAME)^PSXCSUTL
Kernel	2	^%ZIS ^%ZTLOAD

Name	Comments	DBIA/ICR reference
ALL	;Loops thru all facilities
ALLDV	;Loops thru all divisions
DEV	;Device handling
START	;Determines which loop to use based on user input
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: DEV+1
Function Call: WRITE	Prompt: !!,"Printout must be sent to a 132-column printer!",!! Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552.5	ALL+1, ALLDV+1, DATE+1, DATE+2, DRUG+1, DRUG+3
^TMP($J	START+1!, DRUG+4, DRUG+5, DRUG+6*

Name	Field # of Occurrence
^(	DRUG+5, DRUG+6

Name	Field # of Occurrence
%ZIS	DEV+1!*
%ZIS("B"	DEV+1*
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	DATE+1
>> PSXDG	DATE+2*, DRUG+1, DRUG+3
>> PSXDGID	DRUG+1*, DRUG+2
>> PSXDV	START+1, ALL+1, ALLDV+1, DATE+1, DRUG+3*, DRUG+4, DRUG+5, DRUG+6
>> PSXEDT	DATE+1
>> PSXFAC	START+1, ALL+1*, ALLDV+1, DATE+1, DATE+2, DRUG+1, DRUG+3, DRUG+4, DRUG+5, DRUG+6
>> PSXG	DEV+3*
>> PSXID	DRUG+2
>> PSXIDV	DATE+1*, DATE+2, DRUG+1, DRUG+3
PSXION	DEV+1*!, DEV+3!
>> PSXNAM	DRUG+4, DRUG+5, DRUG+6
>> PSXOUT	PSXCSDC+3
>> PSXPSDT	DATE+1*, DATE+2, DRUG+1, DRUG+3
PSXSPDV	START+1!*
>> Y	DRUG+3*, DRUG+4, DRUG+5, DRUG+6
>> ZTDESC	DEV+3*
>> ZTRTN	DEV+3*
>> ZTSAVE(	DEV+3*
ZTSK	DEV+1!, DEV+4!