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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ASUT(4

Package: Supply

Global: ^ASUT(4


Information

FileMan FileNo FileMan Filename Package
9002036.4 ASUTRN INDEX Supply

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Supply 1 ^ASUT(4    

Pointer To FileMan Files, Total: 12

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 CATEGORY CODES(#9002039.07)[.19]    ASUTBL ACCOUNT(#9002039.09)[.04]    ASUMST INDEX(#9002032)[.05]    
Kernel 1 NEW PERSON(#200)[.06]    

Fields, Total: 37

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.4^B
    1)= S ^ASUT(4,"B",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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:  JUN 08, 1999
.04 ACC PTR 0;4 POINTER TO ASUTBL ACCOUNT FILE (#9002039.09) ASUTBL ACCOUNT(#9002039.09)

  • LAST EDITED:  MAR 06, 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.4^I
    1)= S ^ASUT(4,"I",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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.4^AP
    1)= S ^ASUT(4,"AP",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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.4^AE
    1)= S ^ASUT(4,"AE",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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.4^AC
    1)= S ^ASUT(4,"AC",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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.4^AX
    1)= S ^ASUT(4,"AX",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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.4^C
    1)= S ^ASUT(4,"C",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"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:  JUN 08, 1999
.12 SRC PTR 0;12 POINTER TO ASUTBL SOURCE CODE FILE (#9002039.05) ASUTBL SOURCE CODE(#9002039.05)

  • LAST EDITED:  JUN 08, 1999
.13 SST PTR 0;13 POINTER TO ASUTBL SUB STATION FILE (#9002039.18) ASUTBL SUB STATION(#9002039.18)

  • LAST EDITED:  JUN 08, 1999
.14 USR PTR 0;14 POINTER TO ASUTBL USER FILE (#9002039.19) ASUTBL USER(#9002039.19)

  • LAST EDITED:  JUN 08, 1999
.15 REQ PTR 0;15 POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2) ASUTBL REQUSITIONER(#9002039.2)

  • LAST EDITED:  JUN 08, 1999
.17 SOBJ PTR 0;17 POINTER TO ASUTBL STOCK SUB OBJECT FILE (#9002039.03) ASUTBL STOCK SUB OBJECT(#9002039.03)

  • LAST EDITED:  MAR 01, 1996
  • HELP-PROMPT:  Enter Stock Object Sub Object code from lookup table
.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
.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)
.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
  • '4' FOR INDEX;

  • LAST EDITED:  JUN 08, 1999
1 TRANSACTION CODE 1;1 SET
************************REQUIRED FIELD************************
  • '4A' FOR ADD INDEX MASTER;
  • '4B' FOR CHANGE USER LEVEL;
  • '4C' FOR CHANGE INDEX MASTER;
  • '4D' FOR DELETE INDEX MASTER;

  • LAST EDITED:  MAR 01, 1996
  • HELP-PROMPT:  Select code representing transaction type
  • DESCRIPTION:  
    Code representing the type of adjustment
  • CROSS-REFERENCE:  9002036.4^T
    1)= S ^ASUT(4,"T",$E(X,1,30),DA)=""
    2)= K ^ASUT(4,"T",$E(X,1,30),DA)
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:  Entry will be made by SAMS data entry routine based on table lookup
  • 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

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2AN) X
  • LAST EDITED:  JUN 08, 1999
4 ACCOUNT CODE 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1) X
  • LAST EDITED:  AUG 14, 2000
  • HELP-PROMPT:  Entry will be made by SAMS data entry routine based on table lookup
  • 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
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 INDEX NUMBER 1;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<2)!'(X?2N.N) X
  • OUTPUT TRANSFORM:  S Y(0)=Y S:Y?6N Y=$E(Y,1,5)_"."_$E(Y,6)
  • LAST EDITED:  JAN 07, 1998
  • 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.
10 DATE ITEM ESTABLISHED 1;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 18, 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:  JUN 08, 1999
  • HELP-PROMPT:  Answer must be 2 characters in length.
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.
14 USER CODE 1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  JUN 08, 1999
17 OBJECT SUB OBJECT 1;17 FREE TEXT

  • INPUT TRANSFORM:  D SSO^ASULDIRF(.X)
  • OUTPUT TRANSFORM:  D SOBJ^ASUUTIL1(.Y)
  • LAST EDITED:  DEC 04, 1997
  • HELP-PROMPT:  Entry must be contained in the Stock Object sub object table
  • EXECUTABLE HELP:  D XSSO^ASUJHELP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
41 DESCRIPTION 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>62!($L(X)<1)!'(X?1A.ANP)!(X["""") X
  • LAST EDITED:  JUN 13, 1996
  • HELP-PROMPT:  Answer must be 1-62 characters in length.
  • DESCRIPTION:  
    Descriptive Name of an Index item of supply
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42 AREA UNIT OF ISSUE 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2AN) X
  • LAST EDITED:  FEB 27, 1999
  • HELP-PROMPT:  Answer must be 2 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:  National Stock Number must be 4-14 characters in length.
  • DESCRIPTION:  
    Standard National Stock Number 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:  NOV 21, 1997
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
49 CATEGORY CODE 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  AUG 14, 2000
  • 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.
  • EXECUTABLE HELP:  D XCAT^ASUJHELP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

External References

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 )
XCAT^ASUJHELP 49(HELP )
XSSO^ASUJHELP 17(HELP )
SSO^ASULDIRF 17+1
SOBJ^ASUUTIL1 17OT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUT(4 - [#9002036.4] .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)

Naked Globals

Name Field # of Occurrence
^(1 ID5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .07+1*, .08+1*, .09+1*, 10+1*
>> 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)
U ID5+1
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), .23+1!, .25+1!, 1(XREF 1S)
, 1(XREF 1K), 2+1!, 3+1!, 4+1!, 5+1!, 10+1*!, 11+1!, 12+1!, 13+1!, 14+1!
, 17+1, 41+1!, 42+1!, 43+1!, 45+1!, 49+1!
>> Y .01OT+1, .07+1, .08+1, .09+1, 5OT+1*, 10+1, 17OT+1
>> Y(0 .01OT+1*, 5OT+1*, 17OT+1*
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All