Global: ^PRCP(446

FileMan FileNo	FileMan Filename	Package
446	DISTRIBUTION/USAGE HISTORY	IFCAP

FileMan FileNo

FileMan Filename

Package

446

DISTRIBUTION/USAGE HISTORY

IFCAP

Description

USED BY GENERIC INVENTORY SYSTEM. This file is used to store data needed for cost accounting. The data is updated automatically by the Generic Inventory system, when a distribution order (from a Primary to a Secondary) is posted, when an adjustment is made to distribution, or when usage within an inventory point is recorded. The file keeps a record of total dollars distributed /used by month, and by the cost center that distributed or used the supplies. Reports can then be generated from this file by cost center, or broken down further by MIS Bed Sections (defined for each inventory point). NOTE: For usage within an inventory/point (i.e. goods were distributed to the end user at this point and not distributed to another inventory/ distribution point), the DISTRIBUTED TO and DISTRIBUTED FROM fields will be the same.

Package	Total	Routines
IFCAP	5	PRCPXDIS ^PRCP(446 ITEM SPECIFIC INFORMATION PRCPRPDH PRCPUCC

Package

Total

Routines

IFCAP

PRCPXDIS ^PRCP(446 ITEM SPECIFIC INFORMATION PRCPRPDH PRCPUCC

Package	Total	Routines
IFCAP	3	PRCPRINQ PRCPUCC PRCPXDIS

Package

Total

Routines

IFCAP

PRCPRINQ PRCPUCC PRCPXDIS

Package	Total	FileMan Files
IFCAP	1	GENERIC INVENTORY(#445)[.01, 2]

Package

Total

FileMan Files

IFCAP

GENERIC INVENTORY(#445)[.01, 2]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	DISTRIBUTED TO	0;1	POINTER TO GENERIC INVENTORY FILE (#445)	**********************REQUIRED FIELD********************** GENERIC INVENTORY(#445) INPUT TRANSFORM: `K:'$G(PRCPPRIV) X` LAST EDITED: `FEB 06, 1992` HELP-PROMPT: `Enter the Inventory/Distribution point TO which supplies were distributed, or WITHIN which the supplies were used.` DESCRIPTION: `This is the inventory/distribution point to which the item(s) was distributed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `446^B` `1)= S ^PRCP(446,"B",$E(X,1,30),DA)=""` `2)= K ^PRCP(446,"B",$E(X,1,30),DA)`
1	MONTH/YEAR DISTRIBUTED	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=$E(Y,1,5) K:Y<1 X` OUTPUT TRANSFORM: `D DD^%DT` HELP-PROMPT: `Enter the month and year in which the supplies were distributed/used.` DESCRIPTION: `This is the month and year in which the item was distributed or used.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `446^AC` `1)= S ^PRCP(446,"AC",$E(X,1,30),DA)=""` `2)= K ^PRCP(446,"AC",$E(X,1,30),DA)` `This cross reference is used to sort the distribution history by the month/year an item is distributed. The node prcp(446,"ac",MOYR,da) is set where the MOYR is the month/year distributed.`
2	DISTRIBUTED FROM	0;3	POINTER TO GENERIC INVENTORY FILE (#445)	**********************REQUIRED FIELD********************** GENERIC INVENTORY(#445) LAST EDITED: `JUN 05, 1987` HELP-PROMPT: `Enter the Inventory Point FROM which the supplies were distributed or used.` DESCRIPTION: `This is the inventory/distribution point from which the item(s) was distributed.` CROSS-REFERENCE: `446^AD` `1)= S ^PRCP(446,"AD",$E(X,1,30),DA)=""` `2)= K ^PRCP(446,"AD",$E(X,1,30),DA)` `This cross reference is used to sort the distribution history by the inventory point distributing the items. The node prcp(446,"ad",INVPT,da) is set where INVPT is the internal inventory point number from which items are` `distributed from.`
3	COST CENTER	0;4	FREE TEXT	INPUT TRANSFORM: `K:'$D(^PRCD(420.1,+X,0)) X I $D(X) S X=$P(^(0),U,1)` HELP-PROMPT: `Enter the Cost Center FROM which the supplies were distributed/used.` DESCRIPTION: `This is the cost center from which the item(s) was distributed.` EXECUTABLE HELP: `S ZD=D,X="?",DIC="^PRCD(420.1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6	TOTAL COST	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999.999)!(X<-99999999.999)!(X?.E1"."4N.N) X` HELP-PROMPT: `Total cost (based on selling cost, the higher of the actual and the average cost). Could be negative if only returns were processed. TYPE A NUMBER BETWEEN -99999999.999 AND 99999999.999` DESCRIPTION: `This is the total cost of the item(s) used or distributed. It is based on the selling cost.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3713	M DATA EXTRACTOR

ICR LINK

Subscribing Package(s)

Fields Referenced

Description

ICR #3713

M DATA EXTRACTOR

Name	Field # of Occurrence
^%DT	1+1
DD^%DT	1OT+1
^DIC	3(HELP )

Name

Field # of Occurrence

^%DT

1+1

DD^%DT

1OT+1

^DIC

3(HELP )

Name	Line Occurrences (* Changed, ! Killed)
^PRCD(420.1 - [#420.1]	3+1
^PRCP(446 - [#446]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Name

Line Occurrences (* Changed, ! Killed)

^PRCD(420.1 - [#420.1]

3+1

^PRCP(446 - [#446]

.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Name	Field # of Occurrence
^(0	ID1+1, ID3+1, 3+1

Name

Field # of Occurrence

^(0

ID1+1, ID3+1, 3+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ID1+1~*
>> %DT	1+1*
>> D	3(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
>> DIC	3(HELP )
>> DIC(0	3(HELP )
>> DIE	3(HELP )
>> PRCPPRIV	.01+1
U	ID1+1, ID3+1, 3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3+1!, 3(HELP ) , 6+1!
>> Y	1+1, 1OT+1
>> Y(0	1OT+1*
ZD	3(HELP )

Customize PDF page

Package: IFCAP

Global: ^PRCP(446

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 5

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: