Routine: PSGWL

Information

PSGWL ;BHAM ISC/GRK,CML-Build AOU Inventory List ; 26 Nov 93 / 10:20 AM

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
Auto Replenishment Ward Stock	1	^PSGWPI

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW INVENTORY SHEET

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a bar coded Inventory Sheet. In order to do so, you",!,"must queue the output to a printer that is properly set up to produce bar codes.",! Line Location: BAR+0
Function Call: READ	Prompt: "Do you wish to print the AOU Inventory Sheet: YES// " Formatting: !! Timeout: DTIME Variable: X Line Location: INV+0
Function Call: READ	Prompt: "Select AOU INVENTORY GROUP: " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKWIG+0
Function Call: WRITE	Prompt: !!,"AOU INVENTORY GROUPS currently chosen:",! Line Location: ASKWIG+1
Function Call: WRITE	Prompt: ! Line Location: ASKWIG+1
Function Call: WRITE	Prompt: ! Line Location: ASKWIG+1
Function Call: WRITE	Prompt: 7,!!,"* This AOU INVENTORY GROUP has already been selected **" Line Location: WIG+2
Function Call: WRITE	Prompt: $S($D(PSGSW):"Deleted",1:"Added") Line Location: WIBLD+1
Function Call: WRITE	Prompt: PSGWN," " Line Location: WID+0
Function Call: WRITE	Prompt: 7,7,!!,"Enter ""N"" or ""NO"", or press <RET> to accept the default answer." Line Location: HELP+0
Routine Call	DIE Line Location: ASKWIG+4 WSTUF+1
Routine Call	DIC Line Location: ASKINV WIG+1

FileNo	Call Tags
^PSI(58.19 - [#58.19]	Classic Fileman Calls
^PSI(58.2 - [#58.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSI(58.1 - [#58.1]	WID
^PSI(58.19 - [#58.19]	ASKINV+1, ASKINV+3, INV, WSTUF+1, WSTUF+2, WSTUF+3*, XREF, XREF+1, ADDAOU, ADDAOU+1 , ADDTYPE, ADDTYPE+1, DUPAOU
^PSI(58.2 - [#58.2]	ASKWIG+1, WIBLD

Name	Field # of Occurrence
^(	XREF, XREF+1
^(0	ASKINV+1, WID, ADDAOU, ADDAOU+1, ADDTYPE, ADDTYPE+1

Name	Field # of Occurrence
AA	OUT!, DUPAOU*, SORTCK+3!
BARFLG	BAR*, OUT!
CHK	OUT!, WIG+2*
D1	OUT!
DA	OUT!, ASKWIG+4, WSTUF, WSTUF+1
DIC	ASKINV!, OUT!, WIG+1!
DIC("A"	ASKINV*
DIC("DR"	WIG+1*
DIC("S"	WIG+1*
DIC(0	ASKINV, WIG+1
DIE	OUT!, ASKWIG+4, WSTUF
DLAYGO	ASKINV*!
DR	OUT!, ASKWIG+4!, WSTUF+1!
DR(2	ASKWIG+4, WSTUF+1
DTIME	INV, ASKWIG
GROUP	OUT!
GROUP(	ASKWIG+1*
GRP	OUT!
LP	OUT!
PC	OUT!
PSGD	OUT!, ASKWIG+2, WIG+1, WIG+2, WIBLD, GRPNAME, GRPNAME+1, SORTCK
PSGISORT	OUT!, WSTUF+2, XREF+1, SORTCK, SORTCK+1, SORTCK+2
PSGLSORT	OUT!, SORTCK, SORTCK+2*
PSGSORT	OUT!, ASKWIG+4, WIBLD, SORTCK+1
PSGSW	OUT!, WIG!*, WIG+2, WIBLD, WIBLD+1, GRPNAME, WSTUF+1
PSGT	OUT!, WIBLD*, WSTUF+3, ADDTYPE, ADDTYPE+1
PSGW	OUT!, ASKWIG+4, WIBLD, WID, WSTUF+1, WSTUF+2, WSTUF+3, XREF, XREF+1, ADDAOU , ADDAOU+1, ADDTYPE, ADDTYPE+1, DUPAOU
PSGWDUP	OUT!, XREF+1, DUPAOU*, SORTCK
PSGWGRP	ASKINV+1, ASKINV+2, ASKINV+3, OUT!, ASKWIG+1, WIG+2, GRPNAME, GRPNAME+1
PSGWIDA	ASKINV*, ASKINV+1, ASKINV+3, INV, OUT!, ASKWIG+4, WSTUF, WSTUF+2, WSTUF+3, XREF , XREF+1, ADDAOU, ADDAOU+1, ADDTYPE, ADDTYPE+1, DUPAOU
PSGWN	OUT!, WID*, WSTUF+1
PSGWPGD	OUT!, ASKWIG+2*, SORTCK
PSGWS	OUT!
PSGWSK	OUT!
PSGWSKP	OUT!
Q	OUT!, ASKWIG+1*
SKK	OUT!, DUPAOU*, SORTCK+3!
X	ASKINV+3, INV, OUT!, ASKWIG, ASKWIG+1, ASKWIG+2, WIG*
Y	ASKINV, OUT!, ASKWIG+2, ASKWIG+4, WIG+1, WIG+2*