Routine: PSGWCAD3

Package	Total	Call Graph
MailMan	1	^XMD
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWUAS

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
SET	;
CHK	;Check non-pharmacy items for inactivation date in AOU
START	;Locate all non-pharmacy items in Drug file
AOU	;Check AOUs for non-pharmacy items
MAIL	;Send message for non-pharmacy items found in AOUs

Name	Field # of Occurrence
NOW^%DTC	MAIL+2
^XMD	MAIL+15

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MAIL+2
^PSDRUG - [#50]	MAIL+10
^PSDRUG("IU"	START+2
^PSI(58.1 - [#58.1]	AOU+1, AOU+2, CHK+2, SET+1
^TMP("PSGWMSG"	QUIT!, MAIL+2!, MAIL+6, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+13 , MAIL+14, SET+1
^XUSEC("PSGW PARAM"	MAIL+4
^XUSEC("PSGWMGR"	MAIL+3

Name	Field # of Occurrence
^("I"	AOU+1

Name	Field # of Occurrence
%	QUIT!
%H	QUIT!
%I	QUIT!
AOU	START+1!, AOU+1, AOU+2, QUIT!, CHK+2, MAIL+10*, SET+1
AOU(	AOU+1*, AOU+2
AOU(0	AOU+2
AOUCNT	START+1, QUIT!, MAIL+1, MAIL+5
APP	START+1!, START+2*, QUIT!
APP(	START+2*, AOU+2
APP(0	AOU+1
CNT	QUIT!, MAIL+1, MAIL+10
DRG	START+2, QUIT!, MAIL+10
DRGCNT	START+1, QUIT!, MAIL+1, MAIL+5, MAIL+7, MAIL+11
DT	AOU+1, CHK+2
ERR3	START+1!, AOU+3, QUIT!
ERR3(	CHK+2*, MAIL+1, MAIL+10
ERR3(0	MAIL+1
I	QUIT!
INACT	QUIT!, CHK+2*
ITM	AOU+2*, QUIT!, CHK+2
ITMNUM	AOU+2*, QUIT!, CHK+2
J	QUIT!
JJ	START+2, QUIT!, MAIL+1
K	QUIT!
>> KK	MAIL+1*
NUM	QUIT!, MAIL+1, MAIL+10, MAIL+11, MAIL+12, MAIL+13, MAIL+14, SET+1*
PRT1	QUIT!, MAIL+5*, MAIL+7, MAIL+11
PRT2	QUIT!, MAIL+5*, MAIL+7, MAIL+11, MAIL+12
PRT3	QUIT!, MAIL+5*, MAIL+9
PSGWDUZ	QUIT!, MAIL+3, MAIL+4
RDT	QUIT!, MAIL+2*, MAIL+6
X	QUIT!, MAIL+2
XMDUZ	QUIT!, MAIL+15*
XMKK	QUIT!
XMLOCK	QUIT!
XMR	QUIT!
XMSUB	QUIT!, MAIL+15*
XMT	QUIT!
XMTEXT	QUIT!, MAIL+15*
XMY	QUIT!, MAIL+2!, MAIL+4, MAIL+5
XMY(	MAIL+3, MAIL+4, MAIL+5*
XMZ	QUIT!
Y	QUIT!, MAIL+2*