Routine: PSGWUAS

Package	Total	Call Graph
Auto Replenishment Ward Stock	4	^PSGWCAD MAIL^PSGWCAD1 MAIL^PSGWCAD2 ^PSGWCAD3
VA Fileman	2	NOW^%DTC ^DIE
Drug Accountability	1	^PSARWS

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW UPDATE AMIS STATS

Entry Points

Name	Comments	DBIA/ICR reference
ADT
END
AOUCHK	; Check AOU for SITE - ERR=1 => Missing Inp. Site ERR=2 => Invalid Inp. Site
SET2	;
ERRCHK	;Check "ERR" nodes for Site Data for AOUs
INV	;SET THE COMPILE FLAG FOR SUBFILE 58.12 - INVENTORY
RET	;SET THE COMPILE FLAG FOR SUBFILE 58.15 - RETURNS
QDLP
AOU
OND	;SET THE COMPILE FLAG FOR SUBFILE 58.28 - ON-DEMANDS
DRLP
DTLP
CAT
SET1	;

FileNo	Call Tags
^PS(59.7 - [#59.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PSGWUAS+7
^PS(59.4 - [#59.4]	AOUCHK+1
^PS(59.7 - [#59.7]	PSGWUAS+7
^PSI(58.1 - [#58.1]	AOUCHK+1, AOUCHK+2, INV+1, RET+1, OND+1*
^PSI(58.19 - [#58.19]	INV+1
^PSI(58.5 - [#58.5]	PSGWUAS+5, PSGWUAS+8, DTLP, ADT, CAT, AOU, DRLP, QDLP, QDLP+1!, QDLP+2! , END+2, ERRCHK+1, SET1+1, SET2+1!

Name	Field # of Occurrence
%	END+1, END+2!
%H	END+2!
%I	END+2!
%Z	END+2!
ADT	DTLP, ADT, CAT, AOU, DRLP, QDLP, QDLP+1, QDLP+2, END+2!, INV+1 , ERRCHK+2!, SET1+1*, SET2+1
AOU	AOU, END+2!, AOUCHK+1, AOUCHK+2, ERRCHK+1, ERRCHK+2!, SET1+1, SET2+1
CAT	ERRCHK+2!, SET1+1*, SET2+1
CMPDT	END+2!, OND+1*
CURDT	PSGWUAS+5, DTLP, ADT, CAT, AOU, DRLP, QDLP, QDLP+1, QDLP+2, END+2!
D0	END+2!
DA	END+1*, END+2!
DI	END+2!
DIE	END+1*!, END+2!
DQ	END+2!
DR	END+1*, END+2!
DRG	ERRCHK+2!, SET2+1*
DRGDA	END+2!, INV+1, RET+1, OND+1*
ERR	QDLP+1, END+2!, AOUCHK+1, AOUCHK+2, ERRCHK+1
ERR1	END+2!
ERR1(	AOUCHK+2*
ERR1(0	END
ERR2	END+2!
ERR2(	AOUCHK+2*
ERR2(0	END
GOTIT	END+2!
HH	ERRCHK+2!, SET1+1*, SET2+1
INVDA	END+2!, INV+1*
LL	ERRCHK+2!, SET1+1*
PSGWADT	ADT*, END+2!, RET+1, OND+1
PSGWAOU	CAT, AOU, DRLP, QDLP, QDLP+1, QDLP+2, END+2!, INV+1, RET+1, OND+1
PSGWCAT	ADT, CAT, AOU, DRLP, QDLP, QDLP+1, QDLP+2, END+2!
PSGWDN	AOU, DRLP, QDLP, QDLP+1, QDLP+2, END+2!, INV+1, RET+1, OND+1
PSGWQD	DRLP, QDLP, QDLP+1, QDLP+2, END+2!
PSGWUPDT	END+1*, END+2!
QD	ERRCHK+2!, SET2+1*
SITE	END+2!, AOUCHK+1*, ERRCHK+2!
U	PSGWUAS+7
VAR	END+2!, OND+1*
X	PSGWUAS+7*!, END+2!
Y	END+2!