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

Package: IFCAP

ITEM MASTER(#441)-->441.01

Sub-Field: 441.01


Information

Parent File Name Number Package
ITEM MASTER(#441) VENDOR 441.01 IFCAP

Details

Field # Name Loc Type Details
.01 VENDOR 0;1 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  MAR 15, 1989
  • DESCRIPTION:  
    This is the name of the vendor.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441.01^B
    1)= S ^PRC(441,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(441,DA(1),2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  441.01^AC^MUMPS
    1)= I $D(^PRC(440,"AC","S",X)) S $P(^PRC(441,DA(1),0),"^",8)=X
    2)= I $D(^PRC(440,"AC","S",X)) S $P(^PRC(441,DA(1),0),"^",8)=""
    If this 'VENDOR' is the SUPPLY WAREHOUSE set the MANDATORY SOURCE field to point to this 'VENDOR'.
1 UNIT COST 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.9999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  DEC 03, 1993
  • HELP-PROMPT:  Type a Number between 0 and 9999999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the unit cost of this item.
  • CROSS-REFERENCE:  ^^TRIGGER^441.01^2.5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(441.01,1,1,1,1.4)
    1.4)= S DIH=$S($D(^PRC(441,DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=441.01,DIG=2.5 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE OF UNIT PRICE
1.5 UNIT OF PURCHASE 0;7 POINTER TO UNIT OF ISSUE FILE (#420.5)
************************REQUIRED FIELD************************
UNIT OF ISSUE(#420.5)

  • LAST EDITED:  APR 08, 1986
  • DESCRIPTION:  
    This is the unit of purchase for this item.
1.6 PACKAGING MULTIPLE 0;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    These are the package multiples for the item.
2 CONTRACT 0;3 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"") K:'Z0 X Q:'Z0 D EN11^PRCHNPO5
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"") Q:'Z0 S Y=$P($S($D(^PRC(440,Z0,4,Y,0)):^(0),1:""),U,1) K Z0
  • LAST EDITED:  APR 17, 1985
  • HELP-PROMPT:  ENTER A CONTRACT NUMBER WITH VALID EXPIRATION DATE
  • DESCRIPTION:  
    This is the contract number with the valid expiration date.
  • EXECUTABLE HELP:  S ZD=D,X="?",D="B",Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"") Q:'Z0 D EN10^PRCHNPO5 S DIC="^PRC(440,Z0,4,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2.2 CONTRACT EXP. DATE COMPUTED

  • MUMPS CODE:  S Z0=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:""),Z1=+$P(Z0,U,3),X=$S($D(^PRC(440,+Z0,4,Z1,0)):$P(^(0),U,2),1:"") K Z0,Z1 S:X]"" X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
  • ALGORITHM:  S Z0=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:""),Z1=+$P(Z0,U,3),X=$S($D(^PRC(440,+Z0,4,Z1,0)):$P(^(0),U,2),1:"") K Z0,Z1 S:X]"" X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
  • LAST EDITED:  DEC 12, 1986
  • DESCRIPTION:  
    This is the contract expiration date.
2.5 DATE OF UNIT PRICE 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 20, 1985
  • DESCRIPTION:  
    This is the date of the unit price for this item.
  • NOTES:  TRIGGERED by the UNIT COST field of the VENDOR sub-field of the ITEM MASTER File
3 VENDOR STOCK # 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!($E(X,1,3)="NEW") X
  • LAST EDITED:  JUL 03, 1990
  • HELP-PROMPT:  Enter the Vendor Stock No., Catalog No., or other number used by the Vendor to identify this number (1-30 characters)
  • DESCRIPTION:  
    This is the vendor stock number for this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441^D
    1)= S ^PRC(441,"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^PRC(441,"D",$E(X,1,30),DA(1),DA)
    This X-REF contains all VENDOR STOCK #s for all ITEM MASTER entries.
3.1 SOURCE VENDOR STOCK # 0;13 POINTER TO SOURCE MFG/STOCK NUMBER FILE (#440.45) SOURCE MFG/STOCK NUMBER(#440.45)

  • INPUT TRANSFORM:  S DIC("S")="I '$P($G(^(0)),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 03, 2017
  • HELP-PROMPT:  Select the source of the Vendor Stock # from the reference list.
  • DESCRIPTION:  
    This field indicates from where the editor determined the vendor's stock number for this product.
  • SCREEN:  S DIC("S")="I '$P($G(^(0)),U,3)"
  • EXPLANATION:  Screen to prevent selection of inactive entries.
4 NDC 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<11)!'(X?1.6N1"-"1.4N1"-"1.2N) X I $D(X) S Z=$O(^PRC(441,"F",X,0)) S:Z=DA(1) Z=$O(^(DA(1))) K:'Z Z I $D(Z) D EN^DDIOL("This NDC has already been assigned to Item # "_Z,"","!")
    K Z,X
  • LAST EDITED:  NOV 23, 2016
  • HELP-PROMPT:  Must be 1 to 6 numbers, a dash, 1 to 4 numbers, a dash, then 1 to 2 numbers (ex. 12345-123-12). ANSWER MUST BE 11-14 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the National Drug Code for this item, if applicable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441^F
    1)= S ^PRC(441,"F",$E(X,1,30),DA(1),DA)=""
    2)= K ^PRC(441,"F",$E(X,1,30),DA(1),DA)
    This X-REF contains the NATIONAL DRUG CODE identification number for each drug within the ITEM MASTER file.
8 MINIMUM ORDER QTY 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3.N) X
  • LAST EDITED:  OCT 14, 1999
  • HELP-PROMPT:  Type a number between .01 and 999999, 2 Decimal Digits or leave blank
  • DESCRIPTION:  
    This is the minimum order quantity for this item.
8.5 MAXIMUM ORDER QTY 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 14, 1999
  • HELP-PROMPT:  Type a Number between .01 and 999999, 2 Decimal Digits or leave blank
  • DESCRIPTION:  
    This is the maximum order quantity for this item.
9 REQUIRED ORDER MULTIPLE 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 14, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
  • DESCRIPTION:  
    This is the required order multiple for this item.
10 UNIT CONVERSION FACTOR 0;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 27, 1992
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999. This number is used to convert quantities purchased from Unit of Purchase to Unit of Issue.
  • DESCRIPTION:  
    This is the unit of conversion factor, used to convert a unit of purchase into a unit of issue.
  • TECHNICAL DESCR:  
    THIS FIELD SHOULD AGREE WITH THE SAME NAMED FIELD IN FILE 445 FOR THIS ITEM UNDER THIS VENDOR.
Info |  Details