Sub-Field: 445.03

Parent File	Name	Number	Package
GENERIC INVENTORY(#445)	DISTRIBUTION POINT	445.03	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DISTRIBUTION POINT	0;1	POINTER TO GENERIC INVENTORY FILE (#445)	GENERIC INVENTORY(#445) INPUT TRANSFORM: `S Z1=$P($G(^PRCP(445,DA,0)),U,3),Z2=$P($G(^PRCP(445,X,0)),U,3),Z1=+$TR(Z1,"WPS","123"),Z2=+$TR(Z2,"WPS","123") K:'Z1!('Z2)!(Z2-Z1'=1) X K Z1,Z2 S:$D(X) DINUM=X` LAST EDITED: `JUN 01, 1992` HELP-PROMPT: `Enter name of an Inventory/Distribution Point stocked by this one.` DESCRIPTION: `This is the name of a distribution point receiving supplies.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `445^AB` `1)= S ^PRCP(445,"AB",$E(X,1,30),DA(1),DA)=""` `2)= K ^PRCP(445,"AB",$E(X,1,30),DA(1),DA)` `This cross reference will sort the distribution point by inventory points. The node prcp(445,"ab",DISTRPT,INVPT,DISTRPT) is set where DISTRPT is the internal distribution point number and INVPT is the internal inventory` `point number.`

DISTRIBUTION POINT

0;1

POINTER TO GENERIC INVENTORY FILE (#445)

INPUT TRANSFORM: S Z1=$P($G(^PRCP(445,DA,0)),U,3),Z2=$P($G(^PRCP(445,X,0)),U,3),Z1=+$TR(Z1,"WPS","123"),Z2=+$TR(Z2,"WPS","123") K:'Z1!('Z2)!(Z2-Z1'=1) X K Z1,Z2 S:$D(X) DINUM=X
LAST EDITED: JUN 01, 1992
HELP-PROMPT: Enter name of an Inventory/Distribution Point stocked by this one.
DESCRIPTION:
This is the name of a distribution point receiving supplies.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 445^AB
1)= S ^PRCP(445,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PRCP(445,"AB",$E(X,1,30),DA(1),DA)
This cross reference will sort the distribution point by inventory points. The node prcp(445,"ab",DISTRPT,INVPT,DISTRPT) is set where DISTRPT is the internal distribution point number and INVPT is the internal inventory
point number.