Global: ^RMPR(669.9

FileMan FileNo	FileMan Filename	Package
669.9	PROSTHETICS SITE PARAMETERS	Prosthetics

Accessed By FileMan Db Calls, Total: 6

Package	Total	Routines
Prosthetics	6	RMPOPED RMPOVDC RMPR5HQ1 RMPRESI RMPRSIT RMPRUTIL

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Prosthetics	2	HOME OXYGEN TRANSACTIONS FILE(#665.72)[.01] PROSTHETICS PATIENT(#665)[19.12]

Pointer To FileMan Files, Total: 9

Package	Total	FileMan Files
Kernel	4	DEVICE(#3.5)[9, 27, 28, 29, 30, 35] INSTITUTION(#4)[1] STATE(#5)[6] NEW PERSON(#200)[#669.9003(.01)]
IFCAP	2	VENDOR(#440)[#669.962(.01)] PAT NUMBER(#442.6)[10]
Prosthetics	2	PROSTHETICS PATIENT(#665)[#669.9002(.01), #669.972(.01), #669.974(.01)] PROS LETTER(#665.2)[#669.965(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[52, #669.922(.01)]

Fields, Total: 50

Field #	Name	Loc	Type	Details
.01	SITE NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:($L(X)<3)!($L(X)>50)!(X'?1U.E) X` LAST EDITED: `AUG 03, 1995` HELP-PROMPT: `ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND BEGIN WITH A CAPITAL LETTER` DESCRIPTION: `The site name can be either uppercase, or a combination of upper and lower. This is the name of your Medical Center, and should be entered the way you would like to have it print on your forms. For example: Carl T.` `Hayden VAMC.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `669.9^B` `1)= S ^RMPR(669.9,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(669.9,"B",$E(X,1,30),DA)`
1	STATION	0;2	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `NOV 03, 1992` HELP-PROMPT: `Enter the Station Name or Station Number from the Institution File.` DESCRIPTION: `This is your station number.` CROSS-REFERENCE: `669.9^C` `1)= S ^RMPR(669.9,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(669.9,"C",$E(X,1,30),DA)` `Lookup Site Name by Station Number.`
1.1	IFCAP SITE	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3) X` LAST EDITED: `DEC 16, 1996` HELP-PROMPT: `Answer must be 3-6 characters in length.` DESCRIPTION: `This field should contain the current IFCAP site location.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	AUTOMATED INVENTORY (GIP)	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 06, 1991` DESCRIPTION: `When you first install Prosthetics, this should be set to no. When you are ready to start using the inventory package, you should change this to yes.`
3	PHONE NUMBER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>24!($L(X)<3) X` LAST EDITED: `SEP 11, 1995` HELP-PROMPT: `Answer must be 3-24 characters in length.` DESCRIPTION: `This field stores the phone number of Prosthetics. This phone number will print on all 2421 forms. 24 spaces are allotted for phone number which should allow for entry of both area code and a four digit extension, if` `desired.`
4	STREET ADD1	2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<6) X` LAST EDITED: `MAY 15, 1990` HELP-PROMPT: `Answer with the street address for letterhead, and the address correspondence should be sent to.` DESCRIPTION: `This should be the street address of your Prosthetics Service, or the address you would like printed on your forms.`
5	CITY	2;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `MAY 15, 1990` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: `This is the city to go with the STREET ADD1 field. This is the city of your Prosthetics Service.`
6	STATE	2;4	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `JAN 28, 1992` HELP-PROMPT: `Please enter the State where your Institution resides.` DESCRIPTION: `Pointer to the State file #5.`
7	ZIP CODE	2;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `MAY 15, 1990` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `This is the zip code to go with the street address and city.`
7.1	MANAGER COMMENT	6;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `DEC 28, 2004` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `This comment will display on GUI Purchasing Page.`
8	CHIEF SIG BLOCK	2;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>55!($L(X)<5) X` LAST EDITED: `MAY 29, 1990` HELP-PROMPT: `Answer must be 5-55 characters in length.` DESCRIPTION: `This is the name of the Fund Control Point Official that signs.`
8.1	PURCHASING AGENT	5;0	POINTER Multiple #669.9003	669.9003 DESCRIPTION: `This is a list of persons who are allowed to serve as purchasing agents for prosthetics.`
8.5	SIGNATURE BLOCK TITLE	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>55!($L(X)<5) X` LAST EDITED: `DEC 30, 1992` HELP-PROMPT: `Answer must be 5-55 characters in length.` DESCRIPTION: `Signature Block Title is used to describe the Prosthetics Service as a P&SAS or PTC.`
9	PURCHASING DEVICE	0;5	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `AUG 05, 1992` HELP-PROMPT: `Please Enter the Device Name that will be used for Printing Purchasing Forms for Prosthetics.` DESCRIPTION: `This is the device all VAF 10-2421s and 10-55's will be printed on.`
10	COMMON NUMBERING SERIES	4;2	POINTER TO PAT NUMBER FILE (#442.6)	PAT NUMBER(#442.6) LAST EDITED: `NOV 22, 2004` DESCRIPTION: `This is the Numbering Series given by Fiscal so each PO # will be unique.`
11	GROUPER COUNTER	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<55555555)!(X?.E1"."1N.N) X` LAST EDITED: `APR 27, 2009` HELP-PROMPT: `Type a Number between 55555555 and 99999999, 0 Decimal Digits` DESCRIPTION: `GROUPER COUNTER is used in the calculation of AMIS reports both in Purchasing and Issue from Stock Modules. This field should NEVER BE CHANGED!` TECHNICAL DESCR: `Counted backwards from 99999999 and placed in file 660 in the AMIS GROUPER field, to be used in AMIS calculations from Purchasing and Issue from Stock.` `UNEDITABLE`
12	DVN IP ADDRESS	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>39!($L(X)<3) X` LAST EDITED: `MAR 25, 2015` HELP-PROMPT: `Answer must be 3-39 characters in length.` DESCRIPTION: `This is the IP address for the Delivery Verification Notice DVN for the Patient Notification Cards.` TECHNICAL DESCR: `This field should be populated in the very first site listed with the ?? in file 669.9. $O(^RMPR(669.9,"B",0))`
13	DVN FILE DIRECTORY	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `MAR 26, 2009` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `This is the System File Directory name that is given by the local IRM. The instructions for the file directory set up are in the Installation Guide for RMPR3.0125` TECHNICAL DESCR: `This field should be populated in the very first site listed with the ?? in file 669.9. $O(^RMPR(669.9,"B",0))`
14	DVN SFTP USERNAME	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 26, 2009` HELP-PROMPT: `Answer must be 3-30 characters in length` DESCRIPTION: `This is the sftp User name that will be given to the sites and entered into the first site in the list when using the SS Enter/Edit Station Site Parameters option.` TECHNICAL DESCR: `This field should be populated in the very first site listed with the ?? in file 669.9. $O(^RMPR(669.9,"B",0))`
15	ART LIMBS PSC AMOUNT	2;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X` LAST EDITED: `SEP 14, 1990` HELP-PROMPT: `Type a Dollar Amount between 2 and 999, 2 Decimal Digits` DESCRIPTION: `When a 10-2520 is issued, certain dollar limits are set for artifical limbs.`
16	WHEELCHAIR PSC AMOUNT	2;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X` LAST EDITED: `SEP 14, 1990` HELP-PROMPT: `Type a Dollar Amount between 2 and 999, 2 Decimal Digits` DESCRIPTION: `When a 10-2520 is issued, certain dollar limits are set for wheelchairs.`
17	BRACES PSC AMOUNT	2;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X` LAST EDITED: `SEP 14, 1990` HELP-PROMPT: `Type a Dollar Amount between 2 and 999, 2 Decimal Digits` DESCRIPTION: `When a 10-2520 is issued, certain dollar limits are set for braces.`
18	BLIND AIDS PSC AMOUNT	2;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X` LAST EDITED: `SEP 14, 1990` HELP-PROMPT: `Type a Dollar Amount between 2 and 999, 2 Decimal Digits` DESCRIPTION: `When a 10-2520 is issued, certain dollar limits are set for blind aids.`
19	SUSPENSE PURGE	0;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>4000)!(X<90)!(X?.E1"."1.N) X` LAST EDITED: `FEB 18, 2021` HELP-PROMPT: `Type a number between 90 and 4000, 0 decimal digits.` DESCRIPTION: `This is the number of days for the suspense records to remain in the file once they have been completed.`
20	CLOSE-OUT PURCHASING PURGE	0;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>730)!(X<120)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 11, 1995` HELP-PROMPT: `Type a Number between 120 and 730, 0 Decimal Digits` DESCRIPTION: `This is the number of days to keep old transactions in the file. It is recommended that this be set to 120 days. days.`
21	CANCELLATION PURCHASING PURGE	0;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>730)!(X<120)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 11, 1995` HELP-PROMPT: `Type a Number between 120 and 730, 0 Decimal Digits` DESCRIPTION: `This is the number of days to keep transactions that have been cancelled. It is recommended that this be set to 120 days.`
22	PROSTHETICS CLINIC	1;0	POINTER Multiple #669.922	669.922
27	ORTHOTIC LAB DEVICE	DEV;2	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `AUG 16, 1994` HELP-PROMPT: `Enter the Name of the Device that will print the 2529-3 for the Orthotic Lab` DESCRIPTION: `This is an optional entry. If a device name is entered, it will be the device the 2529-3s will print on for the Orthostics Lab. If the field is left null the user will be prompted to enter a device.`
28	RESTORATION CLINIC DEVICE	DEV;3	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `AUG 16, 1994` HELP-PROMPT: `Enter the Name of the Device that will print the 2529-3 for the Restoration Clinic` DESCRIPTION: `Entry of a DEVICE is optional. If a device name is entered, the device will print 2529-3s for the Restoration Clinic. If the field is null, the users will be prompted to enter a device.`
29	SHOE LAST CLINIC DEVICE	DEV;4	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `AUG 30, 1994` HELP-PROMPT: `Enter the Name of the Device that will print the 2529-3 for the Shoe Last Clinic` DESCRIPTION: `This is th e device that will print the 2529-3 for the Shoe Last Clinic. If the field is null, the user will be prompted to enter the device.`
30	WHEELCHAIR REPAIR SHOP DEVICE	DEV;5	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `AUG 30, 1994` HELP-PROMPT: `Enter the Name of the Device that will print the 2529-3 for the WheelChair Repair Shop.` DESCRIPTION: `This is the device that will print the 2529-3s for the Wheelchair Repair Shop. If this field is null, the user will be asked to enter the device.`
31	LAB	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 25, 1995` HELP-PROMPT: `Enter '1' if your are an Orthotic Lab, Restoration Clinic, WheelChair Repair Shop, Ect.` DESCRIPTION: `This field turns on the lab module. The Labs are on if ths field is set to 'yes'.`
32	ORTHOTICS LAB ACTIVATED?	0;11	SET	'1' FOR YES; LAST EDITED: `APR 05, 1995` HELP-PROMPT: `Enter 'Yes' or 'Y' or 1 if the Orthotics Lab is activated at this station.` DESCRIPTION: `This field will contain a 1 if the Orthotics Lab has been activated at this station.`
33	RESTORATION LAB ACTIVATED?	0;12	SET	'1' FOR YES; LAST EDITED: `APR 06, 1995` HELP-PROMPT: `Enter 'Yes' or 'Y' or '1' to indicate Shoe Last Clinic should be activated.` DESCRIPTION: `A '1' in this field indicates that Restoration Clinic has been activated at this station.`
34	ROUTING NUMBER	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `FEB 13, 2001` HELP-PROMPT: `Answer must be 1-7 characters in length` DESCRIPTION: `This field is the mail routing symbol, which is printed on purchasing forms. The mail routing symbol '121' is being replaced by the value entered in this field.`
35	INVENTORY DEVICE	INV;1	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `SEP 04, 1998` DESCRIPTION: `This is a device that will print a Notification letter for Items below the re-order level.`
37	NOTIFICATION DATE	INV;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 04, 1998` DESCRIPTION: `This is the date that a taskman job runs for the Notification letter.`
38	HQ MAIL ADDRESS	INV;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<12) X` LAST EDITED: `OCT 11, 2000` HELP-PROMPT: `Answer must be 12-45 characters in length.` DESCRIPTION: `This is an exchange address for HQ personnel who will receive the PIP reports.`
39	HQ REPORT DATE	INV;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 04, 2000` DESCRIPTION: `Date when PIP report was ran for HQ.`
40	VISN	INV;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 13, 2000` HELP-PROMPT: `Type a Number between 1 and 40, 0 Decimal Digits` DESCRIPTION: `This is the VISN where this station belong to.`
50	PCE START DATE	PCE;1	DATE	INPUT TRANSFORM: `S %DT="ETR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 16, 2001` DESCRIPTION: `PCE START DATE is the starting date and time the background job runs.`
51	PCE END DATE	PCE;2	DATE	INPUT TRANSFORM: `S %DT="ETR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 16, 2001` DESCRIPTION: `PCE END DATE is the date and time the PCE background job finish to completion.`
52	PCE HOSPITAL LOCATION	PCE;3	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `OCT 15, 2001` DESCRIPTION: `This is a pointer to Hopital Location file (#44), a clinic, where prosthetics outpatient encounter is scheduled.`
60	HOME OXYGEN PRESCRIPTION	RMPORXN;0	Multiple #669.9001	669.9001 LAST EDITED: `DEC 14, 1998`
61	HOME OXYGEN FUND CONTROL POINT	RMPOFCP;0	Multiple #669.961	669.961 LAST EDITED: `DEC 15, 1998` DESCRIPTION: `This field contains the fund control points used by home oxygen.`
62	HOME OXYGEN VENDOR	RMPOVDR;0	POINTER Multiple #669.962	669.962 LAST EDITED: `DEC 14, 1998` DESCRIPTION: `This field contains the vendors that supply devices and services for home oxygen.`
65	HOME OXYGEN LETTER	RMPOLET;0	POINTER Multiple #669.965	669.965 DESCRIPTION: `This field contains the letter types that are sent to patient receiving home oxygen.`
70	HO LETTER 1 LIST	RMPOXBAT1;0	POINTER Multiple #669.9002	669.9002 LAST EDITED: `JUN 14, 1999` DESCRIPTION: `List of all patients who get Home Oxygen letter 1.`
72	HO LETTER 2 LIST	RMPOXBAT2;0	POINTER Multiple #669.972	669.972 LAST EDITED: `JUN 14, 1999` DESCRIPTION: `List of all patients who get Home Oxygen letter 2.`
74	HO LETTER 3 LIST	RMPOXBAT3;0	POINTER Multiple #669.974	669.974 LAST EDITED: `JUN 14, 1999` DESCRIPTION: `List of all patient who get Home Oxygen letter 3.`

Found Entries, Total: 1

ICR, Total: 3

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2529	DSS - DECISION SUPPORT SYSTEM EXTRACTS		This file holds the list of parameters which controlsthe operation of the prosthetics package at a site.
ICR #3604	Communications Service Library	STATION (1). Access: Read w/Fileman
ICR #6542	ADVANCED PROSTHETICS ACQUISITION TOOL ABOVE PAR	SITE NAME (.01). Access: Read w/Fileman STATION (1). Access: Read w/Fileman AUTOMATED INVENTORY (GIP) (2). Access: Read w/Fileman PHONE NUMBER (3). Access: Read w/Fileman PURCHASING DEVICE (9). Access: Read w/Fileman LAB (31). Access: Read w/Fileman GROUPER COUNTER (11). Access: Both R/W w/Fileman ORTHOTICS LAB ACTIVATED? (32). Access: Read w/Fileman RESTORATION LAB ACTIVATED? (33). Access: Read w/Fileman ROUTING NUMBER (34). Access: Read w/Fileman PROSTHETICS CLINIC (.01). Access: Read w/Fileman SIGNATURE BLOCK TITLE (8.5). Access: Read w/Fileman STREET ADD1 (4). Access: Read w/Fileman CITY (5). Access: Read w/Fileman STATE (6). Access: Read w/Fileman ZIP CODE (7). Access: Read w/Fileman CHIEF SIG BLOCK (8). Access: Read w/Fileman DVN IP ADDRESS (12). Access: Read w/Fileman DVN FILE DIRECTORY (13). Access: Read w/Fileman DVN SFTP USERNAME (14). Access: Read w/Fileman IFCAP SITE (1.1). Access: Read w/Fileman COMMON NUMBERING SERIES (10). Access: Read w/Fileman PURCHASING AGENT (.01). Access: Read w/Fileman START RANGE (1). Access: Read w/Fileman STOP RANGE (2). Access: Read w/Fileman PHONE (3). Access: Read w/Fileman PRINT NAME (4). Access: Read w/Fileman MANAGER COMMENT (7.1). Access: Read w/Fileman ORTHOTIC LAB DEVICE (27). Access: Read w/Fileman RESTORATION CLINIC DEVICE (28). Access: Read w/Fileman SHOE LAST CLINIC DEVICE (29). Access: Read w/Fileman WHEELCHAIR REPAIR SHOP DEVICE (30). Access: Read w/Fileman INVENTORY DEVICE (35). Access: Read w/Fileman VISN (40). Access: Read w/Fileman NOTIFICATION DATE (37). Access: Read w/Fileman HQ MAIL ADDRESS (38). Access: Read w/Fileman HQ REPORT DATE (39). Access: Read w/Fileman PCE START DATE (50). Access: Read w/Fileman PCE END DATE (51). Access: Read w/Fileman PCE HOSPITAL LOCATION (52). Access: Read w/Fileman FUND CONTROL POINT (.01). Access: Read w/Fileman PSAS? (1). Access: Read w/Fileman PURCHASE CARD NUMBER (2). Access: Read w/Fileman HOME OXYGEN LETTER (.01). Access: Read w/Fileman LETTER CODE (1). Access: Read w/Fileman DAYS TO PRESCRIPTION EXPIRY (2). Access: Read w/Fileman AUTOGENERATE LETTER (3). Access: Read w/Fileman PRINT LETTER HEADER (4). Access: Read w/Fileman PRESCRIPTION SEQUENCE NUMBER (.01). Access: Read w/Fileman DEFAULT DAYS TO EXPIRATION (1). Access: Read w/Fileman HOME OXYGEN VENDORS (.01). Access: Read w/Fileman PATIENT (.01). Access: Read w/Fileman PATIENT (.01). Access: Read w/Fileman PATIENT (.01). Access: Read w/Fileman	"B" cross reference - Used to look up by SITE NAME"C" cross reference - Used to look up by STATION

Customize PDF page

Package: Prosthetics

Global: ^RMPR(669.9

Information

Description

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 9

Fields, Total: 50

Found Entries, Total: 1

ICR, Total: 3