Global: ^ASUT(3

FileMan FileNo	FileMan Filename	Package
9002036.3	ASUTRN ISSUES	Supply

Package	Total	Routines
Supply	5	ASUTPIA ^ASUT(3 ASUJOLIB ASUROTVQ ASUURHDR

Package	Total	Routines
Supply	1	ASUJOLIB

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]

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.3^B` 1)= S ^ASUT(3,"B",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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) INPUT TRANSFORM: `K:$E(X,1,2)'=$G(ASUL(1,"AR","AP")) X` LAST EDITED: `FEB 29, 1996` 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`
.04	ACC PTR	0;4	POINTER TO ASUTBL ACCOUNT FILE (#9002039.09)	ASUTBL ACCOUNT(#9002039.09) LAST EDITED: `MAR 05, 1996` HELP-PROMPT: `Enter account to which the item of supply affected by this transaction belongs` DESCRIPTION: Pointer to the ASUTBL ACCOUNT file for account code
.05	IDX PTR	0;5	POINTER TO ASUMST INDEX FILE (#9002032)	**********************REQUIRED FIELD********************** ASUMST INDEX(#9002032) LAST EDITED: `FEB 29, 1996` 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.3^I` 1)= S ^ASUT(3,"I",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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.3^AP` 1)= S ^ASUT(3,"AP",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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.3^AE` 1)= S ^ASUT(3,"AE",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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 20, 1996` HELP-PROMPT: `Date will be entered by SAMS transaction posting routine` DESCRIPTION: Date transaction was posted to the SAMS database CROSS-REFERENCE: `9002036.3^AC` 1)= S ^ASUT(3,"AC",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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.3^AX` 1)= S ^ASUT(3,"AX",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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.3^C` 1)= S ^ASUT(3,"C",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"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: `FEB 29, 1996` HELP-PROMPT: `Enter Sub-Sub Activity for this transaction` DESCRIPTION: Pointer to the accounting Sub-Sub Activity table ASUTBL SUB-SUB ACTIVITY
.12	SRC PTR	0;12	POINTER TO ASUTBL SOURCE CODE FILE (#9002039.05)	ASUTBL SOURCE CODE(#9002039.05) LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Enter Source of Supply for this transaction`
.13	SST PTR	0;13	POINTER TO ASUTBL SUB STATION FILE (#9002039.18)	ASUTBL SUB STATION(#9002039.18) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter Sub Station requesting supplies` DESCRIPTION: Pointer to ASUTBL SUB STATION lookup table Indicates destination of supplies ordered
.14	USR PTR	0;14	POINTER TO ASUTBL USER FILE (#9002039.19)	ASUTBL USER(#9002039.19) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter User requesting supplies` DESCRIPTION: Pointer to ASUTBL USER lookup table for requestor of supplies
.15	REQ PTR	0;15	POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2)	ASUTBL REQUSITIONER(#9002039.2) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be calculated from Sub Station and User lookup table values` DESCRIPTION: Pointer to ASUTBL REQUISITIONER lookup table. Combination of Sub Station and User resulting in unique identification of requestor of supplies.
.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`
.2	VALUE CALCULATED FLAG	0;20	SET	'0' FOR ENTERED; '1' FOR CALCULATED; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter 1 if Value field is left null and routine is to calculate value` DESCRIPTION: Set on if Value field is to be calculated by SAMS transaction posting routine
.21	STA/IDX QTY	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS posting routine` DESCRIPTION: Station Master Index quantity after this transaction was posted.
.22	STA/IDX VAL	0;22	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS transaction posting routine.` DESCRIPTION: Station Master Index value after this transaction was posted.
.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)` NOTES: `TRIGGERED by the TRANSACTION CODE field of the ASUTRN ISSUES File`
.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	TRANSACTI0N TYPE	0;30	SET	'3' FOR ISSUE; LAST EDITED: `JUN 08, 1999`
1	TRANSACTION CODE	1;1	SET	**********************REQUIRED FIELD********************** '31' FOR BACK ORDER; '32' FOR REPLENISH; '33' FOR NON REPLENISH; '34' FOR UNREQUIRED; '36' FOR EXCESS; '3J' FOR B/O CANCEL; '3K' FOR REPLEN REVERSE; '3M' FOR UNREQ REVERSE; '3O' FOR EXCESS REVERSE; LAST EDITED: `JUN 03, 1999` HELP-PROMPT: `Select code representing transaction type` DESCRIPTION: Code representing the type of adjustment CROSS-REFERENCE: `9002036.3^T` 1)= S ^ASUT(3,"T",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"T",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002036.3^32` 1)= X ^DD(9002036.3,1,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ASUT(3,D0,3)):^(3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(9002036.3,1,1,2,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9002036.3,1,0)):$P(^(0),U,3),1:"") S X="34363M3O"[$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1) 1.4)= S DIH=$S($D(^ASUT(3,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002036.3,DIG=32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= "34363M3O"[TRANSACTION CODE CREATE VALUE)= S X=1 DELETE VALUE)= NO EFFECT FIELD)= ISSUE TYPE CROSS-REFERENCE: `^^TRIGGER^9002036.3^32` 1)= X ^DD(9002036.3,1,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ASUT(3,D0,3)):^(3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(9002036.3,1,1,3,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9002036.3,1,0)):$P(^(0),U,3),1:"") S X="3132333J3K3L"[$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1) 1.4)= S DIH=$S($D(^ASUT(3,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002036.3,DIG=32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= "3132333J3K3L"[TRANSACTION CODE CREATE VALUE)= S X=3 DELETE VALUE)= NO EFFECT FIELD)= ISSUE TYPE CROSS-REFERENCE: `^^TRIGGER^9002036.3^.24` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.3,1,1,4,1.1) X ^DD(9002036.3,1,1,4,1.4) 1.1)= S X=DIV S X=DIV,X=X S X=X]"1A",Y(1)=X S X=-1,Y(2)=X S X=1,Y(3)=X S X=1,X=$S(Y(1):Y(2),Y(3):X) 1.4)= S DIH=$S($D(^ASUT(3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.3,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.3,1,1,4,2.1) X ^DD(9002036.3,1,1,4,2.4) 2.1)= S X=DIV X ^DD(9002036.3,1,1,4,59.2) S Y(7)=X S X=1,X=$S(Y(2):Y(3),Y(5):Y(6),Y(7):X) 2.4)= S DIH=$S($D(^ASUT(3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.3,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S Y(1)=$S($D(^ASUT(3,D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S X=X="",Y(2)=X S X="",Y(3)=X,Y(4)=X S X=$P(Y(1),U,1),X=X S X=X]"1A",Y(5)=X S X=-1,Y(6)=X S X=1 CREATE VALUE)= $S(INTERNAL(#1)]"1A":-1,1:1) DELETE VALUE)= $S(INTERNAL(#1)="":"",INTERNAL(#1)]"1A":-1,1:1) FIELD)= #.24
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: `Enter code from Area table` 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: `Enter code from Station table` DESCRIPTION: Station Code represents the IHS Station database to which the adjustment will be posted EXECUTABLE HELP: `D XSTA^ASUJHELP`
4	ACCOUNT CODE	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter code from Account table` DESCRIPTION: Account is the code (also the internal entry number of ASUTBL ACCOUNT) assigned to the item of supply to be adjusted. EXECUTABLE HELP: `D XACC^ASUJHELP`
5	INDEX NUMBER	1;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2)!'(X?2N.N) X` LAST EDITED: `FEB 29, 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.
6	QUANTITY	1;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: If a quantity is entered, the quantity in the Station Master for the Index item of supply will be adjusted.
7	VALUE	1;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits` DESCRIPTION: If a Value is entered, the Value field of the Station Master for the Index item of supply will be adjusted.
8	VOUCHER NUMBER	1;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<8) X` LAST EDITED: `JAN 08, 1998` HELP-PROMPT: `Answer must be 2 digit fiscal year '-' 2 digit month '-' 4 digit serial#` DESCRIPTION: A voucher number identifies a group of associated transactions. It consists of a 2 digit year (must be current to previous fiscal year) a 2 digit month and a 4 digit serial number each group separated by -. CROSS-REFERENCE: `9002036.3^V` 1)= S ^ASUT(3,"V",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"V",$E(X,1,30),DA)
10	DATE OF REQUEST	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: `FEB 29, 1996` HELP-PROMPT: `Enter code form Sub Sub Activity table` DESCRIPTION: Sub Sub Activity accounting code associated with this transaction from the ASUTBL SUB-SUB ACTIVITY pointer field EXECUTABLE HELP: `D XSSA^ASUJHELP`
12	SOURCE CODE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `JUN 08, 1999`
13	SUB STATION CODE	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2)!'((X?1N.N)!(X?1"P".1"L")) X` LAST EDITED: `JUN 17, 1996` HELP-PROMPT: `Enter 2 digit numeric code form Sub Station table or 'PL'` DESCRIPTION: Sub Station to which supplies will be shipped 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 01, 1996` HELP-PROMPT: `Enter code from User table` DESCRIPTION: Code assigned to users of supply based on ASUTBL USER lookup table EXECUTABLE HELP: `D XUSR^ASUJHELP` CROSS-REFERENCE: `9002036.3^U` 1)= S ^ASUT(3,"U",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"U",$E(X,1,30),DA)
15	COMMON ACCOUNTING NUMBER	1;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7)!'(X?1AN.2N.4AN) X` LAST EDITED: `MAR 16, 2000` HELP-PROMPT: `Entry will be made by SAMS data entry program based on table lookup` DESCRIPTION: CAN will be determined by Requisitioner and Sub Sub Activity table lookups NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
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`
18	FPORN	1;18	SET	'F' FOR FULL; 'P' FOR PARTIAL; 'N' FOR NONE; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter status of quantity received or issued` DESCRIPTION: Quantity Received or Issued: F = Full P = Partial N = None
31	POSTING CODE	3;1	SET	'I' FOR POST POSTED; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter 'I' only if issue was Post Posted (issued before posting)` DESCRIPTION: Flag for Post Posted issues
32	ISSUE TYPE	3;2	SET	'1' FOR TRANSFER ISSUE; '3' FOR STANDARD ISSUE; LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Entry will be made by trigger on TRANSACTION CODE field` DESCRIPTION: Categorize issues by Standard or Transfer NOTES: `TRIGGERED by the TRANSACTION CODE field of the ASUTRN ISSUES File` TRIGGERED by the TRANSACTION CODE field of the ASUTRN ISSUES File CROSS-REFERENCE: `9002036.3^AD` 1)= S ^ASUT(3,"AD",$E(X,1,30),DA)="" 2)= K ^ASUT(3,"AD",$E(X,1,30),DA)
33	TYPE OF ISSUE REQUEST	3;3	SET	'1' FOR SCHEDULED; '2' FOR UNSCHEDULED; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter 1 if issue was scheduled or 2 if unscheduled` DESCRIPTION: Scheduled or Unscheduled flag
34	REQUEST NUMBER	3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: Used to identify source of issue request - usually an issue book ID.
35	CONTRACT/GRANT	3;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: Identifies issues to Contract or Grant
36	ACTUAL QTY ISSUED	3;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: May differ from Quantity Requested (field 6) if quantity was adjusted or was partially issued and back ordered.
37	BACK ORDER CODE	3;7	SET	'B' FOR BACKORDERED; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS posting routine if item was back ordered` DESCRIPTION: Flag of issue transactions back ordered
38	QUANTITY ADJUST CODE	3;8	SET	'A' FOR ADJUSTED; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS transaction posting routine if quantity was adjusted` DESCRIPTION: Flag of issue quantities which were adjusted. Could be to issue a Standard Pack Quantity or because a partial issue was made and the remainder was back ordered.

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.3^B

1)= S ^ASUT(3,"B",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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)

INPUT TRANSFORM: K:$E(X,1,2)'=$G(ASUL(1,"AR","AP")) X
LAST EDITED: FEB 29, 1996
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

.04

ACC PTR

0;4

POINTER TO ASUTBL ACCOUNT FILE (#9002039.09)

ASUTBL ACCOUNT(#9002039.09)

LAST EDITED: MAR 05, 1996
HELP-PROMPT: Enter account to which the item of supply affected by this transaction belongs

DESCRIPTION:

Pointer to the ASUTBL ACCOUNT file for account code

.05

IDX PTR

0;5

POINTER TO ASUMST INDEX FILE (#9002032)

************************REQUIRED FIELD************************

ASUMST INDEX(#9002032)

LAST EDITED: FEB 29, 1996
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.3^I

1)= S ^ASUT(3,"I",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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.3^AP

1)= S ^ASUT(3,"AP",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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.3^AE

1)= S ^ASUT(3,"AE",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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 20, 1996
HELP-PROMPT: Date will be entered by SAMS transaction posting routine

DESCRIPTION:

Date transaction was posted to the SAMS database

CROSS-REFERENCE: 9002036.3^AC

1)= S ^ASUT(3,"AC",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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.3^AX

1)= S ^ASUT(3,"AX",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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.3^C

1)= S ^ASUT(3,"C",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"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: FEB 29, 1996
HELP-PROMPT: Enter Sub-Sub Activity for this transaction

DESCRIPTION:

Pointer to the accounting Sub-Sub Activity table ASUTBL SUB-SUB ACTIVITY

.12

SRC PTR

0;12

POINTER TO ASUTBL SOURCE CODE FILE (#9002039.05)

ASUTBL SOURCE CODE(#9002039.05)

LAST EDITED: JUN 08, 1999
HELP-PROMPT: Enter Source of Supply for this transaction

.13

SST PTR

0;13

POINTER TO ASUTBL SUB STATION FILE (#9002039.18)

ASUTBL SUB STATION(#9002039.18)

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Enter Sub Station requesting supplies

DESCRIPTION:

Pointer to ASUTBL SUB STATION lookup table Indicates destination of supplies ordered

.14

USR PTR

0;14

POINTER TO ASUTBL USER FILE (#9002039.19)

ASUTBL USER(#9002039.19)

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Enter User requesting supplies

DESCRIPTION:

Pointer to ASUTBL USER lookup table for requestor of supplies

.15

REQ PTR

0;15

POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2)

ASUTBL REQUSITIONER(#9002039.2)

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Entry will be calculated from Sub Station and User lookup table values

DESCRIPTION:

Pointer to ASUTBL REQUISITIONER lookup table.  Combination of Sub Station and User resulting in unique identification of requestor of supplies.

.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

.2

VALUE CALCULATED FLAG

0;20

SET

'0' FOR ENTERED;
'1' FOR CALCULATED;

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Enter 1 if Value field is left null and routine is to calculate value

DESCRIPTION:

Set on if Value field is to be calculated by SAMS transaction posting routine

.21

STA/IDX QTY

0;21

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Entry will be made by SAMS posting routine

DESCRIPTION:

Station Master Index quantity after this transaction was posted.

.22

STA/IDX VAL

0;22

NUMBER

INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Entry will be made by SAMS transaction posting routine.

DESCRIPTION:

Station Master Index value after this transaction was posted.

.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)
NOTES: TRIGGERED by the TRANSACTION CODE field of the ASUTRN ISSUES File

.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

TRANSACTI0N TYPE

0;30

SET

'3' FOR ISSUE;

LAST EDITED: JUN 08, 1999

1

TRANSACTION CODE

1;1

SET

************************REQUIRED FIELD************************

'31' FOR BACK ORDER;
'32' FOR REPLENISH;
'33' FOR NON REPLENISH;
'34' FOR UNREQUIRED;
'36' FOR EXCESS;
'3J' FOR B/O CANCEL;
'3K' FOR REPLEN REVERSE;
'3M' FOR UNREQ REVERSE;
'3O' FOR EXCESS REVERSE;

LAST EDITED: JUN 03, 1999
HELP-PROMPT: Select code representing transaction type

DESCRIPTION:

Code representing the type of adjustment

CROSS-REFERENCE: 9002036.3^T

1)= S ^ASUT(3,"T",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"T",$E(X,1,30),DA)

CROSS-REFERENCE: ^^TRIGGER^9002036.3^32

1)= X ^DD(9002036.3,1,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ASUT(3,D0,3)):^(3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(9002036.3,1,1,2,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9002036.3,1,0)):$P(^(0),U,3),1:"") S X="34363M3O"[$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)

1.4)= S DIH=$S($D(^ASUT(3,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002036.3,DIG=32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= "34363M3O"[TRANSACTION CODE

CREATE VALUE)= S X=1

DELETE VALUE)= NO EFFECT

FIELD)= ISSUE TYPE

CROSS-REFERENCE: ^^TRIGGER^9002036.3^32

1)= X ^DD(9002036.3,1,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ASUT(3,D0,3)):^(3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(9002036.3,1,1,3,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9002036.3,1,0)):$P(^(0),U,3),1:"") S X="3132333J3K3L"[$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)

1.4)= S DIH=$S($D(^ASUT(3,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002036.3,DIG=32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= "3132333J3K3L"[TRANSACTION CODE

CREATE VALUE)= S X=3

DELETE VALUE)= NO EFFECT

FIELD)= ISSUE TYPE

CROSS-REFERENCE: ^^TRIGGER^9002036.3^.24

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.3,1,1,4,1.1) X ^DD(9002036.3,1,1,4,1.4)

1.1)= S X=DIV S X=DIV,X=X S X=X]"1A",Y(1)=X S X=-1,Y(2)=X S X=1,Y(3)=X S X=1,X=$S(Y(1):Y(2),Y(3):X)

1.4)= S DIH=$S($D(^ASUT(3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.3,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.3,1,1,4,2.1) X ^DD(9002036.3,1,1,4,2.4)

2.1)= S X=DIV X ^DD(9002036.3,1,1,4,59.2) S Y(7)=X S X=1,X=$S(Y(2):Y(3),Y(5):Y(6),Y(7):X)

2.4)= S DIH=$S($D(^ASUT(3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.3,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

59.2)= S Y(1)=$S($D(^ASUT(3,D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S X=X="",Y(2)=X S X="",Y(3)=X,Y(4)=X S X=$P(Y(1),U,1),X=X S X=X]"1A",Y(5)=X S X=-1,Y(6)=X S X=1

CREATE VALUE)= $S(INTERNAL(#1)]"1A":-1,1:1)

DELETE VALUE)= $S(INTERNAL(#1)="":"",INTERNAL(#1)]"1A":-1,1:1)

FIELD)= #.24

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: Enter code from Area table

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: Enter code from Station table

DESCRIPTION:

Station Code represents the IHS Station database to which the adjustment will be posted

EXECUTABLE HELP: D XSTA^ASUJHELP

4

ACCOUNT CODE

1;4

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 01, 1996
HELP-PROMPT: Enter code from Account table

DESCRIPTION:

Account is the code (also the internal entry number of ASUTBL ACCOUNT) assigned to the item of supply to be adjusted.

EXECUTABLE HELP: D XACC^ASUJHELP

5

INDEX NUMBER

1;5

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>6!($L(X)<2)!'(X?2N.N) X
LAST EDITED: FEB 29, 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.

6

QUANTITY

1;6

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits

DESCRIPTION:

If a quantity is entered, the quantity in the Station Master for the Index item of supply will be adjusted.

7

VALUE

1;7

NUMBER

INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits

DESCRIPTION:

If a Value is entered, the Value field of the Station Master for the Index item of supply will be adjusted.

8

VOUCHER NUMBER

1;8

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>10!($L(X)<8) X
LAST EDITED: JAN 08, 1998
HELP-PROMPT: Answer must be 2 digit fiscal year '-' 2 digit month '-' 4 digit serial#

DESCRIPTION:

A voucher number identifies a group of associated transactions.  It consists of a 2 digit year (must be current to previous fiscal year) a 2 digit month and a 4 digit serial number each group separated by -.

CROSS-REFERENCE: 9002036.3^V

1)= S ^ASUT(3,"V",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"V",$E(X,1,30),DA)

10

DATE OF REQUEST

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: FEB 29, 1996
HELP-PROMPT: Enter code form Sub Sub Activity table

DESCRIPTION:

Sub Sub Activity accounting code associated with this transaction from the ASUTBL SUB-SUB ACTIVITY pointer field

EXECUTABLE HELP: D XSSA^ASUJHELP

12

SOURCE CODE

1;12

FREE TEXT

INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JUN 08, 1999

13

SUB STATION CODE

1;13

FREE TEXT

INPUT TRANSFORM: K:$L(X)>3!($L(X)<2)!'((X?1N.N)!(X?1"P".1"L")) X
LAST EDITED: JUN 17, 1996
HELP-PROMPT: Enter 2 digit numeric code form Sub Station table or 'PL'

DESCRIPTION:

Sub Station to which supplies will be shipped

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 01, 1996
HELP-PROMPT: Enter code from User table

DESCRIPTION:

Code assigned to users of supply based on ASUTBL USER lookup table

EXECUTABLE HELP: D XUSR^ASUJHELP

CROSS-REFERENCE: 9002036.3^U

1)= S ^ASUT(3,"U",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"U",$E(X,1,30),DA)

15

COMMON ACCOUNTING NUMBER

1;15

FREE TEXT

INPUT TRANSFORM: K:$L(X)>7!($L(X)<7)!'(X?1AN.2N.4AN) X
LAST EDITED: MAR 16, 2000
HELP-PROMPT: Entry will be made by SAMS data entry program based on table lookup

DESCRIPTION:

CAN will be determined by Requisitioner and Sub Sub Activity table lookups

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

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

18

FPORN

1;18

SET

'F' FOR FULL;
'P' FOR PARTIAL;
'N' FOR NONE;

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Enter status of quantity received or issued

DESCRIPTION:

Quantity Received or Issued: F = Full P = Partial N = None

31

POSTING CODE

3;1

SET

'I' FOR POST POSTED;

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Enter 'I' only if issue was Post Posted (issued before posting)
DESCRIPTION:
```
Flag for Post Posted issues
```

32

ISSUE TYPE

3;2

SET

'1' FOR TRANSFER ISSUE;
'3' FOR STANDARD ISSUE;

LAST EDITED: MAR 01, 1996
HELP-PROMPT: Entry will be made by trigger on TRANSACTION CODE field

DESCRIPTION:

Categorize issues by Standard or Transfer

NOTES: TRIGGERED by the TRANSACTION CODE field of the ASUTRN ISSUES File
```
TRIGGERED by the TRANSACTION CODE field of the ASUTRN ISSUES File
```

CROSS-REFERENCE: 9002036.3^AD

1)= S ^ASUT(3,"AD",$E(X,1,30),DA)=""

2)= K ^ASUT(3,"AD",$E(X,1,30),DA)

33

TYPE OF ISSUE REQUEST

3;3

SET

'1' FOR SCHEDULED;
'2' FOR UNSCHEDULED;

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Enter 1 if issue was scheduled or 2 if unscheduled
DESCRIPTION:
```
Scheduled or Unscheduled flag
```

34

REQUEST NUMBER

3;4

FREE TEXT

INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Answer must be 1-8 characters in length.

DESCRIPTION:

Used to identify source of issue request - usually an issue book ID.

35

CONTRACT/GRANT

3;5

FREE TEXT

INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION:
```
Identifies issues to Contract or Grant
```

36

ACTUAL QTY ISSUED

3;6

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 29, 1996
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits

DESCRIPTION:

May differ from Quantity Requested (field 6) if quantity was adjusted or was partially issued and back ordered.

37

BACK ORDER CODE

3;7

SET

'B' FOR BACKORDERED;

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Entry will be made by SAMS posting routine if item was back ordered
DESCRIPTION:
```
Flag of issue transactions back ordered
```

38

QUANTITY ADJUST CODE

3;8

SET

'A' FOR ADJUSTED;

LAST EDITED: FEB 29, 1996
HELP-PROMPT: Entry will be made by SAMS transaction posting routine if quantity was adjusted

DESCRIPTION:

Flag of issue quantities which were adjusted.  Could be to issue a Standard Pack Quantity or because a partial issue was made and the remainder was back ordered.

Name	Line Occurrences (* Changed, ! Killed)
^ASUT(3 - [#9002036.3]	.01(XREF 1S), .01(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), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.4) , 1(XREF 4S), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.4), 1(XREF 4n59.2), 8(XREF 1S), 8(XREF 1K), 14(XREF 1S), 14(XREF 1K), 32(XREF 1S) , 32(XREF 1K)
^DD(	1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)
^DD(9002036.3	1(XREF 2S), 1(XREF 2n1.3), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4K), 1(XREF 4n2.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.07+1, .08+1, .09+1, 10+1
>> ASUL(1	.03+1
>> D0	1(XREF 2S), 1(XREF 2n1.3), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4K), 1(XREF 4n59.2)
>> DA	.01(XREF 1S), .01(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), 1(XREF 2n1.3), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4K) , 8(XREF 1S), 8(XREF 1K), 14(XREF 1S), 14(XREF 1K), 32(XREF 1S), 32(XREF 1K)
>> DIG	1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)
>> DIH	1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)
>> DIU	1(XREF 2S), 1(XREF 3S), 1(XREF 4S), 1(XREF 4K)
DIV	1(XREF 2S), 1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.1), 1(XREF 4n1.4), 1(XREF 4K) , 1(XREF 4n2.1), 1(XREF 4n2.4)
DIV(0	1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.4)
U	ID5+1, ID8+1, 1(XREF 2S), 1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.4) , 1(XREF 4K), 1(XREF 4n2.4), 1(XREF 4n59.2)
X	.01(XREF 1S), .01(XREF 1K), .03+1!, .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), .21+1!, .22+1! , .23+1!, .25+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 3n1.4) , 1(XREF 4S), 1(XREF 4n1.1), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.1), 1(XREF 4n2.4), 1(XREF 4n59.2), 2+1!, 3+1!, 4+1! , 5+1!, 6+1!, 7+1!, 8+1!, 8(XREF 1S), 8(XREF 1K), 10+1!, 11+1!, 12+1!, 13+1! , 14+1!, 14(XREF 1S), 14(XREF 1K), 15+1!, 16+1!, 32(XREF 1S), 32(XREF 1K), 34+1!, 35+1!, 36+1!
Y	.01OT+1, .07+1, .08+1, .09+1, 1(XREF 2S), 1(XREF 3S), 1(XREF 4S), 1(XREF 4K), 10+1
Y(0	.01OT+1*, 1(XREF 2n1.3), 1(XREF 3n1.3)
Y(1	1(XREF 2S), 1(XREF 2n1.3), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4n1.1), 1(XREF 4K), 1(XREF 4n59.2)
Y(2	1(XREF 4n1.1), 1(XREF 4n2.1), 1(XREF 4n59.2)
Y(3	1(XREF 4n1.1), 1(XREF 4n2.1), 1(XREF 4n59.2)
Y(4	1(XREF 4n59.2)
Y(5	1(XREF 4n2.1), 1(XREF 4n59.2)
Y(6	1(XREF 4n2.1), 1(XREF 4n59.2)
Y(7	1(XREF 4n2.1)

Customize PDF page

Package: Supply

Global: ^ASUT(3

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 48

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
XACC^ASUJHELP	4(HELP )
XARE^ASUJHELP	2(HELP )
XEOQ^ASUJHELP	16(HELP )
XSSA^ASUJHELP	11(HELP )
XSST^ASUJHELP	13(HELP )
XSTA^ASUJHELP	3(HELP )
XUSR^ASUJHELP	14(HELP )
^DICR	1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)

Name	Field # of Occurrence
^(0	1(XREF 2n1.3), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.4)
^(1	ID5+1, ID8+1, 1(XREF 4n59.2)
^(3	1(XREF 2S), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.4)