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	35	HO LETTER 3 LIST RMPRPI01 RMPRPI02 RMPRPI07 RMPRPIU2 RMPRPIU3 RMPRPIU6 RMPRPIU7 RMPRPIU8 RMPRPIU9 RMPRPIUA RMPRPIUB RMPRPIUC RMPRPIUD RMPRPIUE RMPRPIUF RMPRPIUJ RMPRPIUT RMPRPIUV RMPRPIX7 RMPRPIXE RMPRPIXJ RMPRPIXR RMPRPIY6 RMPRPIY7 RMPRPIYF RMPRPIYI RMPRPIYL RMPRPIYO RMPRPIYV RMPRPIYZ RMPRPS34 RMPRPS35 RMPRPS36 ^RMPR(661.7

Package

Total

Routines

Prosthetics

HO LETTER 3 LIST    RMPRPI01    RMPRPI02    RMPRPI07    RMPRPIU2    RMPRPIU3    RMPRPIU6    RMPRPIU7
RMPRPIU8    RMPRPIU9    RMPRPIUA    RMPRPIUB    RMPRPIUC    RMPRPIUD    RMPRPIUE    RMPRPIUF
RMPRPIUJ    RMPRPIUT    RMPRPIUV    RMPRPIX7    RMPRPIXE    RMPRPIXJ    RMPRPIXR    RMPRPIY6
RMPRPIY7    RMPRPIYF    RMPRPIYI    RMPRPIYL    RMPRPIYO    RMPRPIYV    RMPRPIYZ    RMPRPS34
RMPRPS35    RMPRPS36    ^RMPR(661.7

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

Name	Field # of Occurrence
^%DT	1+1

Name

Field # of Occurrence

^%DT

1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(661.7 - [#661.7]	IXXHDSSL+1, IXXHDSKL+1!, IXXHDSKEIC+1!, IXXSHIDSSL+1, IXXSHIDSKL+1!, IXXSHIDSKEIC+1!, IXXSLHIDSSL+1*, IXXSLHIDSKL+1!, IXXSLHIDSKEIC+1!, .01(XREF 1S) , .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 5(XREF 1S), 5(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1*
>> DA	IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1, .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K) , 5(XREF 1S), 5(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 3(XREF 1S), 3(XREF 1K), 5(XREF 1S), 5(XREF 1K) , 6+1!, 7+1!
X(1	IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
X(2	IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
X(3	IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
X(4	IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
X(5	IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
X(6	IXXSLHIDSSL+1, IXXSLHIDSKL+1
>> Y	1+1

Customize PDF page

Package: Prosthetics

Global: ^RMPR(661.7

Information

Description

Directly Accessed By Routines, Total: 37

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 9

ICR, Total: 1

External References

Global Variables Directly Accessed

Local Variables

Legend: