Global: ^ASUT(2

The date and time in fileman format that the Transaction was entered followed by the job number of the job which created it.

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

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

Pointer to the ASUTBL AREA lookup table

Pointer to the ASUTBL STATION lookup table. Internal Entry number will be Area Accounting point concatenated to 3 digit station code (999 for 'PL')

Pointer to the ASUTBL ACCOUNT file for account code

Pointer to the Index Master file entry in which this item of supply's data is recorded

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

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

Person file pointer determined by DUZ at time of transaction entry

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

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

The date and time in fileman format that the Adjustment transaction was entered followed by the job number of the job which entered it.

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

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

Date transaction was posted to the SAMS database

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

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

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

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

Used to acces the file by date transaction was extracted for STORES database

Status flag will indicate the entry/posting/extract status of the transaction

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

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

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

Pointer to the ASUTBL SOURCE lookup table Assigns Source (of purchase) information to this transaction.

Station Master Index quantity after this transaction was posted.

Station Master Index value after this transaction was posted.

Code representing the type of adjustment

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

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

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

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

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

Accounting Point (also the internal entry number of ASUTBL AREA) for the IHS Area database to be adjusted

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

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

Index Number is a unique number associated with an item of supply.  It must pass the modulus 11 test.

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

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

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

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

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

Purchase Order number associated with the transaction

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

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

Date

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

Set from ASUTBL SOURCE pointer field Assigns the Source (place purchased) for this transaction

Quantity Received: F = Full P = Partial