Global: ^RMPF(791814

FileMan FileNo	FileMan Filename	Package
791814	ROES ELIGIBILITY CONFIRMATION	Remote Order Entry System

FileMan FileNo

FileMan Filename

Package

791814

ROES ELIGIBILITY CONFIRMATION

Remote Order Entry System

Description

This file is used to facilitate the approval of ROES eligibilities that are entered by ASPS (Audiology and Speech Pathology Service) and are required to be approved by PSAS (Prosthetics and Sensory Aids Service). All of the fields are populated by data from the ROES3.exe and the Vista RMPFDE2 option. No direct editing should be necessary. ROES3 is a GUI application that is accessed from the CPRS Tools menu. Through ROES 3, ASPS connects to the DDC web site to order supplies for patients. If the patient does not have pre-appoved eligibility for ROES orders, it must be sent to PSAS for approval, before the order can be placed. A message is sent to the RMPF ROES UPDATES (PSAS) mail group that a request was entered. PSAS uses the RMPFDE2 option to evaluate the request and a message back to the RMPF ROES UPDATES (ASPS) mail group is sent. From that time, when the ROES application is accessed for the patient, the action by PSAS will be noted and the connection will be made if the eligibility was approved.

Package	Total	Routines
Remote Order Entry System	2	^RMPF(791814 RMPFRPC0

Package

Total

Routines

Remote Order Entry System

^RMPF(791814 RMPFRPC0

Package	Total	Routines
Remote Order Entry System	1	RMPFRPC3

Package

Total

Routines

Remote Order Entry System

RMPFRPC3

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.03, 2.03]
MailMan	1	MESSAGE(#3.9)[1.02]
Registration	1	PATIENT(#2)[.01]

Package

Total

FileMan Files

Kernel

NEW PERSON(#200)[.03, 2.03]

MailMan

MESSAGE(#3.9)[1.02]

Registration

PATIENT(#2)[.01]

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JUL 29, 2003` DESCRIPTION: `Pointer to the PATIENT file at the facility where file kept.` TECHNICAL DESCR: `Maintains the pointer to the record in the PATIENT (#2) FILE.` CROSS-REFERENCE: `791814^B` `1)= S ^RMPF(791814,"B",$E(X,1,30),DA)=""` `2)= K ^RMPF(791814,"B",$E(X,1,30),DA)` RECORD INDEXES: `E (#278)`
.02	DATE REQUEST ENTERED	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 29, 2003` DESCRIPTION: `This is the date the request is entered. It is to be filled in automatically by the program entering the request.` RECORD INDEXES: `E (#278)`
.03	ENTERING USER (ASPS)	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 2003` DESCRIPTION: `This is the person entering the request for the eligibility confirmation. Usually this person will be an Audiologist.` TECHNICAL DESCR: `This field is filled in automatically by the ROES3 program when a user accesses CPRS Tools to connect to the DDC for a patient order, and the system cannot determine an acceptable eligibility, or one that PSAS requires to` `be approved by them. It is used in the GUI application and in the messages sent to PSAS and ASPS about the request.`
.04	EXPIRATION DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 12, 2003` DESCRIPTION: `This is the date that the request or approval will expire.` CROSS-REFERENCE: `791814^D` `1)= S ^RMPF(791814,"D",$E(X,1,30),DA)=""` `2)= K ^RMPF(791814,"D",$E(X,1,30),DA)` `Keeps a sorted list of expiration dates for facilitation of purging.`
1.01	SUGGESTED ELIGIBILITY	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `FEB 12, 2003` DESCRIPTION: `This is the eligibility code that the entering user suggests. It will be seen by the PSAS user from the menu option RMPFDE2 that displays eligibilities waiting for approval.`
1.02	EMAIL MSG NUMBER	1;2	POINTER TO MESSAGE FILE (#3.9)	MESSAGE(#3.9) LAST EDITED: `FEB 12, 2003` DESCRIPTION: `This is the internal number of the message sent to PSAS` TECHNICAL DESCR: `Pointer to the MESSAGE file (#3.9) It is used by option RMPFDE2 to get and display the additional text that ASPS entered to assist in making the eligibility determination.`
2.01	PSAS ELIGIBILITY	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `FEB 12, 2003` DESCRIPTION: `THIS IS THE ELIGIBILITY CODE THAT PSAS SELECTS TO APPROVE IT MAY OR MAY NOT BE THE SAME AS THE ONE SUGGESTED BY ASPS` TECHNICAL DESCR: `This is the eligibility code approved or chosen by PSAS from the menu option RMPFDE2. It may or may not be the same as the one suggested by ASPS. It may also be blank in the cases of eligibility denial.`
2.02	APPROVE/REJECT	2;2	SET	'0' FOR REJECTED; '1' FOR APPROVED; '2' FOR WAITING; LAST EDITED: `FEB 12, 2003` DESCRIPTION: `"0" SHOWS THE REQUEST IS REJECTED "1" SHOWS THE REQUEST IS APPROVED "2" SHOWS WAITING FOR ACTION` TECHNICAL DESCR: `Program RMPFDE2 puts in 1 if the request is approved or if PSAS selects another eligibility to approve. The program puts in a 0 if the request is rejected. Having a 2 indicates that the request has not been acted on yet.` CROSS-REFERENCE: `791814^C` `1)= S ^RMPF(791814,"C",$E(X,1,30),DA)=""` `2)= K ^RMPF(791814,"C",$E(X,1,30),DA)` `This cross-reference is set to facilitate the VistA menu option: RMPFDE2 used for PSAS to loop through the 2's to evaluate the eligibility request.`
2.03	USER (PSAS)	2;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 2003` DESCRIPTION: `THIS IS THE NAME OF THE PERSON ACTING ON THE REQUEST. USUALLY A PERSON FROM PSAS, IN AN OFFICIAL STATUS.`
2.04	ACTION DATE	2;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 12, 2003` DESCRIPTION: `This is the date that the PSAS official acted on the request` TECHNICAL DESCR: `This field is used in messages that display when a request was acted on. It is also referenced in the GUI application ROES3.EXE to display the status of a prior request for approval of a patient's eligibility.`

Name	Field # of Occurrence
^%DT	.02+1, .04+1, 2.04+1

Name

Field # of Occurrence

^%DT

.02+1, .04+1, 2.04+1

Name	Line Occurrences (* Changed, ! Killed)
^RMPF(791810.1 - [#791810.1]	\|dd791810.1!, \|dd791810.11!, \|dd791810.1101!, \|dd791810.1102!, \|dd791810.1103*!
^RMPF(791810.2 - [#791810.2]	\|dd791810.2!, \|dd791810.2101!
^RMPF(791810.3 - [#791810.3]	\|dd791810.3*!
^RMPF(791810.4 - [#791810.4]	\|dd791810.4*!
^RMPF(791810.5 - [#791810.5]	\|dd791810.5*!
^RMPF(791810.6 - [#791810.6]	\|dd791810.6*!
^RMPF(791811 - [#791811]	\|dd791811!, \|dd791811.0101!, \|dd791811.0102*!
^RMPF(791811.1 - [#791811.1]	\|dd791811.1!, \|dd791811.1101!
^RMPF(791811.2 - [#791811.2]	\|dd791811.2*!
^RMPF(791811.3 - [#791811.3]	\|dd791811.3*!
^RMPF(791811.4 - [#791811.4]	\|dd791811.4*!
^RMPF(791812 - [#791812]	\|dd791812!, \|dd791812.0101!
^RMPF(791813 - [#791813]	\|dd791813!, \|dd791813.0101!
^RMPF(791814 - [#791814]	IXESL+1, IXEKL+1!, IXEKEIC+1!, .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), 2.02(XREF 1S), 2.02(XREF 1K), \|dd791814!

Name

Line Occurrences (* Changed, ! Killed)

^RMPF(791810.1 - [#791810.1]

|dd791810.1*!, |dd791810.11*!, |dd791810.1101*!, |dd791810.1102*!, |dd791810.1103*!

^RMPF(791810.2 - [#791810.2]

|dd791810.2*!, |dd791810.2101*!

^RMPF(791810.3 - [#791810.3]

|dd791810.3*!

^RMPF(791810.4 - [#791810.4]

|dd791810.4*!

^RMPF(791810.5 - [#791810.5]

|dd791810.5*!

^RMPF(791810.6 - [#791810.6]

|dd791810.6*!

^RMPF(791811 - [#791811]

|dd791811*!, |dd791811.0101*!, |dd791811.0102*!

^RMPF(791811.1 - [#791811.1]

|dd791811.1*!, |dd791811.1101*!

^RMPF(791811.2 - [#791811.2]

|dd791811.2*!

^RMPF(791811.3 - [#791811.3]

|dd791811.3*!

^RMPF(791811.4 - [#791811.4]

|dd791811.4*!

^RMPF(791812 - [#791812]

|dd791812*!, |dd791812.0101*!

^RMPF(791813 - [#791813]

|dd791813*!, |dd791813.0101*!

^RMPF(791814 - [#791814]

IXESL+1*, IXEKL+1!, IXEKEIC+1!, .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), 2.02(XREF 1S), 2.02(XREF 1K), |dd791814*!

Name	Field # of Occurrence
^(0	\|dd791810.11, \|dd791811, \|dd791811.2

Name

Field # of Occurrence

^(0

|dd791810.11, |dd791811, |dd791811.2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .04+1, 2.04+1, \|dd791812, \|dd791812.0101, \|dd791813, \|dd791814*
>> DA	IXESL+1, IXEKL+1, .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), 2.02(XREF 1S), 2.02(XREF 1K), \|dd791810.1, \|dd791810.11 , \|dd791810.1101, \|dd791810.1102, \|dd791810.1103, \|dd791810.2, \|dd791810.2101, \|dd791810.3, \|dd791810.4, \|dd791810.5, \|dd791810.6, \|dd791811 , \|dd791811.0101, \|dd791811.0102, \|dd791811.1, \|dd791811.1101, \|dd791811.2, \|dd791811.3, \|dd791811.4, \|dd791812, \|dd791812.0101, \|dd791813 , \|dd791813.0101, \|dd791814
>> DA(1	\|dd791810.11, \|dd791810.1101, \|dd791810.1102, \|dd791810.1103, \|dd791810.2101, \|dd791811.0101, \|dd791811.0102, \|dd791811.1101, \|dd791812.0101, \|dd791813.0101
>> DINUM	\|dd791810.11, \|dd791811.0102, \|dd791813, \|dd791813.0101
DT	\|dd791813
RMPFDAT	\|opt!
RMPFMENU	\|opt*!
RMPFSTAN	\|opt!
RMPFSTAP	\|opt!
RMPFSYS	\|opt!
U	\|dd791810.11, \|dd791811, \|dd791811.2
X	.01(XREF 1S), .01(XREF 1K), .02+1!, .04+1!, .04(XREF 1S), .04(XREF 1K), 1.01+1!, 2.01+1!, 2.02(XREF 1S), 2.02(XREF 1K) , 2.04+1!, \|dd791810.1!, \|dd791810.11!, \|dd791810.1101, \|dd791810.1102, \|dd791810.1103!, \|dd791810.2!, \|dd791810.2101, \|dd791810.3!, \|dd791810.4! , \|dd791810.5!, \|dd791810.6!, \|dd791811!, \|dd791811.0101!, \|dd791811.0102, \|dd791811.1!, \|dd791811.1101, \|dd791811.2!, \|dd791811.3!, \|dd791811.4! , \|dd791812!, \|dd791812.0101!, \|dd791813!, \|dd791813.0101, \|dd791814*!
X(1	IXESL+1, IXEKL+1, \|dd791814
X(2	IXESL+1, IXEKL+1, \|dd791814
>> Y	.02+1, .04+1, 2.04+1, \|dd791812, \|dd791812.0101, \|dd791813*, \|dd791814
>> Y(0	\|dd791813*
Z1	\|dd791811*!

Customize PDF page

Package: Remote Order Entry System

Global: ^RMPF(791814

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 10

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: