Global: ^ASUT(1

FileMan FileNo	FileMan Filename	Package
9002036.1	ASUTRN DUE IN	Supply

Package	Total	Routines
Supply	1	^ASUT(1

Package	Total	FileMan Files
Supply	10	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 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.1^B` 1)= S ^ASUT(1,"B",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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`
.04	ACC PTR	0;4	POINTER TO ASUTBL ACCOUNT FILE (#9002039.09)	**********************REQUIRED FIELD********************** ASUTBL ACCOUNT(#9002039.09) LAST EDITED: `FEB 29, 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 18, 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 NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002036.1^I` 1)= S ^ASUT(1,"I",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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.1^AP` 1)= S ^ASUT(1,"AP",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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.1^AE` 1)= S ^ASUT(1,"AE",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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.1^AC` 1)= S ^ASUT(1,"AC",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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.1^AX` 1)= S ^ASUT(1,"AX",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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.1^C` 1)= S ^ASUT(1,"C",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"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` 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: `JUN 08, 1999` 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: `JUN 08, 1999` 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: `JUN 08, 1999` 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.
.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` HELP-PROMPT: `Enter accounting Stock Sub Object code to be used for this transaction` DESCRIPTION: Pointer to ASUTBL STOCK SUB OBJECT lookup table Screened by Account Code.
.21	STA/IDX QTY	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 08, 1999` 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)!(X<0) X` LAST EDITED: `JUN 08, 1999` 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 DUE IN File`
.25	REMARKS	0;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 10, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.3	TRANSACTIONS TYPE	0;30	SET	'1' FOR DUE IN; LAST EDITED: `JUN 08, 1999`
1	TRANSACTION CODE	1;1	SET	**********************REQUIRED FIELD********************** '12' FOR PURCHASED SUPPLIES; '14' FOR UNREQUIRED SUPPLIES; '15' FOR DONATED SUPPLIES; '16' FOR EXCESS SUPPLIES; '1K' FOR PURCHASE REVERSAL; '1M' FOR UNREQUIRED REVERSAL; '1N' FOR DONATED REVERSAL; '1O' FOR EXCESS REVERSAL; LAST EDITED: `JUN 02, 1999` HELP-PROMPT: `Select code representing transaction type` DESCRIPTION: Code representing the type of adjustment CROSS-REFERENCE: `9002036.1^T` 1)= S ^ASUT(1,"T",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"T",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002036.1^.24` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.1,1,1,2,1.1) X ^DD(9002036.1,1,1,2,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(1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.1,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(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.1,1,1,2,2.1) X ^DD(9002036.1,1,1,2,2.4) 2.1)= S X=DIV X ^DD(9002036.1,1,1,2,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(1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.1,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S Y(1)=$S($D(^ASUT(1,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)= TRCD SIGN
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 the 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	**********************REQUIRED FIELD********************** 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.
9	P.O.NUMBER	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter the Purchase Order Number 1-7 long not all blank or zero` DESCRIPTION: Purchase Order number associated with the transaction CROSS-REFERENCE: `9002036.1^P` 1)= S ^ASUT(1,"P",$E(X,1,30),DA)="" 2)= K ^ASUT(1,"P",$E(X,1,30),DA)
10	DUE IN DATE	1;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 29, 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 from 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` HELP-PROMPT: `Answer must be 1 character in length.`
13	SUB STATION CODE	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2)!'(X?2N.N!X?1"PL") X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Answer must be 2-3 characters in length.` DESCRIPTION: Sub Station to which supplies will be shipped
14	USER CODE	1;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Entry will be made by SAMS data entry routine based on lookup table` DESCRIPTION: Code assigned to users of supply based on ASUTBL USER lookup table

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

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

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

.04

ACC PTR

0;4

POINTER TO ASUTBL ACCOUNT FILE (#9002039.09)

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

ASUTBL ACCOUNT(#9002039.09)

LAST EDITED: FEB 29, 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 18, 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

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

CROSS-REFERENCE: 9002036.1^I

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

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

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

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

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

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

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

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

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

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

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

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

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: JUN 08, 1999
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: JUN 08, 1999
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: JUN 08, 1999
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.

.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
HELP-PROMPT: Enter accounting Stock Sub Object code to be used for this transaction

DESCRIPTION:

Pointer to ASUTBL STOCK SUB OBJECT lookup table Screened by Account Code.

.21

STA/IDX QTY

0;21

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 08, 1999
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)!(X<0) X
LAST EDITED: JUN 08, 1999
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 DUE IN File

.25

REMARKS

0;25

FREE TEXT

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

.3

TRANSACTIONS TYPE

0;30

SET

'1' FOR DUE IN;

LAST EDITED: JUN 08, 1999

1

TRANSACTION CODE

1;1

SET

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

'12' FOR PURCHASED SUPPLIES;
'14' FOR UNREQUIRED SUPPLIES;
'15' FOR DONATED SUPPLIES;
'16' FOR EXCESS SUPPLIES;
'1K' FOR PURCHASE REVERSAL;
'1M' FOR UNREQUIRED REVERSAL;
'1N' FOR DONATED REVERSAL;
'1O' FOR EXCESS REVERSAL;

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

DESCRIPTION:

Code representing the type of adjustment

CROSS-REFERENCE: 9002036.1^T

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

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

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

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.1,1,1,2,1.1) X ^DD(9002036.1,1,1,2,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(1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.1,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(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.1,1,1,2,2.1) X ^DD(9002036.1,1,1,2,2.4)

2.1)= S X=DIV X ^DD(9002036.1,1,1,2,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(1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.1,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

59.2)= S Y(1)=$S($D(^ASUT(1,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)= TRCD SIGN

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 the 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

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

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.

9

P.O.NUMBER

1;9

FREE TEXT

INPUT TRANSFORM: K:$L(X)>7!($L(X)<1) X
LAST EDITED: MAR 01, 1996
HELP-PROMPT: Enter the Purchase Order Number 1-7 long not all blank or zero

DESCRIPTION:

Purchase Order number associated with the transaction

CROSS-REFERENCE: 9002036.1^P

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

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

10

DUE IN DATE

1;10

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 29, 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 from 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
HELP-PROMPT: Answer must be 1 character in length.

13

SUB STATION CODE

1;13

FREE TEXT

INPUT TRANSFORM: K:$L(X)>3!($L(X)<2)!'(X?2N.N!X?1"PL") X
LAST EDITED: JUN 08, 1999
HELP-PROMPT: Answer must be 2-3 characters in length.

DESCRIPTION:

Sub Station to which supplies will be shipped

14

USER CODE

1;14

FREE TEXT

INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: JUN 08, 1999
HELP-PROMPT: Entry will be made by SAMS data entry routine based on lookup table

DESCRIPTION:

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

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Supply

Global: ^ASUT(1

Information

Description

Directly Accessed By Routines, Total: 3

Pointer To FileMan Files, Total: 11

Fields, Total: 35

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 )
XSSA^ASUJHELP	11(HELP )
XSTA^ASUJHELP	3(HELP )
^DICR	1(XREF 2n1.4), 1(XREF 2n2.4)

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