Global: ^RMPR(661.7

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Desc
Accessed By FileMan Db Calls
Pointer To FileMan Files
Fields
ICR

FileMan FileNo	FileMan Filename	Package
661.7	PROSTHETIC CURRENT STOCK	Prosthetics

FileMan FileNo

FileMan Filename

Package

661.7

PROSTHETIC CURRENT STOCK

Prosthetics

Description

This file implements the concept of 'First In First Out' (FIFO) stock accounting. Whenever stock items are brought into stock on a given date an entry will be created for that date for the relevant HCPC item, location, vendor and unit of measure. The date will include time to cater for the rare instance where the same stock item with the same vendor, location and unit of measure is brought into stock on the same day but with a different cost. This file can then be used to look up locations containing the oldest stock for any given HCPC item. When items are removed from stock the associated vendor and location will be identified by scanning a bar code (or manual entry in case of equipment problems). The system will then assume that the oldest item for the vendor and location has been issued and will reduce the stock quantity. If the quantity becomes 0 or -ve the record will be deleted.

Package	Total	Routines
Prosthetics	2	RMPRPIX7 RMPRPIXR

Package	Total	FileMan Files
IFCAP	1	UNIT OF ISSUE(#420.5)[8]
Kernel	1	INSTITUTION(#4)[4]
Prosthetics	1	PROSTHETIC STOCK LOCATION(#661.5)[5]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	HCPCS	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<5) X` LAST EDITED: `SEP 08, 2005` HELP-PROMPT: `Answer must be 5-20 characters in length.` DESCRIPTION: `This field is a pointer to the Prosthetic HCPCs file (661.1).` CROSS-REFERENCE: `661.7^B` `1)= S ^RMPR(661.7,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.7,"B",$E(X,1,30),DA)` RECORD INDEXES: `XHDS (#36), XSHIDS (#37), XSLHIDS (#63)`
1	DATE&TIME STAMP	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAR 28, 2001` HELP-PROMPT: `(No range limit on date)` RECORD INDEXES: `XHDS (#36), XSHIDS (#37), XSLHIDS (#63)`
2	SEQUENCE	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `MAR 28, 2001` HELP-PROMPT: `Type a number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is the same SEQUENCE as in the PROSTHETIC TRANSACTION file (661.6)` RECORD INDEXES: `XHDS (#36), XSHIDS (#37), XSLHIDS (#63)`
3	HCPCS ITEM	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 06, 2001` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `This field is a pointer to the 661.12 sub-file of the PROSTHETIC HCPCS file (661.1).` CROSS-REFERENCE: `661.7^D` `1)= S ^RMPR(661.7,"D",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.7,"D",$E(X,1,30),DA)` RECORD INDEXES: `XSHIDS (#37), XSLHIDS (#63)`
4	STATION	0;5	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 28, 2001` DESCRIPTION: `This field is a pointer to the INSTITUTION file (4).` RECORD INDEXES: `XSHIDS (#37), XSLHIDS (#63)`
5	LOCATION	0;6	POINTER TO PROSTHETIC STOCK LOCATION FILE (#661.5)	PROSTHETIC STOCK LOCATION(#661.5) LAST EDITED: `APR 06, 2001` DESCRIPTION: `This field points to the PROSTHETIC STOCK LOCATION file (661.5).` CROSS-REFERENCE: `661.7^C` `1)= S ^RMPR(661.7,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.7,"C",$E(X,1,30),DA)` RECORD INDEXES: `XSLHIDS (#63)`
6	QUANTITY	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1.N) X` LAST EDITED: `JAN 17, 2001` HELP-PROMPT: `Type a number between -999999999 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field is the quantity of stock.`
7	VALUE	0;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999)!(X?.E1"."3.N) X` LAST EDITED: `JAN 17, 2001` HELP-PROMPT: `Type a Dollar amount between -999999999 and 999999999, 2 Decimal Digits` DESCRIPTION: `This field is the total dollar value of the stock item held on this record.`
8	UNIT OF ISSUE	0;9	POINTER TO UNIT OF ISSUE FILE (#420.5)	UNIT OF ISSUE(#420.5) LAST EDITED: `NOV 18, 2002` DESCRIPTION: `This field is a pointer to Unit of Issue file (#420.5).`

ICR, Total: 1

Customize PDF page

Package: Prosthetics

Global: ^RMPR(661.7

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 9

ICR, Total: 1