Global: ^ASUT(8

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

2)= K ^ASUT(8,"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(8,"I",$E(X,1,30),DA)=""

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

Person file pointer determined by DUZ at time of transaction entry

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

2)= K ^ASUT(8,"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(8,"AE",$E(X,1,30),DA)=""

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

Date transaction was posted to the SAMS database

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

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

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

Pointer to ASUTBL USER lookup table for requestor of supplies

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

EOQ type is used to calculate the Economic Order Quantity for an item of supply

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

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(8,"T",$E(X,1,30),DA)=""

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

1)= X ^DD(9002036.8,1,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ASUT(8,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.8,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.8,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(8,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002036.8,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

1)= X ^DD(9002036.8,1,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ASUT(8,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.8,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.8,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(8,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002036.8,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

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

1.1)= S X=DIV S X=DIV,X=X S X=X]"3A",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(8,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=9002036.8,DIG=.23 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(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(9002036.8,1,1,4,2.1) X ^DD(9002036.8,1,1,4,2.4)

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

59.2)= S Y(1)=$S($D(^ASUT(8,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]"3A",Y(5)=X S X=-1,Y(6)=X S X=1

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

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

FIELD)= TRCD

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.

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

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

Date

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

Sub Station to which supplies will be shipped

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

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

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

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

Code from ASUTBL EOQ TYPE from pointer to that lookup table

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

Flag for Post Posted issues

Categorize issues by Standard or Transfer

TRIGGERED by the TRANSACTION CODE field of the ASUJIB ISSUE BOOK File

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

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

Scheduled or Unscheduled flag

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

Identifies issues to Contract or Grant

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

Flag of issue transactions back ordered

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.