Global: ^RMPF(791810.3

Information

FileMan FileNo	FileMan Filename	Package
791810.3	DISABILITY	Remote Order Entry System

The Disability File contains all diagnostic disability codes that may be used to establish a veteran's eligibility for ROES orders. Each code is associated with one or more product groups that are available from the DDC. The diagnostic codes are looked up in dictionary 31, the Disability Condition File, using the "C" cross reference. All data in this file is distributed with ROES and should not be edited at the local facility.

Package	Total	Routines
Remote Order Entry System	3	RMPFUTL ^RMPF(791810.3 ^RMPF(791814

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DISABILITY DX CODE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1991` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: `This field contains the diagnostic code entries for VA disability conditions that apply to a specific product group.` CROSS-REFERENCE: `791810.3^B` `1)= S ^RMPF(791810.3,"B",$E(X,1,30),DA)=""` `2)= K ^RMPF(791810.3,"B",$E(X,1,30),DA)` `This is the standard name cross-reference for the file. It is used to look up codes in the file and compare them to codes contained in the DISABILITY CONDITION FILE.`

DISABILITY DX CODE

0;1

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 05, 1991
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
This field contains the diagnostic code entries for VA disability conditions that apply to a specific product group.
CROSS-REFERENCE: 791810.3^B
1)= S ^RMPF(791810.3,"B",$E(X,1,30),DA)=""
2)= K ^RMPF(791810.3,"B",$E(X,1,30),DA)
This is the standard name cross-reference for the file. It is used to look up codes in the file and compare them to codes contained in the DISABILITY CONDITION FILE.

Name	Line Occurrences (* Changed, ! Killed)
^RMPF(791810.3 - [#791810.3]	.01(XREF 1S), .01(XREF 1K)

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K)