Routine: PSGWSTKI

Information

PSGWSTKI ;BHAM ISC/CML-Stock Item Enter/Edit ; 29 Dec 93 / 8:44 AM

Source file <PSGWSTKI.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW EDIT AOU STOCK

Name	Comments	DBIA/ICR reference
QUIT
AOU	; SELECT AOU
CHK	; CHECK FOR CURRENT INACTIVATION DATE
CHK2	; CHECK FOR NON-PHARMACY ITEMS
ITEM	; SELECT ITEM

Name	Field # of Occurrence
^DIC	AOU+1, ITEM+1
^DIE	ITEM+1, CHK+4, CHK2+3

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AOU+1
Function Call: WRITE	Prompt: ! Line Location: ITEM+1
Function Call: WRITE	Prompt: *7,!!?5,"This Item is currently defined for this AOU with an INACTIVATION DATE.",!!?5,"If you want to add this Item as a new standard Stock Item for this AOU",!?5,"you must delete the INACTIVATION DATE.",! Line Location: CHK+3
Function Call: WRITE	Prompt: ! Line Location: CHK+4
Function Call: WRITE	Prompt: *7,!!?5,"This item is currently defined for this AOU but appears to be a",!?5,"non-pharmacy drug. It has been inactivated as of " Line Location: CHK2+4
Function Call: WRITE	Prompt: Y,! Line Location: CHK2+4
Routine Call	DIE Line Location: ITEM+1 CHK+4 CHK2+3
Routine Call	DIC Line Location: AOU+1 ITEM+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CHK2+4
^PSDRUG - [#50]	CHK2+2
^PSI(58.1 - [#58.1]	AOU+1, CHK+1, CHK+4, CHK2+1, CHK2+3, CHK2+4

Name	Field # of Occurrence
^(0	AOU+1*
^(2	CHK2+2

Name	Field # of Occurrence
%	QUIT!
AOU	AOU+1*, QUIT!, ITEM+1, CHK+1, CHK+4, CHK2+1, CHK2+3, CHK2+4
C	QUIT!
CHK	QUIT!, ITEM+1, CHK+2, CHK+4, CHK2+2*
D0	QUIT!
D1	QUIT!
DA	AOU+1!, QUIT!, ITEM+1!, CHK+4, CHK2+3*
DA(1	ITEM+1, CHK+4, CHK2+3*
DI	QUIT!
DIC	AOU+1!, ITEM+1!
DIC(0	AOU+1, ITEM+1
DIE	ITEM+1!, CHK+4!, CHK2+3*!
DQ	QUIT!
DR	QUIT!, ITEM+1, CHK+4, CHK2+3*
DR(2	ITEM+1*
DRGDA	QUIT!, CHK2+1*, CHK2+2
DT	CHK2+3
I	QUIT!
ITEM	QUIT!, ITEM+1*, CHK+1, CHK+4, CHK2+1, CHK2+3, CHK2+4
QQ	AOU+1, QUIT!, ITEM+1
X	QUIT!
Y	AOU+1, QUIT!, ITEM+1, CHK+4, CHK2+4*