Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Details | All

Print Page as PDF

Sub-Field: 441.01

Package: IFCAP

ITEM MASTER(#441)-->441.01

Sub-Field: 441.01

Information

Parent File	Name	Number	Package
ITEM MASTER(#441)	VENDOR	441.01	IFCAP

Details

Field #	Name	Loc	Type	Details
.01	VENDOR	0;1	POINTER TO AN UNDEFINED FILE	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'.
1	UNIT COST	0;2	NUMBER	**********************REQUIRED FIELD********************** 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.01,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
1.5	UNIT OF PURCHASE	0;7	POINTER TO AN UNDEFINED FILE	**********************REQUIRED FIELD********************** LAST EDITED: `APR 08, 1986` DESCRIPTION: This is the unit of purchase for this item.
1.6	PACKAGING MULTIPLE	0;8	NUMBER	**********************REQUIRED FIELD********************** 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.
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`
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.
2.5	DATE OF UNIT PRICE	0;6	DATE	**********************REQUIRED FIELD********************** 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`
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.
4	NDC	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<11)!'(X?1.6N1"-"1.4N1"-"1.2N) X 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) W *7,!,"This NDC has already been assigned to Item # "_Z K Z,X` LAST EDITED: `SEP 01, 1989` 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 MATER file.
8	MINIMUM ORDER QTY	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 25, 1993` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999999` DESCRIPTION: This is the minimum order quantity for this item.
8.5	MAXIMUM ORDER QTY	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 15, 1989` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: This is the maximum order quantity for this item.
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.
10	UNIT CONVERSION FACTOR	0;10	NUMBER	**********************REQUIRED FIELD********************** 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.

Info | Details | All