Global: ^DGRU(46.12

Information

FileMan FileNo	FileMan Filename	Package
46.12	RAI MDS WARD TRANSLATION	Registration

Package	Total	Routines
Registration	2	DGRUDYN DGRUUTL1

Package	Total	FileMan Files
Registration	1	WARD LOCATION(#42)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VISTA WARD NAME	0;1	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,16)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 21, 1999` DESCRIPTION: `The name of the Vista Ward Location which requires translation to a different name on the Accu-Max system. The name must be a ward name already in the Vista Ward Location file (#42).` TECHNICAL DESCR: `Pointer to the Ward Location file which requires translation on Accu-Max system because the name exceeds 15 characters.` SCREEN: `S DIC("S")="I $P(^(0),U,16)=1"` EXPLANATION: `Only allow selection of wards flagged as RAI/MDS wards` CROSS-REFERENCE: `46.12^B` `1)= S ^DGRU(46.12,"B",$E(X,1,30),DA)=""` `2)= K ^DGRU(46.12,"B",$E(X,1,30),DA)`
.02	COTS WARD NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `FEB 11, 2000` HELP-PROMPT: `Answer must be 2-15 characters in length.` DESCRIPTION: `The name of the ward on the Accu-Max system which represents the Vista ward selected.` TECHNICAL DESCR: `Free text field 2 - 15 characters.` CROSS-REFERENCE: `46.12^AC` `1)= S ^DGRU(46.12,"AC",$E(X,1,30),DA)=""` `2)= K ^DGRU(46.12,"AC",$E(X,1,30),DA)` `This cross reference is for looking up the VistA ward location from the translated ward location.`

VISTA WARD NAME

0;1

POINTER TO WARD LOCATION FILE (#42)

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

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,16)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 21, 1999
DESCRIPTION:
The name of the Vista Ward Location which requires translation to a different name on the Accu-Max system. The name must be a ward name already in the Vista Ward Location file (#42).
TECHNICAL DESCR:
Pointer to the Ward Location file which requires translation on Accu-Max system because the name exceeds 15 characters.
SCREEN: S DIC("S")="I $P(^(0),U,16)=1"
EXPLANATION: Only allow selection of wards flagged as RAI/MDS wards
CROSS-REFERENCE: 46.12^B
1)= S ^DGRU(46.12,"B",$E(X,1,30),DA)=""
2)= K ^DGRU(46.12,"B",$E(X,1,30),DA)

COTS WARD NAME

0;2

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>15!($L(X)<2) X
LAST EDITED: FEB 11, 2000
HELP-PROMPT: Answer must be 2-15 characters in length.
DESCRIPTION:
The name of the ward on the Accu-Max system which represents the Vista ward selected.
TECHNICAL DESCR:
Free text field 2 - 15 characters.
CROSS-REFERENCE: 46.12^AC
1)= S ^DGRU(46.12,"AC",$E(X,1,30),DA)=""
2)= K ^DGRU(46.12,"AC",$E(X,1,30),DA)
This cross reference is for looking up the VistA ward location from the translated ward location.