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

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

Print Page as PDF

Global: ^RMPR(661.7

Package: Prosthetics

Global: ^RMPR(661.7

Information

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.

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Prosthetics	2	RMPRPIX7 RMPRPIXR

Pointer To FileMan Files, Total: 3

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

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #7121	ADVANCED PROSTHETICS ACQUISITION 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

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