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: ^ASUT(8

Package: Supply

Global: ^ASUT(8


Information

FileMan FileNo FileMan Filename Package
9002036.8 ASUJIB ISSUE BOOK Supply

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Supply 2 ^ASUT(8    ASUJOLIB    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Supply 1 ASUJOLIB    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Supply 9 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 EOQ TYPE(#9002039.06)[.16]    ASUTBL ACCOUNT(#9002039.09)[.04]    ASUMST INDEX(#9002032)[.05]    
Kernel 1 NEW PERSON(#200)[.06]    

Fields, Total: 43

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

  • INPUT TRANSFORM:  K:X'?15N X
  • OUTPUT TRANSFORM:  D TRANS^ASUJOLIB
  • LAST EDITED:  NOV 08, 1996
  • HELP-PROMPT:  Must be pointer to Requisitioner table concatenated to index number
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002036.8^B
    1)= S ^ASUT(8,"B",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"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) ASUTBL ACCOUNT(#9002039.09)

  • LAST EDITED:  MAR 05, 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.8^I
    1)= S ^ASUT(8,"I",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"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.8^AP
    1)= S ^ASUT(8,"AP",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"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.8^AE
    1)= S ^ASUT(8,"AE",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"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:  NOV 13, 1996
  • HELP-PROMPT:  Date will be entered by SAMS transaction posting routine
  • DESCRIPTION:  
    Date transaction was posted to the SAMS database
.09 EXTRACTED DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 13, 1996
  • HELP-PROMPT:  DATE ENTERED BY EXTRACT ROUTINE
.1 STATUS FLAG 0;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR ENTERED;
  • 'U' FOR UPDATED;
  • 'R' FOR REJECTD;
  • 'X' FOR XTRACTD;

  • LAST EDITED:  NOV 13, 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
.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
.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
.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 TRCD SIGN 0;23 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<-1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 31, 1996
  • HELP-PROMPT:  Type a Number between -1 and 1, 0 Decimal Digits
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the ASUJIB ISSUE BOOK 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.
1 TRANSACTION CODE 1;1 SET
************************REQUIRED FIELD************************
  • '31' FOR BACK ORDER;
  • '32' FOR REPLENISH;
  • '33' FOR NON REPLENISH;
  • '34' FOR UNREQUIRED;
  • '36' FOR EXCESS;
  • '3J' FOR B/O CANCEL;
  • '3K' FOR REPLEN REVERSE;
  • '3M' FOR UNREQ REVERSE;
  • '3O' FOR EXCESS REVERSE;

  • LAST EDITED:  MAY 31, 1996
  • HELP-PROMPT:  Select code representing transaction type
  • DESCRIPTION:  
    Code representing the type of adjustment
  • CROSS-REFERENCE:  9002036.8^T
    1)= S ^ASUT(8,"T",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"T",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002036.8^32
    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
  • CROSS-REFERENCE:  ^^TRIGGER^9002036.8^32
    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
  • CROSS-REFERENCE:  ^^TRIGGER^9002036.8^.23
    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
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
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 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 01, 1996
  • 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.
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.
8 VOUCHER NUMBER 1;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8)!'(X?8N) X
  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter 2 digit fiscal year, 2 digit month and 4 digit serial number.
  • 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.
  • CROSS-REFERENCE:  9002036.8^V
    1)= S ^ASUT(8,"V",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"V",$E(X,1,30),DA)
10 DATE OF REQUEST 1;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 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
13 SUB STATION CODE 1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'((X?1N.N)!(X?1"P".1"L")) X
  • LAST EDITED:  JUN 17, 1996
  • HELP-PROMPT:  Answer must be numeric or 'PL'
  • 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:  MAR 01, 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
  • CROSS-REFERENCE:  9002036.8^U
    1)= S ^ASUT(8,"U",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"U",$E(X,1,30),DA)
15 COMMON ACCOUNTING NUMBER 1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7)!'(X?1AN.6N) X
  • LAST EDITED:  FEB 29, 1996
  • 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
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
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
31 POSTING CODE 3;1 SET
  • 'I' FOR POST POSTED;

  • LAST EDITED:  FEB 29, 1996
  • HELP-PROMPT:  Enter 'I' only if issue was Post Posted (issued before posting)
  • DESCRIPTION:  
    Flag for Post Posted issues
32 ISSUE TYPE 3;2 SET
  • '1' FOR TRANSFER ISSUE;
  • '3' FOR STANDARD ISSUE;

  • LAST EDITED:  MAR 01, 1996
  • HELP-PROMPT:  Entry will be made by trigger on TRANSACTION CODE field
  • DESCRIPTION:  
    Categorize issues by Standard or Transfer
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the ASUJIB ISSUE BOOK File
    TRIGGERED by the TRANSACTION CODE field of the ASUJIB ISSUE BOOK File
  • CROSS-REFERENCE:  9002036.8^AD
    1)= S ^ASUT(8,"AD",$E(X,1,30),DA)=""
    2)= K ^ASUT(8,"AD",$E(X,1,30),DA)
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 back ordered.

External References

Name Field # of Occurrence
^%DT .07+1, .08+1, .09+1, 10+1
TRANS^ASUJOLIB .01OT+1
^DICR 1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUT(8 - [#9002036.8] .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K), 1(XREF 1S), 1(XREF 1K)
1(XREF 2S), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.4), 1(XREF 4n59.2), 8(XREF 1S)
8(XREF 1K), 14(XREF 1S), 14(XREF 1K), 32(XREF 1S), 32(XREF 1K)
^DD( 1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)
^DD(9002036.8 1(XREF 2S), 1(XREF 2n1.3), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4K), 1(XREF 4n2.1)

Naked Globals

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

Local Variables

Legend:

>> 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 2n1.3), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4K), 1(XREF 4n59.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), 1(XREF 1S), 1(XREF 1K)
1(XREF 2n1.3), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4K), 8(XREF 1S), 8(XREF 1K), 14(XREF 1S), 14(XREF 1K), 32(XREF 1S), 32(XREF 1K)
>> DIG 1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)
>> DIH 1(XREF 2n1.4), 1(XREF 3n1.4), 1(XREF 4n1.4), 1(XREF 4n2.4)
>> DIU 1(XREF 2S), 1(XREF 3S), 1(XREF 4S), 1(XREF 4K)
DIV 1(XREF 2S), 1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.1), 1(XREF 4n1.4), 1(XREF 4K)
1(XREF 4n2.1), 1(XREF 4n2.4)
DIV(0 1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.4)
U ID5+1, ID8+1, 1(XREF 2S), 1(XREF 2n1.3), 1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.4)
1(XREF 4K), 1(XREF 4n2.4), 1(XREF 4n59.2)
X .01+1!, .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*!, .09+1*!, .21+1!, .22+1*!, .23+1!, .25+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2n1.3)
1(XREF 2n1.4), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 3n1.4), 1(XREF 4S), 1(XREF 4n1.1), 1(XREF 4n1.4), 1(XREF 4K), 1(XREF 4n2.1), 1(XREF 4n2.4)
1(XREF 4n59.2), 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1*!, 8+1!, 8(XREF 1S), 8(XREF 1K)
, 10+1*!, 11+1!, 13+1!, 14+1!, 14(XREF 1S), 14(XREF 1K), 15+1!, 16+1!, 32(XREF 1S), 32(XREF 1K)
, 34+1!, 35+1!, 36+1!
Y .01OT+1, .07+1, .08+1, .09+1, 1(XREF 2S), 1(XREF 3S), 1(XREF 4S), 1(XREF 4K), 10+1
Y(0 .01OT+1*, 1(XREF 2n1.3), 1(XREF 3n1.3)
Y(1 1(XREF 2S), 1(XREF 2n1.3), 1(XREF 3S), 1(XREF 3n1.3), 1(XREF 4S), 1(XREF 4n1.1), 1(XREF 4K), 1(XREF 4n59.2)
Y(2 1(XREF 4n1.1), 1(XREF 4n2.1), 1(XREF 4n59.2)
Y(3 1(XREF 4n1.1), 1(XREF 4n2.1), 1(XREF 4n59.2)
Y(4 1(XREF 4n59.2)
Y(5 1(XREF 4n2.1), 1(XREF 4n59.2)
Y(6 1(XREF 4n2.1), 1(XREF 4n59.2)
Y(7 1(XREF 4n2.1)
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