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

Package: IFCAP

AMENDMENTS(#443.6)-->443.61

Sub-Field: 443.61


Information

Parent File Name Number Package
AMENDMENTS(#443.6) ITEM 443.61 IFCAP

Details

Field # Name Loc Type Details
.01 LINE ITEM NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 07, 1997
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the line item number.
  • DELETE TEST:  .01,0)= I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AT^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN0^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN0^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN0^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK errors.
  • CROSS-REFERENCE:  443.61^B
    1)= S ^PRC(443.6,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(1),2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  443.61^C
    1)= S ^PRC(443.6,DA(1),2,"C",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(1),2,"C",$E(X,1,30),DA)
    This X-REF lists all the LINE ITEM NUMBER entries within one P.O.
  • CROSS-REFERENCE:  443.6^AZAPSCH^MUMPS
    1)= Q
    2)= N DAA,DS,DIK,PR S DAA=DA N DA S PR=$G(PRCHPO,$P(^PRC(443.6,D0,0),U)),DS="",DIK="^PRC(441.7," F S DS=$O(^PRC(441.7,"AG",PR,DAA,DS)) Q:DS="" S DA=DS D ^DIK
    To delete entries in file 441.7 that correspond to an item in field #40 in file #443.6 that is being deleted.
1 DESCRIPTION 1;0 WORD-PROCESSING #443.65

  • DESCRIPTION:  
    This is a description of the item.
1.5 ITEM MASTER FILE NO. 0;5 POINTER TO ITEM MASTER FILE (#441) ITEM MASTER(#441)

  • INPUT TRANSFORM:  S DIC("S")="I 1",DIC(0)=DIC(0)_"O" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D EN5^PRCHCRD2
  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the Item Master number.
  • TECHNICAL DESCR:  
    The file 442 internal record number needs to be copied into file 441 as another purchase order using this ITEM when the amendment is moved back into file 442.
  • SCREEN:  S DIC("S")="I 1",DIC(0)=DIC(0)_"O"
  • EXECUTABLE HELP:  I X="?" S XQH="PRCHITEM HELP" D EN^XQH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AD^MUMPS
    1)= Q:'$D(PRC("SITE"))!'($P(^PRC(443.6,DA(1),1),U,1)]"") S PRCHCI=X,PRCHCPO=DA(1),PRCHCIT=DA,PRCHCV=$P(^PRC(443.6,DA(1),1),U,1) D LST^PRCHCRD2
    2)= Q
    This X-REF will copy information from the ITEM MASTER file into the AMENDMENTS file. Here is a list of the fields in the ITEM MASTER file and the fields in the AMENDMENTS file that the data is copied into.
    File 441 File 443.6
    VENDOR STOCK # VENDOR STOCK NUMBER
    NDC NATIONAL DRUG CODE
    UNIT COST ACTUAL UNIT COST
    UNIT OF PURCHASE UNIT OF PURCHASE
    PACKAGING MULTIPLE PACKAGING MULTIPLE
    MAXIMUM ORDER MAXIMUM ORDER
    UNIT CONVERSION FACTOR UNIT CONVERSION FACTOR
    SKU SKU
    NSN NSN
    FSC FEDERAL SUPPLY CLASSIFICATION
    SUBACCOUNT SUBACCOUNT
    CONTRACT NUMBER CONTRACT #
    QUANTITY(442)*UNIT COST TOTAL COST
    DESCRIPTION MULTIPLE DESCRIPTION MULTIPLE
  • CROSS-REFERENCE:  443.61^AE
    1)= S ^PRC(443.6,DA(1),2,"AE",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(1),2,"AE",$E(X,1,30),DA)
    This X-REF lists the REPETITIVE (PR CARD) NO. for all LINE ITEM NUMBER entries within one P.O.
  • CROSS-REFERENCE:  443.61^AL^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN4^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN4^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN4^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
2 QUANTITY 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN .01 AND 999999
  • DESCRIPTION:  
    This is the quantity of the item on the order.
  • CROSS-REFERENCE:  ^^TRIGGER^443.61^15
    1)= X ^DD(443.61,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(443.61,2,1,1,1.1) X ^DD(443.61,2,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,9)*DIV
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,9)]""
    1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"":U_%,1:""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="" X ^DD(443.61,2,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"":U_%,1:""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= ACTUAL UNIT COST]""
    CREATE VALUE)= ACTUAL UNIT COST*QUANTITY
    DELETE VALUE)= @
    FIELD)= AMOUNT
  • CROSS-REFERENCE:  443.61^AF^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN1^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN1^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Delete' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3 UNIT OF PURCHASE 0;3 POINTER TO UNIT OF ISSUE FILE (#420.5)
************************REQUIRED FIELD************************
UNIT OF ISSUE(#420.5)

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the unit of purchase of the item.
  • TECHNICAL DESCR:  
    This field needs to be coppied into file 441 (see EN6^PRCHNPO5) when the amendment is moved back into file 442.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AG^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN2^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN2^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN2^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3.1 PACKAGING MULTIPLE 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  Enter a number between 1 and 999999. Used to indicate quantity contained in one unit of purchase. (Ex. Item comes 10 per box, packaging multiple=10).
  • DESCRIPTION:  
    This is the packaging multiple of the item.
  • TECHNICAL DESCR:  
    This field needs to be cpooied into file 441 (see EN7^PRCHNPO6) when the amendment is moved back into file 442.
  • CROSS-REFERENCE:  443.61^AN^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN9^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN9^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN9^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3.2 COST CENTER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the cost center for this purchase order.
  • CROSS-REFERENCE:  443.61^AK^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN7^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN7^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3.5 BOC 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  N Z0 S Z0=$P(^PRC(443.6,DA(1),0),"^",5) K:'Z0 X I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X I $D(X) S X=$$SUPBOC^PRCHMA0 D EN13^PRCHNPO7
  • LAST EDITED:  FEB 10, 1997
  • HELP-PROMPT:  Please enter the appropriate BOC for this item.
  • DESCRIPTION:  
    This is one of the BOC on this purchase order.
  • EXECUTABLE HELP:  N D,Z0,Z1,DIC S Z0=$P(^PRC(443.6,DA(1),0),"^",5),Z1=$P(^(0),"^",19) K:'Z0 X I $D(X) S X="??",DIC="^PRCD(420.1,Z0,1,",DIC(0)="E" D:Z1'=2 ^DIC S:Z1=2 X=$$SUPBOC^PRCHMA0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AH^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN3^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN3^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN3^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHMAXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3.6 INTERMEDIATE PRODUCT CODE 0;11 POINTER TO INTERMEDIATE PRODUCT FILE (#420.9) INTERMEDIATE PRODUCT(#420.9)

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This is the intermediate product.
4 CONTRACT/BOA # 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Y=$$CONTRACT^PRCHNPT(DA(1),X) S X=$P(Y,U,2) K:Y'>0 X
  • LAST EDITED:  FEB 21, 1997
  • HELP-PROMPT:  Enter a Contract/BOA # (min. 7 chars.) with valid expiration date.
  • DESCRIPTION:  
    This is the contract number with valid expiration date.
  • EXECUTABLE HELP:  D HLPCON^PRCHNPT(DA(1),X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AC^MUMPS
    1)= S ^PRC(443.6,DA(1),2,"AC",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(1),2,"AC",$E(X,1,30),DA)
    This X-REF is a list of all CONTRACT #s within one P.O.
  • CROSS-REFERENCE:  443.61^AY^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN5^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN5^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN5^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5 ACTUAL UNIT COST 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) S X=$TR(X,"nc","NC") K:X'?1.N&(X'?.N1".".4N)&(X'?1"N/C")!(X?.E1"."5N.N)!(X>9999999.9999)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=" $"_$J(Y,0,4)
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  Enter a dollar amount between 0 and 9999999.9999 or N/C for no charge
  • DESCRIPTION:  
    This is the actual unit cost for this item.
  • TECHNICAL DESCR:  
    This field needs to be coppied into file 441 (see EN9^PRCHNPO5) when the amendment is moved back into file 442.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^443.61^15
    1)= X ^DD(443.61,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(443.61,5,1,1,1.1) X ^DD(443.61,5,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"") S X=DIV*$P(Y(1),U,2)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2)>0
    1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"":U_%,1:""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="" X ^DD(443.61,5,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"":U_%,1:""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= QUANTITY>0
    CREATE VALUE)= ACTUAL UNIT COST*QUANTITY
    DELETE VALUE)= @
    FIELD)= AMOUNT
  • CROSS-REFERENCE:  443.61^AM^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN8^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN8^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN8^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' or a 'Line Item Delete' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5.5 EST. UNIT COST 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999.99
  • DESCRIPTION:  
    This is the estimated unit cost for this item.
  • CROSS-REFERENCE:  443.61^AJ^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN6^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN6^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
6 DESCRIPTION LINE COUNT 2;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 15
  • DESCRIPTION:  
    This is the number of lines in the item description (internal program use).
7 DESCRIPT. ASTR. 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains internal program code that controls printed output.
8 FEDERAL SUPPLY CLASSIFICATION 2;3 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2)
************************REQUIRED FIELD************************
FEDERAL SUPPLY CLASSIFICATION(#441.2)

  • INPUT TRANSFORM:  D EN100^PRCHNPO7
  • LAST EDITED:  SEP 09, 2005
  • DESCRIPTION:  
    This is the Federal Supply Classification for an item, or the Product Service Code for a service.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AU^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN1^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN1^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
9 VENDOR STOCK NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<1) X
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  Enter the Vendor Stock No. or Catalog no., or other number used by the Vendor to identify this item (1-24 characters)
  • DESCRIPTION:  
    This is the stock number for this item.
  • TECHNICAL DESCR:  
    This field needs to be coppied into file 441 (see EN12^PRCHNPO5) when the amendment is moved back into file 442.
  • CROSS-REFERENCE:  443.61^AI^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN5^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN5^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN5^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
9.3 NATIONAL DRUG CODE 0;15 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
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  Enter in following format: 1-6 numeric, 1 dash, 1-4 numeric, 1 dash, 1-2 numeric (ex. 123456-1234-12). ANSWER MUST BE 11-14 CHARACTERS IN LENGTH.
  • DESCRIPTION:  
    This is the National Drug Code for the item, if applicable.
  • CROSS-REFERENCE:  443.61^AQ^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN12^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN12^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN12^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
9.4 SKU 0;16 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  Enter the Stock Keeping Unit for this item.
  • DESCRIPTION:  
    SKU pointer of ITEM.
  • TECHNICAL DESCR:  
    This field needs to be cpooied into file 441 (see EN6^PRCHNPO7) when the amendment is moved back into file 442.
  • CROSS-REFERENCE:  443.61^AR^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN13^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN13^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN13^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
9.5 NSN 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<16)!'(X?4N1"-"2UN1"-"3UN1"-"4N.UN) X
  • LAST EDITED:  DEC 12, 1996
  • HELP-PROMPT:  Enter the NSN (National Stock Number) in the following format: 1234-56-A89-1234A (last character is optional). The 2nd & 3rd segment of NSN can accept alpha or numeric characters. ex 6505-CD-9M1-1234
  • DESCRIPTION:  
    This is the National Stock Number for this item.
  • TECHNICAL DESCR:  
    This field needs to be copied into file 441 (see EN1^PRCHNPO7) when the amendment is moved back into file 442.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.61^AO^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN10^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN10^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN10^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHMAXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
9.6 MAXIMUM ORDER QTY 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 15, 1999
  • HELP-PROMPT:  Type a Number between .01 and 999999, 2 Decimal Digits or leave blank
  • DESCRIPTION:  
    This is the maximum order quantity for the ITEM.
  • TECHNICAL DESCR:  
    This field needs to be cpooied into file 441 (see EN9^PRCHNPO6) when the amendment is moved back into file 442.
  • CROSS-REFERENCE:  443.61^AP^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN11^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN11^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN11^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
9.7 UNIT CONVERSION FACTOR 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 21, 1995
  • 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 needs to be cpooied into file 441 (see EN7^PRCHNPO7) when the amendment is moved back into file 442.
  • CROSS-REFERENCE:  443.61^AS^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN14^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN14^PRCHAMXA S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN14^PRCHAMXA
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
10 2237 REFERENCE # 0;10 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • DESCRIPTION:  
    This is the purchase request reference number.
11 QUANTITY PREVIOUSLY RECEIVED 2;8 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:  
    This is the quantity previously received.
  • NOTES:  TRIGGERED by the QTY BEING RECEIVED field of the DATE RECEIVED sub-field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
12 EDI STATUS CODE 1 2;9 SET
  • 'AC' FOR ITEM ACCEPTED AND SHIPPED;
  • 'AR' FOR ITEM ACCEPTED AND RELEASED FOR SHIPMENT;
  • 'BP' FOR ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;
  • 'IB' FOR ITEM BACKORDERED;
  • 'IH' FOR ITEM ON HOLD;
  • 'IR' FOR ITEM REJECTED;

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  
    First EDI status code for ITEM
12.5 EDI STATUS QTY 1 2;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 29, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    First EDI status quantity of ITEM
13 EDI STATUS CODE 2 2;11 SET
  • 'AC' FOR ITEM ACCEPTED AND SHIPPED;
  • 'AR' FOR ITEM ACCEPTED AND RELEASED FOR SHIPMENT;
  • 'BP' FOR ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;
  • 'IB' FOR ITEM BACKORDERED;
  • 'IH' FOR ITEM ON HOLD;
  • 'IR' FOR ITEM REJECTED;

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  
    Second EDI status code of ITEM
13.5 EDI STATUS QTY 2 2;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 29, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Second EDI status quantity of ITEM
15 TOTAL COST 2;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999.99
  • DESCRIPTION:  
    This is the total cost of the item requested.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the QUANTITY field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
    TRIGGERED by the QUANTITY field of the ITEM sub-field of the AMENDMENTS File
    TRIGGERED by the ACTUAL UNIT COST field of the ITEM sub-field of the AMENDMENTS File
16 DISCOUNTED AMOUNT 2;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAY 17, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the discounted amount for this order.
17 OBLIGATED SUBACCOUNT 2;7 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • DESCRIPTION:  
    This is the obligated sub-amount.
20 DATE RECEIVED 3;0 DATE Multiple #443.64 443.64

  • DESCRIPTION:  
    This is the date the item was received.
30 SERIAL NO.(GSA/DLA) 4;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 28, 1994
  • HELP-PROMPT:  Type a Number between 1000 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the serial number (GSA/DLA).
31 CONSUMER LEVEL 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the normal stock level of this item that the service placing the order normally maintains in their inventory.
32 CONSUMER LEVEL OVERRIDE 4;3 SET

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    Enter '1' to override the normal stock level for the item. Enter 'A" to override both the level and the FIS issue multiple.
33 DO NOT SUB 4;4 SET

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    This is the field to set the do not substitute indicator. If set, no similar item will be substituted if the item is not in stock.
34 DO NOT B/O 4;5 SET

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    This is the field to set the do not backorder indicator. If set, an item will not be backordered if it is currently not in stock.
35 BACKORDER CONTROL 4;6 SET

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    Enter '-' to set a backorder source for LOG code sheets.
36 SUBSTITUTE CONTROL 4;7 SET

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    Enter '-' if substitution is not authorized for LOG code sheets.
36.3 BACKORDER (EDI) 4;15 SET

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    Backorder flag set by EDI for ITEM
  • CROSS-REFERENCE:  443.61^AZ^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN6^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN6^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
36.6 SUBSTITUTE (EDI) 4;16 SET

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    User-entered flag to control whether or not vendor is allowed to substitute ITEM.
  • CROSS-REFERENCE:  443.61^AAA^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN7^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN7^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
37 ACQUISITIONS CODE SHEET NO. 4;8 POINTER TO CALM/LOG CODE SHEET FILE (#423) CALM/LOG CODE SHEET(#423)

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    This is the LOG Acquisition code sheet created for this line/item.
38 GROUP SPLIT CIV 4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is a three character code. All items which share the same code will print together on a separate CIV.
39 SOURCE CODE 4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the one character source code.
39.5 SOURCE DEVIATION 4;14 POINTER TO DLA/LOG CODES FILE (#441.4) DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    This is the source deviation code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""S"""
  • EXPLANATION:  Select appropriate source deviation code or leave blank.
40 DRUG TYPE CODE 4;11 SET

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the set of drug type codes (narcotic, controlled substance, or other) which will appear on the LOG code sheet.
  • CROSS-REFERENCE:  443.61^AV^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN2^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN2^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN2^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
41 FOOD GROUP 4;12 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  DEC 07, 1995
  • DESCRIPTION:  
    This is the food group which will appear on the LOG code sheet.
  • CROSS-REFERENCE:  443.61^AW^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN3^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN3^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN3^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
42 DIETETIC CONVERSION FACTOR 4;13 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  APR 17, 1995
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    This is the dietetic conversion factor for subsistence items to be used on the LOG code sheet.
  • CROSS-REFERENCE:  443.61^AX^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN4^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S PRCHX=X,X=0 D EN4^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN4^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
43 410 ITEM NUMBER 2;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 29, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the line item number on the attached 2237.
Info |  Details