Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002031.02

Package: Supply

ASUMST STATION(#9002031)-->9002031.02

Sub-Field: 9002031.02


Information

Parent File Name Number Package
ASUMST STATION(#9002031) INDEX NUMBER 9002031.02 Supply

Details

Field # Name Loc Type Details
.01 INDEX NUMBER 0;1 POINTER TO ASUMST INDEX FILE (#9002032) ASUMST INDEX(#9002032)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  SEP 10, 1990
  • HELP-PROMPT:  PLEASE ENTER MODULUS 11 INDEX NUMBER
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID INDEX NUMBER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002031.02^B
    1)= S ^ASUMS(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ASUMS(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002031^C
    1)= S ^ASUMS("C",$E(X,1,30),DA(1),DA)=""
    2)= K ^ASUMS("C",$E(X,1,30),DA(1),DA)
.02 ACCTYP COMPUTED

  • MUMPS CODE:  X ^DD(9002031.02,.02,9.3) S X=$P(Y(9002031.02,.02,101),U,6) S D0=Y(9002031.02,.02,80) S D1=Y(9002031.02,.02,81)
    9.2 = S Y(9002031.02,.02,81)=$S($D(D1):D1,1:""),Y(9002031.02,.02,80)=$S($D(D0):D0,1:""),Y(9002031.02,.02,1)=$S($D(^ASUMS(D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(9002031.02,.02,9.2) S D0=$P(Y(9002031.02,.02,1),U,1) S:'$D(^ASUMX(+D0,0)) D0=-1 S Y(9002031.02,.02,101)=$S($D(^ASUMX(D0,0)):^(0),1:"")
    9.4 = X ^DD(9002031.02,.02,9.3) S Y(9002031.02,.02,101)=$S($D(^ASUMX(D0,0)):^(0),1:""),D0=$P(Y(9002031.02,.02,101),U,6) S:'$D(^ASUL(9,+D0,0)) D0=-1
  • ALGORITHM:  INDEX:ACCOUNT
  • LAST EDITED:  APR 09, 1997
.03 ACCTYPN COMPUTED

  • MUMPS CODE:  X ^DD(9002031.02,.03,9.3) S X=$S(Y(9002031.02,.03,2):Y(9002031.02,.03,3),Y(9002031.02,.03,4):Y(9002031.02,.03,5),Y(9002031.02,.03,6):X)
    9.2 = X $P(^DD(9002031.02,.02,0),U,5,99) S Y(9002031.02,.03,1)=X S X=Y(9002031.02,.03,1)=1,Y(9002031.02,.03,2)=X S X="1~PHARMACY",Y(9002031.02,.03,3)=X S X=Y(9002031.02,.03,1)
    9.3 = X ^DD(9002031.02,.03,9.2) S X=X=3,Y(9002031.02,.03,4)=X S X="3~SUBSISTANCE",Y(9002031.02,.03,5)=X S X=1,Y(9002031.02,.03,6)=X S X="9~GENERAL SUPPLIES"
  • ALGORITHM:  $S(ACCTYP=1:"1~PHARMACY",ACCTYP=3:"3~SUBSISTANCE",1:"9~GENERAL SUPPLIES")
  • LAST EDITED:  APR 23, 1993
.09 RPT73 REMARKS 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>98!($L(X)<1) X
  • LAST EDITED:  APR 23, 1991
  • HELP-PROMPT:  Answer must be 1-98 characters in length.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID REPORT 73 REMARKS
.091 RPT73 PERSON 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1) X
  • LAST EDITED:  APR 23, 1991
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID REPORT 73 PERSON
.092 RPT73 DATE 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<1) X
  • LAST EDITED:  APR 23, 1991
  • HELP-PROMPT:  Answer must be 1-13 characters in length.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID REPORT 73 DATE
.13 TIMES ON REQUIREMENTS REPORT 3;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 04, 1997
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
1 DATE ESTABLISHED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  SET BY STATION MASTER TRANSACTION POSTING ROUTINE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DATE ESTABLISHED
2 VENDOR ORDER NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-14 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID VENDOR ORDER NUMBER
3 SOURCE CODE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SOURCE CODE
4 LEAD TIME MONTHS 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.5)!(X<1)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAY 30, 1996
  • HELP-PROMPT:  Type a Number between 1 and 9.5, 1 Decimal Digit
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID LEAD TIME MONTHS
5 OLD RPQ 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 14, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID OLD REVIEW POINT QUANTITY
6 PAMIQ 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PROJECTED AVERAGE MONTHLY ISSUE QUANTITY
7 CURRENT RPQ 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID CURRENT REVIEW POINT QUANTITY
8 EOQ TABLE IN USE 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID EOQ TABLE IN USE
9 EOQ MOS OF SUPPLY MODIFIER 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JUL 13, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID EOQ MONTHS OF SUPPLY MODIFIER
10 QUANTITY MODIFIER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  JUL 28, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID QUANTITY MODIFIER
11 ACTION MOS MODIFIER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID ACTION MONTHS MODIFIER
12 LAST ISSUE DATE 0;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  SET BY ISSUE TRANSACTION POSTING ROUTINE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID LAST ISSUE DATE
13 VENDOR NAME 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID VENDOR NAME
14 LAST PURCHASE PRICE 0;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  JUN 10, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID LAST PURCHASE PRICE
15 TOTAL INVENTORY VALUE 0;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  JUN 11, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TOTAL INVENTORY VALUE
16 TOTAL QTY ON HAND 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TOTAL QUANTITY ON HAND
17 QTY DUE IN 1 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID QUANTITY DUE IN 1
18 VALUE DUE IN 1 0;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID VALUE DUE IN 1
19 P.O. NO. 1 0;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID P.O. NO. 1
20 DUE DATE 1 0;21 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  ENTER DATE DUE IN
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DUE DATE 1
21 SUB SUB ACT 1 0;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SUB SUB ACT 1
22 QTY DUE IN 2 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID QUANTITY DUE IN 2
23 VALUE DUE IN 2 0;24 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID VALUE DUE IN 2
24 P.O. NO. 2 0;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID P.O. NO. 2
25 DUE DATE 2 0;26 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  ENTER DATE DUE IN
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DUE DATE 2
26 SUB SUB ACT 2 0;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JUL 28, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SUB SUB ACT 2
27 QTY DUE IN 3 0;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID QUANTITY DUE IN 3
28 VALUE DUE IN 3 0;29 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID VALUE DUE IN 3
29 P.O. NO. 3 0;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID P.O. NO. 3
30 DUE DATE 3 0;31 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  ENTER DATE DUE IN
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DUE DATE 3
31 SUB SUB ACT 3 0;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JUL 28, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SUB SUB ACT 3
32 RECUR CALL MONTH 1;0 Multiple #9002031.232 9002031.232
33 STORAGE LOCATION CODE 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID STORAGE LOCATION CODE
34 DUE OUT QTY 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DUE OUT QUANTITY
35 SOURCE UNIT OF ISSUE 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JUL 28, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SOURCE UNIT OF ISSUE
36 SAFETY STOCK MONTH 2;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.5)!(X<1)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAY 30, 1996
  • HELP-PROMPT:  Type a Number between 1 and 9.5, 1 Decimal Digit
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SAFETY STOCK MONTH
37 EOQ TYPE CODE 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID EOQ TYPE CODE
38 STANDARD PACK QTY 2;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID STANDARD PACK QUANTITY
39 MASTER INVENTORY QUANTITY 2;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 20, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID MASTER INVENTORY QUANTITY
40 COUNTED INVENTORY QUANTITY 2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 20, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID COUNTED INVENTORY QUANTITY
41 PO NO1 72 2;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  APR 19, 1999
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PO NO1 72
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42 PO NO2 72 2;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  JUL 27, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PO NO2 72
43 PO NO3 72 2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  JUL 27, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PO NO3 72
44 EXPIRATION DATE 4;0 DATE Multiple #9002031.244 9002031.244
Info |  Details |  All