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: 9002030.11

Package: Supply

ASUMST INVENTORY(#9002030)-->9002030.01-->9002030.11

Sub-Field: 9002030.11


Information

Parent File Name Number Package
9002030.01 INDEX 9002030.11 Supply

Details

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

  • INPUT TRANSFORM:  I $P(^(0),U,2)=$G(ASUL(1,"AR","AP")) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Enter Index number from Index Master
  • CROSS-REFERENCE:  9002030.11^B
    1)= S ^ASUMV(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ASUMV(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.03 MASTER RECORD QUANTITY 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
.04 MASTER UNIT COST 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits
.05 FIRST COUNT QUANTITY 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^9002030.11^.07
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002030.11,.05,1,1,1.1) X ^DD(9002030.11,.05,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)-DIV
    1.4)= S DIH=$S($D(^ASUMV(DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002030.11,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))]""
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002030.11,.05,1,1,2.1) X ^DD(9002030.11,.05,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)+X
    2.4)= S DIH=$S($D(^ASUMV(DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002030.11,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))]""
    CREATE VALUE)= MASTER RECORD QUANTITY-FIRST COUNT QUANTITY
    DELETE VALUE)= MASTER RECORD QUANTITY+OLD FIRST COUNT QUANTITY
    FIELD)= DIFFERENCE
.06 RECOUNT QUANTITY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^9002030.11^.07
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002030.11,.06,1,1,1.1) X ^DD(9002030.11,.06,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)-DIV
    1.4)= S DIH=$S($D(^ASUMV(DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002030.11,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))]""
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002030.11,.06,1,1,2.1) X ^DD(9002030.11,.06,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)+X
    2.4)= S DIH=$S($D(^ASUMV(DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002030.11,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))]""
    CREATE VALUE)= MASTER RECORD QUANTITY-RECOUNT QUANTITY
    DELETE VALUE)= MASTER RECORD QUANTITY+OLD RECOUNT QUANTITY
    FIELD)= DIFFERENCE
.07 DIFFERENCE 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the FIRST COUNT QUANTITY field of the INDEX sub-field of the STORAGE LOCATION sub-field of the ASUMST INVENTORY File
    TRIGGERED by the RECOUNT QUANTITY field of the INDEX sub-field of the STORAGE LOCATION sub-field of the ASUMST INVENTORY File
    TRIGGERED by the RESEARCHED QUANTITY field of the INDEX sub-field of the STORAGE LOCATION sub-field of the ASUMST INVENTORY File
.08 RESEARCHED QUANTITY 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^9002030.11^.07
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002030.11,.08,1,1,1.1) X ^DD(9002030.11,.08,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)-DIV
    1.4)= S DIH=$S($D(^ASUMV(DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002030.11,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))]""
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002030.11,.08,1,1,2.1) X ^DD(9002030.11,.08,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ASUMV(D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3)+X
    2.4)= S DIH=$S($D(^ASUMV(DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002030.11,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))]""
    CREATE VALUE)= MASTER RECORD QUANTITY-RESEARCHED QUANTITY
    DELETE VALUE)= MASTER RECORD QUANTITY+OLD RESEARCHED QUANTITY
    FIELD)= DIFFERENCE
.09 COUNT ENTERED 0;9 SET
  • '1' FOR FIRST COUNT ENTRY;
  • '2' FOR RECOUNT ENTRY;
  • '3' FOR ADJUSTMENT ENTRY;
  • '4' FOR NO ADJUSTMENT NEEDED;

  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Enter count status of the Physical Inventory for this Item
Info |  Details |  All