Routine: PSGWADP1

Information

PSGWADP1 ;BHAM ISC/PTD,CML-Print Data for AMIS Stats - CONTINUED ; 30 Aug 93 / 10:13 AM

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWADP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,PSGWNM Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?5,PSGWNM Line Location: ONDM+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue: " Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"PAGE: ",PSGWPG,?110,"DATE: ",Y,!?50,"DATA FOR AR/WS AMIS STATS",!!,"TYPE",?47,"ORDER",?59,"PRICE PER",?73,"DISPENSE UNITS",?90,"PRICE PER",?105,"AMIS",?120,"AMIS CONV.",! Line Location: HDR+2
Function Call: WRITE	Prompt: ?5,"DRUG NAME",?47,"UNIT",?59,"ORDER UNIT",?73,"PER ORDER UNIT",?90,"DISPENSE UNIT",?105,"CATEGORY",?120,"NUMBER",! Line Location: HDR+3
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: ?47,$P(LOC,"^"),?61,$P(LOC,"^",2),?75,$P(LOC,"^",3),?90,$P(LOC,"^",4),?105,$P(LOC,"^",5),?120,$P(LOC,"^",6) Line Location: WRTDATA+1
Routine Call	DIR Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^PSI(58.16 - [#58.16]	WRTYPE
^TMP("PSGWADP"	PRINT+1, ONDM, END!, WRTDATA

Name	Field # of Occurrence
%	END!
%DT	END!, HDR+2*
%H	END!
%I	END!
AUTO	DONE+1*, END!
DA	END!
DIR	HDR+1!
DIR(0	HDR+1*
DTIME	DONE+1
I	END!
IO("Q"	END!
IOF	DONE, HDR+2
IOSL	PRINT+1, PRINT+2, ONDM
IOST	DONE, DONE+1, HDR+1
J	PRINT+1, ONDM, END!, HDR+4, WRTDATA
K	END!
LOC	END!, WRTDATA*, WRTDATA+1
LOC1	END!
LOC2	END!
OUNIT	END!
OUPTR	END!
OUT	PRINT, PRINT+1, PRINT+2, ONDM, DONE+1, END!, HDR+1
PSGWAOU	END!
PSGWDR	END!
PSGWDT	END!
PSGWIO	END!
PSGWITM	END!
PSGWNM	PRINT+1, PRINT+2, ONDM, END!, WRTDATA
PSGWPG	PRINT, END!, HDR+1, HDR+2, HDR+5
PSGWTY	PRINT+1*, END!, WRTYPE, WRTDATA
X	END!, HDR+2*
Y	END!, HDR+1, HDR+2
ZTIO	END!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTSK	END!