Global: ^PRC(441

FileMan FileNo	FileMan Filename	Package
441	ITEM MASTER	IFCAP

Package	Total	Routines
IFCAP	136	INVENTORY ITEM ITEM ITEM SPECIFIC INFORMATION PRCH ITEM TXHIST PRCH191 PRCH442 PRCHAM5 PRCHAMYA PRCHAMYB PRCHCLN ^PRC(441 FCP PRCHCON2 PRCHCRD PRCHCRD1 PRCHCRD2 PRCHCRD3 PRCHCS PRCHCS3 PRCHDEP2 PRCHE PRCHEA PRCHEA1 PRCHHI6 PRCHITEM PRCHITEM2 PRCHITM PRCHITM5 PRCHITX PRCHITX1 PRCHL100 PRCHLO2 PRCHMA2 PRCHNPO7 PRCHNPO9 PRCHNPT PRCHNREQ PRCHP181 PRCHQ1 PRCHQ13A PRCHQ1C PRCHQ2A PRCHRAT9 PRCHRPL PRCHRPT1 PRCHRPT9 PRCHRPTX PRCHSP1 PRCHT113 PRCHT19 PRCHT312 PRCHT38 PRCHUTL PRCO441 PRCOE2 PRCOESE PRCOINV PRCOSS1 PRCOSS2 PRCOSS6 PRCOSSO PRCP ITEM ALL FIELDS PRCP REPORT:COMPREHENSIVE PRCPAGP1 PRCPAGPR PRCPAUTH PRCPCRDC PRCPCRDK PRCPCSP1 PRCPDAP3 PRCPDAPI PRCPE441 PRCPEILM PRCPEIPS PRCPEITF PRCPEIUI PRCPHL70 PRCPHLFM PRCPHLP PRCPHLPO PRCPHLQ PRCPHLQU PRCPHLSO PRCPHLUT PRCPOPD PRCPOPR PRCPPOL1 PRCPPOLB PRCPRAVL PRCPRCOS PRCPRIB0 PRCPRIT1 PRCPRLAS PRCPRPIT PRCPRPK1 PRCPRPK2 PRCPSFU0 PRCPSLOI PRCPSLOR PRCPSMB1 PRCPSMSD PRCPSMST PRCPU441 PRCPUMAN PRCPUUIW PRCPUX1 PRCPWDOR PRCPWIU PRCPWPL0 PRCPWPL1 PRCSD121 PRCSD123 PRCSES1 PRCSP121 PRCSP124 PRCSP132 PRCSP133 PRCSP1A PRCSP2 PRCSP2N PRCSRI PRCSRIE PRCSRIE1 PRCSRIG2 PRCSRIP PRCST12 PRCST22 PRCSUT4 PRCVIBF PRCVIMF PRCVIT PRCVITMU PRCVRC2 PURCHASE ORDER SYNONYM VENDOR
Prosthetics	65	BILLING ITEM HO LETTER 3 LIST HOME OXYGEN ITEM ITEM MATERIALS USED PSC ISSUE CARD RMPOBIL4 RMPOLET0 RMPOLZA RMPOPAT1 RMPOPS23 RMPOPST0 RMPORLP RMPORNQ RMPORPD RMPORPT RMPOVDC RMPR PRINT ITEM RMPR21A RMPR29LD RMPR29LP RMPR29U RMPR31U RMPR37A RMPR421A RMPR4D1 RMPR4E21 RMPR4LI RMPR4LOP RMPR4OPN RMPR4UTL RMPR9S7 RMPRBIL RMPRD1 RMPRL22 RMPRL9 RMPRLI RMPRLOP RMPRN63 RMPRN6PL RMPRN73 RMPRN7PL RMPROPN RMPROPN1 RMPRP55 RMPRPAT1 RMPRPAT7 RMPRPCEL RMPRPCER RMPRPIYK RMPRPRT1 RMPRPSC RMPRRET1 RMPRRET9 RMPRSE1 RMPRSE2 RMPRSE21 RMPRSEA RMPRSP6 RMPRSP7 RMPRST2 RMPRSTK RMPRSTL RMPRU99 RMPRUTIL
Drug Accountability	21	PRIMARY INVENTORY POINT(S) PSACON PSACON1 PSACON2 PSADRI PSADRIH PSADRIP PSAENTO PSALFA PSALFM PSALFS PSALNA PSALND PSALNM PSALOG2 PSANAC PSANDC PSARIN PSATI PSAUNI PSAUTL
Integrated Billing	4	^IBE(399.6 IB20P389 IBTRE20 ^IBAT(351.61
Controlled Substances	3	PSDREC1 PSDREC3 PSDREC4
Real Time Location System	3	VIAAIMUP VIAAIPDE VIAASQH
Functional Independence	1	RMIMRP
Pharmacy Data Management	1	PSSAUTL

Package	Total	Routines
IFCAP	30	PRC51198 PRCHDRG PRCHE PRCHEA PRCHEA1 PRCHFGRP PRCHITM PRCHITM5 PRCHJS02 PRCHL4 PRCHL6 PRCHRPT PRCHRPT1 PRCHRPTX PRCHSP1 PRCPCSP1 PRCPE441 PRCPOPP1 PRCPUITM PRCSES1 PRCSP1A PRCSRIE PRCSRIE1 PRCV442A PRCV442B PRCVIBF PRCVLIC PRCVRC2 PRCVTAP PRCVTCA
Drug Accountability	1	PSACON2
Pharmacy Data Management	1	PSS50F
Prosthetics	1	RMPRPIU0

Package	Total	FileMan Files
IFCAP	14	ITEM MASTER(#441)[16.5] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[#442.01(1.5)] AMENDMENTS(#443.6)[#443.61(1.5)] REQUEST FOR QUOTATION(#444)[#444.019(1)] GENERIC INVENTORY(#445)[#445.01(.01), #445.121(.01), #445.122(.01)] INVENTORY BALANCES(#445.1)[#445.11(.01)] INVENTORY TRANSACTION(#445.2)[4] INTERNAL DISTRIBUTION ORDER/ADJ.(#445.3)[#445.37(.01)] CASE CARTS(#445.7)[.01, #445.71(.01)] INSTRUMENT KITS(#445.8)[.01, #445.81(.01)] INVENTORY DISTRIBUTED PATIENT SUPPLIES(#446.1)[#446.11(.01)] AUTOMATED SUPPLY STATION PROCESSING QUEUE(#447.1)[#447.17(.01)] REPETITIVE ITEM LIST(#410.3)[#410.31(.01)] DYNAMED IFCAP INTERFACE AUDIT(#414.02)[1]
Dietetics	1	INGREDIENT(#113)[31]
Pharmacy Data Management	1	DRUG(#50)[#50.0441(.01)]
Prosthetics	1	PROS ITEM MASTER(#661)[.01]

Package	Total	FileMan Files
IFCAP	10	VENDOR(#440)[9, 10, #441.01(.01), #441.03(3)] MANUFACTURER(#440.4)[25] SOURCE MFG/STOCK NUMBER(#440.45)[19.1, #441.01(3.1)] ITEM MASTER(#441)[16.5] FEDERAL SUPPLY CLASSIFICATION(#441.2)[2] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[#441.04(.01)] SIC CODE(#444.2)[24] BUDGET OBJECT CODE(#420.2)[12, #441.03(2)] UNIT OF ISSUE(#420.5)[21, #441.01(1.5)] GENERIC INVENTORY(#445)[13]
Kernel	1	NEW PERSON(#200)[15, 18]

Fields, Total: 35

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** 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)`
.05	SHORT DESCRIPTION	0;2	FREE TEXT	**********************REQUIRED FIELD******************** 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 '**'.`
.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.`
.08	SYNONYM	5;0	Multiple #441.05	441.05
.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`
1	FCP	4;0	Multiple #441.03	441.03 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?`
2	FSC	0;3	POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2)	**********************REQUIRED FIELD********************** FEDERAL SUPPLY CLASSIFICATION(#441.2) 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`
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`
5	NSN	0;5	FREE TEXT	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.`
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.`
6	VENDOR	2;0	POINTER Multiple #441.01	441.01 DESCRIPTION: `This is the vendor for the item.` IDENTIFIED BY: `UNIT OF PURCHASE(#1.5)[R]`
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.`
9	LAST VENDOR ORDERED	0;4	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `APR 14, 1986` DESCRIPTION: `This is the last vendor ordered.`
10	MANDATORY SOURCE	0;8	POINTER TO VENDOR FILE (#440)	VENDOR(#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.`
12	BOC	0;10	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) LAST EDITED: `JUN 16, 1994` HELP-PROMPT: `Choose the appropriate BOC for this item.` DESCRIPTION: `This is the BOC for this item.`
13	SET/PACK ASSEMBLED BY	0;7	POINTER TO GENERIC INVENTORY FILE (#445)	GENERIC INVENTORY(#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.`
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.`
15	CREATED BY	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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.`
16.5	REPLACEMENT ITEM	3;4	POINTER TO ITEM MASTER FILE (#441)	ITEM MASTER(#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.`
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.`
18	INACTIVATED BY	3;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 21, 1992` DESCRIPTION: `This is the person who inactivated the item.`
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 (#).`
19.1	SOURCE MFG PART NO.	3;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 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.`
20	FOOD GROUP	3;7	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: `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.`
21	SKU	3;8	POINTER TO UNIT OF ISSUE FILE (#420.5)	UNIT OF ISSUE(#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.`
22	DRUG TYPE CODE	3;9	SET	**********************REQUIRED FIELD********************** '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.`
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.`
24	SIC CODE	3;10	POINTER TO SIC CODE FILE (#444.2)	SIC CODE(#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.`
25	MANUFACTURER	3;12	POINTER TO MANUFACTURER FILE (#440.4)	MANUFACTURER(#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.`
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.`
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.`
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.`
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.`
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.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #610	Prosthetics
ICR #801	Prosthetics M DATA EXTRACTOR
ICR #2278	Spinal Cord Dysfunction	SHORT DESCRIPTION (.05). Access: Direct Global Read & w/Fileman	$Order() through the "C" cross reference on the SHORTDESCRIPTION (#.05) field.
ICR #5159	Integrated Billing	SHORT DESCRIPTION (.05). Access: Direct Global Read & w/Fileman DATE ITEM CREATED (14). Access: Direct Global Read & w/Fileman PRE_NIF SHORT DESCRIPTION (52). Access: Direct Global Read & w/Fileman
ICR #6531	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	NUMBER (.01). Access: Both R/W w/Fileman SHORT DESCRIPTION (.05). Access: Both R/W w/Fileman FSC (2). Access: Both R/W w/Fileman LAST VENDOR ORDERED (9). Access: Both R/W w/Fileman NSN (5). Access: Both R/W w/Fileman CASE CART/TRAY/INSTRUMENT KIT (.06). Access: Both R/W w/Fileman SET/PACK ASSEMBLED BY (13). Access: Both R/W w/Fileman MANDATORY SOURCE (10). Access: Both R/W w/Fileman DATE ITEM CREATED (14). Access: Read w/Fileman BOC (12). Access: Both R/W w/Fileman CREATED BY (15). Access: Read w/Fileman INC (3). Access: Both R/W w/Fileman REUSABLE ITEM (23). Access: Both R/W w/Fileman HAZARDOUS MATERIAL (7). Access: Both R/W w/Fileman NIF ITEM NUMBER (51). Access: Read w/Fileman DESCRIPTION (.01). Access: Both R/W w/Fileman VENDOR (.01). Access: Both R/W w/Fileman UNIT COST (1). Access: Both R/W w/Fileman CONTRACT (2). Access: Both R/W w/Fileman VENDOR STOCK # (3). Access: Both R/W w/Fileman NDC (4). Access: Both R/W w/Fileman DATE OF UNIT PRICE (2.5). Access: Read w/Fileman UNIT OF PURCHASE (1.5). Access: Both R/W w/Fileman PACKAGING MULTIPLE (1.6). Access: Both R/W w/Fileman MAXIMUM ORDER QTY (8.5). Access: Both R/W w/Fileman UNIT CONVERSION FACTOR (10). Access: Both R/W w/Fileman REQUIRED ORDER MULTIPLE (9). Access: Both R/W w/Fileman MINIMUM ORDER QTY (8). Access: Both R/W w/Fileman INACTIVATED ITEM? (16). Access: Both R/W w/Fileman DATE INACTIVATED (17). Access: Read w/Fileman INACTIVATED BY (18). Access: Read w/Fileman REPLACEMENT ITEM (16.5). Access: Both R/W w/Fileman MFG PART NO (19). Access: Both R/W w/Fileman NSN VERIFIED (5.5). Access: Both R/W w/Fileman FOOD GROUP (20). Access: Both R/W w/Fileman SKU (21). Access: Both R/W w/Fileman DRUG TYPE CODE (22). Access: Both R/W w/Fileman SIC CODE (24). Access: Both R/W w/Fileman MANUFACTURER (25). Access: Read w/Fileman FCP (.01). Access: Both R/W w/Fileman SUBACCOUNT (2). Access: Both R/W w/Fileman PREFERRED VENDOR (3). Access: Both R/W w/Fileman PURCHASE ORDER (.01). Access: Both R/W w/Fileman SYNONYM (.01). Access: Both R/W w/Fileman PRE_NIF LONG DESCRIPTION (.01). Access: Read w/Fileman PRE_NIF SHORT DESCRIPTION (52). Access: Read w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	IXAFREEKEIC+1!*, .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K) , 5(XREF 3S), 5(XREF 3K), 16(XREF 1S), 16(XREF 1K), 51(XREF 1S), 51(XREF 1K)
^PRCD(420.5 - [#420.5]	IDZ1+1

Name	Field # of Occurrence
^(0	ID.05+1, IDZ+1, IDZ1+1, .05(XREF 2S)
^(2	IDZ1+1
^(3	IDZ0+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	5.5+1, 14+1, 17+1, 53+1, 54+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 5(XREF 3S) , 5(XREF 3K), 16(XREF 1S), 16(XREF 1K), 51(XREF 1S), 51(XREF 1K)
DIC	IDZ2+1, 10+1!, 19.1+1!, 25+1!*
DIC("S"	10+1, 10SCR+1, 19.1+1, 19.1SCR+1, 25+1, 25SCR+1
>> DIE	10+1, 19.1+1, 25+1
>> DINUM	.01+1*
>> DIU(0	.05(XREF 2S), 16(XREF 1S), 16(XREF 1K)
DT	.05(XREF 2S), 16(XREF 1S)
DUZ	.05(XREF 2S), 16(XREF 1S)
>> PRCSV	IDZ1+1
U	ID.05+1, IDZ+1, IDZ0+1, IDZ1+1, .05(XREF 2S), 16(XREF 1S), 16(XREF 1K)
X	.01+1, .01(XREF 1S), .01(XREF 1K), .05+1!, .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), 2+1!, 3+1!, 5+1! , 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K), 5.5+1!, 10+1!, 14+1!, 17+1! , 19+1!, 19.1+1!, 25+1!, 51+1!, 51(XREF 1S), 51(XREF 1K), 52+1!, 53+1!, 54+1!
>> Y	5.5+1, 10+1, 14+1, 17+1, 19.1+1, 25+1, 53+1, 54+1
Z	IDZ1+1*!
Z9	IDZ0+1*, IDZ1+1, IDZ2+1!

Customize PDF page

Package: IFCAP

Global: ^PRC(441

Information

Description

Directly Accessed By Routines, Total: 253

Accessed By FileMan Db Calls, Total: 33

Pointed To By FileMan Files, Total: 17

Pointer To FileMan Files, Total: 11

Fields, Total: 35

ICR, Total: 5

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	5.5+1, 14+1, 17+1, 53+1, 54+1
^DIC	10+1, 19.1+1, 25+1
EN1^PRCHNPT	5+1
KILL^PRCVITMU	IXAFREEKL+1
SET^PRCVITMU	IXAFREESL+1
TRANS^PRCVITMU	.01+1