Global: ^DGRU(46.14

FileMan FileNo	FileMan Filename	Package
46.14	RAI MDS ASIH PATIENT	Registration

Description

In the initial design of the RAI/MDS interface, the need to create a discharge when a patient exceeds 30 days in ASIH was overlooked. Because the RAI/MDS interface is triggered by PIMS ADT events, there is no PIMS event for this discharge. In fact, the PIMS software creates a pseudo discharge at the time the patient goes on ASIH with a date/time of NOW plus 30 days. Therefore, if the 30 days is exceeded, the discharge goes into affect. If the patient returns or dies while ASIH, the discharge is either deleted or modified. In order to maintain control of the patients on ASIH, a new file was created. In addition, a routine which will periodically run checking the entries for patients who have exceeded the 30 day stay. Whenever a stay is found to exceed the 30 days, an HL7 Discharge (A03) will be created and sent to the COTS system and the entry in the RAI MDS ASIH PATIENT file will be inactivated. This file and associated routine and option are part of patch DG*5.3*328.

Package	Total	Routines
Registration	6	DGRUASIH DGRUGA03 ^DGRU(46.14 DGRUADT DGRUADT2 TO ASIH DATE/TIME

Package	Total	Routines
Registration	1	DGRUASIH

Package	Total	FileMan Files
Registration	1	PATIENT(#2)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `I $D(X) S DINUM=X` LAST EDITED: `OCT 11, 2000` DESCRIPTION: `The name of the patient in the format last name,first name.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `46.14^B` `1)= S ^DGRU(46.14,"B",$E(X,1,30),DA)=""` `2)= K ^DGRU(46.14,"B",$E(X,1,30),DA)`
.02	TO ASIH DATE/TIME	1;0	DATE Multiple #46.15	46.15

NAME

0;1

POINTER TO PATIENT FILE (#2)

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

INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: OCT 11, 2000
DESCRIPTION:
The name of the patient in the format last name,first name.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 46.14^B
1)= S ^DGRU(46.14,"B",$E(X,1,30),DA)=""
2)= K ^DGRU(46.14,"B",$E(X,1,30),DA)

.02 TO ASIH DATE/TIME 1;0 DATE Multiple #46.15 46.15

Name	Field # of Occurrence
C^%DTC	IXADP2CC+1

Name	Line Occurrences (* Changed, ! Killed)
^DGRU(46.14 - [#46.14]	IXADSL+1*, IXADKL+1!, IXADKEIC+1!, IXADP2CC+1, .01(XREF 1S), .01(XREF 1K)

Name	Field # of Occurrence
>> DA	IXADSL+1, IXADKL+1, IXADP2CC+1, .01(XREF 1S), .01(XREF 1K)
>> DA(1	IXADSL+1, IXADKL+1, IXADP2CC+1
>> DINUM	.01+1*
U	IXADP2CC+1
>> X	.01+1, .01(XREF 1S), .01(XREF 1K)
>> X(1	IXADSL+1, IXADKL+1
>> X(2	IXADSL+1, IXADKL+1
X1	IXADP2CC+1~*
X2	IXADP2CC+1~*