Routine: PSGWSTD

Information

PSGWSTD ;BHAM ISC/KKA - Standard Cost Report ; 25 Aug 97 / 9:59 AM

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	NOW^%DTC ^DIC ^DIR
Auto Replenishment Ward Stock	1	($$PSGWDT,SEL)^PSGWUTL1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW STANDARD COST REPORT

Name	Comments	DBIA/ICR reference
END
DVC	;select a device
EN1	;entry point when queued
DONE
PRINT	;print all items for the AOU and their data
PAGE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The right margin for this report is 132.",!,"You may queue the report to print at a later time.",!! Line Location: DVC+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: DVC+2
Function Call: WRITE	Prompt: !!!,"Press <RETURN> to continue: " Line Location: DONE+0
Function Call: WRITE	Prompt: !,@IOF Line Location: DONE+1
Function Call: WRITE	Prompt: !," ==>",$P(^PSI(58.1,AOU,0),"^") Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"No items found for this AOU" Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+18
Function Call: WRITE	Prompt: "_" Line Location: PRINT+18
Function Call: WRITE	Prompt: !!,"Total for ",$P(^PSI(58.1,AOU,0),"^"),?35 Line Location: PRINT+19
Function Call: WRITE	Prompt: "-" Line Location: PRINT+19
Function Call: WRITE	Prompt: @IOF,!,"Standard Cost Report",?109,"PAGE ",PAGE,!,?109,$P($$PSGWDT^PSGWUTL1,"@",1) Line Location: PAGE+2
Function Call: WRITE	Prompt: !!!,?5,"AOU",!,"ITEM",?46,"LEVEL",?72,"UNIT COST",?97,"TOTAL COST",! Line Location: PAGE+4
Function Call: WRITE	Prompt: "_" Line Location: PAGE+5
Function Call: WRITE	Prompt: ! Line Location: PAGE+6
Routine Call	%ZIS Line Location: DVC+3
Routine Call	DIC Line Location: PSGWSTD+3
Routine Call	DIR Line Location: PAGE+1
Routine Call	%ZIS Line Location: DVC+2

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PRINT+9, PRINT+10, PRINT+12
^PSI(58.1 - [#58.1]	PSGWSTD+5, PRINT+2, PRINT+3, PRINT+4, PRINT+6, PRINT+19

Name	Field # of Occurrence
^(660	PRINT+12

Name	Field # of Occurrence
%ZIS	DVC+2!*, END+1!
%ZIS("B"	DVC+2*
AOU	PSGWSTD+5, EN1+2, END+1!, PRINT+2, PRINT+3, PRINT+4, PRINT+6, PRINT+19
AOULP	PSGWSTD+4, END+1!
AOULP(	PSGWSTD+3, PSGWSTD+5, EN1+2
AUTO	DONE*, END+1!
CONV	END+1!
DIC	PSGWSTD+3*!, END+1!
DIC(0	PSGWSTD+3*
DIR	END+1!, PAGE+1!
DIR(0	PAGE+1*
DRG	END+1!, PRINT+7*, PRINT+9, PRINT+10, PRINT+12
DTIME	DONE
I	END+1!, PAGE+5*
INACT	END+1!, PRINT+8*
IO	DVC+4
IO("Q"	DVC+2!, DVC+3
IOF	DONE+1, PAGE+2
IOP	DVC+2!
IOSL	PRINT+5
IOST	DONE, PAGE+1
ITM	END+1!, PRINT+4*, PRINT+6
LVL	END+1!, PRINT+11*, PRINT+13, PRINT+14
>> MFLG	PRINT+4, PRINT+13
OUT	EN1+1, EN1+2, DONE, END+1!, PRINT+1, PRINT+4, PRINT+5, PRINT+17, PAGE+1
PAGE	EN1+1, END+1!, PAGE+1, PAGE+2, PAGE+3
POP	DVC+2, END+1!
PSGWAOUN	END+1!, PRINT+6*, PRINT+7, PRINT+8, PRINT+11
PSGWDT	EN1+1*, END+1!, PRINT+8
SEL	PSGWSTD+2, END+1!
TCST	END+1!, PRINT+13*, PRINT+16
TTCST	EN1+2, END+1!, PRINT+13, PRINT+20
UCST	END+1!, PRINT+12*, PRINT+13, PRINT+15
X	PSGWSTD+4, PSGWSTD+5, EN1+1, END+1!, PRINT+18, PRINT+19
Y	PSGWSTD+3, END+1!, PAGE+1
ZTDESC	DVC+3*, END+1!
ZTQUEUED	END, END+1!
>> ZTREQ	END*
ZTRTN	DVC+3*, END+1!
ZTSAVE	END+1!
ZTSAVE("AOULP("	DVC+3*