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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^RMPR(661.2

Package: Prosthetics

Global: ^RMPR(661.2

Information

FileMan FileNo	FileMan Filename	Package
661.2	PROS STOCK ITEM RECORD	Prosthetics

Description

This is a Prosthetics Stock Item Record file that holds all issue and stock control records. This is the main file for Prosthetics inventory as in form 10-1210. All transactions that pertains to an item being track is keep in this file.

Directly Accessed By Routines, Total: 18

Package	Total	Routines
Prosthetics	18	^RMPR(661.2 HO LETTER 3 LIST RMPR29LD RMPR29LU RMPR5N1 RMPR5N4 RMPR5NAE RMPR5NEE RMPR5NOR RMPR5NRE RMPR5NTU RMPR5NU1 RMPR61PG RMPRED4 RMPRED5 RMPRED6 RMPRPIUH RMPRPS35

Accessed By FileMan Db Calls, Total: 11

Package	Total	Routines
Prosthetics	11	RMPR29LD RMPR29LU RMPR5NAE RMPR5NEE RMPR5NOR RMPR5NRE RMPR5NTU RMPR5NU1 RMPR61PG RMPRED4 RMPRED5

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Prosthetics	1	PROSTHETIC TRANSACTION PATIENT ISSUE(#661.63)[3]

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
Prosthetics	3	PROSTHETIC HCPCS(#661.1)[3] PROS ITEM LOCATION(#661.3)[17] PROSTHETICS PATIENT(#665)[1]
Kernel	2	INSTITUTION(#4)[16] NEW PERSON(#200)[7]
IFCAP	1	UNIT OF ISSUE(#420.5)[5]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 09, 1998` DESCRIPTION: `This is the date when an item issued to a Patient or Veteran.` CROSS-REFERENCE: `661.2^B` `1)= S ^RMPR(661.2,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.2,"B",$E(X,1,30),DA)`
1	PATIENT	0;2	POINTER TO PROSTHETICS PATIENT FILE (#665)	PROSTHETICS PATIENT(#665) LAST EDITED: `FEB 10, 1998` DESCRIPTION: `This is a patient or veteran whom an item issued to. It is a pointer to Prosthetics Patient file (#665).` CROSS-REFERENCE: `661.2^C` `1)= S ^RMPR(661.2,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.2,"C",$E(X,1,30),DA)`
2	SOURCE	0;3	SET	'V' FOR VA; 'C' FOR COMMERCIAL; LAST EDITED: `SEP 02, 1998` DESCRIPTION: `This is a source of an item, either Va or Commercial.`
3	HCPCS	0;4	POINTER TO PROSTHETIC HCPCS FILE (#661.1)	PROSTHETIC HCPCS(#661.1) LAST EDITED: `AUG 14, 1998` DESCRIPTION: `Pointer to Prosthetics HCPCS file (#661.1).` CROSS-REFERENCE: `661.2^D` `1)= S ^RMPR(661.2,"D",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.2,"D",$E(X,1,30),DA)`
5	UNIT OF ISSUE	0;5	POINTER TO UNIT OF ISSUE FILE (#420.5)	UNIT OF ISSUE(#420.5) LAST EDITED: `AUG 19, 1998` DESCRIPTION: `This is the unit used issuing an item or stock.`
7	USER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 25, 1998` DESCRIPTION: `A user responsible of stock item issue.` CROSS-REFERENCE: `661.2^F` `1)= S ^RMPR(661.2,"F",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.2,"F",$E(X,1,30),DA)`
8	QTY	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 09, 1998` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `Quantity issue to a patient or veteran.`
9	HCPCS/ITEM	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `AUG 14, 1998` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `Enternal entry of an HCPCS concatenated to an enternal entry of an item in file #661.1`
10	QTY ORDERED	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 24, 1998` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `Quantity of an item or stock being ordered.`
11	QTY RECEIVED	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 24, 1998` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `Quantity of an item or stock received.`
12	CURRENT BALANCE	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 1998` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits` DESCRIPTION: `This is the current balance of an item as of date.`
13	COMMENT	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<2) X` LAST EDITED: `MAY 01, 1998` HELP-PROMPT: `Answer must be 2-60 characters in length.` DESCRIPTION: `This is a free text field for user to enter any comments or justifications.`
14	CURRENT TOTAL COST	0;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `MAY 01, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the current total cost of an item as of this date.`
15	SERIAL NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `AUG 21, 1998` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This field comes from a serial # of an item during the stock issue option.`
16	STATION	0;15	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `AUG 26, 1998` DESCRIPTION: `A station or site for an inventory workload or statistics.` CROSS-REFERENCE: `661.2^E` `1)= S ^RMPR(661.2,"E",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.2,"E",$E(X,1,30),DA)`
17	LOCATION	0;16	POINTER TO PROS ITEM LOCATION FILE (#661.3)	PROS ITEM LOCATION(#661.3) LAST EDITED: `AUG 26, 1998` DESCRIPTION: `A location of an item where a workload completed.` CROSS-REFERENCE: `661.2^G` `1)= S ^RMPR(661.2,"G",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.2,"G",$E(X,1,30),DA)`
18	AVERAGE COST	0;17	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `AUG 27, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits` DESCRIPTION: `This is the average cost of an ITEM based on COST and BALANCE ration.`
20	LAB HOUR	1;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 13, 1998` HELP-PROMPT: `Type a Number between 0 and 1000, 2 Decimal Digits` DESCRIPTION: `Number of hours used by lab technician to process an item or stock.`
21	LABOR COST	1;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `MAR 13, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `An issuance cost of an item furnished to patient or veteran based on the users' salary and hour spent by a Technician to fit an item.`

ICR, Total: 1

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

External References

Name	Field # of Occurrence
^%DT	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(661.2 - [#661.2]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 16(XREF 1S), 16(XREF 1K) , 17(XREF 1S), 17(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 16(XREF 1S), 16(XREF 1K) , 17(XREF 1S), 17(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8+1! , 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16(XREF 1S), 16(XREF 1K), 17(XREF 1S) , 17(XREF 1K), 18+1!, 20+1!, 21+1!
>> Y	.01+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Local Variables | All