Routine: PSGWRA

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZTLOAD
Auto Replenishment Ward Stock	1	CALC^PSGWCAD
MailMan	1	^XMD
VA Fileman	1	^%DT

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW RECALCULATE AMIS

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option should be used ONLY if you have discovered and CHANGED",!,"cost data, AMIS category, or AMIS conversion number in the Drug file.",!,"Recalculation will use the new data to calculate AMIS stats.",!!! Line Location: PSGWRA+4
Function Call: WRITE	Prompt: !!,"There is NO data in the AMIS Stats file." Line Location: EDT+1
Function Call: WRITE	Prompt: !!,"There are AMIS exceptions for the dates you selected.",!,"You MUST use the Incomplete AMIS Data option before RECALCULATION!" Line Location: EDT+2
Function Call: WRITE	Prompt: !!,"I will now DELETE ALL AMIS DATA from ",Y," to " Line Location: ASK+0
Function Call: WRITE	Prompt: Y," and RECALCULATE.",!!,"Are you SURE that is what you want to do? NO// " Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Answer ""yes"" if you wish to delete AMIS data",!,"for the date range and recalculate.",!,"Answer ""no"" or <return> if you do not.",!! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by MailMan when the recalculation is completed.",! Line Location: QUE+0
Function Call: WRITE	Prompt: !,"RECALCULATE AMIS DATA queued!" Line Location: QUE+2
Routine Call	%ZIS Line Location: QUE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK, MSG
^PS(59.4 - [#59.4]	ENQ+1
^PSDRUG - [#50]	DRGLP+2, DRGLP+4, ERROR
^PSI(58.5 - [#58.5]	EDT+1, EDT+2, ENQ+1, DTLP, DTDA, DTDA+1!, DRGLP, UPAMIS+1
^TMP("PSGWMSG"	PSGWRA+3!, MSG, END!, ERROR

Name	Field # of Occurrence
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
BDT	BDT*, EDT, EDT+1, EDT+2, ASK, ENQ+1, MSG, END!, START+1
CAT	END!, UPAMIS+1*
COST	END!, AMIS+1!
DA	END!
DATDA	END!, START+1, DTDA, DTDA+1, DRGLP, UPAMIS+1
DOSE	END!, AMIS+1!
DR	END!
DRGDA	END!, DTDA+1, DRGLP, UPAMIS+1
DTDA	END!
DTIME	ASK
DUZ	PSGWRA+3
EDT	EDT*, EDT+2, ASK, ENQ+1, MSG, END!, DTLP
FLD	END!, AMIS+1!
FLDA	END!
G	QUE+1*, END!
INC	ENQ+2, MSG, END!, START+1, DRGLP+2, DRGLP+3, DRGLP+4, DRGLP+5, DRGLP+6, DRGLP+7 , DRGLP+8, ERROR
J	END!, DRGLP+6, DRGLP+7
LOC1	END!, DRGLP+2*, DRGLP+6
LOC2	END!, DRGLP+4*, DRGLP+7
LOC3	END!, UPDATE*, AMIS+1!
LPDT	END!, START+1, DTLP, DTDA
PSGWADT	END!, DTLP*
PSGWAOU	END!
PSGWCAT	UPAMIS+1*, UPDATE, AMIS, AMIS+1!
PSGWDN	END!, DRGLP*, DRGLP+2, DRGLP+4, ERROR
PSGWDUZ	PSGWRA+3*, MSG+1, END!
PSGWQD	UPAMIS+1*, AMIS+1!
RPDT	ENQ+1*, END!
SITE	ENQ+1, ENQ+3, END!, DTDA+1, DRGLP, UPAMIS+1
SITE(	ENQ+1*, ENQ+3
SITE(0	ENQ+2
X	ASK*, ASK+1, END!
XMDUZ	MSG+1*, END!
XMSUB	MSG+1*, END!
XMTEXT	MSG+1*, END!
>> XMY(	MSG+1*, END!
Y	BDT, EDT, ASK, MSG, END!
>> ZTDESC	QUE+1*
>> ZTDTH	QUE+1*
ZTIO	QUE+1*, END!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	QUE+1*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!, END!