Sub-Field: 9002071.08

Parent File	Name	Number	Package
9002071.01	OTHER RESOURCES	9002071.08	Contract Health Management Information System

Details

Field #	Name	Loc	Type	Details
.01	OTHER RESOURCES	0;1	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `NOV 13, 2000` HELP-PROMPT: `Enter Name Of Insurer (Medicare,Medicaid,Railroad,Pvt. Insurance,etc)` CROSS-REFERENCE: `9002071.08^B` 1)= S ^ACHSDEN(DA(2),"D",DA(1),800,"B",$E(X,1,30),DA)="" 2)= K ^ACHSDEN(DA(2),"D",DA(1),800,"B",$E(X,1,30),DA)
2	AMOUNT PAID BY THIS RESOURCE	0;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `DEC 01, 1993` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
3	IHS APPEALED TO OTHER RES?	0;3	SET	LAST EDITED: `DEC 01, 1993` HELP-PROMPT: `Enter 'Y' if IHS Has Appealed To Other Resources`
4	DOCUMENTATION FOR APPEAL	1;0	Multiple #9002071.84	9002071.84
5	OTHER RESOURCE COMMENTS	2;0	WORD-PROCESSING #9002071.85
6	PARENT OR GUARDIAN (CHILD)	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 01, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
8	OTH RESC DATE DENIED	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 18, 1994` HELP-PROMPT: `Enter Date From Other Resources' Denial Letter`
9	OTH RES APPEAL FREE TEXT	4;0	WORD-PROCESSING #9002071.89
10	OTH RES APPEAL COMMENT	5;0	WORD-PROCESSING #9002071.1