Routine: PSGWEDI1

Information

PSGWEDI1 ;BHAM ISC/GRK,CML-Enter/Edit of AOU Inventory Values - CONTINUED ; 06 May 97 / 1:50 PM

Source file <PSGWEDI1.m>

Package	Total	Call Graph
VA Fileman	1	^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWEDI

Name	Comments	DBIA/ICR reference
LOC	;Build item address
ALIGN	;Align on this item
CHK	;CHECK TO SEE IF ENTRY IS IN THE AINV X-REF
EN1	; ENTRY POINT FROM PSGWEDI
EN3	;ENTRY POINT FROM PSGWEDI
TYP

Name	Field # of Occurrence
^DIC	EN1+5

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	LOC+2, CHK+5
^PSI(58.1 - [#58.1]	ALIGN+1, CHK+5, EN3+1, EN3+2, EN3+3
^PSI(58.19 - [#58.19]	TYP, TYP+1, CHK+2, CHK+3, CHK+4, CHK+5

Name	Field # of Occurrence
^(0	ALIGN+1, LOC+2, EN3+2, EN3+3
^(1	EN3+1*

Name	Field # of Occurrence
>> A	EN3+1*
>> DA	EN1+6*
DIC	EN1+5*, EN1+6!
DIC("S"	EN1+5*
DIC("W"	EN1+2*
DIC(0	EN1+3, EN1+4
GOTIT	EN1+1~, EN1+6, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5
>> I	LOC+1*
>> K	ALIGN+1*, LOC+1, LOC+2
>> K1	LOC+1*
P1	CHK+1~, CHK+2*, CHK+3, CHK+4, CHK+5
P2	CHK+1~, CHK+3*, CHK+4, CHK+5
P3	CHK+1~, CHK+4*, CHK+5
P4	CHK+1~, CHK+5*
>> PSG1	TYP, TYP+1
>> PSG2	TYP, TYP+1
>> PSG3	TYP, TYP+1
>> PSGDDA	EN3+1, EN3+2, EN3+3
>> PSGDR	TYP+1, LOC+2
>> PSGTYP	ALIGN+1, TYP, TYP+1
>> PSGWDA	ALIGN+1, TYP, TYP+1, CHK+2, CHK+3, CHK+4, CHK+5, EN3+1, EN3+2, EN3+3
>> PSGWDRG	EN1+3
>> PSGWIDA	TYP, TYP+1, CHK+2, CHK+3, CHK+4, CHK+5, EN3+1, EN3+2, EN3+3
>> X	EN1+3*
>> Y	EN1+6*, ALIGN+1, CHK+5