Routine: PSGWEXP

Information

PSGWEXP ;BHAM ISC/CML-Enter/Edit Drug Expiration Dates ; 26 Nov 93 / 2:46 PM

Source file <PSGWEXP.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW EXPIRATION ENTER/EDIT

Name	Comments	DBIA/ICR reference
QUIT
ITEM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter Expiration Dates for Stock Items" Line Location: PSGWEXP+2
Function Call: WRITE	Prompt: ! Line Location: PSGWEXP+3
Function Call: WRITE	Prompt: !!,"No items exist for this AOU." Line Location: ITEM+0
Function Call: WRITE	Prompt: ! Line Location: ITEM+1
Routine Call	DIE Line Location: ITEM+1
Routine Call	DIC Line Location: PSGWEXP+3 ITEM+1