Global: ^RMPR(665

FileMan FileNo	FileMan Filename	Package
665	PROSTHETICS PATIENT	Prosthetics

Package	Total	Routines
Prosthetics	70	DATE OF CLOTHING ALLOWANCE HO LETTER 3 LIST HOME OXYGEN ITEM HOME OXYGEN PRESCRIPTION PROSTHETIC DISABILITY CODE PSC ISSUE CARD RMPO ACT RMPO ADD/EDIT NON-ITEM RMPO-BILLING-PRESORT RMPO-RPT-HOACTZIPLIST RMPO-RPT-HOINACTIVE RMPO-RPT-HOPATIENTLIST RMPO-RPT-HOPRIITM RMPO-RPT-HORXEXP RMPOBIL0 RMPOBIL2 RMPOBIL4 RMPOBIL6 RMPOBILA RMPOLET0 RMPOLET1 RMPOLF0A RMPOLF1 RMPOLG RMPOLM RMPOLZ RMPOLZA RMPOLZB RMPOLZC RMPOPAT RMPOPAT1 RMPOPED RMPOPF RMPOPF1 RMPOPIN1 RMPOPRT RMPOPS23 RMPOPST3 RMPORIP RMPORLP RMPORNQ RMPORPD RMPORPR RMPORPT RMPOVDC RMPR 2520 RMPR OIF/OEF PSAS VETS RMPR TECH PAT RMPR210P RMPR55 RMPR9CPP RMPR9DEM RMPR9PCD RMPR9S8P RMPRAP RMPRCT RMPRDIS RMPRNAME ^RMPRA(663.4 RMPRP55 RMPRPAT RMPRPAT1 RMPRPAT5 RMPRPSC ^RMPR(664 RMPRPF RMPRPRT RMPRPRT1 RMPRPS35 ^RMPR(665

Package	Total	Routines
Prosthetics	26	RMPOBIL0 RMPOBILA RMPOLET0 RMPOLET1 RMPOLG RMPOLZA RMPOPED RMPOPIN1 RMPOPRT RMPORAP RMPORIP RMPORLP RMPORNQ RMPORPD RMPORPR RMPORPT RMPOVDC RMPR9S6 RMPRAP RMPRDIS RMPREXDS RMPRPAT5 RMPRPRT RMPRPSC RMPRRET1 RMPRUTIL

Package	Total	FileMan Files
Prosthetics	9	RECORD OF PROS APPLIANCE/REPAIR(#660)[.02] PROS RETURNED/CONDEMNED(#660.1)[1] PROSTHETICS RE-ISSUE ITEM(#660.2)[1] PROS STOCK ITEM RECORD(#661.2)[1] PROSTHETICS 1358(#664)[1] PROSTHETIC 2529-3(#664.1)[.02] VEHICLE OF RECORD(#667)[1] PROSTHETICS SITE PARAMETERS(#669.9)[#669.9002(.01), #669.972(.01), #669.974(.01)] PROSTHETIC APPOINTMENT WORKSHEET(#663.4)[1]
Uncategorized	1	APAT PATIENT RECORD ACTIVITY(#23645)[5]

Package	Total	FileMan Files
Prosthetics	5	PROS ITEM MASTER(#661)[#665.012(1), #665.194(.01)] PROSTHETIC HCPCS(#661.1)[#665.194(6)] PROS DISABILITY CODE(#662)[#665.01(.01)] PROS LETTER(#665.2)[19.13] PROSTHETICS SITE PARAMETERS(#669.9)[19.12]
IFCAP	2	VENDOR(#440)[#665.194(1)] UNIT OF ISSUE(#420.5)[#665.194(4)]
Kernel	2	INSTITUTION(#4)[2] NEW PERSON(#200)[19.7, #665.01(7), #665.02(6), #665.193(101)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#665.193(30), #665.193(31), #665.193(32), #665.193(33), #665.194(7)]
Integrated Billing	1	PFSS ACCOUNT(#375)[#665.194(101)]
Registration	1	PATIENT(#2)[.01]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `JUL 19, 1995` HELP-PROMPT: `Please enter the name of the Patient.` DESCRIPTION: `This is the name of the patient, same as the PATIENT file in MAS.` DELETE TEST: `.01,0)= I 1 W " CANNOT DELETE PATIENT",*7,!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `665^B` `1)= S ^RMPR(665,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(665,"B",$E(X,1,30),DA)`
2	STATION	0;2	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `SEP 29, 1987` HELP-PROMPT: `Enter the Station Number of the patient. If the Station Number is not entered, the entry will be deleted.` DESCRIPTION: `This is the Station that maintains the Patient's 2319.`
5.5	DATE OF CLOTHING ALLOWANCE	6;0	DATE Multiple #665.02	665.02 DESCRIPTION: `This is a multiple field. It contains the dates of clothing allowance determinations.`
10	PROSTHETIC DISABILITY CODE	1;0	POINTER Multiple #665.01	665.01 LAST EDITED: `JUN 14, 1995` DESCRIPTION: `This field stores the Prosthetic Disability Code for the patient.`
12	PSC ISSUE CARD	5;0	DATE Multiple #665.012	665.012 DESCRIPTION: `This field stores the information of Prosthetic Service Card issued to a patient.`
14	OTHER DATA	4;0	WORD-PROCESSING #665.014	DESCRIPTION: `This is a word-processing field that records other patient data.` LAST EDITED: `SEP 25, 1987` HELP-PROMPT: `Enter other patient data (word-processing).` DESCRIPTION: `This is a word-processing field that records other patient data.`
19.1	HOME OXYGEN ELIGIBILITY	RMPOA;1	SET	**********************REQUIRED FIELD********************** '1' FOR SC/OP; '2' FOR SC/IP; '3' FOR NSC/IP; '4' FOR NSC/OP; LAST EDITED: `DEC 29, 1998` HELP-PROMPT: `Enter a Home Oxygen eligibility code.` DESCRIPTION: `Enter the Home Oxygen eligibility code.` TECHNICAL DESCR:
19.11	SPECIAL NSC/OP CATEGORY	RMPOA;5	SET	'1' FOR SPECIAL LEGISLATION; '2' FOR A & A; '3' FOR PHC; '4' FOR ELIGIBILITY REFORM; LAST EDITED: `DEC 29, 1998` HELP-PROMPT: `Enter the NSC/OP eligible code category.` DESCRIPTION: `Entry is made only for NSC/OP eligible patients.`
19.12	HOME OXYGEN CONTRACT LOCATION	RMPOA;7	POINTER TO PROSTHETICS SITE PARAMETERS FILE (#669.9)	PROSTHETICS SITE PARAMETERS(#669.9) LAST EDITED: `NOV 09, 1998` HELP-PROMPT: `The site that handles the Home Oxygen contract for this patient.` DESCRIPTION: `The Home Oxygen program is administered via a contract to a vendor. Each patient receives services from only one vendor. That vendor usually has a contract with a medical center (site) to provide those services. This is` `the site that administers that contract.`
19.13	HOME OXYGEN LETTER TO BE SENT	RMPOA;8	POINTER TO PROS LETTER FILE (#665.2)	PROS LETTER(#665.2) LAST EDITED: `NOV 18, 1998` HELP-PROMPT: `Indicates that a letter needs to be sent.` DESCRIPTION: `Indicates that a letter needs to be sent for this patient.` CROSS-REFERENCE: `665^ALTR` `1)= S ^RMPR(665,"ALTR",$E(X,1,30),DA)=""` `2)= K ^RMPR(665,"ALTR",$E(X,1,30),DA)`
19.14	HO LETTER 1 DATE	RMPOA;9	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 08, 1999` DESCRIPTION: `This is the date/time when Home Oxygen letter 1 was printed or deleted.`
19.15	HO LETTER 1 CODE	RMPOA;10	SET	'P' FOR PRINTED; 'D' FOR DELETED; LAST EDITED: `JUN 08, 1999` DESCRIPTION: `The code signifies if Home Oxygen letter 1 was printed or deleted.`
19.16	HO LETTER 2 DATE	RMPOA;11	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 08, 1999` DESCRIPTION: `This is the date/time when Home Oxygen Letter 2 was printed or deleted.`
19.17	HO LETTER 2 CODE	RMPOA;12	SET	'P' FOR PRINTED; 'D' FOR DELETED; LAST EDITED: `JUN 08, 1999` DESCRIPTION: `The code which signifies Home Oxygen Letter 2 was printed or deleted.`
19.18	HO LETTER 3 DATE	RMPOA;13	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 08, 1999` DESCRIPTION: `This is the date/time when Home Oxygen Letter 3 was printed or deleted.`
19.19	HO LETTER 3 CODE	RMPOA;14	SET	'P' FOR PRINTED; 'D' FOR DELETED; LAST EDITED: `JUN 08, 1999` DESCRIPTION: `The code signifies that signifies a HOme Oxygen Letter 3 was printed or deleted.`
19.2	HOME OXYGEN ACTIVATION DATE	RMPOA;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 02, 2000` HELP-PROMPT: `Enter the date the patient was activated in the home oxygen program.` DESCRIPTION: `This is the date when the patient was activated as a home oxygen patient. The first prescription date will be the same as this date.` CROSS-REFERENCE: `665^AHO` `1)= S ^RMPR(665,"AHO",$E(X,1,30),DA)=""` `2)= K ^RMPR(665,"AHO",$E(X,1,30),DA)`
19.3	HOME OXYGEN PRESCRIPTION	RMPOB;0	DATE Multiple #665.193	665.193 LAST EDITED: `NOV 09, 1998` DESCRIPTION: `Contains data specific to this prescription such as the dates, items, services, vendors, quantity, cost, etc.`
19.4	HOME OXYGEN ITEM	RMPOC;0	POINTER Multiple #665.194	665.194 LAST EDITED: `NOV 09, 1998` IDENTIFIED BY: `HCPCS CODE(#6)[R], REMARKS(#8)`
19.5	HOME OXYGEN INACTIVATION DATE	RMPOA;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 09, 1998` HELP-PROMPT: `Enter date that oxygen treatment was discontinued.` DESCRIPTION: `Enter the date that the home oxygen treatment was discontinued. Do not enter this field until the actual date of discontinuance.`
19.6	HOME OXYGEN INACTIVAT. REASON	RMPOA;4	SET	'D' FOR DISCONTINUED BY PATIENT; 'R' FOR Rx EXPIRED; 'M' FOR MD DISCONTINUED; 'P' FOR PATIENT DECEASED; 'I' FOR INPATIENT STATUS; 'E' FOR ENTERED IN ERROR; LAST EDITED: `AUG 18, 1999` HELP-PROMPT: `Enter a reason code.` DESCRIPTION: `Enter a code (P, R, M, D, I, or E) for the reason for discontinue of home oxygen therapy.`
19.7	HOME OXYGEN INACTIVATED BY	RMPOA;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 09, 1998` HELP-PROMPT: `The user who inactivated the Patient.` DESCRIPTION: `User who inactivated home oxygen patient.`
20	HEIGHT (INCHES)	10;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<48)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 11, 1990` HELP-PROMPT: `Type a Number between 48 and 100, 0 Decimal Digits` DESCRIPTION: `This field stores the height (in inches) of the patient.`
21	WEIGHT (POUNDS)	10;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>800)!(X<50)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 11, 1990` HELP-PROMPT: `Type a Number between 50 and 800, 0 Decimal Digits` DESCRIPTION: `This field stores the weight of the patient in pounds.`
22	EYE COLOR	10;3	SET	'B' FOR BLACK; 'BL' FOR BLUE; 'GR' FOR GREEN; 'GY' FOR GRAY; 'BR' FOR BROWN; 'H' FOR HAZEL; 'W' FOR WHITE; 'P' FOR PINK; LAST EDITED: `SEP 11, 1990` HELP-PROMPT: `Enter the eye color of the patient.` DESCRIPTION: `This field stores the eye color of the patient.`
23	HAIR COLOR	10;4	SET	'B' FOR BLACK; 'BR' FOR BROWN; 'A' FOR AUBURN; 'GY' FOR GRAY; 'W' FOR WHITE; 'BL' FOR BLONDE; 'R' FOR RED; LAST EDITED: `SEP 11, 1990` HELP-PROMPT: `Enter the hair color of the patient.` DESCRIPTION: `This field stores the hair color of the patient.`
30	CRITICAL COMMENTS	8;0	WORD-PROCESSING #665.03	DESCRIPTION: `Stores patient notes/critical comments for prosthetics.` LAST EDITED: `SEP 09, 1992` HELP-PROMPT: `Enter patient critical comments`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #6537	ADVANCED PROSTHETICS ACQUISITION TOOL	NAME (.01). Access: Both R/W w/Fileman STATION (2). Access: Both R/W w/Fileman PROSTHETIC DISABILITY CODE (.01). Access: Both R/W w/Fileman DATE CODE ADDED (1). Access: Both R/W w/Fileman SERVICE/NON-SERVICE (2). Access: Both R/W w/Fileman ELIGIBILITY CATEGORY (3). Access: Both R/W w/Fileman SPECIAL LEGISLATION (4). Access: Read w/Fileman ADD/DELETE (5). Access: Both R/W w/Fileman AMIS DATE (6). Access: Read w/Fileman ENTERED BY (7). Access: Both R/W w/Fileman REMOVE CODE FLAG (9). Access: Read w/Fileman DATE CODE DELETED (10). Access: Both R/W w/Fileman AUTOMOBILE ACQUISITION DATE (.01). Access: Read w/Fileman VIN (1). Access: Read w/Fileman YEAR (2). Access: Read w/Fileman DESCRIPTION (3). Access: Read w/Fileman AMIS LINE ITEM (4). Access: Read w/Fileman MAKE AND MODEL (1.1). Access: Read w/Fileman OTHER DATA (.01). Access: Read w/Fileman PSC ISSUE CARD DATE (.01). Access: Read w/Fileman DETAILED DESCRIPTION (2). Access: Read w/Fileman SERIAL NUMBER (3). Access: Read w/Fileman PSC CATEGORY (4). Access: Read w/Fileman ITEM (1). Access: Read w/Fileman CANCELLED (5). Access: Read w/Fileman REMARKS (6). Access: Read w/Fileman DATE OF CLOTHING ALLOWANCE (.01). Access: Read w/Fileman ELIGIBLE/NOT ELIGIBLE (1). Access: Read w/Fileman STATIC/NON-STATIC (2). Access: Read w/Fileman CLOTHING ALLOWANCE EXAM (4). Access: Read w/Fileman DATE OF EXAM (5). Access: Read w/Fileman EXAMINER (6). Access: Read w/Fileman CLOTHING ALLOWANCE (3). Access: Read w/Fileman CRITICAL COMMENTS (30). Access: Read w/Fileman HEIGHT (INCHES) (20). Access: Read w/Fileman WEIGHT (POUNDS) (21). Access: Read w/Fileman EYE COLOR (22). Access: Read w/Fileman HAIR COLOR (23). Access: Read w/Fileman HOME OXYGEN ELIGIBILITY (19.1). Access: Read w/Fileman HOME OXYGEN ACTIVATION DATE (19.2). Access: Read w/Fileman HOME OXYGEN INACTIVATION DATE (19.5). Access: Read w/Fileman HOME OXYGEN INACTIVAT. REASON (19.6). Access: Read w/Fileman SPECIAL NSC/OP CATEGORY (19.11). Access: Read w/Fileman HOME OXYGEN INACTIVATED BY (19.7). Access: Read w/Fileman HOME OXYGEN CONTRACT LOCATION (19.12). Access: Read w/Fileman HOME OXYGEN LETTER TO BE SENT (19.13). Access: Read w/Fileman HO LETTER 1 DATE (19.14). Access: Read w/Fileman HO LETTER 1 CODE (19.15). Access: Read w/Fileman HO LETTER 2 DATE (19.16). Access: Read w/Fileman HO LETTER 2 CODE (19.17). Access: Read w/Fileman HO LETTER 3 DATE (19.18). Access: Read w/Fileman HO LETTER 3 CODE (19.19). Access: Read w/Fileman DATE (.01). Access: Read w/Fileman EXPIRATION DATE (2). Access: Read w/Fileman A&B LETTERS SENT (4). Access: Read w/Fileman DESCRIPTION (.01). Access: Read w/Fileman PRIMARY ICD DIAGNOSIS CODE (30). Access: Read w/Fileman PRIMARY AGENT ORANGE (30.1). Access: Read w/Fileman PRIMARY IONIZED RADIATION (30.2). Access: Read w/Fileman PRIMARY SERVICE CONNECTED (30.3). Access: Read w/Fileman PRIMARY ENVIRONMENTAL CONT. (30.4). Access: Read w/Fileman PRIMARY MST (30.5). Access: Read w/Fileman PRIMARY HEAD/NECK CANCER (30.6). Access: Read w/Fileman PRIMARY COMBAT VET (30.7). Access: Read w/Fileman SECONDARY ICD DIAGNOSIS CODE 1 (31). Access: Read w/Fileman SECONDARY AGENT ORANGE 1 (31.1). Access: Read w/Fileman SECONDARY IONIZED RADIATION 1 (31.2). Access: Read w/Fileman SECONDARY SERVICE CONNECTED 1 (31.3). Access: Read w/Fileman SECONDARY ENVIRONMENTAL CONT. 1 (31.4). Access: Read w/Fileman SECONDARY MST 1 (31.5). Access: Read w/Fileman SECONDARY HEAD/NECK CANCER 1 (31.6). Access: Read w/Fileman SECONDARY COMBAT VET 1 (31.7). Access: Read w/Fileman SECONDARY ICD DIAGNOSIS CODE 2 (32). Access: Read w/Fileman SECONDARY AGENT ORANGE 2 (32.1). Access: Read w/Fileman SECONDARY IONIZED RADIATION 2 (32.2). Access: Read w/Fileman SECONDARY SERVICE CONNECTED 2 (32.3). Access: Read w/Fileman SECONDARY ENVIRONMENTAL CONT. 2 (32.4). Access: Read w/Fileman SECONDARY MST 2 (32.5). Access: Read w/Fileman SECONDARY HEAD/NECK CANCER 2 (32.6). Access: Read w/Fileman SECONDARY COMBAT VET 2 (33.7). Access: Read w/Fileman SECONDARY ICD DIAGNOSIS 3 (33). Access: Read w/Fileman SECONDARY AGENT ORANGE 3 (33.1). Access: Read w/Fileman SECONDARY IONIZED RADIATION 3 (33.2). Access: Read w/Fileman SECONDARY SERVICE CONNECTED 3 (33.3). Access: Read w/Fileman SECONDARY ENVIRONMENTAL CONT. 3 (33.4). Access: Read w/Fileman SECONDARY MST 3 (33.5). Access: Read w/Fileman SECONDARY HEAD/NECK CANCER 3 (33.6). Access: Read w/Fileman SECONDARY COMBAT VET 3 (33.7). Access: Read w/Fileman PFSS NEW PRESCRIPTION FLAG (100). Access: Read w/Fileman REQUESTOR (101). Access: Read w/Fileman ITEM (.01). Access: Read w/Fileman VENDOR (1). Access: Read w/Fileman QUANTITY (2). Access: Read w/Fileman UNIT OF ISSUE (4). Access: Read w/Fileman UNIT COST (3). Access: Read w/Fileman FUND CONTROL POINT (5). Access: Read w/Fileman HCPCS CODE (6). Access: Read w/Fileman ICD9 CODE (7). Access: Read w/Fileman REMARKS (8). Access: Read w/Fileman ITEM TYPE (9). Access: Read w/Fileman PRIMARY ITEM (10). Access: Read w/Fileman HOME OXYGEN RENTAL FLAG (11). Access: Read w/Fileman HOME OXYGEN CONSERVING FLAG (12). Access: Read w/Fileman PFSS ACCOUNT FLAG (100). Access: Read w/Fileman PFSS ACCOUNT REFERENCE (101). Access: Read w/Fileman	File 665 / 665.01 'B' cross reference Used to look upProsDisability Codes assignedto the PATIENTFile 665 'B' cross reference Used to determine if apatientis a prosthetic patient

Name	Field # of Occurrence
^%DT	19.14+1, 19.16+1, 19.18+1, 19.2+1, 19.5+1
Y^DIQ	ID2+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(4	ID2+1
^DIC(4 - [#4]	ID2+1
^RMPR(665 - [#665]	.01(XREF 1S), .01(XREF 1K), 19.13(XREF 1S), 19.13(XREF 1K), 19.2(XREF 1S), 19.2(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	19.14+1, 19.16+1, 19.18+1, 19.2+1, 19.5+1*
%I	ID2+1*!
>> C	ID2+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 19.13(XREF 1S), 19.13(XREF 1K), 19.2(XREF 1S), 19.2(XREF 1K)
>> DIC	ID2+1
>> DINUM	.01+1*
U	ID2+1
X	.01+1, .01(XREF 1S), .01(XREF 1K), 19.13(XREF 1S), 19.13(XREF 1K), 19.14+1!, 19.16+1!, 19.18+1!, 19.2+1!, 19.2(XREF 1S) , 19.2(XREF 1K), 19.5+1*!, 20+1!, 21+1!
>> Y	ID2+1*, 19.14+1, 19.16+1, 19.18+1, 19.2+1, 19.5+1

Customize PDF page

Package: Prosthetics

Global: ^RMPR(665

Information

Description

Directly Accessed By Routines, Total: 87

Accessed By FileMan Db Calls, Total: 26

Pointed To By FileMan Files, Total: 10

Pointer To FileMan Files, Total: 12

Fields, Total: 27

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: