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

Package: IFCAP

PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)-->442.01

Sub-Field: 442.01


Information

Parent File Name Number Package
PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) ITEM 442.01 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:  MAR 04, 2005
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the number of the line item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^442^15
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.01,.01,1,1,1.1) X ^DD(442.01,.01,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)+1
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,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 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.01,.01,1,1,2.1) X ^DD(442.01,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)-1
    2.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    CREATE VALUE)= lineItem+1
    DELETE VALUE)= lineItem-1
    FIELD)= lineItem Count
  • CROSS-REFERENCE:  442.01^B
    1)= S ^PRC(442,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(442,DA(1),2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  442.01^C^MUMPS
    1)= I ('$D(^PRC(442,DA(1),2,DA,2)))!($P(^(0),"^",2)>$S($D(^(2)):$P(^(2),"^",8),1:0)) S ^PRC(442,DA(1),2,"C",X,DA)=""
    2)= K ^PRC(442,DA(1),2,"C",X,DA)
    This X-REF is used to control receipt of items by setting this "C" X-REF when the QUANTITY field value is more than the QUANTITY PREVIOUSLY RECEIVED field value. When this X-REF is used, only those LINE ITEM NUMBERs that
    have outstanding due-ins will be able to be selected.
    The KILL section will just remove this X-REF.
  • CROSS-REFERENCE:  442.01^AZAPSCH^MUMPS
    1)= Q
    2)= N DAA,DS,DIK,PR S DAA=DA N DA S PR=$G(PRCHPONO,$P(^PRC(442,D0,0),U)),DS="",DIK="^PRC(442.8," F S DS=$O(^PRC(442.8,"AC",PR,DAA,DS)) Q:DS="" S DA=DS D ^DIK
    To delete entries in file 442.8 that correspond to an item in field #40 in file #442 that is being deleted.
  • RECORD INDEXES:  AK (#602)
1 DESCRIPTION 1;0 WORD-PROCESSING #442.05

  • 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 I $D(X) D EN5^PRCHNPO5
  • LAST EDITED:  JUN 15, 1994
  • DESCRIPTION:  
    This is the Item Master number for the items on the purchase order/requisition.
  • SCREEN:  S DIC("S")="I 1",DIC(0)=DIC(0)_"O"
  • EXPLANATION:  Enter Item Number
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.01^AD^MUMPS
    1)= Q:'$D(PRC("SITE"))!($P(^PRC(442,DA(1),0),U,3)="")!($P(^(1),U,1)="") S PRCHCCP=$P($P(^(0),U,3)," ",1),PRCHCV=$P(^(1),U,1),PRCHCPD=+$P(^(1),U,15),PRCHCI=X,PRCHCPO=DA(1) D EN3^PRCHCRD
    2)= Q:'$D(PRC("SITE"))!($P(^PRC(442,DA(1),0),U,3)="")!($P(^(1),U,1)="") S PRCHCCP=$P($P(^(0),U,3)," ",1),PRCHCPD=+$P(^(1),U,15),PRCHCI=X,PRCHCPO=DA(1) D EN4^PRCHCRD
    This X-REF does a lot. It copies the item information from the ITEM MASTER file to the PROCUREMENT & ACCOUNTING TRANSACTION file into the item multiple. Also the internal PO record number is stored into the ITEM MASTER
    file under the SITE joined to the FCP number.
    Here is a list of the fields in the ITEM MASTER file and the fields in the PROCUREMENT & ACCOUNTING TRANSACTION file that the data is copied into.
    File 441 File 442
    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
    BOC BOC
    CONTRACT NUMBER CONTRACT #
    QUANTITY(442)*UNIT COST TOTAL COST
    DESCRIPTION MULTIPLE DESCRIPTION MULTIPLE If NDC has a value the last line is: NDC:_NDC If the CONTRACT # field in file 442 was set the "AC" X-REF in the ITEM multiple is created for the CONTRACT #. Also the
    file 441 "AC" X-REF for this PO is set.
    KILL will remove from the SITE_+FCP multiple the PO internal entry number from file 442. Also the file 441 "AC" X-REF for this PO is killed.
  • CROSS-REFERENCE:  442.01^AE
    1)= S ^PRC(442,DA(1),2,"AE",$E(X,1,30),DA)=""
    2)= K ^PRC(442,DA(1),2,"AE",$E(X,1,30),DA)
    This X-REF is just a non-lookup list of each ITEM MASTER file entry within all ITEM multiples. This X-REF only extends over one PO file entry.
  • RECORD INDEXES:  AK (#602)
2 QUANTITY 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 05, 1986
  • HELP-PROMPT:  Enter the quantity (a number from .01 to 999,999 with up to two decimal places)
  • DESCRIPTION:  
    This is the quantity of the item ordered.
  • CROSS-REFERENCE:  ^^TRIGGER^442.01^15
    1)= X ^DD(442.01,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(442.01,2,1,1,1.1) X ^DD(442.01,2,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,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(442,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,9)]""
    1.4)= S DIH=$S($D(^PRC(442,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=442.01,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(442,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(442.01,2,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(442,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=442.01,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
  • RECORD INDEXES:  AK (#602)
3 UNIT OF PURCHASE 0;3 POINTER TO UNIT OF ISSUE FILE (#420.5)
************************REQUIRED FIELD************************
UNIT OF ISSUE(#420.5)

  • INPUT TRANSFORM:  D EN6^PRCHNPO5
  • LAST EDITED:  MAR 01, 1986
  • DESCRIPTION:  
    This is the unit of purchase for this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AK (#602)
3.1 PACKAGING MULTIPLE 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X D:$D(X) EN7^PRCHNPO6
  • LAST EDITED:  MAY 05, 1993
  • HELP-PROMPT:  Enter a number between 1 and 999999. Used to indicate the quantity contained in one unit of purchase. (Ex. Item comes 10 per box, packaging multiple=10).
  • DESCRIPTION:  
    This is the packaging multiple for this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AK (#602)
3.2 ITEM DELIVERY POINTS 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 06, 1986
  • HELP-PROMPT:  If this item is to be delivered to multiple rooms/persons/sections upon receipt, enter delivery point and the quantity each should receive.
  • DESCRIPTION:  
    This is the cost center for this purchase request.
3.5 BOC 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  N Z0 S Z0=$P(^PRC(442,DA(1),0),"^",5) K:'Z0 X I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X I $D(X) S X=$$SUPBOC^PRCHNPO7 D EN8^PRCHNPO7
  • LAST EDITED:  JUL 01, 1996
  • HELP-PROMPT:  Please enter the appropriate BOC for this item.
  • DESCRIPTION:  
    This is the BOC for this cost center.
  • EXECUTABLE HELP:  N D,Z0,Z1,DIC S Z0=$P(^PRC(442,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^PRCHNPO7 D:0 EN8^PRCHNPO7
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.01^D^MUMPS
    1)= S ^PRC(442,DA(1),2,"D",+$P(X," ",1),DA)=""
    2)= K ^PRC(442,DA(1),2,"D",+$P(X," ",1),DA)
  • CROSS-REFERENCE:  442.01^AH^MUMPS
    1)= S ALN=$P(^PRC(442,DA(1),2,DA,0),"^") S:ALN>0 ^PRC(442,DA(1),2,"AH",+X,ALN,DA)="" K ALN
    2)= S ALN=$P(^PRC(442,DA(1),2,DA,0),"^") K:ALN>0 ^PRC(442,DA(1),2,"AH",+X,ALN,DA) K ALN
    This x-ref will list all ITEMs with the same BOC together. This will allow for locating all ITEMs with the same BOC easly.
3.6 INTERMEDIATE PRODUCT CODE 0;11 POINTER TO INTERMEDIATE PRODUCT FILE (#420.9) INTERMEDIATE PRODUCT(#420.9)

  • LAST EDITED:  MAR 07, 1986
  • DESCRIPTION:  
    This is the intermediate product.
4 CONTRACT/BOA # 2;2 FREE TEXT

  • INPUT TRANSFORM:  D EN8^PRCHNPO5
  • LAST EDITED:  FEB 21, 1997
  • HELP-PROMPT:  Enter a Contract/BOA # (min. 7 chars.) with valid expiration date.
  • DESCRIPTION:  
    This is the contract number for this item.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($D(^PRC(442,D0,1)):+^(1),1:"") Q:'Z0 D EN10^PRCHNPO5,EN13^PRCHNPO5 S DIC="^PRC(440,Z0,4,",DIC(0)="QEM" D ^DIC K DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.01^AC
    1)= S ^PRC(442,DA(1),2,"AC",$E(X,1,30),DA)=""
    2)= K ^PRC(442,DA(1),2,"AC",$E(X,1,30),DA)
    This X-REF lists all CONTRACT #s within this PO. The X-REF is used only for non-lookup.
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 D EN9^PRCHNPO5 I $D(X) W $S(X="N/C":" N/C",1:" $"_$J(X,0,4))
  • OUTPUT TRANSFORM:  S Y=$S(Y="N/C":"N/C",1:"$"_$J(Y,0,4))
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999.9999, 4 Decimal Digits or N/C for no charge.
  • DESCRIPTION:  
    This is the actual unit cost of this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^442.01^15
    1)= X ^DD(442.01,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(442.01,5,1,1,1.1) X ^DD(442.01,5,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,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(442,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2)>0
    1.4)= S DIH=$S($D(^PRC(442,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=442.01,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(442,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(442.01,5,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(442,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=442.01,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
  • RECORD INDEXES:  AK (#602)
5.5 EST. UNIT COST 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 10, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated unit cost for the item.
6 DESCRIPTION LINE COUNT 2;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 21, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the description line count.
7 DESCRIPT. ASTR. 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  APR 19, 1985
  • 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 EN10^PRCHNPO7
  • LAST EDITED:  AUG 09, 2005
  • HELP-PROMPT:  ANSWER MUST BE 1-24 CHARACTERS IN LENGTH
  • 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
9 VENDOR STOCK NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) D EN12^PRCHNPO5
  • LAST EDITED:  MAR 13, 1989
  • HELP-PROMPT:  Enter the Vendor Stock No. or Catalog no., or other number used by the Vendor to identify this item (1-30 characters).
  • DESCRIPTION:  
    This is the stock number for this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.3 NATIONAL DRUG CODE 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<11)!'(X?1.6N1"-"1.4N1"-"1.2N) X I $D(X) D EN12^PRCHNPO7
  • LAST EDITED:  OCT 21, 1996
  • 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.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4 SKU 0;16 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • INPUT TRANSFORM:  D EN6^PRCHNPO7
  • LAST EDITED:  DEC 08, 1993
  • HELP-PROMPT:  Enter the Stock Keeping Unit for this item.
  • DESCRIPTION:  
    SKU number of ITEM
  • TECHNICAL DESCR:  
    This field, when entered, is coppied into file 441 at the SKU field. EN6^PRCHNPO7 coppies the field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.5 NSN 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<16)!'(X?4N1"-"2UN1"-"3UN1"-"4N.UN) X I $D(X) D EN1^PRCHNPO7
  • LAST EDITED:  OCT 18, 1996
  • HELP-PROMPT:  Enter the NSN (National Stock Number) in the following format: 6505-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 the item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.6 MAXIMUM ORDER QTY 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X I $D(X) D EN9^PRCHNPO6
  • 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 the item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.7 UNIT CONVERSION FACTOR 0;17 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X D:$D(X) EN7^PRCHNPO7
  • LAST EDITED:  DEC 08, 1993
  • 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 is used in the PHA transaction as the SKU FACTOR field in the IT segment. If both the SKU field and the UNIT CONVERSION FACTOR field are missing, the SKU field in the IT segment will use the UNIT OF PURCHASE
    field, the SKU FACTOR field will get set to one (1) and the UNOT CONVERSION FACTOR field will not be asked. If the SKU field is entered through the PRCH2138 or PRCHNREQ input templates and the SKU field has a value in it,
    the UNIT CONVERSION FACTOR will be required.
    This field is copied into file 441 by EN7^PRCHNPO7.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 2237 REFERENCE # 0;10 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  MAY 14, 1985
  • DESCRIPTION:  
    This is the purchase request reference number.
  • RECORD INDEXES:  AK (#602)
11 QUANTITY PREVIOUSLY RECEIVED 2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAR 03, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This is the quantity of the item previously received.
    WRITE AUTHORITY:^
  • 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
  • CROSS-REFERENCE:  442.01^AF^MUMPS
    1)= I $P(^PRC(442,DA(1),2,DA,0),"^",2)'>X K ^PRC(442,DA(1),2,"C",+^(0),DA)
    2)= S ^PRC(442,DA(1),2,"C",+^PRC(442,DA(1),2,DA,0),DA)=""
    The SET X-REF checks to see if the QUANTITY ordered is not greater than the this field (QUANTITY PREVIOUSLY RECEIVED). If this is true the "C" X-REF is removed.
    The KILL X-REF sets the "C" X-REF with the ^PRC(442,DA(2),2,"C",LINE ITEM NUMBER,DA)
    Actually this X-REF is SET and KILLed by the "C" X-REF in the LINE ITEM NUMBER field, field .01 in the ITEM multiple. The SET and KILL of the "C" X-REF perform the complementary operations that the SET and KILL parts of
    this X-REF do.
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:  AUG 13, 1991
  • 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:  JUN 26, 1992
  • 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:  AUG 13, 1991
  • 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:  JUN 26, 1992
  • 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>9999999)!(X<0) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 9999999
  • DESCRIPTION:  
    This is the total cost of this item.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the QUANTITY field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
    TRIGGERED by the ACTUAL UNIT COST field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
16 DISCOUNTED AMOUNT 2;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This is the discounted amount of this item.
17 OBLIGATED SUBACCOUNT 2;7 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • LAST EDITED:  MAY 02, 1985
  • DESCRIPTION:  
    This is the obligated sub-account.
20 DATE RECEIVED 3;0 DATE Multiple #442.08 442.08

  • 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:  APR 24, 1989
  • 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:  DEC 10, 1987
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits. Used in LOG system. The normal stock level of this item that the service placing the order normally maintains in their inventory.
  • 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
  • '1' FOR OVERRIDE LEVEL;
  • 'A' FOR OVERRIDE LEVEL AND ISSUE MULT.;

  • LAST EDITED:  DEC 10, 1987
  • HELP-PROMPT:  Used in LOG system. Enter '1' if the consumer level (cc 55-58) is to be ignored, 'A' if both the level and the FIS issue multiple are to be ignored.
  • 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
  • '1' FOR DO NOT SUB;

  • LAST EDITED:  DEC 10, 1987
  • HELP-PROMPT:  Used by LOG system. Enter '1' if substitution for this item is NOT authorized. If this is punched, or if the item is marked 'kill when zero', this item will NOT back-order.
  • 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
  • '1' FOR DO NOT B/O;

  • LAST EDITED:  DEC 10, 1987
  • HELP-PROMPT:  Used by LOG system. Enter '1' if backorder is NOT authorized.
  • 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
  • '-' FOR ESTABLISH BACKORDER;

  • LAST EDITED:  DEC 14, 1987
  • HELP-PROMPT:  Enter '-' to establish a backorder (source 1) for LOG code sheets.
  • DESCRIPTION:  
    Enter '-' to set a backorder source for LOG code sheets.
36 SUBSTITUTE CONTROL 4;7 SET
  • '-' FOR NO SUBSTITUTE;

  • LAST EDITED:  DEC 14, 1987
  • HELP-PROMPT:  Enter '-' if substitution is not authorized for LOG code sheets.
  • DESCRIPTION:  
    Enter '-' if substitution is not authorized for LOG code sheets.
36.3 BACKORDER (EDI) 4;15 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 23, 1991
  • HELP-PROMPT:  If the vendor can backorder then answer YES
  • DESCRIPTION:  
    Backorder flag set by EDI for ITEM
36.6 SUBSTITUTE (EDI) 4;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 23, 1991
  • HELP-PROMPT:  If the vendor is allowed to substitute then answer YES.
  • DESCRIPTION:  
    User-entered flag to control whether or not vendor is allowed to substitute ITEM
37 ACQUISITIONS CODE SHEET NO. 4;8 POINTER TO CALM/LOG CODE SHEET FILE (#423) CALM/LOG CODE SHEET(#423)

  • LAST EDITED:  DEC 14, 1987
  • HELP-PROMPT:  Pointer to the CALM/LOG code sheet file (#423) for the LOG Acquisition code sheet created for this line/item.
  • 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:  DEC 15, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH. (For delivery to more than one location) All items with the same data in this field will print together on a separate CIV, even though sent in the same batch.
  • 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:  JAN 14, 1988
  • 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:  MAY 11, 1989
  • 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
************************REQUIRED FIELD************************
  • 'A' FOR NARCOTIC;
  • 'L' FOR CONTROLLED SUBSTANCE;
  • 'D' FOR OTHER DRUGS;

  • LAST EDITED:  MAR 28, 1989
  • HELP-PROMPT:  Enter Drug Type code to be used on LOG code sheet
  • DESCRIPTION:  
    This is the set of drug type codes (narcotic, controlled substance, or other) which will appear on the LOG code sheet.
41 FOOD GROUP 4;12 SET
************************REQUIRED FIELD************************
  • '1' FOR Meat, Fish, Poultry, Eggs & Convenience Entrees;
  • '2' FOR Milk, Milk Products;
  • '3' FOR Fruits, Vegetables;
  • '4' FOR Bread, Flour, Cereal, etc.;
  • '5' FOR Commercial Nutritional Products, Tube feedings & supplements;
  • '6' FOR Miscellaneous, Foods;

  • LAST EDITED:  OCT 24, 1989
  • HELP-PROMPT:  Enter Dietetics Food group used on LOG code sheets for Subsistance Items ONLY
  • DESCRIPTION:  This is the food group which will appear on the LOG code sheet. This FCP has been set up for subsistence items. If this is not correct, use an '^' to exit option and contact your Accountable Officer.
42 DIETETIC CONVERSION FACTOR 4;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  APR 07, 1989
  • HELP-PROMPT:  Used for Subsistence Items only--needed for LOG code sheets. 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.
43 410 ITEM NUMBER 2;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 15, 1994
  • DESCRIPTION:  
    It is a corresponding Line Item's number in File 410.
44 HAZARDOUS MATERIAL 2;14 SET
  • 'HM' FOR HAZARDOUS MATERIAL;

  • LAST EDITED:  APR 30, 1996
  • HELP-PROMPT:  Select HM if this material is hazardous.
  • DESCRIPTION:  
    This is a flag to state if this ITEM is hazardous.
  • TECHNICAL DESCR:  
    This field will be filled in if there is a pointer to file 441 entered for this ITEM and if there is an entry is the same field in file 441. If the user edits this field the entry in file 441 will also be changed to agree
    with this field.
  • CROSS-REFERENCE:  442.01^AG^MUMPS
    1)= S ZZ=$P($G(^PRC(442,DA(1),2,DA,0)),U,5) Q:ZZ="" S $P(^PRC(441,ZZ,0),U,14)=X K ZZ
    2)= S ZZ=$P($G(^PRC(442,DA(1),2,DA,0)),U,5) Q:ZZ="" S $P(^PRC(441,ZZ,0),U,14)="" K ZZ
45 LOT NUMBER 4;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X?1.30AN) X
  • LAST EDITED:  APR 26, 1996
  • HELP-PROMPT:  Enter the lot number for this item. Normaly entered if there will be multiple deliveries scheduled for this item.
  • DESCRIPTION:  
    The manufacturers lot number used to request multiple deliveries of an ITEM from the same batch.
46 SERIAL NUMBER 4;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 26, 1996
  • HELP-PROMPT:  Enter the SERIAL NUMBER on the piece of equipment listed in this ITEM.
  • DESCRIPTION:  
    This is the SERIAL NUMBER for the piece of equipment listed in this ITEM.
47 LINE INVENTORY POINT 5;0 POINTER Multiple #442.147 442.147

  • SCREEN:  I $P(^(0),U,3)'="S"
  • EXPLANATION:  It is not permissible for secondary inventory points to incur fiscal obligations.
48 DM DOC ID 2;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<9) X
  • LAST EDITED:  MAR 04, 2005
  • HELP-PROMPT:  Answer must be 9-16 characters in length.
  • DESCRIPTION:  This is a unique number associated with each item ordered by DynaMed. It is formatted as YDDD-NNNN-CCCCCC where:
    Y is the single digit for year,
    DDD is the 3 digit Julian date, a dash,
    NNNN is the 4 digit sequential number and a dash
    CCCCCC represents up to 6 characters for the stockroom.
  • TECHNICAL DESCR:  
    The DM DOC ID is associated with an order request from DynaMed for replenishing a stockroom with of an item defined in the ITEM MASTER FILE (#440). The DM DOC ID must be included in all messages updating DynaMed on the
    progress of their order request.
    SOURCE OF DATA:DynaMed - Information Control
    UNEDITABLE
  • RECORD INDEXES:  AK (#602)
Info |  Details