Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ASUH

Package: Supply

Global: ^ASUH


Information

FileMan FileNo FileMan Filename Package
9002036 ASUHST HISTORY TRANSACTIONS Supply

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Supply 19 ASU0TRRD    ASUCOHKP    ASUP42T2    ASURD10V    ASURD11P    ASURD71P    ASURM15P    ASURM16P
ASURM17P    ASURM18P    ASURM83P    ASURMDBC    ASURMDBH    ASURMDBK    ASUUINTG    ASUW2SAM
^ASUH    ASUUTIL    ASUWMVHS    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Supply 4 ASU0PURG    ASUP42T2    ASUW2SAM    ASUW2STO    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
Supply 12 ASUTBL AREA(#9002039.01)[.022]    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 CATEGORY CODES(#9002039.07)[.19]    ASUTBL ACCOUNT(#9002039.09)[.044]    ASUMST INDEX(#9002032)[.05]    
Kernel 1 NEW PERSON(#200)[.06]    
Utility Tables 1 VENDOR(#9999999.11)[.18]    

Fields, Total: 69

Field # Name Loc Type Details
.01 KEY 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^ASU0TFHI
  • OUTPUT TRANSFORM:  D ^ASU0TFHO
  • LAST EDITED:  JUN 05, 1992
  • 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 created it.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002036^B
    1)= S ^ASUH("B",$E(X,1,30),DA)=""
    2)= K ^ASUH("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:  AUG 11, 1998
  • 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^S
    1)= S ^ASUH("S",$E(X,1,30),DA)=""
    2)= K ^ASUH("S",$E(X,1,30),DA)
.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:  SEP 04, 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^I
    1)= S ^ASUH("I",$E(X,1,30),DA)=""
    2)= K ^ASUH("I",$E(X,1,30),DA)
.06 ENTRY PERSON 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 11, 1998
  • 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
.07 ENTRY DATE 0;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 19, 1998
  • HELP-PROMPT:  Answer must be Date.Time(HHMMSS)
  • DESCRIPTION:  
    The date and time in fileman format that the Adjustment transaction was entered
  • CROSS-REFERENCE:  9002036^AD
    1)= S ^ASUH("AD",$E(X,1,30),DA)=""
    2)= K ^ASUH("AD",$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:  APR 29, 1998
  • HELP-PROMPT:  Date will be entered by SAMS transaction posting routine
  • DESCRIPTION:  
    Date transaction was posted to the SAMS database
  • CROSS-REFERENCE:  9002036^AC
    1)= S ^ASUH("AC",$E(X,1,30),DA)=""
    2)= K ^ASUH("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:  ENTER DATE EXTRACTED
  • CROSS-REFERENCE:  9002036^AX
    1)= S ^ASUH("AX",$E(X,1,30),DA)=""
    2)= K ^ASUH("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:  APR 29, 1998
  • 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^C
    1)= S ^ASUH("C",$E(X,1,30),DA)=""
    2)= K ^ASUH("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:  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:  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:  FEB 29, 1996
  • 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.
.18 VEN PTR 0;18 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter Vendor from which supplies are being purchased
  • DESCRIPTION:  
    Pointer to VENDOR file
.19 CAT PTR 0;19 POINTER TO ASUTBL CATEGORY CODES FILE (#9002039.07) ASUTBL CATEGORY CODES(#9002039.07)

  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter Category Code to be used for this transaction
  • DESCRIPTION:  
    Pointer to ASUTBL CATEGORY CODES lookup table Code assigns accounting information to the transaction
.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 STA/IDX DUE IN QTY 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 09, 1998
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the ASUHST HISTORY TRANSACTIONS File
.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
************************REQUIRED FIELD************************
  • '0' FOR TRANSFER DUE IN;
  • '1' FOR DUE IN;
  • '2' FOR RECEIPT;
  • '3' FOR ISSUE;
  • '4' FOR INDEX;
  • '5' FOR STATION;
  • '6' FOR ADJUSTMENT;
  • '7' FOR DIRECT ISSUE;
  • '8' FOR TRANSFER IN;
  • '9' FOR TRANSFER OUT;

  • LAST EDITED:  APR 07, 1999
  • HELP-PROMPT:  Select valid transaction type for this transaction
  • CROSS-REFERENCE:  9002036^AT
    1)= S ^ASUH("AT",$E(X,1,30),DA)=""
    2)= K ^ASUH("AT",$E(X,1,30),DA)
    CLASSIFIES TRANSACTIONS BY TYPE
1 TRANSACTION CODE 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?1N.1AN) X
  • LAST EDITED:  MAR 30, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Code representing the type of transaction
  • CROSS-REFERENCE:  9002036^T
    1)= S ^ASUH("T",$E(X,1,30),DA)=""
    2)= K ^ASUH("T",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002036^.23
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUH(D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(9002036,1,1,2,1.1) X ^DD(9002036,1,1,2,1.4)
    1.1)= S X=DIV S X=DIV]"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(^ASUH(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=9002036,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(^ASUH(D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(9002036,1,1,2,2.1) X ^DD(9002036,1,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002036,1,1,2,59.2) S X=$S(Y(2):Y(3),Y(4):Y(5),Y(6):X)
    2.4)= S DIH=$S($D(^ASUH(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=9002036,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S Y(1)=$S($D(^ASUH(D0,1)):^(1),1:"") S X=$P(Y(1),U,1)']"",Y(2)=X S X="",Y(3)=X S X=$P(Y(1),U,1)]"3A",Y(4)=X S X=-1,Y(5)=X S X=1,Y(6)=X S X=1
    CREATE VALUE)= $S(#1]"3A":-1,1:1)
    DELETE VALUE)= $S(#1']"":"",#1]"3A":-1,1:1)
    FIELD)= TRCD
2 AREA CODE 1;2 POINTER TO ASUTBL AREA FILE (#9002039.01)
************************REQUIRED FIELD************************
ASUTBL AREA(#9002039.01)

  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter the Accounting Point code for the Area to be adjusted
  • DESCRIPTION:  
    Accounting Point (also the internal entry number of ASUTBL AREA) for the IHS Area database to be adjusted
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
4 ACCOUNT CODE 1;4 POINTER TO ASUTBL ACCOUNT FILE (#9002039.09) ASUTBL ACCOUNT(#9002039.09)

  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter the Account Code for the supply item to be adjusted
  • DESCRIPTION:  
    Account is the code (also the internal entry number of ASUTBL ACCOUNT) assigned to the item of supply to be adjusted.
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:  APR 09, 1999
  • 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

  • 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 separated by -.
  • CROSS-REFERENCE:  9002036^V
    1)= S ^ASUH("V",$E(X,1,30),DA)=""
    2)= K ^ASUH("V",$E(X,1,30),DA)
9 ORDER NUMBER 1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter the Purchase Order Number 1-7 long not all blank or zero
  • DESCRIPTION:  
    Purchase Order number associated with the transaction
10 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:  Entry will be made by SAMS data entry routine based on table pointer
  • DESCRIPTION:  
    Sub Sub Activity accounting code associated with this transaction from the ASUTBL SUB-SUB ACTIVITY pointer field
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
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:  FEB 29, 1996
  • 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:  FEB 29, 1996
  • 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
15 COMMON ACCOUNTING NUMBER 1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7)!'(X?1AN.6N) X
  • LAST EDITED:  JUN 10, 1998
  • 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
  • CROSS-REFERENCE:  9002036^D
    1)= S ^ASUH("D",$E(X,1,30),DA)=""
    2)= K ^ASUH("D",$E(X,1,30),DA)
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:  Entry will be made by SAMS data entry routine based on table lookup
  • DESCRIPTION:  
    Code from ASUTBL EOQ TYPE from pointer to that lookup table
17 OBJECT SUB OBJECT 1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?1"2".1"6".2AN) X
  • OUTPUT TRANSFORM:  D SOBJ^ASUUTIL1(.Y)
  • LAST EDITED:  DEC 04, 1997
  • HELP-PROMPT:  Entry will be made by SAMS data entry routine based on table lookup
  • DESCRIPTION:  
    Financial accounting Object Sub Object code to be used for this transaction based on lookup to table ASUTBL STOCK SUB OBJECT.
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
19 DUE IN UPDATE 1;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 13, 1998
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
31 POSTING CODE 3;1 SET
  • 'I' FOR POST POSTED;
  • 'D' FOR DUE IN RELATED QTY;

  • LAST EDITED:  APR 08, 1998
  • HELP-PROMPT:  Enter 'I' only if issue was Post Posted (issued before posting)
  • DESCRIPTION:  
    Flag for Post Posted issues and Due In related receipts/due ins
32 ISSUE TYPE 3;2 SET
  • '1' FOR TRANSFER ISSUE;
  • '3' FOR STANDARD ISSUE;

  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Entry will be made by trigger on TRANSACTION CODE field
  • DESCRIPTION:  
    Categorize issues by Standard or Transfer
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 backordered.
41 DESCRIPTION 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>62!($L(X)<1)!'(X?1A.AN) X
  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Answer must be 1-62 characters in length beginning with an alpha character. No quotes.
  • DESCRIPTION:  
    Descriptive Name of an Index item of supply
42 AREA UNIT OF ISSUE 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2AN) X
  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Answer must be 2 alpha/numeric characters in length.
  • DESCRIPTION:  
    The standard unit of issue for the Area
43 NATIONAL STOCK NUMBER 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<4)!'(X?4N.AN) X
  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Answer must be 4-14 characters in length.
  • DESCRIPTION:  
    Standard NSN for those items which have one
45 BAR CODE 4;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 18, 1998
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
49 CATEGORY CODE 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1AN) X
  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Entry will be made by SAMS data entry routine based on lookup table
  • DESCRIPTION:  
    Code from ASUTBL CATEGORY lookup table. Provides finance accounting information.
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:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Code from ASUTBL STORAGE LOCATION lookup table.  Indicates special storage requirements.
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:  AUG 26, 1997
  • 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 month for each quarter of the year when the item must appear on the Requirements Analysis
    Report (R13). There may be one 'action' month for each quarter. the contents of the field 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-5 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<.5)!(X?.E1"."2N.N) X
  • LAST EDITED:  AUG 26, 1997
  • HELP-PROMPT:  Type a Number between .5 and 9.5, 1 Decimal Digit
  • DESCRIPTION:  
    The time (in months whole or half) expected to elapse 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:  AUG 26, 1997
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Represents inventory quantity which will trigger the item's appearance on the Requirements Analysis Report (R13).  The inventory quantity which should be sustained for the item.
57 UNIT COST 5;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<.01) X
  • LAST EDITED:  AUG 26, 1997
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The cost of one Vendor (Source) unit of this item.
58 VENDOR NAME 5;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1)!'(X?1A.ANP) X
  • LAST EDITED:  AUG 26, 1997
  • HELP-PROMPT:  Answer should be from the Vendor file but may be free text
  • DESCRIPTION:  
    The name of the Vendor from whom this item is usually purchased. It will normally be copied from a lookup on the Vendor file, but may be free text if no match is found on the Vendor file.
  • 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:  AUG 26, 1997
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Unit of issue shipped by vendor.
60 USER LEVEL QUANTITY 5;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 26, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Factor in formula determining the items appearance on the Requirements Analysis Report (R13).  If null, a standard formula is used, otherwise this field is substituted for the standard user level quantity in the formula.
61 STANDARD PACK QUANTITY 5;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 26, 1997
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The quantity in which the item is normally issued.

External References

Name Field # of Occurrence
^%DT .07+1, .08+1, .09+1, 10+1
^ASU0TFHI .01+1
^ASU0TFHO .01OT+1
XVEN^ASUJHELP 58(HELP )
SOBJ^ASUUTIL1 17OT+1
^DICR 1(XREF 2n1.4), 1(XREF 2n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUH - [#9002036] 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4), 1(XREF 2n59.2)
^ASUH("AC" .08(XREF 1S), .08(XREF 1K)
^ASUH("AD" .07(XREF 1S), .07(XREF 1K)
^ASUH("AT" .3(XREF 1S), .3(XREF 1K)
^ASUH("AX" .09(XREF 1S), .09(XREF 1K)
^ASUH("B" .01(XREF 1S), .01(XREF 1K)
^ASUH("C" .1(XREF 1S), .1(XREF 1K)
^ASUH("D" 15(XREF 1S), 15(XREF 1K)
^ASUH("I" .05(XREF 1S), .05(XREF 1K)
^ASUH("S" .03(XREF 1S), .03(XREF 1K)
^ASUH("T" 1(XREF 1S), 1(XREF 1K)
^ASUH("V" 8(XREF 1S), 8(XREF 1K)
^DD( 1(XREF 2n1.4), 1(XREF 2n2.4)
^DD(9002036 1(XREF 2S), 1(XREF 2K), 1(XREF 2n2.1)

Naked Globals

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

Local Variables

Legend:

>> 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 2K), 1(XREF 2n59.2)
>> DA .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(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), .3(XREF 1S), .3(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
8(XREF 1S), 8(XREF 1K), 15(XREF 1S), 15(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, ID8+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), .03+1!, .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(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!, .3(XREF 1S), .3(XREF 1K), 1+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), 3+1!, 5+1!, 6+1!, 7+1*!, 8+1!, 8(XREF 1S)
8(XREF 1K), 9+1!, 10+1*!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 15(XREF 1S), 15(XREF 1K)
, 16+1!, 17+1!, 19+1!, 34+1!, 35+1!, 36+1!, 41+1!, 42+1!, 43+1!, 45+1!
, 49+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, 1(XREF 2S), 1(XREF 2K), 10+1, 17OT+1
Y(0 .01OT+1*, 17OT+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 2n2.1), 1(XREF 2n59.2)
Y(5 1(XREF 2n2.1), 1(XREF 2n59.2)
Y(6 1(XREF 2n2.1), 1(XREF 2n59.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All