Global: ^PRC(441

FileMan FileNo	FileMan Filename	Package
441	ITEM MASTER	IFCAP

Package	Total	Routines
Drug Accountability	18	PSACON PSACON1 PSACON2 PSADRI PSAENTO PSALFA PSALFM PSALFS PSALNA PSALND PSALNM PSALOG2 PSANAC PSANDC PSARIN PSATI PSAUNI PSAUTL
Controlled Substances	3	PSDREC1 PSDREC3 PSDREC4
Pharmacy Data Management	1	PSSAUTL

Package	Total	Routines
Drug Accountability	1	PSACON2
Pharmacy Data Management	1	PSS50F

Package	Total	FileMan Files
Dietetics	1	INGREDIENT(#113)[31]
IFCAP	1	ITEM MASTER(#441)[16.5]
Pharmacy Data Management	1	DRUG(#50)[#50.0441(.01)]

Package	Total	FileMan Files
IFCAP	1	ITEM MASTER(#441)[16.5]
Kernel	1	NEW PERSON(#200)[15, 18]

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D:X="NEW" EN2^PRCHUTL K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) K:$D(^PRC(441,X,0)) X I $D(X) S DINUM=X` LAST EDITED: `MAR 09, 1989` HELP-PROMPT: `Enter 'NEW' if you want the next available number` DESCRIPTION: This is the item number. 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)
.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.
.1	DESCRIPTION	1;0	WORD-PROCESSING #441.02	DESCRIPTION: This is the description of the 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 AN UNDEFINED FILE	**********************REQUIRED FIELD********************** LAST EDITED: `APR 16, 1986` DESCRIPTION: This is the federal supply classification.
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 AN UNDEFINED FILE	LAST EDITED: `APR 14, 1986` DESCRIPTION: This is the last vendor ordered.
10	MANDATORY SOURCE	0;8	POINTER TO AN UNDEFINED FILE	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 AN UNDEFINED FILE	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 AN UNDEFINED FILE	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 (#).
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 AN UNDEFINED FILE	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 AN UNDEFINED FILE	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.

Field #

Name

Loc

Type

Details

.01

NUMBER

0;1

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: D:X="NEW" EN2^PRCHUTL K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) K:$D(^PRC(441,X,0)) X I $D(X) S DINUM=X
LAST EDITED: MAR 09, 1989
HELP-PROMPT: Enter 'NEW' if you want the next available number
DESCRIPTION:
```
This is the item number.
```
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)

.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.
```

.1

DESCRIPTION

1;0

WORD-PROCESSING #441.02

DESCRIPTION:
```
This is the description of the 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 AN UNDEFINED FILE **

************************REQUIRED FIELD************************

LAST EDITED: APR 16, 1986

DESCRIPTION:

This is the federal supply classification.

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 AN UNDEFINED FILE **

LAST EDITED: APR 14, 1986
DESCRIPTION:
```
This is the last vendor ordered.
```

10

MANDATORY SOURCE

0;8

POINTER ** TO AN UNDEFINED FILE **

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 AN UNDEFINED FILE **

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 AN UNDEFINED FILE **

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 (#).

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 AN UNDEFINED FILE **

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 AN UNDEFINED FILE **

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.
```

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

Customize PDF page

Package: IFCAP

Global: ^PRC(441

Information

Description

Directly Accessed By Routines, Total: 22

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 27

ICR, Total: 5