Global: ^RMPR(660.1

FileMan FileNo	FileMan Filename	Package
660.1	PROS RETURNED/CONDEMNED	Prosthetics

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Prosthetics	3	RMPRRET1 RMPRRET2 RMPRRET9

Pointer To FileMan Files, Total: 8

Package	Total	FileMan Files
Prosthetics	6	RECORD OF PROS APPLIANCE/REPAIR(#660)[11.5] PROSTHETICS RE-ISSUE ITEM(#660.2)[22] PROS ITEM MASTER(#661)[2] PROSTHETICS PATIENT(#665)[1] PROS AUTO-ADAPTIVE EQUIP(#667.1)[23] V.O.R. TRANSACTION(#667.3)[24]
IFCAP	1	GENERIC INVENTORY(#445)[11]
Kernel	1	INSTITUTION(#4)[14]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 15, 1992` HELP-PROMPT: `Enter the Date of the Loan transaction.` DESCRIPTION: `This field stores the date of the loaner transaction.` CROSS-REFERENCE: `660.1^B` `1)= S ^RMPR(660.1,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"B",$E(X,1,30),DA)`
.05	DATE OF LOAN	0;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 05, 1993` HELP-PROMPT: `Enter the date of Loan or Return transaction.` DESCRIPTION: `This is the date of the loan to the veteran.` CROSS-REFERENCE: `660.1^AG` `1)= S ^RMPR(660.1,"AG",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"AG",$E(X,1,30),DA)` `Used to look up loan transactions for 1465 report.`
1	PATIENT	0;2	POINTER TO PROSTHETICS PATIENT FILE (#665)	**********************REQUIRED FIELD********************** PROSTHETICS PATIENT(#665) LAST EDITED: `JUL 21, 1992` HELP-PROMPT: `Enter the Patient's name for this loan transaction.` DESCRIPTION: `This is the name of the patient for this loan transaction.` CROSS-REFERENCE: `660.1^C` `1)= S ^RMPR(660.1,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"C",$E(X,1,30),DA)` `Used to display/print loan card information.`
2	ITEM	0;3	POINTER TO PROS ITEM MASTER FILE (#661)	PROS ITEM MASTER(#661) LAST EDITED: `MAY 27, 1993` HELP-PROMPT: `Enter the item for this loan transaction.` DESCRIPTION: `This is a pointer field to the Prosthetic Item file.`
2.5	COMMENTS	1;0	WORD-PROCESSING #660.11	LAST EDITED: `JUL 22, 1992` DESCRIPTION: `This word-processing field stores information about the loan transaction.` LAST EDITED: `JUL 22, 1992` HELP-PROMPT: `Enter the description of the item loaned or returned.`
3	QUANTITY	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `This is the quantity of the item on this loan.`
4	COST	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the cost of the item on loan.`
5	SERIAL NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45)!($E(X)=" ") X I $D(X) K:$L(X)>15!($L(X)<1)!(X["^") X` LAST EDITED: `MAY 15, 1995` HELP-PROMPT: Answer must be 1-15 characters in length and cannot contain an `^`. DESCRIPTION: `This field stores the serial number of the item on loan.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `660.1^AD` `1)= S ^RMPR(660.1,"AD",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"AD",$E(X,1,30),DA)` `For tracking used items on loan`
6	PURCHASE DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 15, 1992` HELP-PROMPT: `Enter the date the appliance was purchased.` DESCRIPTION: `This is the date the item was purchased by prosthetics.`
7	ASSET EXPIRATION DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 15, 1992` HELP-PROMPT: `Enter a date 5 years subsequent to the purchase date.` DESCRIPTION: `This field stores the date the asset expires (5 yr from date of purchase).`
8	FOLLOW-UP DATE	2;0	DATE Multiple #660.18	660.18 LAST EDITED: `MAR 15, 1993` DESCRIPTION: `These are dates uses by prosthetics to follow-up with the patient the status of the loaned item.`
9	TYPE OF LOAN TRANSACTION	0;9	SET	'1' FOR LOAN; '2' FOR RETURN; '3' FOR TEMP LOAN; LAST EDITED: `OCT 28, 1992` HELP-PROMPT: `Enter the type of loan transaction.` DESCRIPTION: `Stores the type of loan.`
10	DATE OF RETURN	0;11	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 17, 1994` HELP-PROMPT: `Enter the date the item was returned.` DESCRIPTION: `This field holds the date the loaned item was returned to prosthetics.` CROSS-REFERENCE: `660.1^AR` `1)= S ^RMPR(660.1,"AR",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"AR",$E(X,1,30),DA)` `X-ref for Date of Return Field that is used to calculate part IV AMIS Report.`
11	INVENTORY POINT	0;12	POINTER TO GENERIC INVENTORY FILE (#445)	GENERIC INVENTORY(#445) LAST EDITED: `JUL 30, 1992` HELP-PROMPT: `Enter the GIP Inventory Point for this loan transaction.` DESCRIPTION: `If the item was loaned from inventory with GIP running, the inventory point is stored in this field.`
11.5	APPLIANCE REPAIR	0;16	POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660)	RECORD OF PROS APPLIANCE/REPAIR(#660) LAST EDITED: `OCT 02, 1992` HELP-PROMPT: `Enter the Internal Appliance Repair record number.` DESCRIPTION: `This field stores the internal number of an entry in file 660.` CROSS-REFERENCE: `660.1^AC` `1)= S ^RMPR(660.1,"AC",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"AC",$E(X,1,30),DA)` `Used to indicate items returned that have been previously issued.`
12	LOAN CATEGORY	0;13	SET	'1' FOR BED; '2' FOR VAN LIFT; '3' FOR DIALYSIS SUPPLIES; '4' FOR INVALID LIFTS; '5' FOR RESPIRATORS; '6' FOR WHEELCHAIR; '7' FOR ALL OTHER; LAST EDITED: `AUG 17, 1992` HELP-PROMPT: `Enter the loan category` DESCRIPTION: `This is the category of the item loaned.`
13	RETURNED STATUS	0;14	SET	**********************REQUIRED FIELD********************** '1' FOR RETURNED; '2' FOR CONDEMNED; '3' FOR TURNED-IN; '4' FOR LOST; '5' FOR BROKEN; LAST EDITED: `APR 12, 1993` HELP-PROMPT: `Enter the returned status code` DESCRIPTION: `This field stores the returned status code for items turned-in by the patient.`
14	STATION	0;15	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `SEP 29, 1992` HELP-PROMPT: `Enter the Station number for this loan transaction.` DESCRIPTION: `This field stores the station number of the loan transaction.`
19	ITEM STATUS	0;17	SET	**********************REQUIRED FIELD********************** 'N' FOR NEW ITEM; 'R' FOR RECOVERED ITEM; LAST EDITED: `NOV 03, 1992` HELP-PROMPT: `Enter 'N' for NEW ITEMS or 'R' for 'RECOVERED' ITEMS` DESCRIPTION: `Indicates if the item loaned was a new purchase or a recovered item.`
20	OBLIGATION NUMBER	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 03, 1992` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `Obligation number of item that has been purchased on a 1358 and loaned to the veteran.`
21	RE-ISSUE STATUS	0;19	SET	**********************REQUIRED FIELD********************** 'A' FOR AVAILABLE FOR RE-ISSUE; 'N' FOR NOT AVAILABLE FOR RE-ISSUE; LAST EDITED: `DEC 17, 1992` HELP-PROMPT: `Enter 'A' for AVAILABLE FOR RE-ISSUE or 'N' for NOT AVAILABLE FOR RE-ISSUE` DESCRIPTION: `Indicates item is Available for Re-issue or not available for re-issue when the item has been returned.`
22	RE-ISSUE ENTRY	0;20	POINTER TO PROSTHETICS RE-ISSUE ITEM FILE (#660.2)	PROSTHETICS RE-ISSUE ITEM(#660.2) LAST EDITED: `DEC 27, 1992` HELP-PROMPT: `Enter the Item that has been returned for Loan` DESCRIPTION: `Pointer to file 660.2 re-issue entry.` CROSS-REFERENCE: `660.1^AF` `1)= S ^RMPR(660.1,"AF",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"AF",$E(X,1,30),DA)` `Used to find 660.1 entries that point to 660.2 with the re-issue entry filed.`
23	AUTO-ADAPTIVE ITEM	0;21	POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1)	PROS AUTO-ADAPTIVE EQUIP(#667.1) LAST EDITED: `MAR 10, 1993` HELP-PROMPT: `Enter the Auto Adaptive Item Number or Name` DESCRIPTION: `Pointer to file 667.1 Auto-Adaptive Equipment file.`
24	AUTO-ADAPTIVE TRANSACTION	0;22	POINTER TO V.O.R. TRANSACTION FILE (#667.3)	V.O.R. TRANSACTION(#667.3) LAST EDITED: `FEB 15, 1994` DESCRIPTION: `Pointer to Auto-Adaptive Equipment file #667.3` CROSS-REFERENCE: `660.1^AP` `1)= S ^RMPR(660.1,"AP",$E(X,1,30),DA)=""` `2)= K ^RMPR(660.1,"AP",$E(X,1,30),DA)` `This x-ref is used to look for auto-adaptive transactions that are on loan.`

Customize PDF page

Package: Prosthetics

Global: ^RMPR(660.1

Information

Description

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 8

Fields, Total: 24

ICR, Total: 1