Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Fields |  All
Print Page as PDF
Global: ^ASUWC

Package: Supply

Global: ^ASUWC


Information

FileMan FileNo FileMan Filename Package
9002039.0001 ASUTBL EXTRACT CONTROL Supply

Description

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 28, 1992
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Category of record
  • CROSS-REFERENCE:  9002039.0001^B
    1)= S ^ASUWC("B",$E(X,1,30),DA)=""
    2)= K ^ASUWC("B",$E(X,1,30),DA)
1 TRANSACTION CODE 1;0 Multiple #9002039.00011 9002039.00011

  • DESCRIPTION:  
    Posting code
2 SOURCE GLOBAL 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<4) X
  • LAST EDITED:  MAY 28, 1992
  • HELP-PROMPT:  Answer must be 4-6 characters in length.
  • DESCRIPTION:  
    Extract from
3 FILE NUMBER 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9002039.999999)!(X<9002030)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 28, 1992
  • HELP-PROMPT:  Type a Number between 9002030 and 9002039.999999, 6 Decimal Digits
  • DESCRIPTION:  
    Extract from
4 TRCODE PIECE # 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Transaction Code in piece
5 LAST EXTRACT COUNT 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Count or record type - computer generated
6 LAST EXTRACT DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  Date of extract
  • DESCRIPTION:  
    Computer generated
7 ARCODE PIECE # 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>11)!(X<2)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Type a Number between 2 and 11, 0 Decimal Digits
  • DESCRIPTION:  
    Area Code piece #
Info |  Desc |  Fields |  All