Global: ^ASUT(5

FileMan FileNo	FileMan Filename	Package
9002036.5	ASUTRN STATION	Supply

Package	Total	Routines
Supply	2	^ASUT(5 ASU0TRRD

Package	Total	FileMan Files
Supply	11	ASUTBL AREA(#9002039.01)[.02] ASUTBL SUB-SUB ACTIVITY(#9002039.17)[.11] ASUTBL SUB STATION(#9002039.18)[.13] ASUTBL USER(#9002039.19)[.14] ASUTBL STATION(#9002039.02)[.03] ASUTBL REQUSITIONER(#9002039.2)[.15] ASUTBL STOCK SUB OBJECT(#9002039.03)[.17] ASUTBL SOURCE CODE(#9002039.05)[.12] ASUTBL EOQ TYPE(#9002039.06)[.16] ASUTBL ACCOUNT(#9002039.09)[.04] ASUMST INDEX(#9002032)[.05]
Kernel	1	NEW PERSON(#200)[.06]
Utility Tables	1	VENDOR(#9999999.11)[.19]

Fields, Total: 45

Field #	Name	Loc	Type	Details
.01	KEY	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^ASU0TFMI` OUTPUT TRANSFORM: `D ^ASU0TFMO` LAST EDITED: `JUN 05, 1992` HELP-PROMPT: `Answer must be Date.Time(HHMMSS).Job` DESCRIPTION: The date and time in fileman format that the Transaction was entered followed by the job number of the job which created it. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002036.5^B` 1)= S ^ASUT(5,"B",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"B",$E(X,1,30),DA)
.02	AREA PTR	0;2	POINTER TO ASUTBL AREA FILE (#9002039.01)	ASUTBL AREA(#9002039.01) LAST EDITED: `FEB 18, 1997` HELP-PROMPT: `Enter valid IHS Area Accounting Point code` DESCRIPTION: Pointer to the ASUTBL AREA lookup table NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	STA PTR	0;3	POINTER TO ASUTBL STATION FILE (#9002039.02)	ASUTBL STATION(#9002039.02) LAST EDITED: `FEB 18, 1997` HELP-PROMPT: `Enter Area's Station code from ASUTBL STATION lookup table` DESCRIPTION: Pointer to the ASUTBL STATION lookup table. Internal Entry number will be Area Accounting point concatenated to 3 digit station code (999 for 'PL') NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002036.5^S` 1)= S ^ASUT(5,"S",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"S",$E(X,1,30),DA)
.04	ACC PTR	0;4	POINTER TO ASUTBL ACCOUNT FILE (#9002039.09)	ASUTBL ACCOUNT(#9002039.09) LAST EDITED: `DEC 01, 1997` HELP-PROMPT: `ENTER ACCOUNT`
.05	IDX PTR	0;5	POINTER TO ASUMST INDEX FILE (#9002032)	**********************REQUIRED FIELD********************** ASUMST INDEX(#9002032) LAST EDITED: `AUG 15, 1997` HELP-PROMPT: `Enter index number associated with this item of supply` DESCRIPTION: Pointer to the Index Master file entry in which this item of supply's data is recorded CROSS-REFERENCE: `9002036.5^I` 1)= S ^ASUT(5,"I",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"I",$E(X,1,30),DA)
.06	ENTRY PERSON	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Will be set by data entry routine based on DUZ setting` DESCRIPTION: Person file pointer determined by DUZ at time of transaction entry CROSS-REFERENCE: `9002036.5^AP` 1)= S ^ASUT(5,"AP",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"AP",$E(X,1,30),DA)
.07	ENTRY DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Answer must be Date.Time(HHMMSS).Job#` DESCRIPTION: The date and time in fileman format that the Adjustment transaction was entered followed by the job number of the job which entered it. CROSS-REFERENCE: `9002036.5^AE` 1)= S ^ASUT(5,"AE",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"AE",$E(X,1,30),DA)
.08	PROCESSED DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Date will be entered by SAMS transaction posting routine` DESCRIPTION: Date transaction was posted to the SAMS database CROSS-REFERENCE: `9002036.5^AC` 1)= S ^ASUT(5,"AC",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"AC",$E(X,1,30),DA)
.09	EXTRACTED DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `DATE ENTERED BY EXTRACT ROUTINE` CROSS-REFERENCE: `9002036.5^AX` 1)= S ^ASUT(5,"AX",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"AX",$E(X,1,30),DA) Used to acces the file by date transaction was extracted for STORES database
.1	STATUS FLAG	0;10	SET	**********************REQUIRED FIELD********************** 'Y' FOR ENTERED; 'U' FOR UPDATED; 'R' FOR REJECTD; 'X' FOR XTRACTD; LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Entry will be made by SAMS transaction entry, posting and extracting routines` DESCRIPTION: Status flag will indicate the entry/posting/extract status of the transaction CROSS-REFERENCE: `9002036.5^C` 1)= S ^ASUT(5,"C",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"C",$E(X,1,30),DA)
.11	SSA PTR	0;11	POINTER TO ASUTBL SUB-SUB ACTIVITY FILE (#9002039.17)	ASUTBL SUB-SUB ACTIVITY(#9002039.17) LAST EDITED: `JUN 08, 1999`
.12	SRC PTR	0;12	POINTER TO ASUTBL SOURCE CODE FILE (#9002039.05)	ASUTBL SOURCE CODE(#9002039.05) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter Source of supply for this transaction` DESCRIPTION: Pointer to the ASUTBL SOURCE lookup table Assigns Source (of purchase) information to this transaction.
.13	SST PTR	0;13	POINTER TO ASUTBL SUB STATION FILE (#9002039.18)	ASUTBL SUB STATION(#9002039.18) LAST EDITED: `MAR 25, 1996` HELP-PROMPT: `Answer with valid Sub Station Code`
.14	USR PTR	0;14	POINTER TO ASUTBL USER FILE (#9002039.19)	ASUTBL USER(#9002039.19) LAST EDITED: `MAR 25, 1996` HELP-PROMPT: `Answer with valid User Code`
.15	REQ PTR	0;15	POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2)	ASUTBL REQUSITIONER(#9002039.2) LAST EDITED: `MAR 20, 1996` HELP-PROMPT: `Enter valid Requisitioner Code`
.16	EOQT PTR	0;16	POINTER TO ASUTBL EOQ TYPE FILE (#9002039.06)	ASUTBL EOQ TYPE(#9002039.06) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter Economic Order Quantity Type to be used for this transaction` DESCRIPTION: EOQ type is used to calculate the Economic Order Quantity for an item of supply
.17	SOBJ PTR	0;17	POINTER TO ASUTBL STOCK SUB OBJECT FILE (#9002039.03)	ASUTBL STOCK SUB OBJECT(#9002039.03) LAST EDITED: `JUN 08, 1999`
.19	VEN PTR	0;19	POINTER TO VENDOR FILE (#9999999.11)	VENDOR(#9999999.11) LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter Vendor name from whom this item will normally be purchased` DESCRIPTION: Name of vendor will be taken from vendor file and placed in field 59 if found. Otherwise free text will be allowed for field 59 and this field will be left blank
.23	IDX/STA DUEIN QTY	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 24, 1998` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
.24	TRCD SIGN	0;24	SET	'1' FOR DEBIT; '-1' FOR CREDIT; LAST EDITED: `FEB 24, 1998` HELP-PROMPT: `Enter 1 (Debit) or -1 (Credit)`
.25	REMARKS	0;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `FEB 24, 1998` HELP-PROMPT: `Answer must be 1-15 characters in length.`
.3	TRANSACTION TYPE	0;30	SET	'5' FOR STATION; LAST EDITED: `JUN 08, 1999`
1	TRANSACTION CODE	1;1	SET	**********************REQUIRED FIELD********************** '5A' FOR ADD STATION MASTER; '5C' FOR CHANGE STATION MASTER; '5D' FOR DELETE STATION MASTER; '5B' FOR CHANGE USER LEVEL; LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Select code representing transaction type` DESCRIPTION: Code representing the type of adjustment CROSS-REFERENCE: `9002036.5^T` 1)= S ^ASUT(5,"T",$E(X,1,30),DA)="" 2)= K ^ASUT(5,"T",$E(X,1,30),DA)
2	AREA CODE	1;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Entry will be made by SAMS data entry routine based on table lookup` DESCRIPTION: Accounting Point (also the internal entry number of ASUTBL AREA) for the IHS Area database to be adjusted EXECUTABLE HELP: `D XARE^ASUJHELP`
3	STATION CODE	1;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2AN) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Answer must be a valid Code from the ASUTBL STATION table for the selected Area` DESCRIPTION: Station Code represents the IHS Station database to which the adjustment will be posted EXECUTABLE HELP: `D XSTA^ASUJHELP`
4	ACCOUNT	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `DEC 01, 1997` HELP-PROMPT: `Answer must be 1 character in length.`
5	INDEX NUMBER	1;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2)!'(X?2N.N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Answer must be a valid index number representing an item of supply in the Index Master File.` DESCRIPTION: Index Number is a unique number associated with an item of supply. It must pass the modulus 11 test.
9	ORDER NUMBER	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1)!'((X?1"M".ANP)!(+X'=0)) X` LAST EDITED: `JUN 13, 1996` HELP-PROMPT: `Answer must be 1-15 characters in length.`
10	DATE ITEM ESTABLISHED	1;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter Date` DESCRIPTION: Date
11	SUB SUB ACTIVITY	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JUN 08, 1999`
12	SOURCE CODE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS data entry routine based on table lookup` DESCRIPTION: Set from ASUTBL SOURCE pointer field Assigns the Source (place purchased) for this transaction EXECUTABLE HELP: `D XSRC^ASUJHELP`
13	SUB STATION CODE	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `MAR 25, 1996` HELP-PROMPT: `Answer must be 2 characters in length.` EXECUTABLE HELP: `D XSST^ASUJHELP`
14	USER CODE	1;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `MAR 25, 1996` HELP-PROMPT: `Answer must be 3 characters in length.` EXECUTABLE HELP: `D XUSR^ASUJHELP`
16	EOQ TYPE CODE	1;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter code from Economic Order Quantity type table` DESCRIPTION: Code from ASUTBL EOQ TYPE from pointer to that lookup table EXECUTABLE HELP: `D XEOQ^ASUJHELP`
51	STORAGE LOCATION CODE	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1AN) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter code from Storage Location table` DESCRIPTION: Code from ASUTBL STORAGE LOCATION lookup table. Indicates special storage requirements. EXECUTABLE HELP: `D XSLC^ASUJHELP`
52	EOQ TYPE CODE MONTHS MODIFIER	5;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Number between 1 and 12, 0 Decimal Digits` DESCRIPTION: Represents the expected shelf life of short shelf life items. Used to modify the Economic Order Quantity calculation formula.
53	TYPE CODE QUANTITY MODIFIER	5;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
54	TYPE CODE ACTION MONTHS	5;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Answer must be 5 characters in length.` DESCRIPTION: `This field must be filled in if EOQ type is 'D' (Freezable Item) 'Q' (Seasonal Item) or 'Y' (Yearly Item). It represents the months the item will be forced to print on the Requirements Analysis Report. There may be one` 'action' month for each quarter. The contents will be: 1st digit - action month for first quarter 1,2 or 3 2nd digit - action month for second quarter 4,5 or 6 3rd digit - action month for third quarter: 7,8 or 9 4-5th digits - action month for fourth quarter: 10,11 or 12
55	LEAD TIME MONTHS	5;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9.5)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Lead Time Months - enter a number between 1 and 9.5 (1 decimal permitted)` DESCRIPTION: The number of months (full or half) between ordering and receiving the item
56	REVIEW POINT QUANTITY	5;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Review Point Qty - enter a number between 0 - 99999 (no decimals)` DESCRIPTION: Used in EOQ calculation represents quantity at which item will appear on the Requirements Analysis report for order review
57	UNIT COST	5;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<.01) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter a whole number or a dollar amount between .01 and 9999.99` DESCRIPTION: Cost of one Source Unit of Issue - whole #'s are enterd w/o decimal value
58	VENDOR NAME	5;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1)!'(X?1A.ANP) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Entry should be in Vendor file, but may be free text` DESCRIPTION: The name of the vendor from whom this item is normally purchased. Obtained by lookup on standard VENDOR file. If no match is found, free text is allowed. EXECUTABLE HELP: `D XVEN^ASUJHELP`
59	SOURCE UNIT OF ISSUE	5;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2AN) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Source Unit of Issue - unit of issue, shipped by the vendor
60	USER LEVEL QUANTITY	5;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `Used to determine when this item will appear on Requirements Analysis Rpt. If null, standard formula is used. If it contains data, it serves as a Predefined User Level Quantity and will replace the standard User Level` Quantity.
61	STANDARD PACK QUANTITY	5;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Standard Pack Qty - enter a number between 0 - 99999 (no decimals)`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.07+1, .08+1, .09+1, 10+1
>> DA	.01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K) , .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), 1(XREF 1S), 1(XREF 1K)
U	ID5+1
X	.01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .07+1!, .07(XREF 1S) , .07(XREF 1K), .08+1!, .08(XREF 1S), .08(XREF 1K), .09+1!, .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .23+1! , .25+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 4+1!, 5+1!, 9+1!, 10+1!, 11+1! , 12+1!, 13+1!, 14+1!, 16+1!, 51+1!, 52+1!, 53+1!, 54+1!, 55+1!, 56+1! , 57+1*!, 58+1!, 59+1!, 60+1!, 61+1!
>> Y	.01OT+1, .07+1, .08+1, .09+1, 10+1
>> Y(0	.01OT+1*

Customize PDF page

Package: Supply

Global: ^ASUT(5

Information

Description

Directly Accessed By Routines, Total: 2

Pointer To FileMan Files, Total: 13

Fields, Total: 45

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.07+1, .08+1, .09+1, 10+1
^ASU0TFMI	.01+1
^ASU0TFMO	.01OT+1
XARE^ASUJHELP	2(HELP )
XEOQ^ASUJHELP	16(HELP )
XSLC^ASUJHELP	51(HELP )
XSRC^ASUJHELP	12(HELP )
XSST^ASUJHELP	13(HELP )
XSTA^ASUJHELP	3(HELP )
XUSR^ASUJHELP	14(HELP )
XVEN^ASUJHELP	58(HELP )