Global: ^ACHSDENO

FileMan FileNo	FileMan Filename	Package
9002073.2	CHS DENIAL REASON OPTION	Contract Health Management Information System

FileMan FileNo

FileMan Filename

Package

9002073.2

CHS DENIAL REASON OPTION

Package	Total	FileMan Files
Contract Health Management Information System	1	CHS DENIAL REASON(#9002073)[.02]

Package

Total

FileMan Files

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	OPTION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAR 23, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9002073.2^B` 1)= S ^ACHSDENO("B",$E(X,1,30),DA)="" 2)= K ^ACHSDENO("B",$E(X,1,30),DA)
.02	REASON	0;2	POINTER TO CHS DENIAL REASON FILE (#9002073)	**********************REQUIRED FIELD********************** CHS DENIAL REASON(#9002073) INPUT TRANSFORM: `S DIC("S")="I '$G(^(10))!($G(^(10))>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 24, 1995` HELP-PROMPT: `Select the Denial Reason to which this option applies.` SCREEN: `S DIC("S")="I '$G(^(10))!($G(^(10))>DT)"` EXPLANATION: `Inactivation date absent, or after TODAY.`
1	TEXT	1;0	WORD-PROCESSING #9002073.21

OPTION

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002073.2^B

1)= S ^ACHSDENO("B",$E(X,1,30),DA)=""

2)= K ^ACHSDENO("B",$E(X,1,30),DA)

REASON

0;2

POINTER TO CHS DENIAL REASON FILE (#9002073)

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

INPUT TRANSFORM: S DIC("S")="I '$G(^(10))!($G(^(10))>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 24, 1995
HELP-PROMPT: Select the Denial Reason to which this option applies.
SCREEN: S DIC("S")="I '$G(^(10))!($G(^(10))>DT)"
EXPLANATION: Inactivation date absent, or after TODAY.

1 TEXT 1;0 WORD-PROCESSING #9002073.21