STANDARD DATA DICTIONARY #441 -- ITEM MASTER FILE 6/27/25 PAGE 1
STORED IN ^PRC(441, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains descriptive information for any supply item that can be ordered. Contains information needed for purchasing or
ordering the item. Any item that is purchased repetitively should be entered to this file.
FILE SCREEN (SCR-node) : X $S('$D(PRCPSET):"I ""P""[$P(^(0),U,6)",1:PRCPSET) X:$D(PRCHREAV) PRCHREAV
IDENTIFIED BY: SHORT DESCRIPTION (#.05)[R]
"Z": W:$P($G(^(0)),U,15)>0 " NIF#"_$P($G(^(0)),U,15)
"Z0": S Z9=$S('$D(^(3)):1,'^(3):1,1:0) I 'Z9 W *7," **** THIS ITEM IS INACTIVE" W:$P($G(^(3)),U,4)>0 ", USE ITEM NUMBER
"_$P($G(^(3)),U,4) W " ****"
"Z1": I $D(PRCSV),Z9,$D(^(2,+PRCSV,0)) W " " S Z="U/P: "_$S($P(^(0),U,8):$P(^(0),U,8)_"/",1:"")_$S($D(^PRCD(420.5,+$P(^(
0),U,7),0))#2:$P(^(0),U,1),1:"") W:Z'="U/P: " Z K Z
"Z2": W:Z9 @("$E("_DIC_"Y,0),0)") K Z9
POINTED TO BY: ITEM NUMBER field (#.01) of the IFCAP ITEM NUMBER sub-field (#50.0441) of the DRUG File (#50)
MASTER ITEM # field (#31) of the INGREDIENT File (#113)
ITEM field (#.01) of the ITEM sub-field (#410.31) of the REPETITIVE ITEM LIST File (#410.3)
ITEM field (#1) of the DYNAMED IFCAP INTERFACE AUDIT File (#414.02)
REPLACEMENT ITEM field (#16.5) of the ITEM MASTER File (#441)
ITEM MASTER FILE NO. field (#1.5) of the ITEM sub-field (#442.01) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
(#442)
ITEM MASTER FILE NO. field (#1.5) of the ITEM sub-field (#443.61) of the AMENDMENTS File (#443.6)
ITEM MASTER FILE NBR field (#1) of the ITEM sub-field (#444.019) of the REQUEST FOR QUOTATION File (#444)
ITEM NO. field (#.01) of the INVENTORY ITEM sub-field (#445.01) of the GENERIC INVENTORY File (#445)
INVENTORY ITEM field (#.01) of the INVENTORY ITEM sub-field (#445.11) of the INVENTORY BALANCES File (#445.1)
CASE CART/INSTRUMENT KIT ITEM field (#.01) of the CASE CART/INSTRUMENT KIT ITEM sub-field (#445.121) of the
INVENTORY ITEM sub-field (#445.01) of the GENERIC INVENTORY File (#445)
SUBSTITUTE ITEM(S) field (#.01) of the SUBSTITUTE ITEM(S) sub-field (#445.122) of the INVENTORY ITEM sub-field
(#445.01) of the GENERIC INVENTORY File (#445)
ITEM NO. field (#4) of the INVENTORY TRANSACTION File (#445.2)
ITEM NO. field (#.01) of the ITEM NO. sub-field (#445.37) of the INTERNAL DISTRIBUTION ORDER/ADJ. File (#445.3)
CASE CART ITEM field (#.01) of the CASE CARTS File (#445.7)
ITEMS field (#.01) of the ITEMS sub-field (#445.71) of the CASE CARTS File (#445.7)
INSTRUMENT KIT ITEM field (#.01) of the INSTRUMENT KITS File (#445.8)
ITEMS field (#.01) of the ITEMS sub-field (#445.81) of the INSTRUMENT KITS File (#445.8)
ITEM field (#.01) of the ITEM sub-field (#446.11) of the INVENTORY DISTRIBUTED PATIENT SUPPLIES File (#446.1)
ITEM NUMBER field (#.01) of the ITEM SPECIFIC INFORMATION sub-field (#447.17) of the AUTOMATED SUPPLY STATION
PROCESSING QUEUE File (#447.1)
NAME field (#.01) of the PROS ITEM MASTER File (#661)
CROSS
REFERENCED BY: SHORT DESCRIPTION(AC), INACTIVATED ITEM?(AD), NUMBER(B), NSN(BA), NSN(BB), SHORT DESCRIPTION(C),
VENDOR STOCK #(D), SYNONYM(E), NDC(F), NSN(G), NIF ITEM NUMBER(I)
INDEXED BY: NUMBER (AFREE)
LAST MODIFIED: FEB 11,2020@10:01:06
441,.01 NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: D TRANS^PRCVITMU I $D(X) S DINUM=X
LAST EDITED: JUN 19, 2012
HELP-PROMPT: Enter 'NEW' for the next available number or enter value less than 20000000.
DESCRIPTION: This is the item number. Values 20000000 and higher are reserved for the National Formulary and
created by the NIF/IFCAP interface.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 441^B
1)= S ^PRC(441,"B",$E(X,1,30),DA)=""
2)= K ^PRC(441,"B",$E(X,1,30),DA)
FIELD INDEX: AFREE (#601) MUMPS IR ACTION
Short Descr: KEEPS TRACK OF "FREE RANGES"
Description: This cross-reference is used to keep track of ranges of unused item numbers. Each entry in the
index corresponds to a free range.
Set Logic: D SET^PRCVITMU
Kill Logic: D KILL^PRCVITMU
Whole Kill: K ^PRC(441,"AFREE") S ^PRC(441,"AFREE",1,999999)=""
X(1): NUMBER (441,.01) (Len 30) (forwards)
441,.05 SHORT DESCRIPTION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X?.UNP)!($E(X,1,3)="NEW") X
LAST EDITED: JUL 29, 1993
HELP-PROMPT: ANSWER MUST BE 3-60 UPPER CASE CHARACTERS OR NUMERICS IN LENGTH, CANNOT BEGIN WITH THE LETTERS
'NEW'
DESCRIPTION:
This is the short description of the item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 441^C
1)= S ^PRC(441,"C",$E(X,1,60),DA)=""
2)= K ^PRC(441,"C",$E(X,1,60),DA)
This X-REF contains the name of the ITEM MASTER file entry in the SHORT DESCRIPTION field.
CROSS-REFERENCE: 441^AC^MUMPS
1)= I '$D(DIU(0)),$E(X,1,2)'="**" S:$D(DT) $P(^PRC(441,DA,0),U,9)=DT S:$D(DUZ) $P(^(0),U,11)=DUZ
2)= Q
This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields when the first two
characters of the SHORT DECSRIPTION field are '**'.
441,.06 CASE CART/TRAY/INSTRUMENT KIT 0;6 SET
'P' FOR PURCHASEABLE;
'S' FOR CASE CART/TRAY/INSTRUMENT KIT;
LAST EDITED: FEB 09, 1994
HELP-PROMPT: This field indicates whether an item is a case cart or instrument kit. Case carts and instrument
kits should only be purchased from outside the hospital.
DESCRIPTION: This field indicates whether an item is a case cart or instrument kit. Case cart and instrument
kits should not be purchased from outside of the hospital. This is the purchaseable item
indicator. 'P' stands for items purchased outside the hospital. 'S' stands for a set/pack
assembled in hospital from purchased items.
441,.08 SYNONYM 5;0 Multiple #441.05
441.05,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>36!($L(X)<3)!'(X?1AN.E) X I $D(X) S LO="abcdefghijklmnopqrstuvwxyz",HI="ABCDEFGHIJKLMNOPQRS
TUVWXYZ",X=$TR(X,LO,HI) K LO,HI
LAST EDITED: JAN 23, 1998
HELP-PROMPT: Answer must be 3-36 characters in length and begin with an alpha-numeric character. All lowercase
alpha characters will be automatically converted to uppercase.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:441.05^B
1)= S ^PRC(441,DA(1),5,"B",$E(X,1,36),DA)=""
2)= K ^PRC(441,DA(1),5,"B",$E(X,1,36),DA)
CROSS-REFERENCE:441^E
1)= S ^PRC(441,"E",$E(X,1,36),DA(1),DA)=""
2)= K ^PRC(441,"E",$E(X,1,36),DA(1),DA)
3)= Do not delete
441,.1 DESCRIPTION 1;0 WORD-PROCESSING #441.02
DESCRIPTION:
This is the description of the item.
LAST EDITED: MAR 15, 1985
DESCRIPTION:
Description of Item
441,1 FCP 4;0 Multiple #441.03 (Add New Entry without Asking)
DESCRIPTION:
This is the fund control point.
TECHNICAL DESCR: This field is set up within CHK^PRCHCRD, which is called from EN3^ PRCHCRD. EN3^PRCHCRD is called
from the REPETITIVE (PR CARD) NO. 'AD' x-ref SET statement in the ITEM multiple in file 442.
When an amendment is obligated the FCP should already be established. If that is so then the
action done within CHK^PRCHCRD shouldn't be needed then.
CHK^PRCHCRD sees if the 4 node is set up. If it isn't the subroutine sets it up. The .01 field,
FCP, is entered, The 'B' x-ref is entered and the 0 node of the subfile is updated. Maby FILE^DICN
could do all this work without the programmer having to play FileMan?
441.03,.01 FCP 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4) X I $D(X) K:'X X I $D(X) S DINUM=+X
LAST EDITED: NOV 22, 1988
HELP-PROMPT: ENTER THE STATION NUMBER FOLLOWED BY THE CONTROL POINT NUMBER EG 531012
DESCRIPTION:
This is the fund control point number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 441.03^B
1)= S ^PRC(441,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^PRC(441,DA(1),4,"B",$E(X,1,30),DA)
441.03,.5 LONG NAME ; COMPUTED
MUMPS CODE: I $D(D1) S X="SITE: "_$E(D1,1,3)_" FCP: " I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(
^(0),U,1)
9.2 = S Y(441.03,.5,81)=$S($D(D1):D1,1:""),Y(441.03,.5,80)=$S($D(D0):D0,1:""),Y(441.03,.5,1)=$S($D(
^PRC(441,D0,4,D1,0)):^(0),1:"") S X=$P(Y(441.03,.5,1),U,1)
9.3 = X ^DD(441.03,.5,9.2) S Y(441.03,.5,2)=X S X=1,Y(441.03,.5,3)=X S X=3,X=$E(Y(441.03,.5,2),Y(44
1.03,.5,3),X) K DIC S DIC="^PRC(420,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
9.4 = X ^DD(441.03,.5,9.3) S Y(441.03,.5,180)=$S($D(D0):D0,1:""),Y(441.03,.5,181)=$S($D(D1):D1,1:""
),Y(441.03,.5,101)=X S X=$P(Y(441.03,.5,1),U,1)
9.5 = X ^DD(441.03,.5,9.4) S Y(441.03,.5,102)=X S X=4,Y(441.03,.5,103)=X S X=99,X=$E(Y(441.03,.5,10
2),Y(441.03,.5,103),X)
9.6 = X ^DD(441.03,.5,9.5) K DIC S Y=-1,DIC="^PRC(420,D0,1,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y S
Y(441.03,.5,202)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"")
ALGORITHM: I $D(D1) S X="SITE: "_$E(D1,1,3)_" FCP: " I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(
^(0),U,1)
LAST EDITED: NOV 22, 1988
DESCRIPTION:
This is the long name of the fund control point.
441.03,1 PURCHASE ORDER 1;0 POINTER Multiple #441.04 (Add New Entry without Asking)
DESCRIPTION:
This is a purchase order that uses this item.
TECHNICAL DESCR:This field, the PURCHASE ORDER multiple, is entered from EN3^PRCHCRD. EN3^PRCHCRD is called from
the REPETITIVE (PR CARD) NO. field in the ITEM multiple in file 442. The 'AD' x-ref within the
REPETITIVE (PR CARD) NO. field actually has the call. The SET part of the x-ref checks that the
PURCHASE ORDER multiple is set up and, if required, sets it up. Then the purchase order from file
442 that is using this ITEM is entered in the multiple along with entering the 'AC' x-ref for the
entry. Finally the subfile's 0 node is updated to show that a new entry was added. After all that
a jump is made to LST^PRCHCRD1 which copies fields from file 441 into file 442.
This field has its data deleted within EN4^PRCHCRD. EN4^PRCHCRD is called from the KILL part of
the 'AC' x-ref mentioned above. The KILL part of the x-ref just removes the entry from the
multiple, kills the 'AC' x-ref entry and reduces the record count in the subfile's 0 node by 1.
Maby the action EN3^PRCHCRD does could be done by FILE^DICN? The action EN4^PRCHCRD handles might
be done with DIK?
The amemdment action required, when the amendment is entered into file 442, would be what
EN3^PRCHCRD already does without the jump to LST ^PRCHCRD1. If the amendment action removes this
ITEM from the purchase order then do what EN4^ PRCHCRD does instead.
441.04,.01 PURCHASE ORDER 0;1 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
INPUT TRANSFORM:I $D(X) S DINUM=+X
LAST EDITED: OCT 13, 1988
DESCRIPTION:
This is the purchase order number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:441.04^AC^MUMPS
1)= S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),"^",15),1:0),^PRC(441,DA(2),4,DA(1),1,"AC",9999999-Z,DA)=""
K Z
2)= S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),"^",15),1:0) K ^PRC(441,DA(2),4,DA(1),1,"AC",9999999-Z,DA),Z
This X-REF lists all PURCHASE ORDER entries in the reverse P.O. DATE order. This allows the most
recently ordered POs for each vendor to be found first.
441.03,2 SUBACCOUNT 0;2 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: JUL 03, 1986
DESCRIPTION:
This is the subaccount for the item.
441.03,3 PREFERRED VENDOR 0;3 POINTER TO VENDOR FILE (#440)
INPUT TRANSFORM:S DIC("S")="I $D(^PRC(441,DA(1),2,Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 21, 1986
HELP-PROMPT: Enter the Vendor from which this Funds Control Point normally purchases this item. It must be
included in the list of possible vendors for this item.
DESCRIPTION:
This is the vendor from which this fund control point normally purchases the item.
SCREEN: S DIC("S")="I $D(^PRC(441,DA(1),2,Y,0))"
EXPLANATION: Vendor must exist in the list of possible vendors within this item.
441,2 FSC 0;3 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2) (Required)
Federal Supply Classification
INPUT TRANSFORM: K:$L(X)>4!('X?4N) X
LAST EDITED: AUG 09, 2005
HELP-PROMPT: Enter only a 4-digit Federal Supply Classification code.
DESCRIPTION:
This is the federal supply classification.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
441,3 INC 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: AUG 05, 1991
HELP-PROMPT: Enter the Item Name Code (INC). Answer must be 1-6 characters in length.
DESCRIPTION:
This field lists the Item Name Code for this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
441,5 NSN 0;5 FREE TEXT
NATIONAL STOCK NUMBER
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!(X'?4N1"-"2UN1"-"3UN1"-"4N.A) X I $D(X) D EN1^PRCHNPT
LAST EDITED: OCT 18, 1996
HELP-PROMPT: ENTER THE NSN IN THE FOLLOWING FORMAT: 6505-01-A23-1234A. The 2nd & 3rd segment of NSN can accept
alpha or numeric characters. ex 6505-AB-11G-1234
DESCRIPTION:
This is the National Stock Number for the item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 441^BB
1)= S ^PRC(441,"BB",$E(X,1,30),DA)=""
2)= K ^PRC(441,"BB",$E(X,1,30),DA)
This X-REF lists all NATIONAL STOCK NUMBERS in this ITEM MASTER file.
CROSS-REFERENCE: 441^BA^MUMPS
1)= S ^PRC(441,"BA",$P(X,"-",3,4),DA)=""
2)= K ^PRC(441,"BA",$P(X,"-",3,4),DA)
This X-REF is used to create a speedy lookup on the NSN using only the last 7 numbers.
CROSS-REFERENCE: 441^G^MUMPS
1)= S ^PRC(441,"G",$E(X,4)_$P(X,"-",2)_$P(X,"-",3)_$P(X,"-",4),DA)=""
2)= K ^PRC(441,"G",$E(X,4)_$P(X,"-",2)_$P(X,"-",3)_$P(X,"-",4),DA)
This X-REF is used as a speedy lookup using the last 10 characters, without any '-' being entered
in the number.
441,5.5 NSN VERIFIED 3;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 01, 1991
HELP-PROMPT: Enter the date that the National Stock Number was verified.
DESCRIPTION:
The date that the National Stock Number was verified.
441,6 VENDOR 2;0 POINTER Multiple #441.01
DESCRIPTION:
This is the vendor for the item.
IDENTIFIED BY: UNIT OF PURCHASE(#1.5)[R]
441.01,.01 VENDOR 0;1 POINTER TO VENDOR FILE (#440) (Multiply asked)
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'.
441.01,1 UNIT COST 0;2 NUMBER (Required)
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.0
1,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
441.01,1.5 UNIT OF PURCHASE 0;7 POINTER TO UNIT OF ISSUE FILE (#420.5) (Required)
LAST EDITED: APR 08, 1986
DESCRIPTION:
This is the unit of purchase for this item.
441.01,1.6 PACKAGING MULTIPLE 0;8 NUMBER (Required)
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.
441.01,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
441.01,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.
441.01,2.5 DATE OF UNIT PRICE 0;6 DATE (Required)
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
441.01,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.
441.01,3.1 SOURCE VENDOR STOCK # 0;13 POINTER TO SOURCE MFG/STOCK NUMBER FILE (#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.
441.01,4 NDC 0;5 FREE TEXT
NATIONAL DRUG CODE
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 assign
ed 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.
441.01,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.
441.01,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.
441.01,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.
441.01,10 UNIT CONVERSION FACTOR 0;10 NUMBER (Required)
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.
441,7 HAZARDOUS MATERIAL 0;14 SET
'HM' FOR HAZARDOUS MATERIAL;
LAST EDITED: APR 26, 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 coppied into file 442, ITEM multiple, whenever the pointer to this file is set
within the ITEM multiple. If the user enters a value into the field in file 442, within the ITEM
multiple, the value will be coppied into this field.
441,9 LAST VENDOR ORDERED 0;4 POINTER TO VENDOR FILE (#440)
LAST EDITED: APR 14, 1986
DESCRIPTION:
This is the last vendor ordered.
441,10 MANDATORY SOURCE 0;8 POINTER TO VENDOR FILE (#440)
INPUT TRANSFORM: S DIC("S")="I $D(^PRC(441,DA,2,Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 14, 1986
DESCRIPTION:
This is the mandatory source for an item.
SCREEN: S DIC("S")="I $D(^PRC(441,DA,2,Y,0))"
EXPLANATION: Vendor must exist in the list of possible vendors within this item.
441,12 BOC 0;10 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: JUN 16, 1994
HELP-PROMPT: Choose the appropriate BOC for this item.
DESCRIPTION:
This is the BOC for this item.
441,13 SET/PACK ASSEMBLED BY 0;7 POINTER TO GENERIC INVENTORY FILE (#445)
LAST EDITED: JAN 05, 1988
HELP-PROMPT: If this item is a set/pack, enter the name of the inventory point that assembles this set/pack.
DESCRIPTION: When a Set/Pack type item is added to this file (by the Generic Inventory Package), the Inventory
point that added the item is stuffed into this field by the program. It is then used as a screen
to keep other inventory points from changing the data associated with the item.
441,14 DATE ITEM CREATED 0;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 09, 1989
HELP-PROMPT: Date the Item 'SHORT DESCRIPTION' field was either first created, or changed.
DESCRIPTION:
This is the date the item was created.
441,15 CREATED BY 0;11 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 21, 1992
HELP-PROMPT: Name of person who added item to the file.
DESCRIPTION:
This is the person who created the item.
441,16 INACTIVATED ITEM? 3;1 SET
'1' FOR INACTIVATED;
LAST EDITED: JUL 29, 1993
HELP-PROMPT: Set to '1' by option to inactivate an item.
DESCRIPTION: This is the set of codes for an inactivated item. This field is set to '1' by option to inactivate
an item.
CROSS-REFERENCE: 441^AD^MUMPS
1)= I '$D(DIU(0)) S:$D(DT) $P(^PRC(441,DA,3),U,2)=DT S:$D(DUZ) $P(^PRC(441,DA,3),U,3)=DUZ
2)= I '$D(DIU(0)) S $P(^PRC(441,DA,3),U,2,3)="^"
This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields when an ITEM MASTER file
entry is chosen to be inactivated. Both fields will be cleared when the X-REF is KILLED.
441,16.5 REPLACEMENT ITEM 3;4 POINTER TO ITEM MASTER FILE (#441)
LAST EDITED: MAR 09, 1989
HELP-PROMPT: Item to be used in place of the inactivated item.
DESCRIPTION:
This is the replacement item for an inactivated item.
441,17 DATE INACTIVATED 3;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 09, 1989
DESCRIPTION:
This is the date the item was inactivated.
441,18 INACTIVATED BY 3;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 21, 1992
DESCRIPTION:
This is the person who inactivated the item.
441,19 MFG PART NO. 3;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 01, 1991
HELP-PROMPT: Enter the Manufacturer's Part #. Answer must be 3-30 characters in length.
DESCRIPTION:
This is the Manufacturer's Part Number (#).
441,19.1 SOURCE MFG PART NO. 3;13 POINTER TO SOURCE MFG/STOCK NUMBER FILE (#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 source of MFG PART NO. from the reference list.
DESCRIPTION: This field indicates from where the editor determined the manufacturer's part number for this
product.
SCREEN: S DIC("S")="I '$P($G(^(0)),U,3)"
EXPLANATION: Screen to prevent selection of inactive entries.
441,20 FOOD GROUP 3;7 SET (Required)
'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: AUG 19, 1992
HELP-PROMPT: This is the catalog food group returned from ISMS by a catalog request.
DESCRIPTION:
This is the catalog food group returned from ISMS by a catalog request.
441,21 SKU 3;8 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: AUG 01, 1991
HELP-PROMPT: Enter the Stock Keeping Unit of Measure.
DESCRIPTION:
This is the Stock Keeping Unit of Measure.
441,22 DRUG TYPE CODE 3;9 SET (Required)
'A' FOR NARCOTIC;
'L' FOR CONTROLLED SUBSTANCE;
'D' FOR OTHER DRUGS;
LAST EDITED: FEB 27, 1992
DESCRIPTION: This is the set of drug type codes (Narcotic, Controlled substance, or Other) which will appear on
the LOG code sheet.
441,23 REUSABLE ITEM 0;13 SET
'y' FOR YES;
LAST EDITED: SEP 17, 1993
DESCRIPTION: This field is used for case carts/instrument kits. If an item is a reusable item (field set to
YES), the item will not be charged to the inventory point during the ordering and posting process.
Also, reusable items will not increment/decrement the quantity on-hand when assembling or
disassembling case carts or instrument kits.
If the field is not set to YES, the item is treated as a disposable item.
TECHNICAL DESCR:
This field is referenced by the case cart/instrument inventory system.
441,24 SIC CODE 3;10 POINTER TO SIC CODE FILE (#444.2)
LAST EDITED: JAN 31, 1996
HELP-PROMPT: Enter the 4-6 digits Standard Industrial Classification Code
DESCRIPTION: The Standard Industrial Classification coding system categorizes organizations by type of economic
activity. The SIC code is used in the Request for Quotation (RFQ) module to direct requests to the
appropriate group of potential vendors.
441,25 MANUFACTURER 3;12 POINTER TO MANUFACTURER FILE (#440.4)
INPUT TRANSFORM: S DIC("S")="I '$P($G(^(0)),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 06, 2017
HELP-PROMPT: Enter the name of the manufacturer of this product.
DESCRIPTION:
This field links the item to the company that manufactured it.
SCREEN: S DIC("S")="I '$P($G(^(0)),U,2)"
EXPLANATION: This prevents the selection of inactive entries.
441,50 PRE_NIF LONG DESCRIPTION 8;0 WORD-PROCESSING #441.06
DESCRIPTION: This field stores the value of the DESCRIPTION field (#.1) prior to the overwriting of that field's
value with the value from the National Item File (NIF) database. This field MUST NOT be edited.
It is for historical record only.
LAST EDITED: SEP 08, 2004
HELP-PROMPT: Do not edit this field. It is populated by the NIF/IFCAP interface.
DESCRIPTION: This field stores the value of the DESCRIPTION field (#.1) prior to the overwriting of that
field's value with the value from the National Item File (NIF) database. This field MUST NOT be
edited. It is for historical record only.
441,51 NIF ITEM NUMBER 0;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 08, 2004
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
DESCRIPTION: This is the Item Number assigned to this item in the National Item File (NIF). This field is
populated by a feed from the NIF and its edit is restricted to only highly privileged users.
CROSS-REFERENCE: 441^I
1)= S ^PRC(441,"I",$E(X,1,30),DA)=""
2)= K ^PRC(441,"I",$E(X,1,30),DA)
This cross reference enables lookup by the National Item File's Item Number.
441,52 PRE_NIF SHORT DESCRIPTION 9;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: SEP 08, 2004
HELP-PROMPT: Do not edit this field. It is populated by the NIF/IFCAP interface.
DESCRIPTION: This field stores the value of the SHORT DESCRIPTION field (#.05) prior to that field's overwrite
with the value of the Brief Item Description from the National Item File (NIF). This field must not
be edited. It is for historical record only.
441,53 DATE UPDATED BY NIF 3;11 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 31, 2017
HELP-PROMPT: Date when the NIF/IFCAP interface filed the update in IFCAP.
DESCRIPTION: Do Not Edit - This field is populated when this item is created or updated by the NIF/IFCAP
interface and should not be interactively edited.
441,54 NIF UPDATE DATE 3;14 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 31, 2017
HELP-PROMPT: Enter the date when the update was filed in the NIF.
DESCRIPTION: Do Not Edit - This field is populated by the enhanced NIF/IFCAP Item Master file interface. It is
the date that the item entry was most recently edited in the NIF.
FILES POINTED TO FIELDS
BUDGET OBJECT CODE (#420.2) BOC (#12)
FCP:SUBACCOUNT (#2)
FEDERAL SUPPLY CLASSIFICATION
(#441.2) FSC (#2)
GENERIC INVENTORY (#445) SET/PACK ASSEMBLED BY (#13)
ITEM MASTER (#441) REPLACEMENT ITEM (#16.5)
MANUFACTURER (#440.4) MANUFACTURER (#25)
NEW PERSON (#200) CREATED BY (#15)
INACTIVATED BY (#18)
PROCUREMENT & ACCOUNTING TRANS
(#442) PURCHASE ORDER:PURCHASE ORDER (#.01)
SIC CODE (#444.2) SIC CODE (#24)
SOURCE MFG/STOCK NUMBER (#440.45) SOURCE MFG PART NO. (#19.1)
VENDOR:SOURCE VENDOR STOCK # (#3.1)
UNIT OF ISSUE (#420.5) SKU (#21)
VENDOR:UNIT OF PURCHASE (#1.5)
VENDOR (#440) LAST VENDOR ORDERED (#9)
MANDATORY SOURCE (#10)
VENDOR:VENDOR (#.01)
FCP:PREFERRED VENDOR (#3)
INPUT TEMPLATE(S):
PRCF SUB EDIT AUG 11, 1986 USER #0
PRCHITEM JAN 24, 2017@10:47 USER #0
PRCHITEM2 JAN 31, 2017@21:34 USER #0
PRCHVEN MAR 15, 1994@15:11 USER #0
PRINT TEMPLATE(S):
PRCHITCAT NOV 22, 1988 USER #0 ITEM CATALOG
PRCV ITEM DISPLAY MAY 26, 2005@15:05 USER #0 @
SORT TEMPLATE(S):
PRCHITFCP MAY 02, 1986 USER #0
SORT BY: #FCP//
FCP SUB-FIELD: FCP// (User is asked range)
WITHIN FCP, SORT BY: @SHORT DESCRIPTION//
FORM(S)/BLOCK(S):