Routine: PSGWOND

Package	Total	Call Graph
VA Fileman	3	^%DT (,IX)^DIC ^DIE
Auto Replenishment Ward Stock	1	^PSGWSET

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW ON-DEMAND DELETE

Entry Points

Name	Line Occurrences
Function Call: READ	Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: " Formatting: !! Timeout: DTIME Variable: PSGWODT Line Location: DATE+0
Function Call: WRITE	Prompt: !,"On-Demand Request Date/Time not found, please try again...",! Line Location: DT+0
Function Call: READ	Prompt: "Do you wish to delete ALL items on this on-demand request? N// " Formatting: ! Timeout: DTIME Variable: X Line Location: RD+0
Function Call: WRITE	Prompt: !!,"Answer ""Y"" or ""N"". If yes, the program will loop thru",!,"all items which were requested on the date/time selected",!,"and delete the request. If no, the user will be asked",!,"for the AOU and the item will be removed.",! Line Location: HELP+0
Function Call: WRITE	Prompt: !," ",$P(^PSI(58.1,PSGWAOU,0),"^")," ",$P(^PSDRUG(PSGWITN,0),"^")," On-demand request deleted" Line Location: DEL+2
Routine Call	DIE Line Location: DEL+3
Routine Call	DIC Line Location: NOLOOP ITEM
Routine Call	DIC Line Location: DATE+1

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	DEL+2
^PSI(58.1 - [#58.1]	DT, LOOP, LOOP2, DEL, DEL+1, DEL+2, ITEM
^PSI(58.5 - [#58.5]	DEL+1*

Name	Field # of Occurrence
%	END!
%DT	DT*, END!
%W	END!
%Y	END!
%Y1	END!
D	DATE+1*, END!
D0	END!
D1	END!
D2	END!
DA	END!, DEL+3*
DA(1	DEL+3*
DA(2	DEL+3*
DI	END!
DIC	DATE+1, END!, NOLOOP!, ITEM*!
DIC("S"	NOLOOP, ITEM
DIC(0	DATE+1, NOLOOP, ITEM*
DIE	END!, DEL+3*
DLAYGO	END!
DR	END!, DEL+3*
DTIME	DATE, RD
KEY	END!
PSGWADT	DT*, END!, DEL+1
PSGWAOU	END!, LOOP, LOOP2, DEL, DEL+1, DEL+2, DEL+3, NOLOOP, ITEM
PSGWCAT	DT*, END!, DEL+1
PSGWDA	END!, LOOP2, DEL, DEL+3, ITEM
PSGWDN	END!, DEL*, DEL+1
PSGWFLG	PSGWOND+2*, END!
PSGWIT	END!, LOOP, LOOP2, DEL, DEL+3, ITEM
PSGWITN	END!, DEL, DEL+2
PSGWODT	DATE, DATE+1, DT!, END!, LOOP, LOOP2, ITEM
PSGWQD	END!, DEL*, DEL+1
PSGWSITE	PSGWOND+2, END!, DEL+1
PSGWV	DATE*, END!
X	DATE+1, DT, RD*, RD+1, RD+2, END!
Y	DT, END!, NOLOOP, ITEM