Global: ^RMPR(661.7

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

Routines

Prosthetics

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]

Package

Total

FileMan Files

IFCAP

UNIT OF ISSUE(#420.5)[8]

Kernel

INSTITUTION(#4)[4]

Prosthetics

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

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #7121	ADVANCED PROSTHETICS ACQ TOOL	HCPCS (.01). Access: Read w/Fileman DATE&TIME STAMP (1). Access: Read w/Fileman SEQUENCE (2). Access: Read w/Fileman HCPCS ITEM (3). Access: Read w/Fileman STATION (4). Access: Read w/Fileman LOCATION (5). Access: Read w/Fileman QUANTITY (6). Access: Read w/Fileman VALUE (7). Access: Read w/Fileman UNIT OF ISSUE (8). Access: Read w/Fileman	File 661.7 'XHDS' INDEX Used to look up byHCPCS &DATE&TIME STAMP & SEQUENCEFile 661.7 'XSHIDS' index Used to look up bySTATION &HCPCS & HCPCS ITEM & DATE&TIMESTAMP & SEQUENCEFile 661.7 'XSLHIDS' index Used to look up bySTATION &LOCATION & HCPCS & HCPCS ITEM& DATE&TIME STAMP & SEQUENCE
ICR #7538	PROSTHETICS VISION 4 SIGHT II	HCPCS (.01). Access: Direct Global R/W & w/Fileman DATE&TIME STAMP (1). Access: Direct Global R/W & w/Fileman SEQUENCE (2). Access: Direct Global R/W & w/Fileman HCPCS ITEM (3). Access: Direct Global R/W & w/Fileman STATION (4). Access: Direct Global R/W & w/Fileman LOCATION (5). Access: Direct Global R/W & w/Fileman QUANTITY (6). Access: Direct Global R/W & w/Fileman VALUE (7). Access: Direct Global R/W & w/Fileman UNIT OF ISSUE (8). Access: Direct Global R/W & w/Fileman

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